FiveTech Support Forums

FUNCTION objectoSqlFwToDbf(oObjSql,cAliTab,cPatDes,cFilDes,lAbrTab)


    LOCAL nNroCam := 0, II := 0 , nNroReg := 0
    LOCAL cAliTem := "ART_XXX"
    IF lAbrTab == NIL
       lAbrTab := .T.
    ENDIF

    IF lAbrTab //
       ABRETABLA(cAliTab)
       COPY_STRUC_A_DBF(cAliTab,cPatDes+cFilDes,"DBFCDX")
       CLOSE (cAliTab)

       IF !lUsaTab(cPatDes,cFilDes,cAliTem,{},.F.,NIL,"DBFCDX")
          RETURN .F.
       ENDIF

    ELSE  // YA VIENE ABIERTA
       cAliTem := cAliTab  // LA TEMPORAL ES LA QUE VIENE
    ENDIF

    nNroReg := oObjSql:RecCount()

    oObjSql:GoTop()
    nNroCam := oObjSql:Fcount()

    FOR II := 1 TO nNroReg

        SELECT (cAliTem)
        IF (cAliTem)->( lReglock( .T. ) )
           IF !__CREA_REG_DBF_OF_SQL(nNroCam,cAliTem,oObjSql)
              RETURN .F.
           ENDIF
        ENDIF

        oObjSql:Skip( 1 )

    NEXT II

    (cAliTem)->( DBCOMMIT() )
    (cAliTem)->( DBUNLOCK() )

    IF lAbrTab
       CLOSE (cAliTem)
    ENDIF

RETURN .T.

//*****************************************************************

FUNCTION __CREA_REG_DBF_OF_SQL(nNroCam,xAliTab,oSqlTab)

LOCAL nPosCam, J := 0, cTipDat, xConCam


TRY
        FOR J := 1 TO nNroCam

            nPosCam := (xAliTab)->( FIELDPOS( oSqlTab:fieldname( J ) ) )

            IF nPosCam > 0

               cTipDat := (xAliTab)->( VALTYPE( &( FIELDNAME( nPosCam ) ) ) )

               IF !EMPTY(oSqlTab:FieldGet( J ) )

                   DO CASE
                      CASE cTipDat == "N"
                           xConCam :=  oSqlTab:FieldGet( J )
                      CASE cTipDat == "D"

                           xConCam := oSqlTab:FieldGet( J )

                      CASE cTipDat == "M"

                      CASE cTipDat == "C"
                           xConCam :=  IF(oSqlTab:FieldGet( J )==NIL,"",oSqlTab:FieldGet( J ) )
                           // OJO REVISAR LONGITUD
                      CASE cTipDat == "L"
                           xConCam :=  IF(oSqlTab:FieldGet( J )=="1",.T.,.F.)
                      OTHERWISE
                           ALERT("Error. Tipo de dato desconocido")
                   ENDCASE

                   (xAliTab)->( FIELDPUT(nPosCam, xConCam)  )

               ENDIF

            ENDIF

        NEXT J
CATCH

       RETURN .F.
END

RETURN .T.

METHOD SetOrder( nFld, u, lDesc ) CLASS TArrayData

   local uBm
   local xCodBus := nFld
   local cConIzq,cConDer

   DEFAULT nFld := ::nOrder

   ( u )

   if PCount() > 0
      if Empty( nFld )
         if ::nSrcType > SRC_ARR
