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]
Local cOP := ParamIXB[2]
Local cProd := ParamIXB[3]
Local cLocal := ParamIXB[4]
Local lRet := .T.
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