Árvore de páginas

01. DATOS GENERALES

Línea de producto:

Microsiga Protheus®

Segmento:

Backoffice

Módulo:

Financiero

Función:

Finxfin

02. DESCRIPCIÓN

El punto de entrada F040FMP permite complementar la grabación del título de FUMIPEQ generado en el cuentas por cobrar.

03. PARÁMETROS      

Nombre

Tipo

Descripción

PARAMIXB

Numérico

Situación del título principal en la tabla SE1 (recno).

04. DEVOLUCIÓN

No se aplica.

05. EJEMPLO DE UTILIZACIÓN


F040FMP
#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