Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 8

changes.mady.by.user Marco Nakahara Nakazawa

Gravado em

comparado com

Nova versão 9

changes.mady.by.user Marco Nakahara Nakazawa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


CONTEÚDO

  1. Visão Geral
  2. Descrição
  3. Informações Técnicas
  4. Exemplo

01. VISÃO GERAL

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:SIGAGPE - Recursos Humanos
Função:PONA020 - Cadastro de Feriados
Abrangências:Microsiga Protheus 12
Versões:Microsiga Protheus 12
Sistemas Operacionais:Todos
Compatível com as Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Todos

02. DESCRIÇÃO

Função utilizada para inclusão, alteração ou exclusão de um feriado via rotina automática (ExecAuto).

03. INFORMAÇÕES TÉCNICAS

nOpcAuto3 - Inclusão
4 - Alteração
5 - Exclusão
aFeriadoaFeriado[1] Filial
aFeriado[2] Data do Feriado
aFeriado[3] Descrição
aFeriado[4] Feriado é Fixo?
aFeriado[5] Tipo de Hora extra para o Feriado
aFeriado[6] Tipo de Hora extra Noturna para o Feriado

04. EXEMPLO

ExecAuto - PONA020

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function ExPna020()
    Local aFeriado := {}
    Local nOpcAuto := 0

    Private lMsErroAuto := .F.

    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "GPE"

    ConOut("Inicio: "+Time())
    ConOut(PadC("Rotina Automatica Cadastro de Feriados",80))

    aAdd(aFeriado, {"P3_FILIAL" , xFilial("SP3","D MG 01") , Nil})  // Filial
    aAdd(aFeriado, {"P3_DATA" , sToD("20200101") , Nil})  // Data do Feriado
    aAdd(aFeriado, {"P3_DESC" , "Ano Novo" , Nil})  // Descrição
    aAdd(aFeriado, {"P3_FIXO" , "S" , Nil})  // Feriado Fixo
    aAdd(aFeriado, {"P3_TPEXT" , "4" , Nil})  // Tipo de Hora extra para o Feriado
    aAdd(aFeriado, {"P3_TPEXTN" , "8" , Nil})  // Tipo de Hora extra Noturna para o Feriado

    // nOpcAuto
    //3 Inclusão
    //4 Alteração
    //5 Exclusão

    nOpcAuto := 3

    //Chamada do ExecAuto
    MSExecAuto( {|x,y| PONA020(x,y)}, aFeriado, nOpcAuto )

    If !lMsErroAuto
        ConOut(PadC("Transferencia efetuada!",80))
    Else
        ConOut(PadC("Erro no cadastro!",80))
    EndIf

    ConOut("Fim : "+Time())

    RESET ENVIRONMENT
Return NIL

HTML
<!-- 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>