FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Error en valid eval
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Error en valid eval
Posted: Sun Nov 08, 2009 09:04 PM
Hoia amigos:
Tengo el siguiente c贸digo y me fuciona:
Code (fw): Select all Collapse
 聽 聽 聽 聽REDEFINE BTNGET opd VAR Publicas:cTipo 聽ID 111 Of oDlg Update Picture "@!";
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 valid eval ({||(iif(Publicas:ctipo='O',(ocopro2:Show(),opd:oJump:=ocopro2,ocopro2:setfocus()),;
聽 聽 聽 聽 聽 聽 compara(Publicas:cTipo,aAlias)),oDlg:Update()),.T.});
聽 聽 聽 聽 聽 聽 When cQuehago$"AM"


Pero si le a帽adimos una restricci贸n a la variable Publcias:

Code (fw): Select all Collapse
 聽 聽 聽 聽REDEFINE BTNGET opd VAR Publicas:cTipo 聽ID 111 Of oDlg Update Picture "@!";
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 valid eval ({||Publicas:cTipo$"PDO",(iif(Publicas:ctipo='O',(ocopro2:Show(),opd:oJump:=ocopro2,ocopro2:setfocus()),;
聽 聽 聽 聽 聽 聽 compara(Publicas:cTipo,aAlias)),oDlg:Update()),.T.});
聽 聽 聽 聽 聽 聽 When cQuehago$"AM"


Ya no me funciona, porque al compilar me aparece la expresion
C:\fuentes\xharbour\GESPAQ08\PRG\trafico.prg(409) Warning W0027 Meaningless use of expression: ':'
C:\fuentes\xharbour\GESPAQ08\PRG\trafico.prg(409) Warning W0027 Meaningless use of expression: 'String'

y no me genera el exe
--------------------------

Saludos



Jose Luis
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Error en valid eval
Posted: Mon Nov 09, 2009 07:54 AM

Jose Luis,

Prueba a poner todo el c贸digo de la validaci贸n en una funci贸n y llama a dicha funci贸n desde el VALID.

Es decir, no pongas todo ese c贸digo en el VALID. S谩calo y ponlo en una funci贸n.

regards, saludos

Antonio Linares
www.fivetechsoft.com
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: Error en valid eval
Posted: Mon Nov 09, 2009 09:54 AM

Antonio

Pues tambi茅n llevas raz贸n,

Muchas gracias

--------------------------

Saludos



Jose Luis
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Re: Error en valid eval
Posted: Mon Nov 09, 2009 06:41 PM
Claro Jos茅,
si lo que retorna
Publicas:cTipo$"PDO"
es num茅rico


Code (fw): Select all Collapse
REDEFINE BTNGET opd VAR Publicas:cTipo  ID 111 Of oDlg Update Picture "@!";
                    valid eval ({||Publicas:cTipo$"PDO",(iif(Publicas:ctipo='O',(ocopro2:Show(),opd:oJump:=ocopro2,ocopro2:setfocus()),;
            compara(Publicas:cTipo,aAlias)),oDlg:Update()),.T.});
            When cQuehago$"AM"
Saludos



Angel, Valencia, Venezuela



xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions