Histórico da Página

Aviso
Essa alteração foi realizada nas versões 11.8 e 12.1.17.

Necessidade de um ponto de entrada que faça validação ao incluir ou alterar uma solicitação de serviço, não permitindo salvar se o retorno for falso.

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura

Módulo:

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

Rotina:

RotinaNome Técnico
MNTA280Solicitação de Serviços
MNTSRClasse de Solicitações de Serviço

Países:

Todos.

Bancos de Dados:

Todos.

Sistemas Operacionais:

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada chamado após clicar no botão Ok para confirmação para rotina de inclusão ou alteração de SS.

Programa Fonte:

MNTA280.prx / MNTSR.prw

Função:

MNTA280I()

Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]

Numérico

Define o processo em execução, como:

3 - Inclusão
4 - Alteração
5 - Exclusão

Retorno:

TipoDescrição
CaracterMensagem de erro que deve ser apresentada ao usuário, caso exista uma inconsistência. 

Bloco de código

language	sql
title	Exemplo do P.E. MNTA280I
linenumbers	true

#Include 'Protheus.ch'

User Function MNTA280I

	Local lRet    := .T.
	Local cError  := ''
	Local cUser   := UsrRetName( RetCodUsr() ) // Usuario Logado
	Local nOption := ParamIXB[1]

	If nOption == 3 .And. Trim( TQB->TQB_USUARI ) == Trim( cUser )

		cError := 'Inclusão de solicitação de serviço não permitida!'

	EndIf

Return cError

Árvore de páginas

Versões comparadas

Versão antiga 8

Nova versão 9

Chave

Características do Requisito

Ponto de Entrada