Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite incluir novas validações no processo de Reabertura de O.S.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA880

Reabertura de O.S.

Ponto de Entrada

Descrição:

Ponto de entrada acionado no momento da seleção da O.S. que será reaberta. Permitindo incluir novas validações neste processo.

Programa Fonte:

MNTA880.prx

Parâmetros:
NomeTipoDescrição
ParamIXB[1]stringCódigo da O.S. que será reaberta.

Retorno:

Tipo

Descrição

boolean

Indica se a O.S. foi validada para reabertura.

 

Exemplo: P.E. MNTA8802
#Include 'Totvs.ch'   

User Function MNTA8802()

    Local cOrdServ := ParamIXB[1]
	Local lRet     := .T.
	
	dbSelectArea( 'STJ' )
	dbSetOrder( 1 )
	If dbSeek( FWxFilial( 'STJ' ) + cOrdServ )

		If STJ->TJ_TIPOOS == 'B'

			MsgStop( 'Abertura de O.S. do tipo BEM não permitida.', 'Atenção' )
			
			lRet := .F.

		EndIf
 
    EndIf

Return lRet