AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"

SetDir "\\Sistemas\\Estoque\\"

CoEdit "Itens"
Scan
  Barra(NRecords("Itens"), RecNo())
  Aguarde("Aguarde, Ajustando o Item "+[Codigo do Item]+BARRA_STRING)
  
  REFERENCIA = Rtrim(StrVal(NumVal(([Codigo do Item]))))
  [Referencia] = REFERENCIA 
EndScan
Do_IT!
ClearAll

Mensagem("Processo Concluido!")
