Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite realizar customização na Finalização do Retorno da OS no Retorno Mod. 2 (MNTA435)

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

MNTA435

Retorno Mod. 2


Rotina(s) envolvida(s)

Nome Técnico

MNTA4352

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 de Retorno Mod. 2 (MNTA435) que consiste em verificar se o produto atrelado à OS possui uma requisição de solicitação ao armazém. Caso possua é impossível finalizar a OS, caso contrário, o processo de finalização de retorno da ordem de serviço é processado

Programa Fonte:

MNTA435.prx
Localização:SIGAMNT: Atualizações/Controle de Oficina/Retorno de OS/Retorno Mod. 2

Função:

MNTA4352()
Parâmetros:
NomeTipoDescrição
ParamIXB[1]NuméricoIndica o retorno da validação. Inicialmente a variável conterá 1, caso seja feita alguma validação deve-se atribuir 2 à variável indicando que a O.S. não poderá ser finalizada

Retorno:

Nome

Tipo

Descrição

Obrigatório

nRetornoNumérico

1 - Não foi realizada nenhuma validação

2 - Foi realizada validação

X
Exemplo do Ponto de Entrada MNTA4352()
User Function MNTA4352()

	Local cQuery
	Local cAliasQry := GetNextAlias()
	Local nRetorno  := ParamIXB[1]

	cAliasQry := GetNextAlias()
	
	cQuery := " SELECT CP_PREREQU FROM " + RetSqlName( "SCP" )
	cQuery += " WHERE SUBSTRING(CP_OP, 1, 6)  = '" + STJ->TJ_ORDEM + "'"
	cQuery += " AND CP_PREREQU = 'S' "
	cQuery += " AND D_E_L_E_T_ <> '*' "
	
	cQuery := ChangeQuery(cQuery)
	
	dbUseArea( .T., "TOPCONN", TCGENQRY(,, cQuery), cAliasQry, .F., .T.)
 
	dbSelectArea( cAliasQry )
	If (cAliasQry)->CP_PREREQU == "S"
		MsgInfo( "A O.S. não poderá ser finalizada pois existe uma S.A para o produto." )
		nRetorno := 2
	EndIf
	
	(cAliasQry)->( dbCloseArea() )
	
Return nRetorno