FA330BX_posiciona_nos_registros

O ponto de entrada FA330BX está disponível para procedimentos internos do usuário, através dele é possível ter acesso aos dados dos 

títulos a receber que serão baixados.

#Include 'Protheus.ch'

User Function FA330BX()
Local _cNum := STRLCTPAD //Irá trazer o SE1->E1_PREFIXO+SE1->E1_NUM+SE1->E1_PARCELA+SE1->E1_TIPO do titulo posiciona na tela
Local _nRecno := NRECVLD //Irá trazer o RECNO do titulo que estou posicionado na tela

SE1->(DbGoTo(_nRecno)) //Irá abrir a tabela do RECNO que estou posicionado

DbSelectArea("SE5")
DbSetorder(1)

If E5_TIPO = "NF"
E5_HISTOR := _cNum
else
E5_HISTOR := "RA"

Msunlock()

endif

return