Linha Microsiga Protheus

Árvore de páginas

PERMITE ALTERAR O PRODUTO DO TIPO TERCEIRO NA 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

MNTA420

Cadastro de O.S. Corretiva

Rotina(s) envolvida(s)

Nome Técnico

MNTA420
CoCadastro de O.S. Corretiva

Issues Relacionadas

11.80: MNG-4953

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada que permite alterar o insumo do tipo terceiro previsto na ordem de serviço corretiva antes da geração da solicitação de compras relacionada. Em suma, permite-se que o "produto" seja alterado antes da geração da SC.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

Eventos:

Cadastro de OS Corretiva (MNTA420)

Funções Genéricas de O.S. (MNTUTIL_OS)

Programa Fonte:

MNTUTIL_OS.PRW

Função:

PRODMNT1()

Retorno:

NomeTipoDescriçãoObrigatório

aProd

ArrayNome do código que substituirá o código relacionado ao terceiroSim

 

Exemplo:

#Include 'PROTHEUS.ch'

User Function PRODMNT1()

    Local aProdutos := PARAMIXB[1]
    Local nX

    If IsInCallStack("NGFINAL") .Or. IsInCallStack("a340TER") .Or. IsInCallStack("NG420ALTE")
        If !Empty(aProdutos) .And. aProdutos[1] == "TERCEIROS"
            For nX := 1 To Len(aProdutos)
                aProdutos[nX] := "NILPROD"
            Next nX
        EndIf
    EndIf

Return aProdutos