Histórico da Página

#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