| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Backoffice |
| Módulo: | Financeiro |
| Função: | FINA050 – Contas a Pagar |
O ponto de entrada F050SES permite a alteração de títulos após a gravação do título SEST.
Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB | Numérico | Recno do título principal |
Não se aplica.
#INCLUDE 'TOTVS.CH'
User Function F050SES()
Local _nRecsest:= PARAMIXB as numeric//Recno do Título Original
Local _cPrefix := SE2->E2_PREFIXO as character
Local _cNum := SE2->E2_NUM as character
Local _cParc := SE2->E2_PARCELA as character
Local _cTipo := SE2->E2_TIPO as character
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 |