Ponto de entrada FA090SE5 para gravação de dados

Permite a gravação de informaçõesAlteração da Gravação do Histórico da baixa na SE5.

Atualizações > Contas a Pagar > Baixa a Pagar automática

ApósO ponto gravarde osentrada dadosFA090SE5 noserá SE5executado epara apósgravação ado confirmaçãohistórico da baixa automática.

FINA090 e FINA091

fA090Aut, Fa091Aut

...

#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()Return(cHistor)Return