FWH 2002 error con XBROWSE

[CARLOS ATUNCAR]

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 :

Code: Select all  Expand view  RUN

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


 

Esta es la configuración del XBROWSE

Code: Select all  Expand view  RUN

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()

 

Gracias por la atencion

[nageswaragunupudi]

We are looking into this.

[CARLOS ATUNCAR]

Gracias en espera de noticias