Histórico da Página
Ponto de entrada que
geraaltera o código do produto para solicitação de compra e armazém
na rotina de Confirmação (MNTA340).
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 na rotina de Confirmação (MNTA340) que gera para alterar o código do produto quando gerar solicitação de compra e armazém | ||||||||||
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#Include "'Protheus.CH"ch' User Function MNTA340A() Local oDlg Local aProdutos := {} lRet := .F. MsgStop("Teste do Ponto de Entrada MNTA340A") Return lRetLocal 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