Línea de producto: | Microsiga Protheus® |
---|---|
Segmento: | Backoffice |
Módulo: | Financiero |
Función: | Finxfin |
El punto de entrada F040FMP permite complementar la grabación del título de FUMIPEQ generado en el cuentas por cobrar.
Nombre | Tipo | Descripción |
---|---|---|
Nombre | Tipo | Descripción |
PARAMIXB | Numérico | Situación del título principal en la tabla SE1 (recno). |
No se aplica.
#INCLUDE "TOTVS.CH" User Function F040FMP() Local nRecnoSE1 := PARAMIXB as numeric //Situación del título principal (recno) Local aPEArea := GetArea() as array Local aPEAreaSE1 := SE1->(GetArea()) as array //-------------------------------------- // Título de FUMIPEQ (está marcado) //-------------------------------------- If RecLock("SE1",.F.) SE1->E1_CPOUSER := "XYZ" SE1->(MsUnLock()) EndIf //-------------------------------------- // Titulo principal //-------------------------------------- SE1->(DbGoTo(nRecnoSE1)) If RecLock("SE1",.F.) SE1->E1_CPOUSER := "XPTO" SE1->(MsUnLock()) EndIf RestArea(aPEAreaSE1) RestArea(aPEArea) Return nil