TDolphin y Filtros.

Post Reply
Leo
Posts: 66
Joined: Thu Jan 03, 2013 6:13 pm

TDolphin y Filtros.

Post by Leo »

Amigos del foro, tengo el siguiente problema, en un módulo de sistema, tengo un xbrowse con los clientes de una empresa, cuando quiero aplicar un filtro ¿Cómo lo debo hacer?

Tengo el siguiente código:

xBrowse:

Code: Select all

*------------------------------------------------------------------------------------------
Function Browse_Cliente()

Local oDbf[100],oDlg,oWndChild,archivo:='',oBrushes,oQry,aSizes:={250,550,550},;
      cCuenta:=0,iOma:=0,iOma2:=0,oBrw,oBrwAnexo,MDIWindow:=.F.,o110,oImg,oBar,oPopUp,oPopUp0,oPopUp1,oBtn[3]


Public aGiros:={},aBancos:={},aVendedor:={},aDcto:={"%","$"}

oQry = oConected:Query( "SELECT Sucursal_Banco,Nombre_Sucursal,Direccion FROM Equivalencia ORDER BY Nombre_Sucursal" )

Define brush oBrushes File "FondoBlanco.PNG" Transparent Adjust
DEFINE DIALOG oDlg RESOURCE "Browse_Prod_T" Font oFont TRANSPARENT Color CLR_BTNFACE ,CLR_BTNFACE
Redefine IMAGE oImage Id 4001 File "ClientTittle.Png" OF oDlg Transparent //Adjust //

REDEFINE XBROWSE oBrw  ID 110  OF oDlg ;
      LINES CELL Font oFont Update

    oBrw:nColDividerStyle         := LINESTYLE_DARKGRAY
   oBrw:nRowDividerStyle         := LINESTYLE_DARKGRAY
   oBrw:lColDividerComplete      := .T.
    oBrw:nMarqueeStyle            := MARQSTYLE_HIGHLROW
    oBrw:bClrSelFocus             := {|| {CLR_BLACK, CLR_GREEN  }}
    oBrw:bClrStd                  := {|| {CLR_NBLUE, CLR_NBLUE }}
    oBrw:bClrSel                  := {|| {CLR_NBLUE, CLR_NBLUE  }}
    oBrw:lHScroll:=.F.
    oBrw:l3D:=.T.
    oBrw:l3DLook:=.T.

    oBrw:nHeaderLines        := 2
    oBrw:nDataLines          := 1

    SetDolphin( oBrw, oQry,.T.,aSizes )
    oBrw:SetBackGround( "Browses.Png",BCK_STRETCH )
    oBrw:aCols[1]:nWidth:=120
    oBrw:aCols[1]:cHeader := "Código de"+CRLF+"Cliente"
   oBrw:aCols[1]:nHeadStrAlign := AL_CENTER
   oBrw:aCols[1]:nDataStrAlign := AL_RIGHT
    oBrw:aCols[1]:oHeaderFont := oFont

    oBrw:aCols[2]:cHeader := "Descripción"
    oBrw:aCols[2]:nWidth:=450
   oBrw:aCols[2]:nHeadStrAlign := AL_CENTER
   oBrw:aCols[2]:nDataStrAlign := AL_LEFT
    oBrw:aCols[2]:oHeaderFont := oFont

    oBrw:aCols[3]:cHeader := "Dirección"
    oBrw:aCols[3]:nWidth:=450
   oBrw:aCols[3]:nHeadStrAlign := AL_CENTER
   oBrw:aCols[3]:nDataStrAlign := AL_LEFT
    oBrw:aCols[3]:oHeaderFont := oFont



    *oBrw:bLDblClick := { || (Consulta_OF(::oQry:Folio_OrdenFL)) }
    /*oBrw:bKeyDown:={|nKey| IIF( nKey==VK_RETURN,(Client32(.F.,oDbf,oWnd,oDlg,oBrw,Quita),oDlg:Update(), oBrw:SetFocus(),oBrw:Refresh(),oBrw:SetFocus()) , ),;
                          IIF( nKey==VK_F1,(Client32(.T.,oDbf,oWnd,oDlg,oBrw,Quita),oDlg:Update(), oBrw:SetFocus(),oBrw:Refresh(),oBrw:SetFocus()) , ),;
                          IIF( nKey==VK_F2,(Client32(.F.,oDbf,oWnd,oDlg,oBrw,Quita),oDlg:Update(), oBrw:SetFocus(),oBrw:Refresh(),oBrw:SetFocus()) , ),;
                          IIF( nKey==VK_DELETE .AND. MsgSiNo("Desea Eliminar El Registro "+Alltrim((oDbf[1]:cAlias)->MST_Apelli),"Por Favor Seleccione..."),;
                                                            (oDbf[1]:Delete(), oBrw:Refresh()), ),;
                          IIF( nKey==VK_F4,(oBrw:ToExcel(),oBrw:Refresh()) , )}*/


    ACTIVATE DIALOG oDlg Centered On Init (BtnBar( oDlg,oBrw,oQry ))

