Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada responsável por gerar empenho de modo específico na O.S. 

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

Parâmetros:

PARAMIXBTipoDescrição
PARAMIXB[1]CaractereRotina que chamou o P.E.

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/Plano Manutenção/Liberação de O.s.

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Confirmação

Programa Fonte:

MNTA340.prx

MNTA410.prx

MNTA420.prx

MNTA490.prx

Função:

MNTA420Q()

Retorno:


.T.


 

Exemplo do Ponto de Entrada MNTA420Q
#Include 'Protheus.ch'

User Function MNTA420Q()

	Local cRotina := PARAMIXB[1]

	If MsgYesNo("Deseja realizar empenho?")

		NGINTCOMPEST(STJ->TJ_DTMPINI, STJ->TJ_DTMPFIM,  cRotina)

	EndIf

Return .T.