Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que retorna a quantidade de dias para a próxima manutenção na rotina Informa Contador (MNTA830)

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

MNTA830

Informa

Rotina(s) envolvida(s)

Nome Técnico

NGVCTMAN

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 Informa Contador (MNTA830) chamado após a confirmação do acerto do contador e retorna a quantidade de dias para a próxima manutenção

Programa Fonte:

MNTA830.prx
Localização:SIGAMNT: Atualizações/Controle de Oficina/Contador/Informa

Função:

NGVCTMAN()
Retorno:

Nome

Tipo

Descrição

Obrigação

nDiasNuméricoNúmero de dias para a próxima manutençãoX
Exemplo do Ponto de Entrada NGVCTMAN()
#Include 'Protheus.ch'

User Function NGVCTMAN()

	Local nDias := 0
	Local dDtProx := '  /  /  '

	dbSelectArea('STF')
	dbSetOrder(1)
	dbSeek(xFilial('STF')+ST9->T9_CODBEM)
	If STF->TF_UNENMAN == 'D'
		dDtProx := STF->TF_DTULTMA + STF->TF_TEENMAN
		nDias := dDtProx - dDataBase
		If nDias < 0
			MsgInfo('Manutenção atrasada', 'Atenção')
		EndIf
	EndIf

Return nDias