marceloCR Posted July 8, 2005 Report Share Posted July 8, 2005 tenho as seguintes linhas de codigo em meu programa, que fazem a verificacao se o codigo digitado é valido ou não! agora caso eu digite um valor que não seja válido ele dah a mensagem codigo inexistente só que naum zera a variavel, o campo get fica com o codigo que eu digitei, não zera, naum limpa o get, dae eu sou obrigado a digitar um valido ou apagar o errado como zerah-lo? static function verifica(wcodbarr) sele arquivo arquivo->(dbsetorder(1)) dbseek(wcodbarr) if eof() .and. wcodbarr#0 MsgAlert('CODIGO INEXISTENTE !', 'ATENCAO') wcodbarr:=0 //(naum zera, naum apaga o codigo digitado) oGet[1]:setfocus(1) oGet[1]:setpos(1) AEVAL(odlgc:acontrols,{|oc|oc:refresh()}) Return .f. endif return nil aguardo sugestoes........obrigadoo Marcelo Campos Criciuma - SC Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted July 8, 2005 Report Share Posted July 8, 2005 Marcelo, Boa Tarde wcodbarr:=0 oGet[1]:VarPut(wcodbarr) // acrescentar essa linha oGet[1]:setfocus(1) oGet[1]:setpos(1) Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação Quote Link to comment Share on other sites More sharing options...
marceloCR Posted July 8, 2005 Author Report Share Posted July 8, 2005 citação:Marcelo, Boa Tarde wcodbarr:=0 oGet[1]:VarPut(wcodbarr) // acrescentar essa linha oGet[1]:setfocus(1) oGet[1]:setpos(1) Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação id=quote>id=quote>obrigado Paulo, funcionou dreitinho!!!!!! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.