Árvore de páginas

Versões comparadas

Chave

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

Ponto de entrada que permite a customização de coluna em O.S. gerada 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

MNTA340D

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos




Informações
titleP.E. MNTA340G

Para que os campos adicionados tenham seu valor preenchido é necessário o uso do Ponto de Entrada MNTA340G que atribui valor aos campos adicionados

Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Confirmação (MNTA340) que permite a customização de coluna em O.S. gerada

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Confirmação

Programa Fonte:

MNTA340.prx

Função:

MNTA340D()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]Array

Recebe

a tabela temporária
ParamIXB[2]ArrayRecebe array com campos 

array com campos, dependendo do tipo de plano da ordem.

(Campos adicionados aqui serão exibidos na tela de

Conf.Plano Manut - Individual)

Retorno:

Retorno:

Nome

Tipo

Descrição

Obrigatório

 Nulo 

-

-

Array

Deve retornar o mesmo array recebido via parâmetro nas mesmas posições,

porém contendo as colunas a serem inseridas

( Os campos a serem inseridos devem ser estar presentes na tabela STJ previamente )

X-

 

Bloco de código
titleExemplo do Ponto de Entrada MNTA340D()
#Include 'Protheus.ch'
  
User Function MNTA340D()

	aTRB  
    aDBF := ParamIXB[1]
	aDBF := ParamIXB[2]

	aSize( aDBF, Len( aDBF ) + 1 )

	nPosDBF :=    // Parâmetro que armazena os campos da tabela temporária dependendo do tipo de plano da ordem
  
    If aScan( aDBF ,{|x| x[1] == "TJ_HOMPFIMTESTE" } )
	If nPosDBF > = 0
		aIns( aDBF, nPosDBF + 1 )
		aDBF[ nPosDBF + 1 ] := { "TJ_TIPO" , "C" , 3, 0 }
	EndIf

	aSize( aTRB, Len( aTRB ) + 1 )

	nPOsAtu := aScan( aTRB ,{|x| x[1] == "TJ_HOMPFIM" } )
	If nPOsAtu > 0
		aIns( aTRB, nPosAtu + 1 )
		aTRB[ nPosAtu + 1 ] := { "TJ_TIPO" , NIL, "Ponto de Entrada" , }
	EndIf

Return // Verifica se o campo já foi incluido
  
        aAdd( aDBF,  { 'TJ_TESTE', 'C',  7, 0 }) // Inclui o novo campo na lista
  
    EndIf
  
Return aDBF