Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

Através do ponto de entrada em questão é possível incluir novos parâmetros na rotina FINA950.

Vale ressaltar que para o funcionamento correto este ponto de entrada, o mesmo deve trabalhar juntamente com o ponto de entrada F950PAR2. No exemplo disponível abaixo há os dois pontos de entrada trabalhando juntos.

02. PARÂMETROS

PosiçãoTipoDescrição
1VetorVetor contendo os parâmetros atuais.

03. RETORNO

TipoDescrição
Vetor

Vetor contendo os novos parâmetros.

04. EXEMPLO DE UTILIZAÇÃO

P.E. NatSevLoad
#include "protheus.ch"

User Function F950PAR1()
	Local aRet1 := aClone(paramixb[1])
	aAdd(aRet1,{ 1,	"Tp. Titulo De"   	,Space(TamSx3('E2_TIPO')[1])	,X3Picture('E2_TIPO')	,"","SE2","",50,	.F.}) 
	aAdd(aRet1,{ 1,	"Tp. Titulo Ate"		,Space(TamSx3('E2_TIPO')[1])	,X3Picture('E2_TIPO')	,"","SE2","",50,	.F.})
Return aRet1

User Function F950PAR2()
	Local aRet2 := aClone(paramixb[1])
	aAdd(aRet2,Space(TamSx3('E2_TIPO')[1]))
	aAdd(aRet2,Replicate( "Z" , TamSx3('E2_TIPO')[1]))
Return aRet2