TxBrowse
Posted: Mon Dec 29, 2008 4:08 pm
Hola a todos y felices fiestas
Unas cuestiones sobre TxBrowse.
1ª ¿Cómo puedo hacer que cuando el último get de un diálogo pierda su foco con enter me vaya directamente al Browse?
2ª Esta me está volviendo loco. En un ejemplo que ya comenté antes de Francisco J. Alegría, viene el Browse con la siguiente línea :
oCol:bStrData := {||(cALias)->cuenta}
con esto cuando pulsas enter editas el campo, pues en mi Browse cuando uso esa instrucción me da éste error
Application
===========
Path and name: C:\Proyectos\Gfactu\GFACTU.Exe (32 bits)
Size: 724,480 bytes
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 29-12-2008, 16:09:30
Error description: Error BASE/1111 Argument error: LEN
Args:
[ 1] = N 0
Stack Calls
===========
Called from: => LEN(0)
Called from: XBROWSE.PRG => TXBRWCOLUMN:DATAWIDTH(0)
Called from: XBROWSE.PRG => TXBRWCOLUMN:ADJUST(0)
Called from: XBROWSE.PRG => TXBROWSE:ADJUST(0)
Called from: XBROWSE.PRG => TXBROWSE:INITIATE(0)
Called from: => __OBJSENDMSG(0)
Called from: HARBOUR.PRG => OSEND(0)
Called from: HARBOUR.PRG => ASEND(0)
Called from: DIALOG.PRG => TDIALOG:INITIATE(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: gesh0200.prg => ALBARANES(187)
Called from: geshinic.prg => (b)MAIN(86)
Called from: MENU.PRG => TMENU:ACTIVATE(0)
Called from: BTNBMP.PRG => TBTNBMP:SHOWPOPUP(0)
Called from: geshinic.prg => (b)MAIN(96)
Called from: BTNBMP.PRG => TBTNBMP:CLICK(0)
Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: geshinic.prg => MAIN(179)
Por el contrario si cambio la instrucción oCol:bStrData por oCol:bEditValue no da ese error, pero no edito con enter, ni me va a un registro nuevo al llegar a la última columna. Tan sólo puedo moverme con las flechas y si doy escape me da el error de que el área no está en uso ( DBCMD 2001). La edición se produce tecleando algo, pero al pulsar enter.
¿Alguna solución? Uso FWH 8.04
Lo curioso de esto es que el ejemplo de Francisco J. lo compilo con la misma versión que mi programa y ¡¡¡¡Funciona el bStrData sin errores !!!
Bueno el ladrillazo ya os lo he tirado.
Un saludo a todos
Pedro
Unas cuestiones sobre TxBrowse.
1ª ¿Cómo puedo hacer que cuando el último get de un diálogo pierda su foco con enter me vaya directamente al Browse?
2ª Esta me está volviendo loco. En un ejemplo que ya comenté antes de Francisco J. Alegría, viene el Browse con la siguiente línea :
oCol:bStrData := {||(cALias)->cuenta}
con esto cuando pulsas enter editas el campo, pues en mi Browse cuando uso esa instrucción me da éste error
Application
===========
Path and name: C:\Proyectos\Gfactu\GFACTU.Exe (32 bits)
Size: 724,480 bytes
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 29-12-2008, 16:09:30
Error description: Error BASE/1111 Argument error: LEN
Args:
[ 1] = N 0
Stack Calls
===========
Called from: => LEN(0)
Called from: XBROWSE.PRG => TXBRWCOLUMN:DATAWIDTH(0)
Called from: XBROWSE.PRG => TXBRWCOLUMN:ADJUST(0)
Called from: XBROWSE.PRG => TXBROWSE:ADJUST(0)
Called from: XBROWSE.PRG => TXBROWSE:INITIATE(0)
Called from: => __OBJSENDMSG(0)
Called from: HARBOUR.PRG => OSEND(0)
Called from: HARBOUR.PRG => ASEND(0)
Called from: DIALOG.PRG => TDIALOG:INITIATE(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: gesh0200.prg => ALBARANES(187)
Called from: geshinic.prg => (b)MAIN(86)
Called from: MENU.PRG => TMENU:ACTIVATE(0)
Called from: BTNBMP.PRG => TBTNBMP:SHOWPOPUP(0)
Called from: geshinic.prg => (b)MAIN(96)
Called from: BTNBMP.PRG => TBTNBMP:CLICK(0)
Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: geshinic.prg => MAIN(179)
Por el contrario si cambio la instrucción oCol:bStrData por oCol:bEditValue no da ese error, pero no edito con enter, ni me va a un registro nuevo al llegar a la última columna. Tan sólo puedo moverme con las flechas y si doy escape me da el error de que el área no está en uso ( DBCMD 2001). La edición se produce tecleando algo, pero al pulsar enter.
¿Alguna solución? Uso FWH 8.04
Lo curioso de esto es que el ejemplo de Francisco J. lo compilo con la misma versión que mi programa y ¡¡¡¡Funciona el bStrData sin errores !!!
Bueno el ladrillazo ya os lo he tirado.
Un saludo a todos
Pedro