Postagem que era para o PITERGALDIANO

[Clipper]

Eu havia postado a resposta porém não tinha lido a msg anterior, na qual ele apenas pedia ajuda a um dos membros, óbviamente que por educação não quis me intrometer, poré deixo aqui para registro.

Segue abaixo a integra da minha resposta, a qual eu editei pois não servia.

Prezado Piter

Achei muito confuso a forma como você fez e preferi nem analisar. Tente da seguinte forma :

Código: Selecionar todos

Funcion ValConvenio(cConvenio) 

If Empty(cConvenio)
   Return(.F.) 
EndIf 
cConvenio=STRZERO(cConvenio,5)

Use CadCli Alias cadcli Shared New 
Set Index To CadCli 

DBSEEK(cConvenio)
IF EOF()
   MsgBox3d1("Convênio não cadastrado!","Atenção") 
   Close cadcli 
   Return(.F.) 
EndIf 

Close cadcli 
Return(.T.)

Obs : Se a variável é pública então não precisa retornar ele modificada, já que ele estará vísivel para para todo o sistema, mesmo se ele fosse declarada como PRIVADA ainda não seria necessário.

Até logo.

Marcelo

[evolver]

Pra mim fez muito bem, tá avisado nas regras do fórum pra evitar esse tipo de postagem. É bom mesmo que aconteça umas dessas pro pessoal parar de pensar que apenas um ou outro que sabe das coisas aqui.