Perguntas PONTO DE ENTRADA F240MARK

Boa tarde
To precisando alterar a ordem dos campos no browse atraves do ponto de entrada F240MARK. Alguem tem alguma dica de como alterar a ordem das posicoes dos campos no array neste ponto de entrada?

Grato

Cezar

Cezar use esse ponto de entrada

#INCLUDE "PROTHEUS.CH"

USER FUNCTION F240MARK()


Local aArea := GetArea()
Local aRet := {}

AADD(aRet,{"E2_OK",""," ",""})

dbSelectArea("SX3")
SX3->(dbSetOrder(1))
dbSeek ("SE2")



While !EOF() .And. (x3_arquivo == "SE2")
IF Alltrim(X3_CAMPO) == "E2_FILIAL" .OR. Alltrim(X3_CAMPO) == "E2_PREFIXO" .OR. Alltrim(X3_CAMPO) == "E2_NUM" .OR. Alltrim(X3_CAMPO) == "E2_PARCELA" .OR. Alltrim(X3_CAMPO) == "E2_TIPO";
.OR. Alltrim(X3_CAMPO) == "E2_NOMFOR" .OR. Alltrim(X3_CAMPO) == "E2_NUM" .OR. Alltrim(X3_CAMPO) == "E2_EMISSAO" .OR. Alltrim(X3_CAMPO) == "E2_VENCTO";
.OR. Alltrim(X3_CAMPO) == "E2_VENCREA" .OR. Alltrim(X3_CAMPO) == "E2_VALOR" .OR. Alltrim(X3_CAMPO) == "E2_SALDO"

AADD(aRet,{X3_CAMPO,"",AllTrim(X3Titulo()),X3_PICTURE})

ENDIF
SX3->(dbSkip())
Enddo

//aRet := aSort(aRet,,,{|x,y| x[1] < y[1]})

RestArea(aArea)

Return aRet


Tiberio Osti