PE MNTA130S - Permite usar um schedule na rotina de Importação dos Registros de Abastecimento (MNTA130)

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOPCONN.CH"
 
User Function MNTA130S()
 
    Private cIniFile := GetAdv97()
    Private cCodEmp  := ""
    Private cCodFil  := ""
 
    //Se via schedule
    If !(Type("oMainWnd")=="O")
        //Define Empresa e Filial
 
        cCodEmp := GetPvProfString("ONSTART","Empresa","",cInIfile) //"Empresa"
        cCodFil := GetPvProfString("ONSTART","Filial","",cInIfile) //"Filial"
        Conout("Empresa"+": "+cCodEmp) //"Empresa"
        Conout("Filial"+".: "+cCodFil) //"Filial"
        Conout(" ")
        If cCodEmp == '-1' .Or. cCodFil == '-1'
            cEcho := MsgUserLog("Configuração invalida de Filial","Verificar Empresa/Filial nos Jobs") //"Configuração invalida de Filial"###
                                                                                        //"Verificar Empresa/Filial nos Jobs"
            Conout(cEcho)
            Return .F.
        Endif
        //Nao consome licensas
        RPCSetType(3)
        //Abre empresa/filial/modulo/arquivos
        RPCSetEnv(cCodEmp,cCodFil,"","","SGA","",{"TAA","TC9","QAA"})
        Conout(" ")
        Conout("Iniciando a Importação") //"Iniciando a Importação"
        Conout("=======================================================")
        Conout("Data"+":"+DtoC(MsDate())+" "+"Hora"+": "+Time()) //"Data"###"Hora"
 
        MNTA130F()
        Conout("=======================================================")
    Else
        Processa({ || MNTA130F()})
    EndIf
 
Return  .T.
 
Function MNTA130F()
 
    Local aArea := GetArea()
    Private lTanqBomba := .F., lContador2 := .F.
    Private cArquivo := 'C:\NGAP10\Protheus_Data\DicFrota\CTF.txt'
 
    If NGCADICBASE('TR6_TANQUE','D','TR6',.F.) .AND. NGCADICBASE('TR6_BOMBA','D','TR6',.F.)
        lTanqBomba := .T.
    Endif
    If NGCADICBASE('TR6_POSCO2','D','TR6',.F.)
        lContador2 := .T.
    Endif
 
    MNT130Pr() // Importacao Convenio
    CTFMNTA635() // Consistencia de Abastecimento
 
    RestArea(aArea)
 
Return .T.