Ponto de entrada responsável por gerar empenho de modo específico na rotina de O.S. Corretiva (MNTA420)

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

MNTA420

O.S. Corretiva

MNTA410

O.S. Manual

MNTA490

Liberação de O.s.

MNTA340

Confirmação de Serviço de Manutenção



Rotina(s) envolvida(s)

Nome Técnico

MNTA420Q

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 utilizado na rotina de O.S. Corretiva (MNTA420) para gerar empenho de modo específico.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Manual

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

Programa Fonte:

MNTA420.prx

Função:

MNTA420Q()

Retorno:


.T.


 

#Include 'Protheus.ch'

User Function MNTA420Q()

	If MsgYesNo("Deseja realizar empenho?")

		NGINTCOMPEST(STJ->TJ_DTMPINI, STJ->TJ_DTMPFIM, "MNTA420")

	EndIf

Return .T.