Ponto de entrada que permite adicionar ou remover campos de usuário na tela de Retorno Mod. 2 (MNTA435)

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
MNTA435	Retorno de O.S. Mod.2

Rotina(s) envolvida(s)	Nome Técnico
MNTA435Q	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 utilizado na rotina de Retorno Mod. 2 (MNTA435) para adicionar ou remover campos de usuário da tela

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno Mod. 2

Programa Fonte:

MNTA435.prx

Função:

MNTA435Q()

Parâmetros:

Nome	Tipo	Descrição
ParamIXB	Array	Recebe os campos da STJ

Retorno:

Nome

Tipo

Descrição

Obrigatório

aCampSTJ

Array

Retorna os campos atualizados da STJ

aCampSTJ[ x, 1 ] = Nome do campo

aCampSTJ[ x, 2 ] = Titulo do campo

aCampSTJ[ x, 3 ] = Tipo do campo

aCampSTJ[ x, 4 ] = Tamanho do campo

aCampSTJ[ x, 5 ] = Picture do campo

X

#Include 'Totvs.ch'

User Function MNTA435Q()

	Local aCampSTJ := PARAMIXB
    Local nTotCamp := Len( aCampSTJ )
	Local nCampos  := 0

	If MsgYesNo("Deseja remover os campos de usuário?")
        nCampos := aScan( aCampSTJ, { | x |  x[ 1 ] == 'TJ_NOMSERV' } )
        If nCampos > 0
            aDel( aCampSTJ, nCampos )
            aSize( aCampSTJ, nTotCamp - 1 )
        EndIf
    EndIf

Return aCampSTJ