Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

Rotina

Nome Técnico

MNTUTIL_OS

Funções Genéricas relacionadas à O.S.

Rotinas RelacionadasNome Técnico
MNTA410O.S. Preventiva
MNTA420O.S. Corretiva

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:
NomeTipoDescrição
PARAMIXB[1]CaracterIndica rotina que realizou a chamada do P.E.
Retorno:
TipoDescrição
Lógico

Retorna .T. para a solicitação do compras não ser gerada.

Bloco de código
languagesql
titleExemplo do P.E. NGNOGERASC
linenumberstrue
#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 := .T.

        Case cProgram == 'MNTA420'

            // Não gera S.C. qaundo acionado pelo rotina O.S. Corretiva.
            lRet := .T.

        OtherWise

            // Gera S.C. qaundo acionado pelas demais rotinas.
            lRet := .F.

    End Case

Return lRet