Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada que realiza validações antes do fechamento de OS no Retorno em Lote (MNTA401)

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

MNTA401

Retorno em Lote


Rotina(s) envolvida(s)

Nome Técnico

MNTA4015

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 em Lote (MNTA401) que permite realizar validações antes do Fechamento de OS

Programa Fonte:

MNTA401.prx
Localização:SIGAMNT: Atualizações/Controle de Oficina/Retorno de OS/Retorno em Lote

Função:

MNTA4015()
Parâmetros:
NomeTipoDescrição
ParamIXB[1]Caracter

Código da Ordem de Serviço

ParamIXB[2]CaracterNúmero do Plano da OS

Retorno:

NomeTipoDescriçãoObrigatório
lRetLógicoSe as informações estiverem de acordo com as validações, retorna verdadeiro (.T.) e realiza a finalização da OS, caso contrário, retorna falso (.F.) e a finalização é canceladaX
Bloco de código
languagesql
titleExemplo do Ponto de Entrada MNTA4015()
#Include 'Protheus.ch'

User Function MNTA4015()

	Local lRet   := .T.
	Local cOrdem := ParamIXB[1]
	Local cPlano := ParamIXB[2]

	dbSelectArea('STJ')
	dbSetOrder(1)
	If dbSeek( xFilial('STJ')+cOrdem+cPlano )
		// Validações
		If STJ->TJ_TIPOOS <>== 'B'
			Help(,, 'Atenção',, 'Finalização da OS '+cOrdem+' cancelada', 1, 0)
			lRet := .F.
		EndIf
	EndIf

Return lRet