
;*******************************************************************************
;* Rotina Monta Aray Grade                                                     *
;*******************************************************************************
Proc criar()
Private i,CODANTERIOR,tm,itok,wi

CODITEM=[Codigo do Item]

Moveto "aaformc"
End
Down
[Codigo do Produto   ]=CODITEM
[Lookup_Produto      ]=CODITEM
[Baixa_Automatica    ]="S"
[Quantidade Produzida]=1
unLockrecord

Moveto "aaformI"
End
Down
[Codigo do Produto    ]=CODITEM
[Sequencia            ]=1
[Codigo do Material   ]="03"+SubStr(CODITEM,3,8)
[Lookup_Material      ]="03"+SubStr(CODITEM,3,8)
[Item_Baixa_Automatica]="S"
[Quantidade           ]=1
unLockrecord

Moveto "\\Sistemas\\Estoque\\Itens"
EndProc

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

Empty("aaFORMC")
Empty("aaFORMI")

Coedit "AAFORMC","AAFORMI","\\Sistemas\\Estoque\\Itens"
Scan For [Tipo do Item]="P" And
  SubStr([Codigo do Item],1,2)="02" And
  SubStr([Codigo do Item],8,3)<>"000"

  criar()
EndScan
Do_IT!
ClearAll

