Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jean Costa

Gravado em

Chave

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

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

MNTA340MNTA420

Confirmação do Plano de ManutençãoCadastro de O.S. Corretiva

Rotina(s) envolvida(s)

Nome Técnico

MNTA420
CoCadastro de O.S. CorretivaMNTA340
Confirmação do Plano de Manutenção

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

produto

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/

Plano Manutenção/Confirmação

Ordem de Serviço/Corretiva

Eventos:

Cadastro de OS Corretiva (MNTA420)

Confirmação do Plano de Manutenção (MNTA340

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

Programa Fonte:

MNTA340

MNTUTIL_OS.

PRX

PRW

Função:

MNTA340H

PRODMNT1()

Retorno:

NomeTipoDescriçãoObrigatório
cProd

aProd

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

 

Bloco de código
languagesql
Exemplo:

#Include 'PROTHEUS.ch'

User Function MNTA340HPRODMNT1()

	    Local cProdaProdutos := ""

	PARAMIXB[1]
    Local nX

    If IsInCallStack("MNTA420NGFINAL") .Or. IsInCallStack("a340TER") .AndOr. MsgYesNoIsInCallStack("Deseja alterar o código do produto Terceiro?")
		cProdNG420ALTE")
        If !Empty(aProdutos) .And. aProdutos[1] == "TERCEIROS"
            For nX := 1 To Len(aProdutos)
                aProdutos[nX] := "NEWPROD"
	NILPROD"
            Next nX
        EndIf
    EndIf

Return cProdaProdutos