Linha Microsiga Protheus

Árvore de páginas

Este Ponto de Entrada é Válido a partir do Release 11.80.18 e superiores

 

Este Ponto de Entrada é Válido a partir do Release 12.1.7 e superiores

 

CANCELAMENTO DAS SOLICITAÇÕES DE SERVIÇO

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

Programa de Inclusão de SS

Rotina(s) envolvida(s)

Nome Técnico

MNTA280

Programa de Inclusão de SS

MNTA296

Nova Distribuição de SS

Chamados Relacionados

12.1.13: TVSSPY

11.80.18:TUWLZR

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada que possibilita validar se podem ser canceladas as solicitações de serviço.

Localização:

SIGAMNT: Atualizações/Solicitação de Serviço/Distribuição

Eventos:

Solicitação (MNTA280)

Programa Fonte:

MNTA280.PRX

Função:

MNTA280H()

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

Indica se permite excluir.

Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function MNTA280H()

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 cancelar mesmo assim?" )


      EndIf

 

Return lRet