Return Nil
*-------------------------------------------------------------------------------------------------------
Static Function BtnBar( oParent,oBrw,oQry )
Local oBar,oPopUp0,PopUp1,Paramet
   DEFINE Buttonbar oBar Of oParent size 160,65 2007 Top Transparent
   Define Button Of oBar File "AddClient.Bmp" Adjust Action (Add_Modify_Client(oParent,.T.," ",oBrw))
   Define Button Of oBar File "EditUser.Bmp"  Adjust Group Action (Add_Modify_Client(oParent,.F.,oBrw:aCols[1]:Value,oBrw))
   Define Button Of oBar File "RemoveClient.BMP" Adjust Group Action If(MsgYesNo("Sr. Usuario, ¿Desea eliminar el Cliente "+Alltrim(oQry:Nombre_Sucursal)+"?","Advertencia..."), (oQry:Delete(.F.),oBrw:Refresh()),)
    MENU oPopup0 POPUP _2007
      MENUITEM "Código de Cliente" Action (Busca_CodCli(oBrw,oParent,oQry),oQry:Refresh(),oBrw:Refresh(),oBrw:SetFocus() )
        Separator
      MENUITEM "Descripción" ACTION (Busca_DesCli(oBrw,oParent,oQry),oBrw:Refresh(),oBrw:SetFocus())
      Separator
      MENUITEM "Dirección" ACTION (Busca_DirCli(oBrw,oParent,oQry),oBrw:Refresh(),oBrw:SetFocus() )
   ENDMENU
   Define Button Of oBar File "Buscar_Por.BMP" MENU oPopup0 TOOLTIP "Buscar Por..."  Adjust Group
    MENU oPopup1 POPUP _2007
      MENUITEM "Código de Cliente" ACTION (Filtra_Cod(oQry,oBrw),oQry:Refresh(),oBrw:Refresh(),oBrw:SetFocus() )
        Separator
      MENUITEM "Descripción" ACTION (Filtra_Des(oQry,oBrw),oQry:Refresh(),oBrw:Refresh(),oBrw:SetFocus() )
      Separator
      MENUITEM "Dirección" ACTION (Filtra_Dir(oQry,oBrw),oQry:Refresh(),oBrw:Refresh(),oBrw:SetFocus() )
   ENDMENU
   Define Button Of oBar File "Filtrar_por.BMP" MENU oPopup1 TOOLTIP "Filtrar Por..." Adjust Group
   Define Button Of oBar File "Volver.BMP" action ( oParent:end() ) Adjust Group
    oBar:nTop:=55
    oBar:nLeft:=8

Return Nil
*-------------------------------------------------------------------------------------------------------
Éste es el Código de las funciones que deben filtrar:

Code: Select all

*-------------------------------------------------------------------------------------------------------
Function Filtra_Cod(oBrw,oParent,oQry)
Local oDlg,o4001,Buscado:=Space(5)

DEFINE DIALOG oDlg RESOURCE "Busca_Numeros" Font oFont TRANSPARENT Color CLR_BTNFACE ,CLR_BTNFACE

Redefine Get o4001 Var Buscado Id 4002 Of oDlg Picture "@#####" Valid (Filtra(oBrw,oParent,oQry,Buscado,0),oBrw:Refresh(),.T.,oDlg:End())

ACTIVATE DIALOG oDlg Centered

Return Nil
*-------------------------------------------------------------------------------------------------------
Function Filtra_Des(oBrw,oParent,oQry)
Local oDlg,o4001,Buscado:=Space(40)

DEFINE DIALOG oDlg RESOURCE "Busqueda" Font oFont TRANSPARENT Color CLR_BTNFACE ,CLR_BTNFACE

Redefine Get o4001 Var Buscado Id 4002 Of oDlg Picture "@!" Valid (Filtra(oBrw,oParent,oQry,Buscado,1),oBrw:Refresh(),.T.,oDlg:End())

ACTIVATE DIALOG oDlg Centered

Return Nil
*-------------------------------------------------------------------------------------------------------
Function Filtra_Dir(oBrw,oParent,oQry)
Local oDlg,o4001,Buscado:=Space(40)

DEFINE DIALOG oDlg RESOURCE "Busqueda" Font oFont TRANSPARENT Color CLR_BTNFACE ,CLR_BTNFACE

Redefine Get o4001 Var Buscado Id 4002 Of oDlg Picture "@!" Valid (Filtra(oBrw,oParent,oQry,Buscado,2),oBrw:Refresh(),oBrw:SetFocus(),.T.,oDlg:End())

ACTIVATE DIALOG oDlg Centered

Return Nil
*-------------------------------------------------------------------------------------------------------
Function Filtra(oBrw,oParent,oQry,Buscado,Code)
Local Qrys
IF Code=0
    oQry = oConected:Query( "SELECT Sucursal_Banco,Nombre_Sucursal,Direccion FROM Equivalencia WHERE Sucursal_Banco LIKE '%"+Buscado+"%' ORDER BY Nombre_Sucursal" )
    oQry:LoadQuery()
    oQry:Refresh()
    oBrw:Destroy()
    SetDolphin( oBrw, oQry,.T. )
    oBrw:Refresh()
ElseIf Code=1
    oQry = oConected:Query( "SELECT Sucursal_Banco,Nombre_Sucursal,Direccion FROM Equivalencia WHERE Nombre_Sucursal LIKE '%"+Alltrim(Buscado)+"%' ORDER BY Nombre_Sucursal" )
    oQry:Refresh()
    oBrw:Refresh()
ElseIf Code=2
    oQry = oConected:Query( "SELECT Sucursal_Banco,Nombre_Sucursal,Direccion FROM Equivalencia WHERE DIRECCION LIKE '%"+Alltrim(Buscado)+"%' ORDER BY Nombre_Sucursal" )
    oQry:Refresh()
    oBrw:Refresh()
ENDIF
Return Nil
*-------------------------------------------------------------------------------------------------------
Mis preguntas son las siguientes:
¿Debo reemplazar el qry?
Si es así, ¿como refresco los datos del xBrowse?
¿Qué estoy haciendo mal?

Agradeceré toda la ayuda que me puedan brindar.
Fivewin 12.04 + xHarbour 1.2.1 + BCC582

Nada como Fivewin, odio visual basic, visual studio y todas las porquerías visual.
nnicanor
Posts: 296
Joined: Fri Apr 23, 2010 4:30 am
Location: Colombia

Re: TDolphin y Filtros.

Post by nnicanor »

No es necesario que vuelvas a realizar el query usa el metodo SetWhere que te permite cambiar la condicion y refrescas el objeto query y el browse ....

Code: Select all


METHOD Browse( lBusca, oQry ) CLASS TFactura
Local oDlg,oBrow,lOk:=.f.,oBrw, oData, cBusca :=Space(80),aGet:=array(1)
STATIC oxa


      cxWhere := oQry:cWhere
     cSql := "Select *,suma_prefactura(numliq) as valfac from maesfactura where "+cxWhere+" order by numliq "

      oQryL := oServer:Query( cSql )
     oData := oQryL

     DEFINE DIALOG oDlg RESOURCE "LISTA_FACTURAS" FONT oFontb // TRANSPARENT

     oDlg:Settext("Prefacuras Registradas")

     oDlg:lHelpIcon:=.F.

     REDEFINE XBROWSE oBrw ID 101 ; //  OBJECT oQry  ;
           FIELDS oData:numliq,;
                  oData:fecha, ;
                  upper(oData:nomcia), ;
                  oData:sucursal,;
                  alltrim(oData:nit)+" - "+memoline(oData:detalle_cliente,,2),;
                  oData:dato_01, ;
                  oData:moneda, ;
                  oData:valfac ;
           HEADERS "Prefactura","Fecha","Compañia","Sucursal","Cliente","Motonave","Div","Valor Factura" ;
           FIELDSIZES 82,65,100,100,350,150,30,120 ;
           PICTURES "@!","@D","@!","@!","@!","@!","@!","9,999,999,999.99" ;
           AUTOSORT ;
           ON DBLCLICK ( lok:=.t.,oDlg:End(),cCod := oData:numliq ) ;
           OF oDlg

     WITH OBJECT oBrw

         :nMarqueeStyle       := MARQSTYLE_HIGHLROW
         :nColDividerStyle    := LINESTYLE_BLACK
         :lColDividerComplete := .T.
         :nHeaderLines        := 1
         :nDataLines          := 1
         :bKeyDown            := { |nkey| iif(nKey==13,(lok:=.t.,oDlg:End(), cCod := oData:numliq ),) }
         :SetDolphin( oQryL, .f., .f. )

     END

    // SetDolphin( oBrw, oQryL, .F.)

    // oBrw:CreateFromResource(101 )

     REDEFINE GET aGet[1] VAR cBusca ID 111              ;
             PICTURE "@!"                                ;
             OF oDlg UPDATE

// oQry:SetWhere( " clasemp ='T' and ( nomemp like '%"+alltrim(cBusca)+"%' or nitemp like '%"+alltrim(cBusca)+"%') " )
//     Redefine Button oBtn1  ID 112 of oDlg Action ( oQryL:locate( { alltrim(cBusca) },{"numliq"},,.t. ), ;

     Redefine Button oBtn1  ID 112 of oDlg Action ( oQryL:SetWhere( " numliq like '%"+alltrim(cBusca)+;
                                                                    "%' or CONVERT(fecha,CHAR) like '%"+alltrim(cbusca)+;
                                                                    "%' or sucursal like '%"+alltrim(cbusca)+;
                                                                    "%' or nit like '%"+alltrim( cBusca )+;
                                                                    "%' or moneda like '%"+alltrim( cBusca )+;
                                                                    "%' or detalle_cliente like '%"+alltrim(cBusca)+;
                                                                    "%' or dato_01 like '%"+alltrim(cBusca)+"%'" ), ;
                                                     oQryL:Refresh(),refrecont(aget),;
                                                     oBrw:Refresh(),oBrw:SetFocus() )
  ACTIVATE DIALOG oDlg ;
       CENTERED

  if lok

       oQry:locate( { oQryL:numliq }, {"numliq"} ,,.t. )
        
    endif   


Return lOk

 
Nicanor Martinez M.
Auditoria y Sistemas Ltda.
MicroExpress Ltda.
FW + FWH + XHARBOUR + HARBOUR + PELLES C + XDEVSTUDIO + XEDIT + BCC + VC_X86 + VCC_X64 + MINGW + R&R Reports + FastReport + Tdolphin + ADO + MYSQL + MARIADB + ORACLE
nnicanor@yahoo.com
Leo
Posts: 66
Joined: Thu Jan 03, 2013 6:13 pm

Re: TDolphin y Filtros.

Post by Leo »

Nicanor, gracias por responder, pero el método SetWhere() me arroja el siguiente error.

Code: Select all

Application
===========
   Path and name: G:\FWH\BancoEstado\azteccode.exe (32 bits)
   Size: 2,060,288 bytes
   Time from start: 0 hours 0 mins 17 secs 
   Error occurred at: 01/03/2013, 15:44:27
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: SETWHERE
   Args:
     [   1] = U   
     [   2] = C   Sucursal_Banco LIKE '%60%'

Stack Calls
===========
   Called from:  => SETWHERE(0)
   Called from: azteccode.prg => FILTRA(247)
   Called from: azteccode.prg => (b)FILTRA_COD(216)
   Called from: .\source\classes\TGET.PRG => TGET:LVALID(1199)
   Called from: .\source\classes\CONTROL.PRG => TGET:FWLOSTFOCUS(924)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1432)
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(588)
   Called from: Window.prg => _FWH(3333)
   Called from:  => SYSREFRESH(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYCHAR(731)
   Called from: .\source\classes\TGET.PRG => TGET:KEYCHAR(1107)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(588)
   Called from: Window.prg => _FWH(3333)
   Called from:  => DIALOGBOX(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
   Called from: azteccode.prg => FILTRA_COD(218)
   Called from: azteccode.prg => (b)BTNBAR(198)
   Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE(470)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(650)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1321)
   Called from: Window.prg => _FWH(3333)
   Called from:  => DIALOGBOX(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
   Called from: azteccode.prg => BROWSE_CLIENTE(179)
   Called from: azteccode.prg => (b)GENERAMENU(104)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(447)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(657)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1321)
   Called from: Window.prg => _FWH(3333)
   Called from:  => DIALOGBOX(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
   Called from: azteccode.prg => GENERAMENU(112)
   Called from: azteccode.prg => SERVER_DATABASE(60)
   Called from: azteccode.prg => MAIN(35)

System
======
   CPU type: Intel(R) Core(TM) i5-2400 CPU @ 3.10GHz 3100 Mhz
   Hardware memory: -110 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6406)
   Windows version: 6.1, Build 7601 Service Pack 1

   Windows total applications running: 90
      1 
      2 Inicio
      3 MSCTFIME UI
      4 Default IME
      5 CiceroUIWndFrame
      6 Marcelo Alejandro Valenzuela
      7 Menú Inicio
      8 Conmutación de tareas
      9 Mensajes del análisis en tiempo real
     10 View Available Networks
     11 View Available Networks (Tooltip)
     12 Network Flyout
     13 DP_GlobalAvatarIcon
     14 TF_FloatingLangBar_WndTitle
     15 Administrador: Símbolo del sistema - buildx  azteccode
     16 Multi-Edit - [G:\FWH\BancoEstado\AztecCode.prg]
     17 comp: Bloc de notas
     18 FiveTech Software tech support forums • Ver Tema - TDolphin y Filtros. - Google Chrome
     19 DDE Server Window
     20 167. Dream Theater - Lost Not Forgotten - Winamp
     21 Winamp Library
     22 Playlist Editor
     23 Equalizer
     24 Left Speaker
     25 Right Speaker
     26 Queue Manager
     27 Color Themes
     28 Vizualizer
     29 Video and TV
     30 Winamp Equalizer
     31 Winamp Video
     32 Medidor de la batería
     33 UltraSurf 12.01
     34 RE: Tabla de Ciudades - Mensaje (HTML) 
     35 ViewDeferedNotifManager 0x169C 0x1A08
     36 TNOTIFThisThreadSink 0x169C 0x1A08
     37 Firma usada recientemente
     38 Sin título - Mensaje (HTML) 
     39 AXWIN Frame Window
     40 Microsoft Word
     41 Fuente de párrafo
     42 Progreso de envío o recepción de Outlook
     43 Texto
     44 OutlookFbThreadWnd
     45 MCI command handling window
     46 ml_pmp_window
     47 GDI+ Window
     48 Microsoft Outlook Social Connector
     49 WMS ST Notif Window 0000169C 00001A08
     50 WMS Idle
     51 OfficePowerManagerWindow
     52 .NET-BroadcastEventWindow.2.0.0.0.218f99c.0
     53 WinVNC Tray Icon
     54 CAvastTrayIcon
     55 MS_WebcheckMonitor
     56 BbDevMgrDeviceListener
     57 Sample
     58 CORESHREDDER
     59 Apache Service Monitor
     60 TSVNCacheWindow
     61 HPSYSDRV
     62 BluetoothNotificationAreaIconWindowClass
     63 Realtek HD Audio CPL for Vista
     64 Media Center SSO
     65 ViennaSettingUI
     66 Realtek SpeakerTestManager
     67 Realtek HD Audio New GUI
     68 Animate Manager
     69 RTK TRAYICON
     70 AudioEngine For Realtek HD Audio New GUI
     71 RTK AUDIO DRIVER EVENT MGR
     72 HkWndName
     73 PersistWndName
     74 DigitalPersona Pro Agent
     75 igfxtrayWindow
     76 DigitalPersona Pro5.x Agent Window
     77 Jump List
     78 HiddenFaxWindow
     79 Task Host Window
     80 DWM Notification Window
     81 McTrayLegacySupport
     82 McAfee System Tray
     83 Actualizador de McAfee Agent
     84 Monitor de McAfee Agent
     85 Estadísticas del análisis en tiempo real
     86 Estadísticas del análisis en tiempo real - CL143PC000012
     87 Minimiza la barra Tareas pendientes
     88 Menú contextual de carpeta
     89 Bandeja de entrada - Marcelo Alejandro Valenzuela - Microsoft Outlook
     90 Program Manager

Variables in use
================
   Procedure     Type   Value
   ==========================
   SETWHERE
     Param   1:    C    "Sucursal_Banco LIKE '%60%'"
     Local   1:    A    Len:    1
     Local   2:    U    
     Local   3:    U    
   FILTRA
     Param   1:    O    Class: TDOLPHINQRY
     Param   2:    O    Class: TXBROWSE
     Param   3:    U    
     Param   4:    C    "60   "
     Param   5:    N    0
     Local   1:    U    
   (b)FILTRA_COD
     Param   1:    O    Class: TGET
   TGET:LVALID
     Local   1:    O    Class: TGET
     Local   2:    L    .T.
   TGET:FWLOSTFOCUS
     Param   1:    N    199024
     Local   1:    O    Class: TGET
     Local   2:    U    
     Local   3:    U    
   TCONTROL:HANDLEEVENT
     Param   1:    N    2057
     Param   2:    N    199024
     Param   3:    N    0
     Local   1:    O    Class: TGET
     Local   2:    U    
   TGET:HANDLEEVENT
     Param   1:    N    2057
     Param   2:    N    199024
     Param   3:    N    0
     Local   1:    O    Class: TGET
     Local   2:    U    
   _FWH
     Param   1:    N    0
     Param   2:    N    2057
     Param   3:    N    199024
     Param   4:    N    0
     Param   5:    N    24
     Local   1:    O    Class: TGET
   SYSREFRESH
   TCONTROL:KEYCHAR
     Param   1:    N    13
     Param   2:    N    18612225
     Local   1:    O    Class: TGET
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
   TGET:KEYCHAR
     Param   1:    N    13
     Param   2:    N    18612225
     Local   1:    O    Class: TGET
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
   TWINDOW:HANDLEEVENT
     Param   1:    N    258
     Param   2:    N    13
     Param   3:    N    18612225
   TCONTROL:HANDLEEVENT
     Param   1:    N    258
     Param   2:    N    13
     Param   3:    N    18612225
     Local   1:    O    Class: TGET
     Local   2:    U    
   TGET:HANDLEEVENT
     Param   1:    N    258
     Param   2:    N    13
     Param   3:    N    18612225
     Local   1:    O    Class: TGET
     Local   2:    U    
   _FWH
     Param   1:    N    18612225
     Param   2:    N    258
     Param   3:    N    13
     Param   4:    N    18612225
     Param   5:    N    24
     Local   1:    O    Class: TGET
   DIALOGBOX
     Param   1:    N    4194304
     Param   2:    C    "Busca_Numeros"
     Param   3:    N    199006
     Param   4:    O    Class: TDIALOG
   TDIALOG:ACTIVATE
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    L    .F.
     Local   1:    O    Class: TDIALOG
     Local   2:    N    199006
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    O    Class: TDIALOG
   FILTRA_COD
     Param   1:    O    Class: TDOLPHINQRY
     Param   2:    O    Class: TXBROWSE
     Local   1:    U    
     Local   2:    O    Class: TDIALOG
     Local   3:    O    Class: TGET
     Local   4:    C    "60   "
   (b)BTNBAR
     Param   1:    O    Class: TMENUITEM
   TMENU:ACTIVATE
     Param   1:    N    66
     Param   2:    N    685
     Param   3:    O    Class: TBAR
     Param   4:    L    .F.
     Local   1:    O    Class: TMENU
     Local   2:    A    Len:    2
   TBTNBMP:LBUTTONUP
     Param   1:    N    46
     Param   2:    N    169
     Param   3:    O    Class: TBTNBMP
     Local   1:    O    Class: TBAR
     Local   2:    L    .T.
   TWINDOW:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    3014825
   TCONTROL:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    3014825
     Local   1:    O    Class: TBTNBMP
     Local   2:    U    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    3014825
     Local   1:    O    Class: TBTNBMP
   _FWH
     Param   1:    N    3014825
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    3014825
     Param   5:    N    22
     Local   1:    O    Class: TBTNBMP
   DIALOGBOX
     Param   1:    N    4194304
     Param   2:    C    "Browse_Prod_T"
     Param   3:    N    395600
     Param   4:    O    Class: TDIALOG
   TDIALOG:ACTIVATE
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    L    .F.
     Local   1:    O    Class: TDIALOG
     Local   2:    N    395600
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    O    Class: TDIALOG
   BROWSE_CLIENTE
     Local   1:    A    Len:  100
     Local   2:    O    Class: TDIALOG
     Local   3:    U    
     Local   4:    C    ""
     Local   5:    O    Class: TBRUSH
     Local   6:    O    Class: TDOLPHINQRY
     Local   7:    A    Len:    3
     Local   8:    N    0
     Local   9:    N    0
     Local  10:    N    0
     Local  11:    O    Class: TXBROWSE
     Local  12:    U    
     Local  13:    L    .F.
     Local  14:    U    
     Local  15:    U    
     Local  16:    U    
     Local  17:    U    
     Local  18:    U    
     Local  19:    U    
     Local  20:    A    Len:    3
   (b)GENERAMENU
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:CLICK
     Local   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
     Param   1:    N    50
     Param   2:    N    96
     Param   3:    O    Class: TBTNBMP
     Local   1:    U    
     Local   2:    L    .T.
   TWINDOW:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    3276896
   TCONTROL:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    3276896
     Local   1:    O    Class: TBTNBMP
     Local   2:    U    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    3276896
     Local   1:    O    Class: TBTNBMP
   _FWH
     Param   1:    N    3276896
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    3276896
     Param   5:    N    2
     Local   1:    O    Class: TBTNBMP
   DIALOGBOX
     Param   1:    N    4194304
     Param   2:    C    "MainMenu"
     Param   3:    N    0
     Param   4:    O    Class: TDIALOG
   TDIALOG:ACTIVATE
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    L    .F.
     Local   1:    O    Class: TDIALOG
     Local   2:    N    0
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    O    Class: TDIALOG
   GENERAMENU
     Local   1:    O    Class: TDIALOG
     Local   2:    U    
     Local   3:    A    Len:    2
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    O    Class: TBRUSH
     Local   8:    U    
   SERVER_DATABASE
   MAIN

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFNTX

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 HBOBJECT
     5 TFONT
     6 TDOLPHINSRV
     7 TBRUSH
     8 TWINDOW
     9 TDIALOG
    10 TCONTROL
    11 TSAY
    12 TGET
    13 GET
    14 TCLIPGET
    15 TBTNBMP
    16 TDOLPHINQRY
    17 TBITMAP
    18 TIMAGE
    19 TXBROWSE
    20 TXBRWCOLUMN
    21 TSCROLLBAR
    22 TBAR
    23 TRECT
    24 TMENU
    25 TMENUITEM
    26 TREG32

Memory Analysis
===============
      193 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes
Nuevamente, toda la ayuda es bien recibida.
Fivewin 12.04 + xHarbour 1.2.1 + BCC582

Nada como Fivewin, odio visual basic, visual studio y todas las porquerías visual.
nnicanor
Posts: 296
Joined: Fri Apr 23, 2010 4:30 am
Location: Colombia

Re: TDolphin y Filtros.

Post by nnicanor »

Yo uso 2 querys uno para la actualizacion de datos y el otro para la busqueda con filtro por ejemplo y en cxwhere guardo la condicion de filtro principal para usarla en el query de busqueda

oQryMafac:= oserver:query("Select * from clientes where tipo="Fiscal" order by numcliente")

cXWhere := oQryMafac:SetWhere

Luego en el query de busqueda agrego el cxwhere mas lo que necesito filtrar

oQryBus := oServer:Query("Select * from clientes where "+cxWhere+" order by nomcliente")

.....

Al final para ubicarme en el registro que quiero actualizar o consultar hago un locate

if lok

oQryMafac:locate( { oQryBus:numcliente }, {"numcliente"} ,,.t. ) // debe estar ordenado el query principal por esta columna

endif
Nicanor Martinez M.
Auditoria y Sistemas Ltda.
MicroExpress Ltda.
FW + FWH + XHARBOUR + HARBOUR + PELLES C + XDEVSTUDIO + XEDIT + BCC + VC_X86 + VCC_X64 + MINGW + R&R Reports + FastReport + Tdolphin + ADO + MYSQL + MARIADB + ORACLE
nnicanor@yahoo.com
Post Reply