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: |
| ||||||||
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: |
|
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas