Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que valida a exclusão de registro das Solicitações de Serviço (MNTA280)

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

MNTA280

Solicitação


Rotina(s) envolvida(s)

Nome Técnico

MNTA280E

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 Solicitação (MNTA280) que realiza a validação da exclusão dos registros da rotina.

Programa Fonte:

MNTA280.prx
Localização:SIGAMNT: Atualizações/Controle de Oficina/Solicitação de Serviço/Solicitação

Função:

MNTA280E()

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRetLógicoCaso as informações estejam de acordo com o cadastro, retorna verdadeiro (.T.) e permite a exclusão, caso contrário, retorna falso (.F.) e a exclusão não é feitaX
Exemplo do Ponto de Entrada MNTA280E()
#Include 'Protheus.ch'

/* É possível realizar qualquer tipo de exclusão das solicitações de serviço.
O exemplo a seguir verifica se o usuário é o mesmo que realizou a abertura das 
solicitações de serviço ou se faz parte do grupo de administradores. */

User Function MNTA280E()

	Local cCodUser := RetCodUsr() //Retorna o código do usuário corrente
	Local lRet := .T.

	If AllTrim( TQB->TQB_CDSOLI ) != AllTrim( cCodUser ) .And. !FwIsAdmin() //Verifica se o usuario é o mesmo que abriu a SS.
		lRet := !MsgYesNo( "O usuário não é o mesmo que abriu a solicitação de serviço ou não pertence ao grupo de Administradores. Deseja excluir mesmo assim?" )
	EndIf

Return lRet