F050SES – Personalización después de la grabación de títulos SEST

#INCLUDE 'TOTVS.CH'

User Function F050SES()

Local _nRecsest:= PARAMIXB as numeric//Recno del 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","EJECUCIÓN DEL PE. F050SES, GRABACIÓN DE INFORMACIONES EN EL TÍTULO SEST",{"OK"})

//MARCO EN EL TÍTULO 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
//VUELVO A SE2 AL TíTULO ORIGINAL
SE2->(DbgoTo(_nRecsest))

Return