...
Línea de | Produtoproducto: | Microsiga Protheus® |
Segmento: | Backoffice | |
|---|---|---|
Módulo: | FinanceiroFinanciero | Função|
Función: | FINA050 | – Contas a Pagar- Cuentas por pagar |
...
O ponto El punto de entrada F050SES permite a alteração de títulos após a gravação do F050SES permite la modificación de títulos después de la grabación del título SEST.
...
Nombre | Tipo | DescriçãoDescripción | |
PARAMIXB | Numérico | Recno | do del título principal |
...
Não No se aplica.
...
...
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#INCLUDE 'TOTVS.CH' User Function F050SES() Local _nRecsest:= PARAMIXB as numeric//Recno dodel Título Originaloriginal 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","EXECUCAOEJECUCIÓN DODEL PE. F050SES, GRAVACOESGRABACIÓN DE INFORMACIONES INFORMACOESEN NOEL TITULOTÍTULO SEST",{"OK"}) //POSICIONOMARCO EN NOEL TITULOTÍ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 //VOLTOVUELVO A SE2 PARAAL O TITULOTíTULO ORIGINAL SE2->(DbgoTo(_nRecsest)) Return |