Histórico da Página
Aviso | ||
---|---|---|
| ||
|
Aviso | ||
---|---|---|
| ||
|
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: |
| ||||||||||
Chamados Relacionados | 12.1.13: TVSSPY 11.80.18:TUWLZRV127 TVSSPY | ||||||||||
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: |
|
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