Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Línea de producto:

Microsiga Protheus®

Segmento:

Backoffice

Módulo:

Financiero

Función:

FINA050 - Cuentas por pagar

02. DESCRIPCIÓN

El punto de entrada F050SES permite la modificación de títulos después de la grabación del título SEST.

03. PARÁMETROS

Nombre

Tipo

Descripción

PARAMIXB

Numérico

Recno del título principal

04. DEVOLUCIÓN

No se aplica.

05. EJEMPLO DE UTILIZACIÓN


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