Histórico da Página
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: |
| ||||||||
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: | |||
Nome | Tipo | Descrição | Obrigatório |
Bloco de código |
---|
Exemplo:
#Include 'Protheus.ch'
User Function CN120ALT()
Local aCab:= PARAMIXB[1]
Local cTipo:= PARAMIXB[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCab
| ||
#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. |