Problema con listbox (Solucionado)
Posted: Thu Oct 22, 2015 11:38 am
Hola,
Estoy actualizando una aplicacion que me estaba funcionando bien con un FW antiguo. Ahora estoy trabajando con el FW 15.09 y me encuentro que en esta linea:
oLbx:bLine:= {|nAt| nAt:= oLbx:nAt, ;
If( Len(aDatos)<1 .or. nAt>Len(aDatos),;
Array(15), ;
{If( oLbx != Nil .and. oLbx:lSelect, hBmp, 0 ), ;
Transform( aDatos[ nAt, 19 ], "@D" ), ;
aDatos[ nAt, 1 ], ;
aDatos[ nAt, 2 ], ;
Transform( aDatos[ nAt, 3 ], G_dmill ), ;
Transform( aDatos[ nAt, 4 ], G_dmill ), ;
Transform( aDatos[ nAt, 5 ], p_dmil ), ;
Transform( aDatos[ nAt, 6 ], G_cmill ), ;
aDatos[ nat, 7 ], ;
aDatos[ nat, 8 ], ;
iif( aDatos[ nat, 9 ] <> '0', Transform( aIva[ Val(aDatos[ nat,9 ] ) ],"99" ), '00' ), ;
iif( aDatos[ nat, 10 ], 'SI', 'NO' ), ;
Transform( aDatos[ nAt, 17 ], '99.999' ), ;
Transform( aDatos[ nAt, 18 ], '99.999' ), ;
Transform( nAt, "@Z 9999" ) } ) }
me devuelve error:
Stack Calls
===========
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TWBROWSE:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TWBROWSE:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TWBROWSE:LSELECT( 0 )
Called from: livencli.prg => (b)LIVENCLI( 116 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DRAWSELECT( 458 )
Called from: .\source\classes\WBROWSE.PRG => (b)TWBROWSE( 191 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:LOSTFOCUS( 0 )
Called from: .\source\classes\CONTROL.PRG => TWBROWSE:KILLFOCUS( 1083 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1696 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:HANDLEEVENT( 1647 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3591 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 289 )
Called from: errsysw.prg => ERRORDIALOG( 421 )
Called from: errsysw.prg => (b)ERRORSYS( 23 )
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TWBROWSE:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TWBROWSE:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TWBROWSE:LSELECT( 0 )
Called from: livencli.prg => (b)LIVENCLI( 116 )
Called from: .\source\classes\WBROWSE.PRG => (b)TWBROWSE( 146 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DRAWLINE( 0 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:PAINT( 755 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DISPLAY( 2268 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:HANDLEEVENT( 1647 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3591 )
Called from: => SYSREFRESH( 0 )
Called from: livencli.prg => LOCALIST( 344 )
Called from: livencli.prg => (b)LIVENCLI( 91 )
Called from: .\source\classes\TGET.PRG => TGET:LVALID( 1302 )
Called from: .\source\classes\CONTROL.PRG => TGET:FWLOSTFOCUS( 1138 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1708 )
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 598 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3591 )
Called from: => SYSREFRESH( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYCHAR( 829 )
Called from: .\source\classes\TGET.PRG => TGET:KEYCHAR( 1212 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1733 )
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 598 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3591 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 289 )
Called from: livencli.prg => LIVENCLI( 139 )
Called from: CONTAWIN.prg => (b)BUILDMENU( 775 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1079 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1139 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3591 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1092 )
Called from: CONTAWIN.prg => MAIN( 415 )
Revisando, creo que o es oLbx:lSelect, o es en el momento de imprimir el bitmap (hBmp) donde me esta dando el fallo, pero no logro encontrar la solucion
Gracias de antemano
Josep
Estoy actualizando una aplicacion que me estaba funcionando bien con un FW antiguo. Ahora estoy trabajando con el FW 15.09 y me encuentro que en esta linea:
oLbx:bLine:= {|nAt| nAt:= oLbx:nAt, ;
If( Len(aDatos)<1 .or. nAt>Len(aDatos),;
Array(15), ;
{If( oLbx != Nil .and. oLbx:lSelect, hBmp, 0 ), ;
Transform( aDatos[ nAt, 19 ], "@D" ), ;
aDatos[ nAt, 1 ], ;
aDatos[ nAt, 2 ], ;
Transform( aDatos[ nAt, 3 ], G_dmill ), ;
Transform( aDatos[ nAt, 4 ], G_dmill ), ;
Transform( aDatos[ nAt, 5 ], p_dmil ), ;
Transform( aDatos[ nAt, 6 ], G_cmill ), ;
aDatos[ nat, 7 ], ;
aDatos[ nat, 8 ], ;
iif( aDatos[ nat, 9 ] <> '0', Transform( aIva[ Val(aDatos[ nat,9 ] ) ],"99" ), '00' ), ;
iif( aDatos[ nat, 10 ], 'SI', 'NO' ), ;
Transform( aDatos[ nAt, 17 ], '99.999' ), ;
Transform( aDatos[ nAt, 18 ], '99.999' ), ;
Transform( nAt, "@Z 9999" ) } ) }
me devuelve error:
Stack Calls
===========
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TWBROWSE:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TWBROWSE:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TWBROWSE:LSELECT( 0 )
Called from: livencli.prg => (b)LIVENCLI( 116 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DRAWSELECT( 458 )
Called from: .\source\classes\WBROWSE.PRG => (b)TWBROWSE( 191 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:LOSTFOCUS( 0 )
Called from: .\source\classes\CONTROL.PRG => TWBROWSE:KILLFOCUS( 1083 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1696 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:HANDLEEVENT( 1647 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3591 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 289 )
Called from: errsysw.prg => ERRORDIALOG( 421 )
Called from: errsysw.prg => (b)ERRORSYS( 23 )
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TWBROWSE:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TWBROWSE:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TWBROWSE:LSELECT( 0 )
Called from: livencli.prg => (b)LIVENCLI( 116 )
Called from: .\source\classes\WBROWSE.PRG => (b)TWBROWSE( 146 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DRAWLINE( 0 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:PAINT( 755 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DISPLAY( 2268 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:HANDLEEVENT( 1647 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3591 )
Called from: => SYSREFRESH( 0 )
Called from: livencli.prg => LOCALIST( 344 )
Called from: livencli.prg => (b)LIVENCLI( 91 )
Called from: .\source\classes\TGET.PRG => TGET:LVALID( 1302 )
Called from: .\source\classes\CONTROL.PRG => TGET:FWLOSTFOCUS( 1138 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1708 )
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 598 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3591 )
Called from: => SYSREFRESH( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYCHAR( 829 )
Called from: .\source\classes\TGET.PRG => TGET:KEYCHAR( 1212 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1733 )
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 598 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3591 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 289 )
Called from: livencli.prg => LIVENCLI( 139 )
Called from: CONTAWIN.prg => (b)BUILDMENU( 775 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1079 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1139 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3591 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1092 )
Called from: CONTAWIN.prg => MAIN( 415 )
Revisando, creo que o es oLbx:lSelect, o es en el momento de imprimir el bitmap (hBmp) donde me esta dando el fallo, pero no logro encontrar la solucion
Gracias de antemano
Josep