//            ASort( ::aData, 1, ::KeyCount(), { |x,y| ABS( x[ ::nRecNumCol ] ) < ABS( y[ ::nRecNumCol ] ) } )
            ASort( ::aData, 1, ::KeyCount(), { |x,y| ::RecID( x ) != ::nAppendRec .and. ::RecID( x ) < ::RecId( y )  } )
         elseif ::aNatural != nil
            uBm   := ::BookMark
            ACopy( ::aNatural, ::aData )
            ::lDesc     := .f.
            ::BookMark  := uBm
         endif
      else
         if ValType( nFld ) == 'C'
            nFld    := ::FieldPos( nFld )
         endif

         if nFld > 0

            DEFAULT lDesc  := .f.

            if ::KeyCount() > 0

               uBm   := ::BookMark
               if ::FieldType( nFld ) == 'C'
                  if lDesc
                     ASort( ::aData, 1, ::KeyCount(), { |x,y| ::RecID( x ) != ::nAppendRec .and. Upper( x[ nFld ] ) > Upper( y[ nFld ] )} )
                  else
                     ASort( ::aData, 1, ::KeyCount(), { |x,y| ::RecID( x ) != ::nAppendRec .and. Upper( x[ nFld ] ) < Upper( y[ nFld ] ) } )
                  endif
               else
                  if lDesc
                     ASort( ::aData, 1, ::KeyCount(), { |x,y| ::RecID( x ) != ::nAppendRec .and. x[ nFld ] > y[ nFld ] } )
                  else
                     ASort( ::aData, 1, ::KeyCount(), { |x,y| ::RecID( x ) != ::nAppendRec .and. x[ nFld ] < y[ nFld ] } )
                  endif
               endif
               ::BookMark  := uBm
            endif

            ::nOrder := nFld
            ::lDesc  := lDesc

         else

            DEFAULT lDesc  := .f.

            if ::KeyCount() > 0

               uBm   := ::BookMark

                 ASort( ::aData, 1, ::KeyCount(), { |x,y| ::RecID( x ) != ::nAppendRec .and. ::criterioOrdenamiento(xCodBus,X,Y,lDesc)   } )

               ::BookMark  := uBm
            endif

            ::nOrder := nFld
            ::lDesc  := lDesc


         endif
      endif
   endif

return If( ::nOrder > 0, ::FieldName( ::nOrder ), "" )

//********************************************************************

METHOD criterioOrdenamiento(cSarOrd,X,Y,lDesc)  CLASS TArrayData

LOCAL I := 0
LOCAL cSarIzq := "" , cSarDer := "" , cNomCam := ""

FOR I := 1 TO LEN(cSarOrd)
    IF cSarOrd[I] == "," .OR. I == LEN(cSarOrd)
       IF I == LEN(cSarOrd)
          cNomCam += cSarOrd[I]
       ENDIF

       nNroCol :=  ::FieldPos( cNomCam )
       cNomCam := ""

       cSarIzq += x[nNroCol] // +IF(I<LEN(cSarOrd),"+","")
       cSarDer += y[nNroCol]  //"+IF(I<LEN(cSarOrd),"+","")
    ELSE
       cNomCam += cSarOrd[I]
    ENDIF

NEXT I

IF lDesc
   RETURN UPPER(cSarIzq) > UPPER(cSarDer)
ELSE
   RETURN UPPER(cSarIzq) < UPPER(cSarDer)
ENDIF

RETURN .T.

oRs := oCn:RowSet( .......... )
oRs:SetBachMode( .t. )
// check
? oRs:lBatchMode // --> .t.

oRs:SaveBatch()

oRs:CancelBatch()

oRs:SetBatchMode( .f. )

oRs := oCn:RowSet( ........... )
oRs:SetBatchMode( .T. )

// do all your work of appends/deletes/updates
// and finally
oRs:Close()

                 oRs := TArrayData():NEW(oConSql,LOWER(cNomTab),cSqlFil)   // cargado con una Sentencia Sql directamente

                 oRs := TArrayData():NEW(cAliTab)   // cargado desde un tabla DBF

                 oRs:fromDBF("TAB_TEM")

                ejp : oRs:zap()
           
                aData    := oConSql:Execute( cSenEje )

                IF LEN(aData) == 0
                    //ALERTX("Aviso. Resultado de la consulta SQL es vacia "+cSenEje)
                    RETURN .F.
                 ENDIF

                 FOR J := 1 TO LEN(aData)
                     AADD(aData[J],"")
                     oRs:Append( aData[J] )
                 NEXT J