Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Tainã Alberto Cardoso

Gravado em

comparado com

Nova versão 3

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




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]ArrayRecebe array com campos, dependendo do tipo de plano da ordem
ParamIXB[2]ArrayCampos da tabela, usado para realizar a confirmação a tabela temporária
ParamIXB[23]ArrayRecebe array com campos Campos usados na montagem do browse para cadastrar informações e para o relatório 

Retorno:

Nome

Tipo

Descrição

Obrigatório

 Nulo 

-

-

-

 

Bloco de código
titleExemplo do Ponto de Entrada MNTA340D()
#Include 'Protheus.ch'
 
User Function MNTA340D()
 
    aDBF := ParamIXB[1]    // Armazena os campos da tabela temporária dependendo do tipo de plano da ordem
    aDBF1 := ParamIXB[2]   // Armazena os campos da tabela temporária para realizar a confirmacao
    aDBF001 := ParamIXB[3] // Armazena os campos que vao ser usados na montagem de browse para cadastrar informacoes, e para relatorio
 
    nPosDBF := aScan( aDBF ,{|x| x[1] == "TJ_TIPO" } )
    If nPosDBF > 0
        aAdd( aDBF,  { 'TJ_TIPO', 'C',  9, 0 })
    EndIf
 
    nPosDBF := aScan( aDBF1 ,{|x| x[1] == "TJ_DESCR" } )
    If nPosDBF > 0
        aAdd( aDBF,  { 'TJ_DESCR', 'C',  50, 0 })
    EndIf
 
    nPosDBF := aScan( aDBF001 ,{|x| x[1] == "NUMSEQ" } )
    If nPosDBF > 0
        aAdd( aDBF,  { 'NUMSEQ', 'C',  5, 0 })
    EndIf
 
Return