Histórico da Página
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.
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íses: | Todos. | ||||||
Bancos de Dados: | Todos. | ||||||
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() | |||||||
Parâmetros: |
| |||||||
Retorno: |
| 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 := MsgYesNo("Atenção", "Deseja realmente incluir/alterar esse registro?") Return lRetornoUsrRetName( RetCodUsr() ) // Usuario Logado Local nOption := ParamIXB[1] If nOption == 3 .And. Trim( TQB->TQB_USUARI ) == Trim( cUser ) cError := 'Inclusão de solicitação de serviço não permitida!' EndIf Return cError |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas