Linha Microsiga Protheus

Árvore de páginas


CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
  3. Configuração e execução
  4. Tabelas utilizadas


01. VISÃO GERAL

Exemplo de como executar a rotina de cadastramento de programação de rateio através da execauto (rotina automática).

A rotina automática tem a finalidade de efetuar o cadastramento automático de rateios para um ou mais funcionários (que devem estar previamente cadastrados na tabela SRA - Funcionários).

Na chamada do execauto pelo rdmake deverão ser informados 2 arrays:

  • aCabec 
    Corresponde aos dados da tabela SRA - Funcionários. 
    Deve ser informado apenas a matrícula. O registro da SRA deverá estar posicionado ao chamar a rotina.

aCabec := {     

                     {"RA_MAT" , cConteudo, NIL};

  }

  • aItens

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

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

Observação: No array aItens podem ser informados os demais campos correspondentes aos campos da tabela RHQ.

02. EXEMPLO DE UTILIZAÇÃO

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


User Function GPEA056AUT 

Local aCabec      := {}
Local aItens        := {}
Local aItemAux  := {}
Local cFil            := "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_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:




04. TABELAS UTILIZADAS

  • SRA - Funcionários
  • RHQ - Programação de Rateio