Histórico da Página

aOldHead := aClone(aHeader)
aAF251AHD := ExecBlock('AF251AHD', .F., .F., aClone(aHeader) )
aHeader := aClone( aOldHead )
If ValType( aAF251AHD ) == 'A'
	For nX := 1 To Len( aAF251AHD )
		If Len( aAF251AHD[nX] ) == 9 .and.	ValType( aAF251AHD[nX][1] ) == 'C' .and. ValType( aAF251AHD[nX][2] ) == 'C' .and.;
			ValType( aAF251AHD[nX][3] ) == 'C' .and. ValType( aAF251AHD[nX][4] ) == 'N' .and. ValType( aAF251AHD[nX][5] ) == 'N' .and.;
			ValType( aAF251AHD[nX][6] ) == 'C' .and. ValType( aAF251AHD[nX][7] ) == 'C' .and. ValType( aAF251AHD[nX][8] ) == 'C' .and.;
			ValType( aAF251AHD[nX][9] ) == 'C' .and. aScan( aHeader, {|aHd| aHd[2] == aAF251AHD[nX][2]} ) == 0

			Aadd( aHeader, aClone(aAF251AHD[nX]) )
		EndIf
	Next nX
EndIf

#Include 'Protheus.ch'

User Function AF251AHD()

	local aHeaderPE := ParamIXB

	SX3->(DbSetOrder(2))
	If SX3->(dbSeek("N1_TSTMES"))
		AADD(aHeaderPE,{X3Titulo(),SX3->X3_CAMPO,AllTrim(SX3->X3_PICTURE),SX3->X3_TAMANHO,SX3->X3_DECIMAL,"","",SX3->X3_TIPO,SX3->X3_ARQUIVO } )
	EndIf

Return(aHeaderPE)

• Se observa que la utilización del PE y los impactos de este en el sistema son de responsabilidad del cliente.
• Los ejemplos utilizados en esta documentación solamente son para fines de demostración, cada cliente debe verificar qué comportamiento desea realizar de acuerdo con el alcance del punto
• Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
• Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.