Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Produto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:Financiero (SIGAFIN)
Función:Borderó de pagos (FINA240)
País:Brasil

02. VISIÓN GENERAL

Punto de entrada que permite incluir la validación adicional a los títulos seleccionados en la generación del borderó. Se ejecutará solamente si se confirmara la generación del borderó

.

03. PARÁMETROS

Posición

Tipo

Descripción

1

Carácter

Marcación de los borderós seleccionados

2

Carácter

Tabla temporal para manejo de los campos de los títulos seleccionados, basado en SE2 (Cuentas por pagar), y los siguientes campos:

Campo

Contenido

OK

Indica si el registro está marcado o no

E2_VLACES

Total de valores adicionales 

NUM_REG

Recno del registro de SE2.

VLSOMAABAT

Suma de descuentos del título

CALCULADO

Define si el campo VLSOMAABAT está completado, si fuera igual a '1'.

VLSOMARET

Total de impuestos, calculados por el Configurador de tributos.

04. DEVOLUCIÓN

Tipo

Descripción

Lógico

Verdadero para proseguir con la generación del borderó y falso para no proseguir.

05. EJEMPLO


Ejemplo de ejecución
#include "protheus.ch"
 
User function F240OK2()
    local lRet:= .F.
    lRet := MsgYesNo("¿Los datos del borderó están OK?","P.E. F240OK2")
Return lRet
 
User Function F240TDOK
    Local cMarca := Paramixb[1] //marca utilizada en el título seleccionado     
Local cAliasSE2P := Paramixb[2] //tabla temporal con los títulos de la pantalla     
Local lRetorno := .F.

    If !Empty( cMarca )
        (cAliasSE2P)->(DBGOTOP()) //marco en el inicio de la tabla temporal
        While !(cAliasSE2P)->(Eof())
            If (cAliasSE2P)->E2_OK == cMarca
                If Empty( (cAliasSE2P)->E2_Naturez )
                    Alert( " Modalidad vacía: " + (cAliasSE2P)->E2_Num )
                    lRetorno := .F.
                    Exit
                Else
                    lRetorno := .T.
                    (cAliasSE2P)->(dbSkip())
                EndIf
            Else
                (cAliasSE2P)->(dbSkip())
            EndIf
        EndDo
    EndIf
Return lRetorno