Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Giovana Niehues

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Tainã Alberto Cardoso

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada que

gera

altera 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:

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 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:

lRet

Nome

Tipo

Descrição

Obrigatório

aProdutos[nList]


Caracter

Código do produto.

Lógico

-

-

 

Bloco de código
titleExemplo do Ponto de Entrada MNTA340A()
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]