MNTA130S - Schedule na rotina

Ponto de entrada que permite usar um Schedule na Rotina

MNTA130

MNTA130S - Schedule na rotina ( [ ] )

()

#INCLUDE "PROTHEUS.CH"   #INCLUDE "TOPCONN.CH"  User Function MNTA130S()Private cIniFile := GetAdv97()Private cCodEmp  := ""Private cCodFil  := ""   //Se via scheduleIf !(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()})EndIfReturn  .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.EndifIf NGCADICBASE('TR6_POSCO2','D','TR6',.F.)	lContador2 := .t.EndifMNT130Pr() // Importacao Convenio CTFMNTA635() // Consistencia de AbastecimentoRestArea(aArea)Return .T.