Histórico da Página
Ponto de entrada que permite validar a inclusão de solicitação de compras.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Manufatura | ||||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||||
Rotina: |
|
Ponto de Entrada
Descrição: | Ponto de entrada que permite validar a inclusão de solicitação de compras. | ||||||
Localização: | SIGAMNT: Atualizações > Controle de Oficina > Ordem de Serviço > Corretiva SIGAMNT: Atualizações > Controle de Oficina > Ordem de Serviço > Manual | ||||||
Programa Fonte: | MNTUTIL_OS.prw | ||||||
Função: | NGESTCOMP() | ||||||
| Parâmetros: |
| ||||||
| Retorno: |
|
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#include 'PROTHEUS.ch'
User Function NGNOGERASC()
Local cProgram := ParamIXB[1]
Do Case
Case cProgram == 'MNTA410'
// Não gera S.C. qaundo acionado pelo rotina O.S. Preventiva.
lRet := MsgYesNo( 'Deseja cancelar a geração da S.C. para a O.S. Preventiva?', 'Atenção' )
Case cProgram == 'MNTA420'
// Não gera S.C. qaundo acionado pelo rotina O.S. Corretiva.
lRet := MsgYesNo( 'Deseja cancelar a geração da S.C. para a O.S. Corretiva?', 'Atenção' )
OtherWise
// Gera S.C. quando acionado pelas demais rotinas.
lRet := .F.
End Case
Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas