FiveTech Software tech support forums

Code: Select all

if ADSExecuteSQLDirect( cConsulta1 )

   sqlarea->(dbgotop())
   do while sqlarea->(!eof())    
     Aadd(aArray , {alltrim(str(sqlarea->TALON)) , alltrim(sqlarea->NOMBRE)} )
     sqlarea->( DbSkip())
   enddo

xBrowse(aArray)

Code: Select all

sqlarea->(dbgotop())
for f = 1 to 10
 msginfo(sqlarea->TALON+"   "+sqlarea->NOMBRE)
 sqlarea->( DbSkip())
next

Code: Select all

   sqlarea->(dbgotop())
   aArray := array(sqlarea->(lastrec()),2) 
   i := 0
   sqlArea->( dbEval( { || aEval( aArray[++i], { |x,y| aArray[i,y] := FieldGet( y ) } ) } ) )    
 

Code: Select all

  ADSCreateSQLStatement(cAlias,2,nConnect)
 

Code: Select all

DbUseArea( .T., "DBFCDX" , "Orders", cAlias )
 

Code: Select all

ADSExecuteSQLDirect( cConsulta1 )
xbrowse()
 

Code: Select all

DbUseArea( .T., "DBFCDX" , "Orders", cAlias )

Code: Select all

#INCLUDE "FIVEWIN.Ch"
#include "xbrowse.ch"
#include "ADS.CH"


REQUEST HB_LANG_ES
REQUEST DBFCDX, DBFFPT
REQUEST ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo, AdsGetRelKeyPos, AdsSetRelKeyPos,DBFCDX



Function PruebaADS()

local cCarpetaInstalacion:="\\Pcdellocal\D\RJCtaller" , cFechaDesde:="01/01/1976" , cFechaHasta:="01/07/2012"
local cServer  := cCarpetaInstalacion+"\DBF's\"
local lConect:=.f.

cConsulta1:="Select TALON, NOMBRE, DIRECCION, LOCALIDAD, BARRIO, CODPOSTAL, TELEFONO1, TELEFONO2, "+;
              "CELULAR, EMAIL, ARTEFACTO, MARCA, MODELO, SERIE, UBICADO, FECHAIN, "+ ;
              "FECHALIQUI, FINALIZADO, RETIRO, FECHA_COM, DETALLECL, DETALLETA, "+;
                            "ESTADO, DEALER, GARANTIZA, STATUS from TRABAJOS where "+;
                            "(FECHAIN>='"+cFechaDesde+"' and FECHAIN<='"+cFechaHasta+"'"+;
                            " or "+;
                            "FECHALIQUI>='"+cFechaDesde+"' and FECHALIQUI<='"+cFechaHasta+"'"+;
                            " or "+;
                            "RETIRO>='"+cFechaDesde+"' and RETIRO<='"+cFechaHasta+"')"

        ADSSETDATEFORMAT("DD/MM/YYYY")       // agregado por sugerencia foro fwh
        RddRegister("ADS",1)
    RddSetDefault("ADS")
    AdsSetServerType ( 2 )
    SET FILETYPE TO CDX

        DbSelectArea( 0 )             // agregado por MArio

    AdsConnect( cServer , 2 )

     IF ! ADSCreateSQLStatement("SQLarea",2)  // 2 == ADS_CDX
       MsgAlert( "ADSCreateSQLStatement('SQLarea',2)" )
       RETU .F.
   ENDIF


     if ADSExecuteSQLDirect( cConsulta1 )

     msgsound(cCarpetaInstalacion+"\Sonidos\laser.wav")  // con esto detecto que el query es respondido al instante

     sqlarea->(dbgotop())

//   sqlarea->(xBrowse())      // esto funciona igual

     xBrowse()        // es muy larga la espera para visualizar el xBrowse

     endif // de if ADSExecuteSQLDirect( cConsulta1 )


        AdsDisconnect()
    sqlarea -> ( dbclosearea() )

    Return nil

Code: Select all

cConsulta1:="Select TALON, NOMBRE, DIRECCION, LOCALIDAD, BARRIO, CODPOSTAL, TELEFONO1, TELEFONO2, "+;
              "CELULAR, EMAIL, ARTEFACTO, MARCA, MODELO, SERIE, UBICADO, FECHAIN, "+ ;
              "FECHALIQUI, FINALIZADO, RETIRO, FECHA_COM, DETALLECL, DETALLETA, "+;
                            "ESTADO, DEALER, GARANTIZA, STATUS from TRABAJOS where "+;
                            "(FECHAIN>='"+cFechaDesde+"' and FECHAIN<='"+cFechaHasta+"')"+;
                            " or ("+;
                            "FECHALIQUI>='"+cFechaDesde+"' and FECHALIQUI<='"+cFechaHasta+"')"+;
                            " or "+;
                            "(RETIRO>='"+cFechaDesde+"' and RETIRO<='"+cFechaHasta+"')"
 

Code: Select all

PROCEDURE RepCobros_XRuta()
   LOCAL cSql
   LOCAL cTitulo, cNomRuta
   LOCAL nNumRuta, lTodos, dFecIni, dFecFin
   LOCAL aRetorno := NIL

   aRetorno := Seleccionar2_RutaRango()

   IF aRetorno = NIL
      RETURN
   ELSE
      nNumRuta := aRetorno[ 1 ]
      lTodos   := aRetorno[ 2 ]
      dFecIni  := aRetorno[ 3 ]
      dFecFin  := aRetorno[ 4 ]
   ENDIF

   IF ADSRunSQL( "TEMP", "SELECT NOMBRE FROM RUTAS WHERE NUM_RUTA=%1", { nNumRuta } )
      cNomRuta := RTrim(  TEMP->NOMBRE )
      TEMP->( DBCloseArea() )
   ELSE
      RETURN
   ENDIF

   IF lTodos
      cSql := RepCobros_Sql( 3 )
      IF !ADSRunSQL( "TEMP", cSql, { nNumRuta } )
         RETURN
      ENDIF
      cTitulo := "Lista de cobro de la ruta: " + cNomRuta
   ELSE
      cSql := RepCobros_Sql( 4 )
      IF !ADSRunSQL( "TEMP", cSql, { nNumRuta, dFecIni, dFecFin } )
         RETURN
      ENDIF
      cTitulo := "Lista de cobro de la ruta: " + cNomRuta + "/ [ Desde el: " + DToC( dFecIni ) + " hasta el: " + DToC( dFecFin ) + "]"
   ENDIF

   TEMP->( RepCobros_Lista( cTitulo ) )
   TEMP->( DBCloseArea() )

RETURN
 

Code: Select all

STATIC FUNCTION RepCobros_Sql( n )
   LOCAL cSql

   cSQL := "SELECT {static} MOV.NUM_PRES, MOV.NUM_CLIE, CLI.NOMBRE, CLI.CEDULA, MOV.FECHA, MOV.HABER, MOV.SALDO, "
   cSQL += " CIU.NOMBRE AS CIUDAD, RUT.NOMBRE AS RUTA "
   cSQL += " FROM MOVIMIENTOS AS MOV "
   cSQL += " LEFT OUTER JOIN CLIENTES AS CLI ON CLI.NUM_CLIE=MOV.NUM_CLIE "
   cSQL += " LEFT OUTER JOIN CIUDADES AS CIU ON CIU.NUM_CIUD=CLI.NUM_CIUD "
   cSQL += " LEFT OUTER JOIN RUTAS    AS RUT ON RUT.NUM_RUTA=CLI.NUM_RUTA "
   DO CASE
   CASE n == 1
      cSql += "WHERE MOV.HABER>0 AND MOV.DEBE=0 AND CLI.NUM_CIUD=%1 "
   CASE n == 2
      cSql += "WHERE MOV.HABER>0 AND MOV.DEBE=0 AND CLI.NUM_CIUD=%1 AND MOV.FECHA BETWEEN %2 AND %3 "
   CASE n == 3
      cSql += "WHERE MOV.HABER>0 AND MOV.DEBE=0 AND CLI.NUM_RUTA=%1 "
   CASE n == 4
      cSql += "WHERE MOV.HABER>0 AND MOV.DEBE=0 AND CLI.NUM_RUTA=%1 AND MOV.FECHA BETWEEN %2 AND %3 "
   CASE n == 5
      cSql += "WHERE MOV.HABER>0 AND MOV.DEBE=0 AND MOV.FECHA BETWEEN %1 AND %2 "
   ENDCASE
   cSql += "ORDER BY CLI.NOMBRE"

RETURN cSql

 

Code: Select all

STATIC PROCEDURE RepCobros_Lista( cTitulo )
   LOCAL oDlgLis, oBrwLis, oSaySeek
   LOCAL cOldAlias := Alias()
   LOCAL cFileTemp := cTempFile( GetEnv( "TEMP" ), "dbf" )

   DBSelectArea( "TEMP" )

   WaitOn( "Procesando datos..." )
   CursorWait()

   COPY TO (cFileTemp) VIA "DBFCDX"

   TEMP->( DBCloseArea() )

   USE (cFileTemp) NEW ALIAS "TEMP" VIA "DBFCDX"

   IF NetErr()
      RETURN
   ENDIF

   INDEX ON NUM_PRES TAG NUM_PRES TEMPORARY
   INDEX ON NUM_CLIE TAG NUM_CLIE TEMPORARY
   INDEX ON NOMBRE   TAG NOMBRE   TEMPORARY
   INDEX ON CEDULA   TAG CEDULA   TEMPORARY

   OrdSetFocus( "NOMBRE" )
   DBGoTop()

   WaitOff()
   CursorArrow()

   DEFINE DIALOG oDlgLis NAME "DLG_LISTACOBR" OF oMainWnd TITLE cTitulo ICON GetIcon() FONT oFontD

   REDEFINE XBROWSE oBrwLis ID 101 OF oDlgLis ALIAS "TEMP" FONT oFontD

   ADD TO oBrwLis DATA TEMP->NUM_PRES    TITLE "N° Pres."              SIZE 055 PICTURE "@L 999999"  TAG "NUM_PRES"
   ADD TO oBrwLis DATA TEMP->NUM_CLIE    TITLE "N° Clie."              SIZE 055 PICTURE "@L 999999"  TAG "NUM_CLIE"
   ADD TO oBrwLis DATA TEMP->NOMBRE      TITLE "Nombre de cliente"     SIZE 250                      TAG "NOMBRE"
   ADD TO oBrwLis DATA TEMP->CEDULA      TITLE "Cedula"                SIZE 120                      TAG "CEDULA"
   ADD TO oBrwLis DATA TEMP->FECHA       TITLE "Fecha"+FINL+"cobro"    SIZE 080 CENTER
   ADD TO oBrwLis DATA TEMP->HABER       TITLE "Cobro C$"              SIZE 090 PICTURE "99,999,999.99"
   ADD TO oBrwLis DATA TEMP->SALDO       TITLE "Saldo C$"              SIZE 090 PICTURE "99,999,999.99"

   oBrwLis:SetRdd()
   oBrwLis:MyConfig()
   oBrwLis:nFreeze       := 4
   oBrwLis:lHScroll      := TRUE
   oBrwLis:nHeaderHeight := 40
   oBrwLis:bSeek         := {|c| DBSeek( Upper( c ) ) }

   REDEFINE BUTTON ID 102 OF oDlgLis ACTION oBrwLis:ToExcel( )

   REDEFINE SAY oSaySeek ID 104 OF oDlgLis COLOR CLR_HCYAN, CLR_BLUE

   REDEFINE BUTTON ID 201 OF oDlgLis ACTION oDlgLis:end() CANCEL

   ACTIVATE DIALOG oDlgLis CENTER ON INIT ( oBrwLis:oSeek := oSaySeek )

   IF !Empty( cOldAlias )
      DBSelectArea( cOldAlias )
   ENDIF

RETURN

 

Code: Select all

cSQL := "SELECT {static} MOV.NUM_PRES, MOV.NUM_CLIE, CLI.NOMBRE, CLI.CEDULA, MOV.FECHA, MOV.HABER, MOV.SALDO, "