Nuevo problema con CheckBox en FWH1306 (solucionado)

[RodolfoRBG]

Acabo de actualizar a FWH1306 y ahora al compilar me marca el siguiente error:

C:\ACS\VTA\TOROS\PRG\Tarjeta.prg(473) Error E0022 Invalid lvalue: ':'

y la linea de error es esta:

Code: Select all  Expand view

REDEFINE CHECKBOX EVAL({||oTDBF:OrAn="O"}) ID 24 OF oFold:ADIALOGS[5] WHEN .F.  

Hasta la version FWH1306 anterior no me marcaba ese error. Alguna idea?

[Antonio Linares]

Rodolfo,

Has actualizado la versión de xHarbour ? Es que el error que ahora te da es correcto. Mira el preprocesado:

Code: Select all  Expand view

  TCheckBox():ReDefine( 24, { | u | If( PCount()==0, EVAL({||oTDBF:OrAn ="O"}), EVAL({||oTDBF:OrAn ="O"}):= u ) }, oFold:ADIALOGS[5],,,,,,, .F., {|| .F.}, )
 

Como ves, a un Eval( ... ) no se le puede asignar nada, de ahi que el compilador te indique "Invalid left value" (valor no válido a la izquierda):

EVAL({||oTDBF:OrAn ="O"}):= u // esto es imposible

Nosotros no hemos cambiado nada en el REDEFINE CHECKBOX, pero al actualizar tu xHarbour, ahora xHarbour está
detectando ese error correctamente. Puedes solucionarlo facilmente asi:

Code: Select all  Expand view

local lValue := EVAL( {||oTDBF:OrAn = "O" } )

REDEFINE CHECKBOX lValue ID 24 OF oFold:ADIALOGS[5] WHEN .F.
 

[RodolfoRBG]

Gracias Antonio, ya veo porque antes no me marcaba error al compilar y ahora si.

Ya quedo corregido.