by CARLOS ATUNCAR » Sat Jan 27, 2024 12:04 am
Static Procedure BuscarLab
local cPer:= Space( 30 )
local cWhere,oWait,mWhere
If MsgGet("Buscador de Labores","Ingrese Nombres :",@cPer )
WaitOn("Espere un momento por favor....",@oWait )
If cPer = Space(30)
cWhere := ""
Else
x := Upper(Alltrim( cPer ))
cWhere := "c.detalle LIKE '% ? %' "
EndIf
oQry:SetFilter( cWhere ,{x})
aServer:ShowError()
SysRefresh()
oBrw:Refresh()
WaitOff( @oWait )
EndIf
Return
da este resultado
Compiler version: xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914)
FiveWin version: FWH 23.07
C compiler version: Borland/Embarcadero C++ 7.6 (32-bit)
Windows 10 64 Bits, version: 6.2, Build 9200
Time from start: 0 hours 0 mins 13 secs
Error occurred at: 26/01/2024, 19:00:54
Error description: Error BASE/1001 Funci¢n no definida: C.WILDMATCH
Args:
[ 1] = C * ? *
[ 2] = C APLICACION
Stack Calls
===========
Called from: => WILDMATCH( 0 )
Called from: .\source\internal\FWROWSET.PRG => (b)EXPRTOCODEBLOCK( 1422 )
Called from: .\source\internal\FWROWSET.PRG => FWROWSET:SETFILTER( 495 )
Called from: .\source\internal\FWMARIA.PRG => FWMARIAROWSET:SETFILTER( 2860 )
Called from: Bin\laborMaquina.prg => BUSCARLAB( 185 )
Called from: Bin\laborMaquina.prg => (b)BRWBTNBAR( 144 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 792 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 1083 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1847 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2135 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3693 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1118 )
Called from: Bin\menu.prg => MAIN( 115 )
System
======
CPU type: AMD Ryzen 5 2400G with Radeon Vega Graphics 3593 Mhz
Hardware memory: 14285 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Windows total applications running: 5
1 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.19041.3636_none_a863d7
2 , D:\MySql\Control Agricola\2021\Exe\AgroCostos.exe
3 GDI+ Window (AMDRSServ.exe),
4 GDI+ Window (AgroCostos.exe), C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.19041.3996_none_d954cb49e10154
5 HideForm, D:\MYSQL\CONTROL AGRICOLA\2021\EXE\FrSystH.dll
Variables in use
================
Procedure Type Value
==========================
WILDMATCH
Param 1: C "* ? *"
Param 2: C "APLICACION"
Local 1: U
Local 2: U
(b)EXPRTOCODEBLOCK
Param 1: A Len: 12
FWROWSET:SETFILTER
Param 1: C "c.WILDMATCH( '* ? *', Upper( detalle ) ) "
Param 2: U
Param 3: L .F.
Local 1: O Class: FWMARIAROWSET
Local 2: B {|| ... }
Local 3: U
Local 4: U
Local 5: U
Local 6: N 0
Local 7: U
FWMARIAROWSET:SETFILTER
Param 1: C "c.WILDMATCH( '* ? *', Upper( detalle ) ) "
Param 2: A Len: 1
Local 1: U
Local 2: O Class: FWMARIAROWSET
BUSCARLAB
Local 1: C "rufo "
Local 2: C "c.detalle LIKE '% ? %' "
Local 3: O Class: TDIALOG
Local 4: U
(b)BRWBTNBAR
Param 1: O Class: TBTNBMP
TBTNBMP:CLICK
Local 1: O Class: TBTNBMP
TBTNBMP:LBUTTONUP
Param 1: N 39
Param 2: N 40
Param 3: O Class: TBTNBMP
Local 1: U
Local 2: L .T.
Local 3: N 0
TCONTROL:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 2555944
Local 1: O Class: TBTNBMP
Local 2: U
TBTNBMP:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 2555944
Local 1: O Class: TBTNBMP
_FWH
Param 1: N 2555944
Param 2: N 514
Param 3: N 0
Param 4: N 2555944
Param 5: N 70
Local 1: O Class: TBTNBMP
WINRUN