Histórico da Página
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: |
| ||||||||||
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: |
|
|
|
|
|
Bloco de código | ||
---|---|---|
| ||
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 |