FWH 2002 error con XBROWSE
Posted: Fri Mar 20, 2020 3:05 am
Saludos, estoy copilando mis aplicaciones de FWH1801 a FWH2002, y tengo un problema con XBROWSE, tengo mis datos separados por campo fundo donde existen dos fundos cuando hago la consulta por el fundo 1 sale normal la pantalla pero cuando quiero consultar por el fundo 2 me provoca error con la version FWH2002 pero con el version FWH1801 no existe el problema.
este es el error :
Esta es la configuración del XBROWSE
Gracias por la atencion
este es el error :
Code: Select all
Application
===========
Path and name: D:\MySql\Control Agricola\App\Exe\AgroCostos.exe (32 bits)
Size: 4,936,192 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20181011)
FiveWin version: FWH 20.02
C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 32 secs
Error occurred at: 19/03/2020, 21:19:54
Error description: Error BASE/1068 Error de argumento: acceso al array
Args:
[ 1] = A { ... } length: 21
[ 2] = U
Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:COLATPOS( 4375 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE( 686 )
Called from: => TXBROWSE:SELECTEDCOL( 0 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 2100 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 2046 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1793 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11238 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => UPPER( 0 )
Called from: .\source\classes\XBROWSE.PRG => (b)XBRLBXLOOKUP( 17162 )
Called from: => ASCAN( 0 )
Called from: .\source\classes\XBROWSE.PRG => XBRLBXLOOKUP( 17162 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBRWCOLUMN:ADJUST( 12143 )
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:ADJUST( 12221 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ADJUST( 1448 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:INITIATE( 1292 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CREATEFROMCODE( 1135 )
Called from: Bin\planillas.prg => PLANILLAS( 369 )
Called from: Bin\menu.prg => (b)BUILDRIBBONBAR( 253 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:CLICK( 717 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 917 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1817 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1575 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1097 )
Called from: Bin\menu.prg => MAIN( 89 )
System
======
CPU type: AMD Ryzen 5 2400G with Radeon Vega Graphics 3593 Mhz
Hardware memory: 16269 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Windows total applications running: 6
1 ,
2 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.18362.720_none_2e6bec9
3 , D:\MySql\Control Agricola\App\Exe\AgroCostos.exe
4 DDE Server Window, C:\Windows\System32\OLE32.DLL
5 G, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.18362.720_none_5f56df818223263
6 HideForm, D:\MySql\Control Agricola\App\Exe\FrSystH.dll
Variables in use
================
Procedure Type Value
==========================
TXBROWSE:COLATPOS
Param 1: N 1
Local 1: O Class: TXBROWSE
Local 2: U
Local 3: N 0
Local 4: A Len: 21
Local 5: U
Local 6: U
Local 7: U
(b)TXBROWSE:TXBROWSE
Param 1: O Class: TXBROWSE
TXBROWSE:SELECTEDCOL
TXBROWSE:PAINT
Local 1: O Class: TXBROWSE
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: U
Local 11: U
Local 12: U
Local 13: U
Local 14: U
Local 15: U
Local 16: U
Local 17: U
Local 18: U
Local 19: U
Local 20: U
Local 21: U
Local 22: U
Local 23: U
Local 24: U
Local 25: U
Local 26: U
Local 27: U
Local 28: U
Local 29: U
Local 30: U
Local 31: U
Local 32: U
Local 33: U
Local 34: U
Local 35: U
Local 36: U
Local 37: U
Local 38: U
Local 39: U
Local 40: U
Local 41: U
Local 42: L .T.
Local 43: U
TXBROWSE:DISPLAY
Local 1: O Class: TXBROWSE
Local 2: N 76794.94
TCONTROL:HANDLEEVENT
Param 1: N 15
Param 2: N 0
Param 3: N 0
Local 1: O Class: TXBROWSE
Local 2: U
TXBROWSE:HANDLEEVENT
Param 1: N 15
Param 2: N 0
Param 3: N 0
Local 1: O Class: TXBROWSE
_FWH
Param 1: N 0
Param 2: N 15
Param 3: N 0
Param 4: N 0
Param 5: N 38
Local 1: O Class: TXBROWSE
DIALOGBOXINDIRECT
Param 1: N 4194304
Param 2: C "€ È€ mþÿâ ° F i v e W i n f o r H a r b o u r P 4 u Å S T A T I C E r r o r d e s c r i p t i o n : E r r o r B A S E / 1 1 0 2 E r r o r d e a r g u m e n t o : U P P E R
P H Æ S T A T I C & S t a c k L i s t ¡P ! Ü { Ç L I S T B O X P a ž È B U T T O N & Q u i t P ¯ / É B U T T O N S e e e r r o r . l o g f i l e "
Param 3: N 1378212
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: B {|| ... }
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: L .F.
Param 13: O Class: TDIALOG
Param 14: U
Local 1: O Class: TDIALOG
Local 2: N 1378212
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
ERRORDIALOG
Param 1: O Class: ERROR
Local 1: O Class: TDIALOG
Local 2: O Class: TLISTBOX
Local 3: U
Local 4: U
Local 5: C " Called from: => UPPER( 0 )"
Local 6: N 13
Local 7: C " Error description: Error BASE/1102 Error de argumento: UPPER
"
Local 8: A Len: 19
Local 9: O Class: TSAY
Local 10: N -184216884
Local 11: N 1
Local 12: C "Application"
===========
Path and name: D:\MySql\Control Agricola\App\Exe\AgroCostos.exe (32 bits)
Size: 4,936,192 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20181011)
FiveWin version: FWH 20.02
C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 31 secs
Error occurred at: 19/03/2020, 21:19:54
Error description: Error BASE/1102 Error de argumento: UPPER
Args:
[ 1] = N 0
Stack Calls
===========
Called from: => UPPER( 0 )
Called from: .\source\classes\XBROWSE.PRG => (b)XBRLBXLOOKUP( 17162 )
Called from: => ASCAN( 0 )
Called from: .\source\classes\XBROWSE.PRG => XBRLBXLOOKUP( 17162 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBRWCOLUMN:ADJUST( 12143 )
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:ADJUST( 12221 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ADJUST( 1448 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:INITIATE( 1292 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CREATEFROMCODE( 1135 )
Called from: Bin\planillas.prg => PLANILLAS( 369 )
Called from: Bin\menu.prg => (b)BUILDRIBBONBAR( 253 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:CLICK( 717 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 917 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1817 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1575 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1097 )
Called from: Bin\menu.prg => MAIN( 89 )
System
======
CPU type: AMD Ryzen 5 2400G with Radeon Vega Graphics 3593 Mhz
Hardware memory: 16269 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Windows total applications running: 6
1 ,
2 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.18362.720_none_2e6bec9
3 , D:\MySql\Control Agricola\App\Exe\AgroCostos.exe
4 DDE Server Window, C:\Windows\System32\OLE32.DLL
5 G, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.18362.720_none_5f56df818223263
6 HideForm, D:\MySql\Control Agricola\App\Exe\FrSystH.dll
Variables in use
================
Procedure Type Value
==========================
UPPER
Param 1: N 0
Local 1: U
Local 2: U
(b)XBRLBXLOOKUP
Param 1: N 0
Param 2: N 1
ASCAN
Param 1: A Len: 2
Param 2: B {|| ... }
XBRLBXLOOKUP
Param 1: C ""
Param 2: A Len: 2
Param 3: A Len: 2
Param 4: L .T.
Param 5: O Class: TXBRWCOLUMN
Local 1: C ""
Local 2: U
Local 3: N 0
(b)TXBRWCOLUMN:ADJUST
Param 1: U
Param 2: O Class: TXBRWCOLUMN
TXBRWCOLUMN:ADJUST
Local 1: O Class: TXBRWCOLUMN
Local 2: U
Local 3: C ""
Local 4: U
Local 5: U
Local 6: U
Local 7: L .F.
TXBROWSE:ADJUST
Local 1: O Class: TXBROWSE
Local 2: N 2
Local 3: N 21
Local 4: N 0
Local 5: U
Local 6: U
Local 7: U
Local 8: U
TXBROWSE:INITIATE
Local 1: U
Local 2: O Class: TXBROWSE
Local 3: O Class: TBRUSH
TXBROWSE:CREATEFROMCODE
Local 1: O Class: TXBROWSE
PLANILLAS
Local 1: C "SELECT a.*,CONCAT(apellido1,' ',apellido2,' ',nombres ) AS npersonal,s.nombre AS supervisor, p.cod_relog,TIME(marca1) AS hora1,TIME(marca2) AS hora2,TIME(marca3) AS hora3,TIME(marca4) AS hora4, IFNULL(observacion,SPACE(100) ) AS observ, case WHEN dayofweek( a.fecha) =1 THEN 'Domingo' WHEN dayofweek( a.fecha) =2 THEN 'Lunes' WHEN dayofweek( a.fecha) =3 THEN 'Martes' WHEN dayofweek( a.fecha) =4 THEN 'Miercoles' WHEN dayofweek( a.fecha) =5 THEN 'Jueves' WHEN dayofweek( a.fecha) =6 THEN 'Viernes' WHEN dayofweek( a.fecha) =7 THEN 'Sabado' END AS ndia, IFNULL(m.id,0) AS idmov,IfNULL(m.idlabor,0) AS idlabor,IFNULL(m.idparcela,0) AS idparcela,IFNULL(l.detalle,SPACE(30)) AS nlabor,c.nombre AS nparcela, m.horas_n,m.horas_e,m.jornal_cant,m.jornal_extra, IFNULL( m.idlote,0) AS idlote FROM personal_asistencia a INNER JOIN personal p ON p.idpersonal=a.idpersonal LEFT JOIN personal_supervisor s ON a.idsupervisor=s.id LEFT JOIN personal_mov m ON m.idasistencia=a.id LEFT JOIN labores_codigo l ON l.idlabor=m.idlabor LEFT JOIN parcela c ON c.idparcela=m.idparcela WHERE a.estado!='B' AND a.idempresa=1 AND a.idfundo='2' AND a.fecha BETWEEN '2020-03-10' AND '2020-03-19' "
Local 2: O Class: TICON
Local 3: O Class: TDOLPHINQRY
Local 4: O Class: TDIALOG
Local 5: U
Local 6: O Class: TFONT
Local 7: A Len: 3
Local 8: A Len: 4
Local 9: L .T.
Local 10: A Len: 2
Local 11: A Len: 0
Local 12: A Len: 5
Local 13: A Len: 3
Local 14: A Len: 4
Local 15: A Len: 2
(b)BUILDRIBBONBAR
Param 1: O Class: TRBTN
TRBTN:CLICK
Local 1: O Class: TRBTN
TRBTN:LBUTTONUP
Param 1: N 25
Param 2: N 20
Param 3: O Class: TRBTN
Local 1: U
Local 2: L .T.
Local 3: L .T.
TCONTROL:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 1638420
Local 1: O Class: TRBTN
Local 2: U
TRBTN:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 1638420
Local 1: O Class: TRBTN
_FWH
Param 1: N 1638420
Param 2: N 514
Param 3: N 0
Param 4: N 1638420
Param 5: N 12
Local 1: O Class: TRBTN
WINRUN
Param 1: N 1837016
TMDIFRAME:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Param 20: L .F.
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
MAIN
Local 1: C "Ca Soft System 2000a Celular:956993597 Chincha-Peru eMail:carlosalbatun@Outlook.com "
Local 2: O Class: TFONT
Local 3: U
Local 4: U
Local 5: O Class: TFONT
Local 6: O Class: TFONT
Local 7: O Class: TICON
Local 8: U
Local 9: U
Local 10: C "2019.04.01.a"
Local 11: U
Local 12: C ".\español.xml"
Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX
DataBases in use
================
Classes in use:
===============
1 ERROR
2 HASHENTRY
3 HBCLASS
4 HBOBJECT
5 TBRUSH
6 TWINDOW
7 TDIALOG
8 TFONT
9 TREG32
10 TRECT
11 TCONTROL
12 TGET
13 TCOMBOBOX
14 TINTERNET
15 TFTP
16 TSTRUCT
17 TPUBLIC
18 TDOLPHINSRV
19 TDOLPHINQRY
20 TICON
21 GET
22 TCLIPGET
23 TCHECKBOX
24 TBUTTON
25 FRREPORTMANAGER
26 FRPRINTOPTIONS
27 FRPREVIEWOPTIONS
28 FRENGINEOPTIONS
29 FRREPORTOPTIONS
30 TMENU
31 TCURSOR
32 TMDIFRAME
33 TMDICLIENT
34 TMENUITEM
35 TRIBBONBAR
36 TRPANEL
37 TRBGROUP
38 TRBTN
39 TQUICKACCESS
40 TMSGBAR
41 TMSGITEM
42 TTIMER
43 TMDICHILD
44 TXBROWSE
45 TXBRWCOLUMN
46 TSCROLLBAR
47 TBTNBMP
48 TCLIPBOARD
49 TBAR
Memory Analysis
===============
859 Static variables
Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes
"
Local 13: A Len: 5
Local 14: A Len: 6
Local 15: A Len: 5
Local 16: U
Local 17: U
Local 18: B {|| ... }
Local 19: U
Local 20: L .T.
Local 21: N 97.50
Local 22: N 0
Local 23: U
Local 24: N 158
Local 25: N 30
Local 26: N 11
Local 27: N 450
Local 28: N 350
Local 29: N 33
Local 30: N 220
Local 31: N 123
(b)ERRORSYS
Param 1: O Class: ERROR
UPPER
Param 1: N 0
Local 1: U
Local 2: U
(b)XBRLBXLOOKUP
Param 1: N 0
Param 2: N 1
ASCAN
Param 1: A Len: 2
Param 2: B {|| ... }
XBRLBXLOOKUP
Param 1: C ""
Param 2: A Len: 2
Param 3: A Len: 2
Param 4: L .T.
Param 5: O Class: TXBRWCOLUMN
Local 1: C ""
Local 2: U
Local 3: N 0
(b)TXBRWCOLUMN:ADJUST
Param 1: U
Param 2: O Class: TXBRWCOLUMN
TXBRWCOLUMN:ADJUST
Local 1: O Class: TXBRWCOLUMN
Local 2: U
Local 3: C ""
Local 4: U
Local 5: U
Local 6: U
Local 7: L .F.
TXBROWSE:ADJUST
Local 1: O Class: TXBROWSE
Local 2: N 2
Local 3: N 21
Local 4: N 0
Local 5: U
Local 6: U
Local 7: U
Local 8: U
TXBROWSE:INITIATE
Local 1: U
Local 2: O Class: TXBROWSE
Local 3: O Class: TBRUSH
TXBROWSE:CREATEFROMCODE
Local 1: O Class: TXBROWSE
PLANILLAS
Local 1: C "SELECT a.*,CONCAT(apellido1,' ',apellido2,' ',nombres ) AS npersonal,s.nombre AS supervisor, p.cod_relog,TIME(marca1) AS hora1,TIME(marca2) AS hora2,TIME(marca3) AS hora3,TIME(marca4) AS hora4, IFNULL(observacion,SPACE(100) ) AS observ, case WHEN dayofweek( a.fecha) =1 THEN 'Domingo' WHEN dayofweek( a.fecha) =2 THEN 'Lunes' WHEN dayofweek( a.fecha) =3 THEN 'Martes' WHEN dayofweek( a.fecha) =4 THEN 'Miercoles' WHEN dayofweek( a.fecha) =5 THEN 'Jueves' WHEN dayofweek( a.fecha) =6 THEN 'Viernes' WHEN dayofweek( a.fecha) =7 THEN 'Sabado' END AS ndia, IFNULL(m.id,0) AS idmov,IfNULL(m.idlabor,0) AS idlabor,IFNULL(m.idparcela,0) AS idparcela,IFNULL(l.detalle,SPACE(30)) AS nlabor,c.nombre AS nparcela, m.horas_n,m.horas_e,m.jornal_cant,m.jornal_extra, IFNULL( m.idlote,0) AS idlote FROM personal_asistencia a INNER JOIN personal p ON p.idpersonal=a.idpersonal LEFT JOIN personal_supervisor s ON a.idsupervisor=s.id LEFT JOIN personal_mov m ON m.idasistencia=a.id LEFT JOIN labores_codigo l ON l.idlabor=m.idlabor LEFT JOIN parcela c ON c.idparcela=m.idparcela WHERE a.estado!='B' AND a.idempresa=1 AND a.idfundo='2' AND a.fecha BETWEEN '2020-03-10' AND '2020-03-19' "
Local 2: O Class: TICON
Local 3: O Class: TDOLPHINQRY
Local 4: O Class: TDIALOG
Local 5: U
Local 6: O Class: TFONT
Local 7: A Len: 3
Local 8: A Len: 4
Local 9: L .T.
Local 10: A Len: 2
Local 11: A Len: 0
Local 12: A Len: 5
Local 13: A Len: 3
Local 14: A Len: 4
Local 15: A Len: 2
(b)BUILDRIBBONBAR
Param 1: O Class: TRBTN
TRBTN:CLICK
Local 1: O Class: TRBTN
TRBTN:LBUTTONUP
Param 1: N 25
Param 2: N 20
Param 3: O Class: TRBTN
Local 1: U
Local 2: L .T.
Local 3: L .T.
TCONTROL:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 1638420
Local 1: O Class: TRBTN
Local 2: U
TRBTN:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 1638420
Local 1: O Class: TRBTN
_FWH
Param 1: N 1638420
Param 2: N 514
Param 3: N 0
Param 4: N 1638420
Param 5: N 12
Local 1: O Class: TRBTN
WINRUN
Param 1: N 1837016
TMDIFRAME:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Param 20: L .F.
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
MAIN
Local 1: C "Ca Soft System 2000a Celular:956993597 Chincha-Peru eMail:carlosalbatun@Outlook.com "
Local 2: O Class: TFONT
Local 3: U
Local 4: U
Local 5: O Class: TFONT
Local 6: O Class: TFONT
Local 7: O Class: TICON
Local 8: U
Local 9: U
Local 10: C "2019.04.01.a"
Local 11: U
Local 12: C ".\español.xml"
Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX
DataBases in use
================
Classes in use:
===============
1 ERROR
2 HASHENTRY
3 HBCLASS
4 HBOBJECT
5 TBRUSH
6 TWINDOW
7 TDIALOG
8 TFONT
9 TREG32
10 TRECT
11 TCONTROL
12 TGET
13 TCOMBOBOX
14 TINTERNET
15 TFTP
16 TSTRUCT
17 TPUBLIC
18 TDOLPHINSRV
19 TDOLPHINQRY
20 TICON
21 GET
22 TCLIPGET
23 TCHECKBOX
24 TBUTTON
25 FRREPORTMANAGER
26 FRPRINTOPTIONS
27 FRPREVIEWOPTIONS
28 FRENGINEOPTIONS
29 FRREPORTOPTIONS
30 TMENU
31 TCURSOR
32 TMDIFRAME
33 TMDICLIENT
34 TMENUITEM
35 TRIBBONBAR
36 TRPANEL
37 TRBGROUP
38 TRBTN
39 TQUICKACCESS
40 TMSGBAR
41 TMSGITEM
42 TTIMER
43 TMDICHILD
44 TXBROWSE
45 TXBRWCOLUMN
46 TSCROLLBAR
47 TBTNBMP
48 TCLIPBOARD
49 TBAR
50 TSAY
51 TLISTBOX
Memory Analysis
===============
859 Static variables
Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes
Code: Select all
DEFINE WINDOW oWndPlan FROM 0,0 TO 545,1390 PIXEL MDICHILD OF oWind ;
TITLE "MANTENIMIENTO DE ASISTENCIA DE PERSONAL" ICON oIco ;
COLOR CLR_BLACK,RGB(250,250,250) STYLE nOr( WS_CAPTION, WS_VISIBLE )
@0,0 XBROWSE oBrw OF oWndPlan ;
DATASOURCE oQry ;
FIELDS oQry:npersonal,oQry:idsupervisor,oQry:nLabor,"",oQry:nparcela,oQry:idlote,oQry:horas_n, ;
oQry:horas_e,oQry:jornal_cant,oQry:jornal_extra,oQry:observ,oQry:fecha,oQry:ndia,oQry:hora1, ;
oQry:hora2,oQry:hora3,oQry:hora4,oQry:difehora,"","","" ; //21
HEADERS "APELLIDOS Y NOMBRES","SUPERVISOR","LABOR","","AREA","LOTE","JORNAL","EXTRA","NORMAL","EXTRAS",;
"OBSERVACION","FECHA","DIA","HORA1","HORA2" ,"HORA3" ,"HORA4" ,"HORAS","","","" ; //21
SIZES {240,90,120,40,90,90,40,40,40,40,120,55,45,40,40,45,40,40,40} ;
LINES CELL AUTOSORT FASTEDIT SIZE 350,550 PIXEL
For a:=1 To Len( oBrw:aCols )
oBrw:aCols[a]:nHeadStrAlign:= AL_CENTER
oBrw:aCols[a]:oDataFont := aFont[1]
Next
WITH OBJECT oBrw
:bClrRowFocus := oBrw:bClrSelFocus
:nRowHeight := 25
:lFooter := .f.
:nHeaderLines := 3
:nStretchCol := 1
:lAllowColHiding := .F.
:lRecordSelector := .F.
:oHeaderFonts := oFont
:SetDolphin( oQry, .F. )
:nStretchCol := 1
:lColDividerComplete := .t.
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
:bClrSel := { || { CLR_BLACK, CLR_HGRAY } }
:bClrEdits := { || { CLR_BLACK, CLR_YELLOW }}
:bClrStd := filaColor() // COLOREAR LAS FILAS SEGUN CRITERIO
:SetGroupHeader( 'Horas', 7,08, oFont )
:SetGroupHeader( 'Jornales', 9,10, oFont )
:SetGroupHeader( 'Marcaciones', 14,17, oFont )
WITH OBJECT oBrw:aCols[02]
:nEditType := EDIT_LISTBOX
:aEditListBound:= ArrTranspose( mSuper)[1]
:aEditListTxt := ArrTranspose( mSuper)[2]
:bOnPostEdit := { | o,v,n | ChangeSuper( v ) }
END
WITH OBJECT oBrw:aCols[03]
:nEditType := EDIT_GET
:cEditPicture := "@!"
:bKeyDown := {| nKey | (Changelabor(),oBrw:GoRight(),oBrw:GoRight(), oBrw:Refresh()) }
*:bOnPostEdit := { | o,v,n | Changelabor( o,v,n ) }
:nDataStrAlign := AL_LEFT
END
WITH OBJECT oBrw:aCols[04]
:AddBmpFile( op:png+"add.png" )
:bBmpData := { || 1 }
:lBmpStretch := .f.
:lBmpTransparent := .t.
:nDataBmpAlign := AL_CENTER
:oHeaderFont := oVFont
:cHeader := "Más"+CRLF+"Labores"
:bLDClickData := { || GetLabores() }
:bToolTip := { || {"Ingreso de Labores Diarias ","Mantenimiento"}}
END
/*
WITH OBJECT oBrw:aCols[05]
:nEditType := EDIT_LISTBOX
:aEditListBound:= ArrTranspose( mAreas)[1]
:aEditListTxt := ArrTranspose( mAreas)[2]
:bOnPostEdit := { | o,v,n | ChangeArea( v ) }
:nDataStrAlign := AL_LEFT
END
*/
WITH OBJECT oBrw:aCols[06]
:nEditType := EDIT_LISTBOX
:aEditListBound:= ArrTranspose( mLotes)[1]
:aEditListTxt := ArrTranspose( mLotes)[2]
:bOnPostEdit := { | o,v,n | ChangeLote( v ) }
:nDataStrAlign := AL_LEFT
END
WITH OBJECT oBrw:aCols[07]
:nEditType := EDIT_GET
:cEditPicture := "@E 999.99"
:bOnPostEdit := { | o,v,n | ChangeHoras( v,"N" ) }
:nDataStrAlign := AL_RIGHT
END
WITH OBJECT oBrw:aCols[08]
:nEditType := EDIT_GET
:cEditPicture := "@E 999.99"
:bOnPostEdit := { | o,v,n | ChangeHoras( v,"E" ) }
:nDataStrAlign := AL_RIGHT
END
WITH OBJECT oBrw:aCols[09]
:cEditPicture := "@E 999.99"
:nDataStrAlign := AL_RIGHT
END
WITH OBJECT oBrw:aCols[10]
:nEditType := EDIT_GET
:cEditPicture := "@E 999.99"
:bOnPostEdit := { | o,v,n | ChangeJrnEx( v ) }
:nDataStrAlign := AL_RIGHT
END
WITH OBJECT oBrw:aCols[11]
:nEditType := EDIT_GET
:bOnPostEdit := { | o,v,n | ChangeObs( v ) }
:nDataStrAlign := AL_LEFT
END
WITH OBJECT oBrw:aCols[18]
:bClrStd :={|| iif (oQry:marca_modo=='M', {CLR_BLACK,CLR_YELLOW},{CLR_BLACK,nRGB(255,248,220)})}
END
WITH OBJECT oBrw:aCols[19]
:AddBmpFile( op:bmp16+"checkon.bmp" )
:AddBmpFile( op:bmp16+"checkoff.bmp" )
:AddBmpFile( op:bmp16+"warning.bmp" )
:bBmpData := { || mopcion(oQry:verificacion) }
:lBmpStretch := .f.
:lBmpTransparent := .t.
:nDataBmpAlign := AL_CENTER
:oHeaderFont := oVFont
:cHeader := "Verificado"
END
WITH OBJECT oBrw:aCols[20]
:AddBmpFile( op:bmp16+"noentry.bmp" )
:bBmpData := { || if( oQry:bloqueo1='S',1,0) }
:lBmpStretch := .f.
:lBmpTransparent := .t.
:nDataBmpAlign := AL_CENTER
:oHeaderFont := oVFont
:cHeader := "Cerrado"
:bLDClickData := { || AbreDia() }
:bToolTip := { || {"Registro cerrado ","Mantenimiento"}}
END
WITH OBJECT oBrw:aCols[21]
:AddBmpFile( op:png+"abort.png" )
:bBmpData := { || if( oQry:bloqueo2='S',1,0) }
:lBmpStretch := .f.
:lBmpTransparent := .t.
:nDataBmpAlign := AL_CENTER
:oHeaderFont := oVFont
:cHeader := "Bloqueado"
:bToolTip := { || {"Registro cerrado ","Mantenimiento"}}
END
:bRClicked := { | nRow, nCol | ShowPopup( nRow, nCol ) }
END
oBrw:aCols[01]:bLClickHeader := {|| SetOrden(oBrw:aCols[01],"npersonal ASC",oQry )}
oBrw:aCols[02]:bLClickHeader := {|| SetOrden(oBrw:aCols[02],"a.idsupervisor+0 ASC",oQry )}
oBrw:aCols[03]:bLClickHeader := {|| SetOrden(oBrw:aCols[03],"m.idlabor+0 ASC",oQry )}
oBrw:aCols[05]:bLClickHeader := {|| SetOrden(oBrw:aCols[05],"m.idparcela+0 ASC",oQry )}
oBrw:CreateFromCode()
oWndPlan:oClient := oBrw
BrwBtnBar()
WaitOff( @oWait )
ACTIVATE WINDOW oWndPlan ON INIT oBrw:SetFocus()