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

CODITEM     =[Codigo do Produto]

cor=NumVal(SubStr(CODITEM,08,2))
tm =NumVal(SubStr(CODITEM,10,1))

For i From cor to 27

  for wi from tm to 4

    CODITEM=SubStr(CODITEM,1,7)+AlinhM(StrVAl(i),2)+StrVal(wi)

    Moveto [LooKup_Produto]
    If Not Busca_Lookup("Codigo do Item",CODITEM,"SM")
       Then Loop
    EndIf

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

    Moveto "FormulaI"
    Moveto [Codigo do Produto]
    Locate [Formulac->Codigo do Produto]
    While [Codigo do Produto]=[Formulac->Codigo do Produto]

      Moveto "aaformI"
      End
      Down
      [Codigo do Produto    ]=CODITEM
      [Sequencia            ]=[FormulaI->Sequencia]
      [Codigo do Material   ]=SubStr([FormulaI->Codigo do Material],1,7)+ALinhM(strval(i),2)+"0"
      [Lookup_Material      ]=SubStr([FormulaI->Codigo do Material],1,7)+ALinhM(strval(i),2)+"0"
      [Item_Baixa_Automatica]="S"
      [Quantidade           ]=[FormulaI->Quantidade]
      unLockrecord

      Moveto "formulaI"
      Skip
      If eot() then quitloop endif
    EndWhile

    Moveto "Formulac"
  EndFor

EndFor

EndProc



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

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

Coedit "AAFORMC","AAFORMI",
       "FORMULAI","FORMULAC"
Scan For [Tipo do Item]="S"
  Criar()
EndScan
Do_IT!
ClearAll

