Linha Microsiga Protheus

Árvore de páginas

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

Atenção

Este ponto de entrada foi descontinuado, favor utilizar o ponto de entrada https://tdn.totvs.com/x/FMCqKg.

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 de O.S.

Rotina(s) envolvida(s)

Nome Técnico

MNTA990D

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:

MNTA435H()

Parâmetros:
NomeTipoDescrição
ParamIXBArrayRecebe os campos da STJ

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aCampSTJ

Array

Retorna os campos atualizados da STJ

X

 

Erro ao renderizar a macro 'code': Valor especificado inválido para o parâmetro 'com.atlassian.confluence.ext.code.render.InvalidValueException'
#Include 'Protheus.ch'

User Function MNTA435H()

	Local aCampStj := PARAMIXB
	Local nCampos := 0

	dbSelectArea("SX3")
	dbSetOrder(1)
	dbSeek("STJ")

	If MsgYesNo("Deseja remover os campos de usuário?")

		While !EoF() .And. SX3->X3_ARQUIVO == "STJ"
		If SX3->X3_PROPRI == "U" .And. X3USO(SX3->X3_CAMPO)
			nCampos := aScan(aCampStj,Alltrim(SX3->X3_TITULO))
			If nCampos > 0
				aDel(aCampStj,nCampos)
				aSize(aCampStj,nCampos-1)
			EndIf
		EndIf
		dbSelectArea("SX3")
		dbSkip()
		End
	EndIf

Return aCampStj