Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Manufatura | ||||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||||
Rotina: |
| ||||||||||
Chamados Relacionados | 11.80.19: TWHLZI | ||||||||||
País(es): | Todos | ||||||||||
Banco(s) de Dados: | Todos | ||||||||||
Sistema(s) Operacional(is): | Todos |
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: |
|
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]
