FiveTech Support Forums

Amigos:

No puedo desenrredar este lio, necesito de su ayuda:

La idea es la siguiente: Revisa(), si vuelve .T. traera la variable oPcion="S"o "N", si es "N" que entregue el focus a oBtn[2], de lo contrario a TgGet[2], pero si revisa() es .F., entonces el focus se entrega a TgGet[1].

Desde ya muy agradecido.
Rafael.

Redefine BTNGET TgGet[01] Var cCod Id 104 Of oDlg Update Picture "@!" Font oFont2 COLOR RGB(160,0,0), RGB(0,255,255);
Valid Empty(cCod).or. if (revisa(@cCod,TgGet,oSay,@Arre1,@Arr2,@Opcion),;
(if (oPcion="N"),;
(oBtn[2]:SetFocus(),oDlg:update(),.t.),;
(TgGet[01]:Refresh(),TgGet[2]:SetFocus(),oDlg:update(),.t.)),;
(TgGet[01]:Refresh(),TgGet[1]:SetFocus(),.f.))})

Me arroja este error:
Error E0030 Syntax error: "syntax error at 'BTNGET'"

Fwh 704 xHarbour

Es preferible que desde el VALID llames a una función y que todo ese código lo pongas dentro de la función.

Posiblemente tengas un paréntesis de más ó de menos, pero usando una función te será más fácil localizar el error