Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que altera o código do produto para solicitação de compra e armazém para insumos do tipo 'terceiros'.

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

MNTA340

Confirmação

Rotina(s) envolvida(s)

Nome Técnico

MNTA340A

Ponto de Entrada

MNTA420

O.S. corretiva

MNTA410O.S. manual
MNTA720O.S. em lote
MNTA275Liberação de O.S.
MNTA265Alteração de O.S.
MNTA990Programação de O.S.

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos




Ponto de Entrada

Descrição:

Ponto de entrada executado para alterar o código do produto quando gerar solicitação de compra e armazém para insumos do tipo terceiros.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Confirmação

Programa Fonte:

MNTA340.prx

Função:

MNTA340A()

Retorno:

Nome

Tipo

Descrição

Obrigatório

aProdutos[nList]


Caracter

Código do produto.

-

 

Exemplo do Ponto de Entrada MNTA340A()
#Include 'Protheus.ch'

User Function MNTA340A()

Local oDlg
Local aProdutos := {}
Local nList := 1

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

      aProdutos := {'001','002'}

      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]