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

CoEdit "aa1"
CopytoArray reg

c=1
i=0
While True

  @ 10,10 ?? StrVal(c)

  End Down
  
  
  If i>900
     Then c=c+1
          i=0
  EndIf      
  i=i+1  
  CopyFromArray reg
  [Numero do Documento]=AlinhM(StrVal(c),6)
  [Item do Documento  ]=i
  UnLockRecord

  If c>600
     Then QuitLoop
  EndIf
EndWhile
Do_It!
ClearAll
Release Vars All
Release Procs All
