Histórico da Página
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: |
| ||||||||||||||||||||
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: |
|
Bloco de código | ||
---|---|---|
| ||
#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] |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas