Hola amigos buenas tardes.
Maestro Antonio, maestro Rao, gur煤s de xBrowse....
En el siguiente ejemplo con FWH 20.07 al utilizar xBrowse con TArrayData y se define lIncrFilter como .T., se genera un error "Undefine function HB_WILDMATCH" al momento de intentar hacer una b煤squeda o filtro. En el primer browse, que est谩 con Base de datos, funciona perfecto. En el segundo, con TArrayData, se presenta el error.
He estado revisando el c贸digo de xBrowse.prg pero es demasiado riesgoso meterle la mano
Alguna sugerencia de c贸mo solucionarlo.
Gracias por su ayuda
Maestro Antonio, maestro Rao, gur煤s de xBrowse....
En el siguiente ejemplo con FWH 20.07 al utilizar xBrowse con TArrayData y se define lIncrFilter como .T., se genera un error "Undefine function HB_WILDMATCH" al momento de intentar hacer una b煤squeda o filtro. En el primer browse, que est谩 con Base de datos, funciona perfecto. En el segundo, con TArrayData, se presenta el error.
He estado revisando el c贸digo de xBrowse.prg pero es demasiado riesgoso meterle la mano
Alguna sugerencia de c贸mo solucionarlo.
#include "FiveWin.ch"
Function Main()
聽 聽 LOCAL oDlg, oData, oBrw1, oBrw2
聽 聽 RddSetDefault("DbfCdx")
聽 聽 dbUseArea(.T.,,"Customer.dbf","Cust")
聽 聽 dbSetIndex("customer.cdx")
聽 聽 oData := TArrayData():New("Cust")
聽 聽 dbGoTop()
聽 聽 DEFINE DIALOG oDlg SIZE 900,500 PIXEL TITLE "xBrowse con TArrayData y Search"
聽 聽
聽 聽 聽 聽// Funciona bien 聽con TArrayData y :lIncrFilter := .T.
聽 聽 聽 聽 @ 05, 10 SAY "xBrowse con Base Datos y :lIncrFilter := .T., 聽funciona bien" OF oDlg PIXEL
聽 聽 聽 聽 @ 30, 10 XBROWSE oBrw1 DATASOURCE "Cust" ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽COLUMNS "FIRST","LAST" ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽PIXEL CELL LINES NOBORDER AUTOSORT AUTOCOLS SIZE 200,200
聽 聽 聽 聽 WITH OBJECT oBrw1
聽 聽 聽 聽 聽 聽 聽:lAutoSort 聽 := .T.
聽 聽 聽 聽 聽 聽 聽:lIncrFilter := .T. 聽// causa err
聽 聽 聽 聽 聽 聽 聽:lSeekWild 聽 := .T.
聽 聽 聽 聽 聽 聽 聽:Seek("")
聽 聽 聽 聽 聽 聽 聽:bOnSort 聽 聽 := { |b,oCol| oBrw1:GoTop() }
聽 聽 聽 聽 聽 聽 聽:CreateFromCode()
聽 聽 聽 聽 END
聽 聽 聽 聽 @ 17, 10 SAY oBrw1:oSeek PROMPT oBrw1:cSeek OF oDlg PIXEL SIZE 150,09 COLORS nRGB(0,0,0), nRGB(50,180,60)
聽 聽
聽 聽 聽 聽// Error con TArrayData y :lIncrFilter := .T.
聽 聽 聽 聽 @ 05,230 SAY "xBrowse con TArrayData y :lIncrFilter := .T., 聽genera error" OF oDlg PIXEL
聽 聽 聽 聽 @ 30,230 XBROWSE oBrw2 DATASOURCE oData ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽COLUMNS "FIRST","LAST" ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽PIXEL CELL LINES NOBORDER AUTOSORT AUTOCOLS SIZE 200,200
聽 聽 聽 聽 WITH OBJECT oBrw2
聽 聽 聽 聽 聽 聽 聽:lAutoSort 聽 := .T.
聽 聽 聽 聽 聽 聽 聽:lIncrFilter := .T. 聽// *** Genera error cuando se define como .T.
聽 聽 聽 聽 聽 聽 聽:lSeekWild 聽 := .T.
聽 聽 聽 聽 聽 聽 聽:Seek("")
聽 聽 聽 聽 聽 聽 聽:bOnSort 聽 聽 := { |b,oCol| oBrw2:GoTop() }
聽 聽 聽 聽 聽 聽 聽:CreateFromCode()
聽 聽 聽 聽 END
聽 聽 聽 聽 @ 17,230 SAY oBrw2:oSeek PROMPT oBrw2:cSeek OF oDlg PIXEL SIZE 150,09 COLORS nRGB(0,0,0), nRGB(50,180,60)
聽 聽 ACTIVATE DIALOG oDlg CENTERED
聽 聽 dbCloseall()
Return(nil)
//---------------------------------------------------------------------//Gracias por su ayuda
Saludos,
Carlos Gallego
*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***
hoy estoy especialmente torpe. Mejor me voy a dormir la siesta.