Gerar Indicadores em Schedule - SFCA008

#INCLUDE 'TOTVS.CH'
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'PARMTYPE.CH'
#INCLUDE "RWMAKE.CH"
User Function usfca008()

Local aAutoPar := {}
Local aHelp    := {}

Local cData    := ''
Local cMetaIni := PadR("",25)
Local cMetaFim := PadR("",25, "z")
Local dData    := date()
Local cTime	   := time()
Local lSetup   := .T.
Local lExtra   := .T.
Local lParada  := .T.
Local lRefugo  := .T.

Private lMsErroAuto		:= .F.

cMetaIni := 'TT1                      '
cMetaFim := 'TT1                      '

cData := '31/10/2025'
dData := CTOD(cData)
cTime := '23:00:00'
 
// Seta job para empresa e filial desejadas caso não seja chamada via menu do Protheus
If !(Type("cFilAnt") == "C" .and. TCIsConnected())
    OpenSm0()
    RPCSetType(3)
    RPCSetEnv("99","01",,,"PCP",,,,,,)
EndIf

aadd(aAutoPar,{;
                    cMetaIni,;  //Meta Inicial
                    cMetaFim,;  //Meta Final
                    dData,;     //Data Referência
                    cTime,;     //Hora Referência
                    lSetup,;    //Considera Preparação altera Eficiência
                    lExtra,;    //Considera Tempo Extra como Disponível
                    lParada,;   //Considera Parada altera Eficiência
                    lRefugo})   //Considera Fator Refugo

MSExecAuto({|x| SFCA008AP(x)},aAutoPar) //Gera Indicadores
  
If lMsErroAuto
    aHelp := GetHelpPCP("Geração dos Indicadores não foi concluida com sucesso!") //Mensagem padrão que será assumida como problema, caso não encontrar um help.
        //Essa função retornará um array com as informações do help, onde:
        //aHelp[1] - Código do help
        //aHelp[2] - Problema do help (se estiver vazio, retorna a mensagem padrão)
        //aHelp[3] - Solução do help
        ConOut(" ----- Não Foi Concluido com Sucesso! -----")
Else          
    ConOut(" -------- Concluido com Sucesso! -------- ")
EndIf

Return .T.