01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:MNTA340A()
País:Brasil


02. DESCRIÇÃO

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.prw

Função:

MNTA340A()

Retorno:

NomeTipoDescriçãoObrigatório
aProdutos[nList]


Caracter

Código do produto.

-

03. DEMAIS INFORMAÇÕES

#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]


04. ASSUNTOS RELACIONADOS