Permite incluir e remover campos que serão apresentados sobre a O.S da Programação.

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
MNTA990	Programação OS

Issues Relacionadas

12.1.17 / DNG-1194

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Permite incluir e remover campos que serão apresentados sobre a O.S da Programação.

Localização:

SIGAMNT: Atualizações/Controle de Oificina/Plano de Manutenção/Programação OS

Eventos:

Proframação OS (MNTA990)

Programa Fonte:

MNTA990.PRW

Função:

MNTA990CAD()

Parametros:

Nome

Tipo

Descrição

Obrigatório

aTrb1

Array

Nome	Tipo	Descrição
aTrb1[1]	Caracter	Nome do campo
aTrb1[2]	Nil	Nil
aTrb1[3]	Caracter	Titulo do campo

Sim

Nome

Tipo

Descrição

Obrigatório

aDbf1

Array

Nome	Tipo	Descrição
aDbf1[1]	Caracter	Nome do Campo
aDbf1[2]	Caracter	Tipo do campo
aDbf1[3]	Numerico	Tamanho do campo
aDbf1[4]	Numerico	Nível do campo

Sim

Nome

Tipo

Descrição

Obrigatório

aTrb2

Array

Nome	Tipo	Descrição
aTrb2[1]	Caracter	Nome do campo
aTrb2[2]	Nil	Nil
aTrb2[3]	Caracter	Titulo do campo

Sim

Nome

Tipo

Descrição

Obrigatório

aDbf2

Array

Nome	Tipo	Descrição
aDbf2[1]	Caracter	Nome do Campo
aDbf2[2]	Caracter	Tipo do campo
aDbf2[3]	Numerico	Tamanho do campo
aDbf2[4]	Numerico	Nível do campo

Sim

Nome

Tipo

Descrição

Obrigatório

aCpoComp

Array

Nome	Tipo	Descrição
aCpoComp[1]	Caracter	Nome do Campo

Sim

Exemplo:

User Function MNTA9902()
    
	Local nPosTrb  := 0
	Local nPosTrb  := 0


    aTrb1 := ParamIXB[1]
    aDbf1 := ParamIXB[2]
    aTrb2 := ParamIXB[3]
    aDbf2 := ParamIXB[4]
    aCpoComp := ParamIXB[5]
    
    nPosTrb := aScan(aTrb1,{|x| "PRIOR" $ Upper(x[3])})
    aDel(aTrb1, nPosTrb)
    aSize(aTrb1, Len(aTrb1)-1)
    
    nPosDbf := aScan(aDbf1,{|x| "PRIOR" $ Upper(x[1])})
    aDel(aDbf1, nPosDbf)
    aSize(aDbf1, Len(aDbf1)-1)
    
    nPosTrb := aScan(aCpoComp,{|x| "STATUS" $ Upper(x[3])})
    aDel(aCpoComp, nPosTrb)
    aSize(aCpoComp, Len(aCpoComp)-1)
    
Return