;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Cadastro\\Bibliot"

ConfGeral("Deseja informar o codigo do item na referˆncia SEM OS ZEROS?")
If OK<>"S"
   Then Return
EndIf   

Coedit "\\Sistemas\\Estoque\\Itens"
Scan
  CODITEM=[Codigo do Item]
  While SubStr(CODITEM,1,1)="0"
    CODITEM=SubStr(CODITEM,2,Len(CODITEM))
  EndWhile 
  [Referencia] = CODITEM 
EndScan  
