Histórico da Página
PE MNTA280I Confirmação para rotina
Ponto de entrada que permite adicionar validações aos processos de inclusão
ou, alteração e exclusão de
SSsolicitaçõ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: |
| - Inclusão
| SS
| ||||||
Chamados Relacionados | MNG-4690 | ||||||||
| |||||||||
Países | País(es): | Todos. | |||||||
Bancos de Dados: | Todos. | ||||||||
Sistemas Operacionais Sistema(s) Operacional(is): | 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
User Function MNTA280I
Local lRetorno := .T.lRetorno := MsgYesNo("Atenção", "Deseja realmente incluir/alterar esse registro?")
Return lRetorno
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'Protheus.ch'
User Function MNTA280I
Local lRet := .T.
Local cError := ''
Local cUser := UsrFullName( RetCodUsr() ) // Usuario Logado
Local nOption := ParamIXB[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