Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Línea Protheus) - Financiero (SIGAFIN)

Función:

FINA090 - Bajas por pagar automática

02. DESCRIPCIÓN

Punto de entrada se activará en dos momentos en la rutina:

1) Permite que el usuario defina la situación inicial de los títulos: si los títulos estarán seleccionados o no en la pantalla de Selección de los  títulos. 

2) Se activará en la función finaDisplay(),  que actualiza la pantalla de selección de registros de baja automática, verificando en cada marcación si el título puede marcarse o no para la baja. 

La tabla SE2 estará marcada en el título que se estuviera marcando.


Importante

El punto de entrada no se activará en la opción de invertir las marcaciones.


03. PARÁMETROS

Nombre

Tipo

Descripción

nValorMarca

Numérico

Valor de los títulos marcados.

aTitulos

Array

Este array trae los títulos que se presentarán, de acuerdo con los parámetros informados en la rutina. 

IMPORTANTE

Los parámetros deben utilizarse solamente al activarse la rutina automática del FINA090. El array aTitulos no tendrá contenido en la activación vía pantalla.

04. DEVOLUCIÓN

Nombre

Tipo

Descripción

lRet

Lógico

Si se hubiera modificado la marcación del título, el ExecBlock devuelve .F., para no haber modificación de los acumuladores de valores y número de títulos.

Si el Punto de entrada se utilizara para determinar si los títulos están o no marcados, debe devolver .T. (Verdadero) o .F. (Falso) para verificar cuál será la opción inicial de los títulos, marcados o no marcados.

05. EJEMPLO DE UTILIZACIÓN

F16QYCRT
User Function F090TIT()
Local lRet := .F.
Local nValor	:= PARAMIXB[1]
Local aTitulos := {}
Local cPrefTit  :=  SE2->E2_PREFIXO 
Local cNumTit :=  SE2->E2_NUM

If type("PARAMIXB[2]") != "U"	
    aTitulos := PARAMIXB[2]	
    If Len(aTitulos) == 0		
        lRet := MsgYesNo("Confirmar la marcación del título prefijo: " + cPrefTit + " e numero : " + cNumTit )	
    Else		
        lRet := MsgYesNo("Activación vía ejecución de la rutina automatica ")	
    Endif
Else	
     lRet := MsgYesNo("¿Confirmar la activación del título? ")	
Endif	
Return lRet