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