01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:Financeiro
Função:

Finxfin

02. DESCRIÇÃO

O ponto de entrada F040FMP permite complementar a gravação do título de FUMIPEQ gerado no contas a receber.

03. PARÂMETROS      

NomeTipoDescrição
PARAMIXB

Numérico

Posição do titulo principal na tabela SE1 (recno).

04. RETORNO

Não se aplica.

05. EXEMPLO DE UTILIZAÇÃO


#INCLUDE "TOTVS.CH"

User Function F040FMP()
Local nRecnoSE1     := PARAMIXB as numeric //Posicao do titulo principal (recno)
Local aPEArea       := GetArea() as array
Local aPEAreaSE1    := SE1->(GetArea()) as array

//--------------------------------------
// Titulo do FUMIPEQ (esta posicionado)
//--------------------------------------
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