Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Revertida da versão 1

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

MNTA990

Retorno

Programação de O.S.

Mod.2

Rotina(s) envolvida(s)

Nome Técnico

MNTA435H

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:

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

Nome

Tipo

Descrição

Obrigatório

 aCampSTJ

Array

Retorna os campos atualizados da STJ

X

note

 

title
Bloco de código
Atenção

O novo modelo de ponto de entrada só vai estar disponível após versão do fonte MNTA435.prx ser maior que a data XX/XX/2022.

O modelo antigo do ponto de entrada após a data informada acima não estará mais funcionando.

Bloco de código
titleNovo modelo MNTA435H
#Include 'Totvs.ch'

User Function MNTA435H()

	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
firstlineExemplo do Ponto de Entrada MNTA435H
Bloco de código
titleModelo antigo
collapsetrue
#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