Exemplo Rotina Automática (ExecAuto) - PONA020

Operação

3 - Inclusão
4 - Alteração
5 - Exclusão

Array com as informações do feriado

aFeriado[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

#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