Histórico da Página
Ponto de entrada que permite adicionar validações aos processos de inclusão, alteração e exclusão de solicitações de serviço.
Características do Requisito
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.
Linha de Produto: | Microsiga | Protheus. | ||
Segmento: | Manufatura | |||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | |||
Rotina: |
| |||
Chamados Relacionados | MNG-4712 | |||
| ||||
Países | País(es): | Todos. | ||
Bancos de Dados: | Todos. | |||
Sistema(s) Operacional(is) 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() / ValidBusiness() | ||||||
Localização: | Acessar o módulo Manutenção de Ativos - SIGAMNT em: Atualizações > Controle de Oficina > Solicitação de Serviço > Solicitação. | ||||||
Parâmetros: |
| ||||||
Retorno: |
.T. ou .F. (logico)
.T. indica que a verificação está correta, .F. indica que há algum problema e/ou não deverá prosseguir
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'Protheus.ch' User Function MNTA280I Local lRet Local lRetorno := .T. Local cError := '' Local cUser lRetorno:= UsrFullName( RetCodUsr() ) // Usuario Logado Local nOption := MsgYesNo("Atenção", "Deseja realmente incluir/alterar esse registro?") Return lRetornoParamIXB[1] If nOption == 3 .And. Trim( M->TQB_USUARI ) == Trim( cUser ) cError := 'Inclusão de solicitação de serviço não permitida!' EndIf Return { Empty( cError ), cError } |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas