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


NR=NRecords("Itens")
view "Itens"
coedit "itens"
Scan 
   Barra(NR, RecNo())
   Aguarde("Aguarde, Convertendo "+BARRA_STRING)
   [Referencia]=SubStr([Codigo do Item],3,6)
EndScan
Do_It!
ClearAll
