Histórico da Página

...

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

UserFunctionGPEA056EAUT 

LocalaCabec    := {}
LocalaItens    := {}
LocalaItemAux  := {}

...

LocalcFil      :="D MG 01 "
LocalcMat      :="000002"
LocalnOpc      :=4//Manutenção

PrivatelMsErroAuto:=.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
IflMsErroAuto
    MostraErro()          // Exibe mensagem de erro
EndIf

ReturnNil

...

...

03. CONFIGURAÇÃO E EXECUÇÃO

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

Execução da rotina via menu do modulo SIGAGPE:

Image Removed

Caso de sucesso:

Image Removed

Caso de erro:

Image Removed

04. TABELAS UTILIZADAS

• SRA - FuncionáriosSRB
• RHQ - DependentesProgramação de Rateio

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>