Histórico da Página

F050SES

Permite à alteração de títulos após a confirmação gravação do título SEST.

Atualizações > Contas à Pagar> Contas a Pagar

Após a confirmação da Inclusão do Título

FINA050

FA050AxAlt

Exemplo:

#Include 'Protheus.ch'

User Function F050SES()

Local _nRecsest:= PARAMIXB //Recno do Título Original
Local _cPrefix := SE2->E2_PREFIXO
Local _cNum := SE2->E2_NUM
Local _cParc := SE2->E2_PARCELA
Local _cTipo := SE2->E2_TIPO

AVISO("PE.F050SES","EXECUCAO DO PE. F050SES, GRAVACOES DE INFORMACOES NO TITULO SEST",{"OK"})

//POSICIONO NO TITULO SEST
DbSelectArea("SE2")
SE2->(DbGoTop())
If(SE2->(DbSeek(xFilial("SE2")+_cPrefix+_cNum+_cParc+"SES")))

RecLock("SE2",.F.)
SE2->E2_HIST := "TEXTO PE. F050SES"
MsUnlock()

Endif
//VOLTO A SE2 PARA O TITULO ORIGINAL
SE2->(DbgoTo(_nRecsest))

Return