Ayuda Urgente

Ayuda Urgente

Postby Aitue » Tue Aug 12, 2008 3:32 am

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
Aitue
 
Posts: 14
Joined: Tue Apr 08, 2008 9:17 pm

Postby Antonio Linares » Tue Aug 12, 2008 7:17 am

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 46 guests