Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que grava os registros importados na rotina de Consistência de Abastecimento (MNTA635)

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

MNTA635

Consistência de Abastecimento


Rotina(s) envolvida(s)

Nome Técnico

MNTA6352

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 Consistência de Abastecimento (MNTA635) que, por exemplo, checa inconsistências específicas do cliente

Programa Fonte:

MNTA635.prx
Localização:SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Consistência de Abastecimento

Função:

MNTA6352()

Retorno:

.T.
Exemplo do Ponto de Entrada MNTA6352()
#Include 'Protheus.ch'

User Function MNTA6352()
	Local nKM := 0	
	Local nMedia:= 0
	Local nTolMax,nTolMinnKM := NGCONTPER(cFrota,DTOS(aRep2[nx][10]),aRep2[nx][11])
	nMedia := (nKm/aRep2[nx][7])
	nTolMax := ST9->T9_MEDIA * (1 + (GetMv("MV_NGPRAUT") / 100))
	nTolMin := ST9->T9_MEDIA * (1 - (GetMv("MV_NGPRAUT") / 100))
	
	If Len(aRep2[nx]) > 12	
		If aRep2[nx][13] == " 90"		
			Return .T.	
		EndIf
	EndIf	
	If nMedia < nTolMin .Or. nMedia > nTolMax	
		Mnt635Gra(aRep2,nx," 90",cFIL)
	EndIf	
	
Return .T.