ErrorProc = "ErroValid"
AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
debug
Coedit "Destinat"


Moveto [Codigo do Representante]
Ativa_lookup()
x=Getchar()

KeyPress "ESC"


Moveto [Razao Social]
Ativa_lookup()
x=Getchar()
KeyPress "ESC"

