FiveTech Software tech support forums

Code: Select all | Expand

              If oQry:seek(11, 'Numero' ,,,.t.) > 0  //softseek=.t.
                     msginfo('encontrado')
              else
                      msginfo('no encontrado')
              endif
 

Code: Select all | Expand

           oQry2:=oServer:Query( "SELECT GET_LOCK( 'vendedores.numero.1', 30) AS locked" )
          msginfo(oQry2:locked) //aqui me regresa 1 señal de que la cadena se bloqueo correctamente
 

Code: Select all | Expand

         oQry2:=oServer:Query( "SELECT GET_LOCK( 'vendedores.numero.1', 30) AS locked" )
         msginfo(oQry2:locked) //Aqui vuelve a regresar 1 siendo que el primer programa ya bloqueo la misma cadena ¿deberia de regresar 0?
 

Code: Select all | Expand

#include "hbclass.ch"
#include "common.ch"
#include "dbstruct.ch"
#include "tdolphin.ch"
#include "dolerr.ch"
#include "recursos.ch"

#ifndef __XHARBOUR__

   #include "hbcompat.ch"

#endif

//---------------------------------------------------------------------------------------------//

CLASS SQL_QUERY FROM TDolphinQry

   METHOD NEW( cQuery, oServer )
   METHOD Cancel()
   METHOD CLOSE() INLINE ::End()

   METHOD Filter(cWhere,cOrder)
   METHOD Sort(cSort)
   METHOD RecordExist(aWhere)
   METHOD Find_Sql(cnField, uSeek,  lSoft, lRefresh)

   METHOD IF_Record_Bloquear(uRecord)
   METHOD Record_Bloquear(uRecord)
   METHOD Record_Desbloquear(uRecord)

   METHOD Load()        INLINE ::GetRow()
   METHOD RecordCount() INLINE ::RecCount()

ENDCLASS

//---------------------------------------------------------------------------------------------//

METHOD NEW( cQuery, oServer  ) CLASS SQL_QUERY

     Super:New( cQuery, oServer  )

Return Self

//---------------------------------------------------------------------------------------------//

METHOD Cancel() CLASS SQL_QUERY

    If ::lAppend   = .T.
       ::lAppend   = .F.
    Endif

Return NIL

//---------------------------------------------------------------------------------------------//
METHOD Filter(cWhere,cOrder) CLASS SQL_QUERY
Local oQuery
Local nTotal := 0
Local cCont  :="Select Count(*) From "+::aTables[ 1 ] + " WHERE " + cWhere
Local lReturn :=.F.


  // Primero ver si criterio de Busqueda se Cumple
   oQuery := SQL_QUERY():New(cCont,::oServer )

   nTotal = oQuery:FieldGet( 1 )

   IF nTotal > 0
       lReturn    := .T.
       ::cWhere   := cWhere
       ::cOrder   := cOrder
       ::Refresh()
   Endif

   oQuery:End()

Return(lReturn)

//---------------------------------------------------------------------------------------------//
METHOD Sort(cSort) CLASS SQL_QUERY

   ::Setorder(cSort)

Return NIL

//---------------------------------------------------------------------------------------------//
METHOD RecordExist(aWhere) CLASS SQL_QUERY

Local oQuery
Local lreturn :=.F.
Local nCount  :=.0
Local cWhere  :=BuildSQLSt(" WHERE "+aWhere[1] + aWhere[2] + "?", aWhere[3])
Local cSelect :="Select Count(*) From "+::aTables[ 1 ] +  cWhere

   oQuery := SQL_QUERY():New(cSelect,::oServer )

   nCount = oQuery:FieldGet( 1 )

   If nCount > 0

       lReturn:=.T.

   Endif

   oQuery:End()

Return(lreturn)

//---------------------------------------------------------------------------------------------//

METHOD Find_Sql(cnField, uSeek,  lSoft, lRefresh)  CLASS SQL_QUERY

  Local lReturn :=.F.

  DEFAULT lSoft    TO .T.
  DEFAULT lRefresh TO .T.

  IF  ::Seek(uSeek, cnField, , ,lsoft,lRefresh) > 0

      lReturn :=.T.

  Endif

RETURN (lReturn)

//---------------------------------------------------------------------------------------------//

METHOD IF_Record_Bloquear(uRecord) CLASS SQL_QUERY

Local cRecord      :=IF(Valtype(uRecord)="N",Rtrim(Str(uRecord)),uRecord)
Local cLockRecord  :=::aTables[ 1 ]+cRecord
Local If_lock      :="SELECT IS_FREE_LOCK('" + cLockRecord + "')"
Local llock        :=.F.
Local nCount       :=0
Local oQuery

   ??? cLockRecord

   oQuery := SQL_QUERY():New(If_lock,::oServer )
   nCount := oQuery:FieldGet( 1 )

   If nCount = 1 /// 0 - esta Bloqueado Bloqueo 1 - esta Libre

       llock :=.T.

   Endif

   oQuery:End()

   ??? llock

Return( llock )

//---------------------------------------------------------------------------------------------//

METHOD Record_Bloquear(uRecord) CLASS SQL_QUERY

Local cRecord      :=IF(Valtype(uRecord)="N",Rtrim(Str(uRecord)),uRecord)
Local cLockRecord  :=::aTables[ 1 ]+cRecord
Local IF_not_Lock  :="SELECT GET_LOCK('" + cLockRecord + "',1) "
Local nCount       :=0
Local oQuery, llock := .f.

    oQuery := SQL_QUERY():New(IF_not_Lock,::oServer )
    nCount := oQuery:FieldGet( 1 )

    if ncount == 1

      llock := .t.

    Endif

   oQuery:End()

Return llock


//---------------------------------------------------------------------------------------------//

METHOD Record_Desbloquear(uRecord)  CLASS SQL_QUERY

Local cRecord      :=IF(Valtype(uRecord)="N",Rtrim(Str(uRecord)),uRecord)
Local cLockRecord  :=::aTables[ 1 ]+cRecord
Local If_lock      :="SELECT RELEASE_LOCK('" + cLockRecord + "')"
Local nCount       :=0
Local oQuery

   oQuery := SQL_QUERY():New(If_lock,::oServer )
   nCount := oQuery:FieldGet( 1 )

   oQuery:End()

Return Nil

/// Llamados como Funciones

//---------------------------------------------------------------------------------------------//

Function QueryRow(oConect,cTabla,aField,oRecord) // Lee un registro y cierra  el Query no retorna nada , manda el Obj Recordset por Referencia

Local cSelect:=BuildSQLSt("Select * From " + cTabla + " Where " + aField[1] + "=? LIMIT 1",aField[2] )

   If Valtype(oRecord) == "O"
       oRecord:End()
   Endif

   oRecord:=SQL_QUERY():New(cSelect,oConect)
   oRecord:Gotop()
   oRecord:End()

RETURN NIL
//---------------------------------------------------------------------------------------------//

Function Seek_Sql(oConect,cTabla,aField,oRecord)   // Lee un registro y cierra la el Query Rerorna .F. o .T.

Local oTb
Local cSelect
Local lreturn:=.T.

  If Valtype(oRecord) == "O"
       oRecord:End()
  Endif

  cSelect:=BuildSQLSt( "Select * From " +  cTabla + " WHERE " + aField[1] + "=? LIMIT 1",aField[2] )

  oRecord:=SQL_QUERY():New(cSelect,oConect)

  IF oRecord:RecCount() = 0

      lreturn:=.F.

  Endif

  oRecord:End()

RETURN (lReturn)

//---------------------------------------------------------------------------------------------//

static FUNCTION QueryArray(oConect,cSelect )

LOCAL oTb
LOCAL aQuery

      oTb:=SQL_QUERY():New(cSelect,oConect)
      aQuery:=oTb:FillArray()
      oTb:End()

RETURN (aQuery)

//------------------------------------------------------------------------------------------------//

Function BuildSQLSt( cWhere, cCond )
Local cSql := cWhere


strtran( cSql, "?", cCond )

Return cSql

//-------------------------------//

Function MySql_Rec_lock( id, oLock )
local forever, espera := 5
If oLock:Record_Bloquear(id) //Rlock()
    Return (.T.)
Endif
Forever = (Espera = 0)
Do While (forever .Or. Espera > 0)
   If oLock:Record_Bloquear(id) //Rlock()
      Return (.T.)
   Endif
   Inkey(.5)
   Espera = Espera - .5
Enddo
Return (.F.)








 

Code: Select all | Expand

     IF empty( oTmaniobra:maniobra )

        lnuevo := .t.

       oLock  := Sql_Query():New( "Select * From config limit 1", oServer )


       // intenta obtener el bloqueo
        while ! MySql_rec_lock( oLock:id, oLock )
           //msginfo("No ha podido Bloquear")

        End


      //  msginfo("bloqueado")

        oQryC               := oServer:Query( "Select * From config " )
        oTCfg               := oQryc:GetRowObj()

        ???  oTCfg:maniobras

        oTmaniobra:maniobra := STRZERO( oTCfg:maniobras, 10 )
        oTmaniobra:user     := husuario
          oTmaniobra:fechareg := date()
          oTmaniobra:horareg  := time()
        oTCfg:maniobras     := oTCfg:maniobras + 1
        oTCfg:Save()

        oTmaniobra:lappend  := .t.

       // msginfo("voy a desbloquear")

        oLock:Record_DesBloquear( oLock:id )


        oQryc:End()
        
      Else
    
        oTmaniobra:lappend   := .f. 

     Endif

      cAUsuario := HUSUARIO
      cAModulo  := "MAN"
      cAFecha   := date()
      cAHora    := time()
      cATam     := 10
      cAregis   := oTmaniobra:maniobra
      cAAccion  :=""
      cADetalle :=""

     aTarifa :=  asigna_tarifa( len( ::aEqui )  )

//   oTmaniobra:codtarif:=aTarifa[1,10];

     oTmaniobra:estado := cEstado

     IF ! lnuevo

        IF !lrecal

           cAAccion :="U"
           cADetalle :="Actualizacion Registro maniobra"

          Endif

     else

        if !lrecal

             cAAccion :="I"
           cADetalle :="Creacion de Registro maniobra"

          Endif

     endif

     oTmaniobra:motonave := Val2Escape( oTmaniobra:motonave )

     oTmaniobra:Save()









//-------------------------------//

Function MySql_Rec_lock( id, oLock )
local forever, espera := 5
If oLock:Record_Bloquear(id) //Rlock()
    Return (.T.)
Endif
Forever = (Espera = 0)
Do While (forever .Or. Espera > 0)
   If oLock:Record_Bloquear(id) //Rlock()
      Return (.T.)
   Endif
   Inkey(.5)
   Espera = Espera - .5
Enddo
Return (.F.)

 

Code: Select all | Expand

        oTmaniobra:maniobra := STRZERO( oTCfg:maniobras, 10 )
        oTmaniobra:user     := husuario
    oTmaniobra:fechareg := date()
    oTmaniobra:horareg  := time()
        oTCfg:maniobras     := oTCfg:maniobras + 1
        oTCfg:Save()