Histórico da Página
...
ExecAuto - PONA020 |
---|
#INCLUDE "PROTHEUS.CH" User Function ExPna020() Private lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "GPE" ConOut("Inicio: "+Time()) aAdd(aFeriado, {"P3_FILIAL" , xFilial("SP3","D MG 01") , Nil}) // Filial // 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 nOpcAuto := 3 //Chamada do ExecAuto If !lMsErroAuto ConOut("Fim : "+Time()) RESET ENVIRONMENT |
03. Informações Técnicas
...