Linha Microsiga Protheus

Árvore de páginas

ALTERAÇÃO DE CÓDIGO DE INSUMO NA SOLICITAÇÃO DE ARMAZÉM 

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

MNTA720

Cadastro de O.S. em Lote

Rotina(s) envolvida(s)

Nome Técnico

MNTA720

Cadastro de O.S. em Lote

MNTA340

Confirmação do Plano

Chamados Relacionados

11.80.19: TWHLZI

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada que possibilita a alteração do código do Insumo na geração da SA na tabela SCP (Solicitações de Armazém) ou de SC na tabela SC1 (Solicitações de Compra).

Localização:

SIGAMNT: Atualizações/Controle de Pneus/O.S. Pneus/O.S. Lote

Eventos:

Cadastro de O.S. em Lote (MNTA720)

Programa Fonte:

MNTA720.PRX

MNTA340.PRX

Função:

MNTA340A()

Retorno:

NomeTipoDescriçãoObrigatório
aProdutos
ArrayRetorna o Insumo selecionado.Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function MNTA340A()

Local cTerceiro := GetMv("MV_PRODTER") //Para incluir mais de um Terceiro no parâmetro, dividir ambos com barra ( / ).
Local oDlg
Local aProdutos := {}
Local nList := 1

      DEFINE MSDIALOG oDlg TITLE "Selecione o Insumo" From 3,0 TO 150,320 COLOR CLR_BLACK,CLR_WHITE PIXEL

      aProdutos := NGProdMNT(cTerceiro)

      oList:= tListBox():New(10,10,{|u|if(Pcount()>0,nList:=u,nList)} ,aProdutos,100,100,,oDlg,,,,.T.)
      oList:Align := CONTROL_ALIGN_ALLCLIENT

      Activate MsDialog oDlg ON INIT EnchoiceBar(oDlg,{|| oDlg:End()},{|| oDlg:End()}) Centered

Return aProdutos[nList]