FiveTech Support Forums

Hola a todos
Desde hace ya un tiempo me viene dando el error que os reproduzco más abajo, debo decir que nunca me dio ese error en los litbox cuando pulso dos veces el click izquierdo del ratón, pero ahora me lo da, no sé por qué
Error description: Error BASE/1111 Error de argumento: LEN
Args:
[ 1] = U

Stack Calls
===========
Called from: => LEN(0)
Called from: .\source\classes\TGET.PRG => TGET:LBUTTONUP(1566)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(588)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: C:\PROYEC~1\BelGes\Source\gesh0100.prg => CTRCLIENTE(206)
Called from: C:\PROYEC~1\BelGes\Source\gesh0100.prg => (b)CLIENTES(58)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:LDBLCLICK(1846)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:LDBLCLICK(1468)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:LDBLCLICK(1060)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TWBROWSE:HANDLEEVENT(1453)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(952)
Called from: C:\PROYEC~1\BelGes\Source\geshinic.prg => MAIN(177)
Variables in use
================
Procedure Type Value
==========================
LEN
Param 1: U
Local 1: U
Local 2: U
TGET:LBUTTONUP
Param 1: N 9
Param 2: N 85
Param 3: N 0
Local 1: O Class: TGET
Local 2: N 0
Local 3: N 0
Local 4: C "GENERAL ALVAREZ DE CASTRO "
Local 5: N 1
TWINDOW:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 589909
TCONTROL:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 589909
Local 1: O Class: TGET
Local 2: U
TGET:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 589909
Local 1: O Class: TGET
Local 2: U
_FWH
Param 1: N 589909
Param 2: N 514
Param 3: N 0
Param 4: N 589909
Param 5: N 35
Local 1: O Class: TGET
DIALOGBOX
Param 1: N 4194304
Param 2: C "CLIENTES2"
Param 3: N 1835860
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: L .F.
Local 1: O Class: TDIALOG
Local 2: N 1835860
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
CTRCLIENTE
Param 1: N 3
Param 2: O Class: TMDICHILD
Param 3: O Class: TWBROWSE
Local 1: O Class: TDIALOG
Local 2: A Len: 23
Local 3: A Len: 24
Local 4: N 2
Local 5: A Len: 2
Local 6: O Class: TFOLDER
Local 7: A Len: 3
Local 8: N 4
(b)CLIENTES
Param 1: N 217
Param 2: N 378
Param 3: N 1
Param 4: O Class: TWBROWSE
TWINDOW:LDBLCLICK
Param 1: N 217
Param 2: N 378
Param 3: N 1
Local 1: O Class: TWBROWSE
TCONTROL:LDBLCLICK
Param 1: N 217
Param 2: N 378
Param 3: N 1
Local 1: O Class: TWBROWSE
TWBROWSE:LDBLCLICK
Param 1: N 217
Param 2: N 378
Param 3: N 1
Local 1: O Class: TWBROWSE
Local 2: N 14
Local 3: N 3
TWINDOW:HANDLEEVENT
Param 1: N 515
Param 2: N 1
Param 3: N 14221690
TWBROWSE:HANDLEEVENT
Param 1: N 515
Param 2: N 1
Param 3: N 14221690
Local 1: O Class: TWBROWSE
Local 2: U
_FWH
Param 1: N 14221690
Param 2: N 515
Param 3: N 1
Param 4: N 14221690
Param 5: N 23
Local 1: O Class: TWBROWSE
WINRUN
Param 1: N 1835860
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: B {|| ... }
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
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
MAIN
Local 1: O Class: TBITMAP
Local 2: O Class: TICON
Local 3: A Len: 2
Local 4: N 16777216
Local 5: O Class: TBTNBMP
Local 6: O Class: TBTNBMP
Local 7: O Class: TBTNBMP
Local 8: O Class: TBTNBMP
Local 9: O Class: TBTNBMP
Local 10: O Class: TMENU
Local 11: O Class: TMENU
Local 12: O Class: TMENU
Local 13: O Class: TMENU
Local 14: O Class: TMENU

Ya digo que nunca me ha ocurrido y ahora sí, es una window con un listbox si pincho en el botón que ejecuta la acción igual que el ON dblclick no ocurre el error, pero si doy doble click si que me da el error
¿A alguien le ha ocurrido esto?

Pedro,

Por favor comprueba que tengas este código en la Clase TGet Método LButtonUp() (source\classes\tget.prg):

Pues no Antonio, ese código no está, lo pongo y compilo, y pongo la clase en fwhx.lib

Gracias