Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite utilizar um schedule na rotina de Importação dos Registros de Abastecimento (MNTA130)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA130

Importação dos Registros de Abastecimento




Rotina(s) envolvida(s)

Nome Técnico

MNTA130S

Ponto de Entrada 

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos




Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Importação dos Registros de Abastecimento (MNTA130) que permite utilizar um schedule na rotina.

Localização:

SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Importação de Abastecimento

Programa Fonte:

MNTA130.prx

Função:

MNTA130S()

Retorno:


.T.


 

Exemplo do Ponto de Entrada MNTA130S()
#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.