Histórico da Página

...

Segue um exemplo de montagem da execauto para a rotina GPEA056:

User Function GPEA056EAUT GPEA056EAUT 

Local aCabec    := {}
Local aItens    := {}
Local aItemAux  := {}
Local cFil      := "D MG 01 "
Local cMat      := "000002"
Local 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>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

03. CONFIGURAÇÃO E EXECUÇÃO

No exemplo, acima, a chamada da função GPEA056AUT deverá ser realizada a partir do menu via configurador:

Image RemovedImage Added

04. TABELAS UTILIZADAS

...