Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para validação do cancelamento de Ordem de Serviço (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

Corretiva

Rotina(s) envolvida(s)

Nome Técnico

MNTA420F

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 para validação do cancelamento da Ordem de Serviço, verificando por exemplo alguma condição para que a mesma não seja cancelada.

Localização:

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

Programa Fonte:

MNTA420.prx

Função:

MNTA420F()

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

Define se a O.S. pode ser cancelada ou não

X

 

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

User Function MNTA420F()

	Local lRet := .T.

	If !MsgYesNo("Deseja realmente cancelar a OS: "+STJ->TJ_ORDEM+" ?","ATENÇÃO")
		MsgInfo("A ordem " + STJ->TJ_ORDEM + " não será cancelada.")
		lRet := .F.
	Else
		MsgInfo("A ordem " + STJ->TJ_ORDEM + " será cancelada.")
		lRet := .T.
	EndIf

Return lRet