Comu Usar o WHEN

[gralak]

Eai galera to precisando da ajuda de vcs novamente

Eu tento utilizar o comando WHEN

e retorna o seguinte erro ...

ERRO INDEFINIDO...EVAL
EVAL(0)
__WHEN(754)
(b)HEDIT:NEW(94)
ONCOMMAND(283)

O GET ESTA DECLARADO DA SEGUINETE MANEIRA

vED_CODI := 0
@250,51 GET ED_CODI VAR vED_CODI OF vTAB PICTURE "999999" VALID{|| TESTE()} SIZE 60,24 STYLE WS_BORDER

ONDE EU DECLARARIA O WHEN

:% :% :%

[esbasso]

aCHO QUE TUA lib TA MEIO DESATUALIZADA.

Atualize do CVS

[gralak]

ENTÃO ONDE EU ENCONTRO ESSAS LIBS ???

[esbasso]

voce deve baixar via TORTOISE
precisa do tortoise cvs instalado para baixar a hwgui do cvs
tutorial em www.caclipperwebsite.com/harbour.shtml
para baixar a hwgui e so trocar xharbour por hwgui nas config do tortoise

coloquei elas compiladas aqui
www.engersoft.com.br\download\util\hwguilib.zip
baixe o designer tambem para fazer as telas
www.engersoft.com.br\download\util\designer.zip

xharbour versao 1.0.0

[gralak]

blz vou tentar ...
vlw té++++

[gralak]

Caro amigo fiz o teste na IDE e gerou o mesmo erro,
coloquei uma menssagem do tipo MSGINFO()
no evento GETFOCUS(), mas na hora que entra o focu no GET o erro gerado é o mesmo
mas alguma dica :% :% :% :%

[sygecom]

Post um exemplo de como vc esta usando que damos a dica no seu exemplo.

[gralak]

@ 250,31 SAY Lb_CidadePess CAPTION "Cidade" OF Paginas TRANSPARENT SIZE 49,18 ;
STYLE SS_OWNERDRAW
@ 250,51 GET Ed_CidPess VAR vEd_CidPess OF Paginas PICTURE "999999";
VALID {||if(vEd_CidPess>0,Crit_Cida(@vEd_CidPess,1),.t.)} WHEN{||vparan:=2};
SIZE 60,24 STYLE WS_BORDER

[gralak]

@ 250,31 SAY Lb_CidadePess CAPTION "Cidade" OF Paginas TRANSPARENT SIZE 49,18 ;
STYLE SS_OWNERDRAW
@ 250,51 GET Ed_CidPess VAR vEd_CidPess OF Paginas PICTURE "999999";
VALID {||if(vEd_CidPess>0,Crit_Cida(@vEd_CidPess,1),.t.)} WHEN{||vparan:=2};
SIZE 60,24 STYLE WS_BORDER


Eu preciso usar o WHEN nesse tipo de seituação para que mais tarde eu possa testar esta variavel no click de uma tecla ok ...
:% :% :%

[esbasso]

Meu caro, isto é logica de programação.
WHEN E VALID sempre retornam valor lógico , portanto voce tem de por um .t. ou .F. como ultima instrução no bloco WHEN{||vparan:=2,.t.}

[Maligno]

O colega tem razão. A cláusula WHEN precisa retornar um valor lógico. Mas, pode-se utilizar uma atribuição também, mesmo que em linha, e retornar um valor lógico. Exemplo:

Código: Selecionar todos

@ 250,51 GET Ed_CidPess VAR vEd_CidPess OF Paginas PICTURE "999999";
VALID {||if(vEd_CidPess>0,Crit_Cida(@vEd_CidPess,1),.t.)};
WHEN{||vparan:=2 , .T.};
SIZE 60,24 STYLE WS_BORDER

Seu WHEN agora é um bloco de código que contém uma lista de expressões com dois tipos (poderia ter mais): um numérico e outro lógico. Nessa situação, sempre será devolvido o último valor da lista.

[gralak]

Ta di brincadera agora sim em !!!!!!!!!!!!!
hahahhahaahahahaha
Vou tentar agora mas desde já vlw mesmo galera
Obrigado pela atenção de todos ´ ´ ´ ´