Histórico da Página

...

                     {"RA_MAT" , conteudo2cConteudo, NIL};

  }

• aItens

Corresponde aos dados a serem incluídos/deletados da tabela RHQ - Programação de Rateio.

aItens := {    {"RHQ_DEMES"        , conteudo1  cConteudo1    , Nil},;
                    {"RHQ_AMES"         , conteudo2  cConteudo2    , Nil},;
                    {"RHQ_CC"         , conteudo3  cConteudo3    , Nil},;
                    {"RHQ_ITEM"      , conteudo4  cConteudo4    , Nil},;
                    {"RHQ_CLVL"   , conteudo5  cConteudo5    , Nil},;
                    {"RHQ_PERC"  , nValor          , nValor    , Nil};
               }

...

User Function GPEA056EAUT 

Local aCabec aCabec      := {}
Local aItens aItens        := {}
Local aItemAux  := {}
Local cFil cFil            := "D MG 01"
Local cMat cMat         := "000002"
Local nOpc nOpc        := 4 //Manutenção

Private lMsErroAuto := .F. // Se .F., não exibe erros automáticos

SRA->(DbSeek(cFil + cMat)) //Posiciona no funcionário

aAdd(aCabec, {"RA_MAT", SRA->RA_MAT, Nil })

aAdd(aItemAux, {"RHQ_DEMES", "022025", NIL})
aAdd(aItemAux, {"RHQ_AMES"  , "032025", NIL})
aAdd(aItemAux, {"RHQ_CC"       , "000000001", NIL})
aAdd(aItemAux, {"RHQ_ITEM"   , "000000001", NIL})
aAdd(aItemAux, {"RHQ_CLVL"   , "000000100", NIL})
aAdd(aItemAux, {"RHQ_PERC"  , 50, NIL})

aAdd(aItens, aItemAux)
aItemAux := {}

aAdd(aItemAux, {"RHQ_DEMES", "022025", NIL})
aAdd(aItemAux, {"RHQ_AMES"  , "032025", NIL})
aAdd(aItemAux, {"RHQ_CC"       , "000000002", NIL})
aAdd(aItemAux, {"RHQ_ITEM"   , "800000000", NIL})
aAdd(aItemAux, {"RHQ_CLVL"   , "000000100", NIL})
aAdd(aItemAux, {"RHQ_PERC"  , 50, NIL})

aAdd(aItens, aItemAux)

MSExecAuto({|x, y, z| GPEA056(x, y, z)}, aCabec, aItens, nOpc)

// Verifica se houve erro na execução automática
If lMsErroAuto
    MostraErro()          // Exibe mensagem de erro
EndIf

Return Nil

...