Histórico da Página

...

#include 'protheus.ch'
#include 'parmtype.ch'

user User function FA090SE5()

Local cNumero := SE2->E2_NUM
Local cPrefixo := SE2->E2_PREFIXO
Local cParcela := SE2->E2_PARCELA
Local cFornece := SE2->E2_FORNECE
Local cLoja := SE2->E2_LOJA
Local _CMOTBX := CMOTBX //Motivo de Baixa

reclock('SE5',.F.)Local cHistor := ""

IF _CMOTBX = "DEBITO CC"
SE5->E5_HISTOR cHistor := cPrefixo+cNumero+cParcela+cFornece+cLoja
END

SE5->(MSUNLOCK())

ReturnReturn(cHistor)