Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alexandre dos Santos

Gravado em

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:
Indica rotina que realizou a chamada do P.E
NomeTipoDescrição
PARAMIXB[1]CaracterOrdem de Produção relacionada a S.C.
PARAMIXB[2]CaracterProduto que irá gerar a S.C.
PARAMIXB[3]CaracterLocal de estoque em que o produto será requisitado.
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 cOP      := ParamIXB[1]
    Local cProd    := ParamIXB[2]
    Local cLocal   := ParamIXB[3]
    Local cProgram := FunName()
    Local lRet     := .T.

    Do Case

        Case cProgram == 'MNTA410'

            // Não gera S.C. qaundo acionado pelo rotina O.S. Preventiva.
            lRet := MsgYesNo( .T.'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 .T.S.C. para a O.S. Corretiva?', 'Atenção' )

        OtherWise

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

    End Case

Return lRet