Postagem que era para o PITERGALDIANO
Enviado: 03 Abr 2005 21:02
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 :
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
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.)
Até logo.
Marcelo