¿Algunos de ustedes han utilizado esta function?
Bueno, el caso es que le he encontrado de mucha utilidad. Con objetos (Xbrowse(oTabla) trabaja de maravilla, pero... con un simple array de una sola columna da este error si el usuario por casualidad arrastra la barra horizontal hasta el final hacia la derecha:
Application
===========
Path and name: H:\FAPSOFT\NEWCONT32_MYSQL\Wcont32.Exe (32 bits)
Size: 2,254,336 bytes
Time from start: 0 hours 1 mins 36 secs
Error occurred at: 28/03/2012, 14:43:11
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 0
Stack Calls
===========
Called from: XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(499)
Called from: => TXBROWSE:COLATPOS(0)
Called from: XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(501)
Called from: => TXBROWSE:SELECTEDCOL(0)
Called from: XBROWSE.PRG => TXBROWSE:PAINT(1223)
Called from: XBROWSE.PRG => TXBROWSE:DISPLAY(1205)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1458)
Called from: XBROWSE.PRG => TXBROWSE:HANDLEEVENT(10761)
Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(366)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(499)
Called from: => TXBROWSE:COLATPOS(0)
Called from: XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(501)
Called from: => TXBROWSE:SELECTEDCOL(0)
Called from: XBROWSE.PRG => TXBROWSE:PAINT(1223)
Called from: XBROWSE.PRG => TXBROWSE:DISPLAY(1205)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1458)
Called from: XBROWSE.PRG => TXBROWSE:HANDLEEVENT(10761)
Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(366)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(499)
Called from: => TXBROWSE:COLATPOS(0)
Called from: XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(501)
Called from: => TXBROWSE:SELECTEDCOL(0)
Called from: XBROWSE.PRG => TXBROWSE:PAINT(1223)
Called from: XBROWSE.PRG => TXBROWSE:DISPLAY(1205)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1458)
Called from: XBROWSE.PRG => TXBROWSE:HANDLEEVENT(10761)
Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\XBROWSER.PRG => XBROWSE(136)
Called from: H:\FAPSOFT\NEWCONT32_MYSQL\wcont32.prg => IMPORTE(168)
Para muestra, este diminuto ejemplo:
include....
- Code: Select all Expand view
- Function prueba()
locaL aData:={}
AADD( aData, "Documento Numero tal... contiene codificacion incompleta, en blanco, o no existe en Catalogo de Cuentas" )
AADD( aData,"La Cuenta es: xxxxxxxxxx. Revise el documento descrito y modifiquelo.")
AADD( aData," ")
xBrowse(aData,"Documentacion erronea")
Return nil
A alguien le ha sucedido? Como lo ha solucionado? Mi version en FWH 10.06
Gracias.
Saludos.