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

Retorno

Nome

Tipo

Descrição

aRet

Array

Nome	Tipo	Descrição
aRet[1]	Array	Contem campos para montagem do grid OSs a programar
aRet[2]	Array	Contem campos para montagem do grid OSs em programação
aRet[3]	Array	Contem campos para montagem do TRB OSs a programar
aRet[4]	Array	Contem campos para montagem do TRB OSs em programação
aRet[5]	Array	Contem campos complementares de legenda dos grids OSs a programar e em programação

Exemplo:

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