Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Diego Oliveira

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 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:

MNTA340MNTUTIL_OS.PRXPRW

Função:


MNTA340HPRODMNT1()

Retorno:

NomeTipoDescriçãoObrigatório

cProdaProd

CaracterArrayNome do terceiro código que substituirá o anteriorcódigo relacionado ao terceiroSim

 


Bloco de código
languagesql
Exemplo:

#Include 'PROTHEUS.ch'

User Function MNTA340HPRODMNT1()

	    Local cProdaProdutos := ""

	If  PARAMIXB[1]
    Local nX

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

Return cProdaProdutos