Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:Financiero (SIGAFIN)
Función:Recálculo de comisión (FINA440)
País:Brasil

02. VISIÓN GENERAL

Punto de entrada que permite modificar las bases de comisión para el vendedor, cuando los títulos no se hayan facturado.

¡Importante!

El nuevo PE se podrá utilizar como alternativa a los PE F440ABAS y F440CBASE, y no de manera complementaria a estos.

Los PE F440ABAS e F440CBASE continuarán activos, es decir, no se descontinuaron debido a la creación del PE F440ABA2


03. PARÁMETROS

TipoContenido
Operación

Identificador Carácter de operación:

  • OP_NOLIQFAT - Sin origen en Fact/Liq
  • OP_LIQFAT - Con origen en Fact/Liq
Vector

Vector que contiene los valores de base de la comisión.

Estructura del vector:

PosiciónContenido
1Código del vendedor
2

Base de la comisión total de la comisión, es decir, la suma de las bases aplicadas a la emisión del título y a la baja del título

3Base de la comisión que se aplicará en el momento de emitir el título.
4Base de la comisión que se aplicará en el momento de dar baja al título.
5Valor de comisión calculados sobre la emisión del título
6Valor de comisión calculados sobre la baja del título
7% de la comisión (Si "cero" diversos %'s)
8

PIS

9COFINS
10CSLL
11IRRF
12

Valor original del título dado de baja (suma del valor de los títulos dados de baja por liquidación)

13

RECNO del título Liquidado/Facturado

04. DEVOLUCIÓN

Vector que contiene los valores de base de la comisióin personalizados. Debe contener la misma estructura del vector de comisión original, recibido como parámetro.

05. EJEMPLO



Ejemplo de ejecución
#INCLUDE 'Protheus.ch'

/* 
*** Programa  : F440ABA2
    Data      : 10/01/2023
    Descricao : Permite modificar la base de comisión para el vendedor
*/
USER FUNCTION F440ABA2()
    LOCAL nX AS NUMERIC
    LOCAL cOperation AS CHARACTER
    LOCAL aBases AS ARRAY

    cOperation := ParamIxb[1]
    aBases := ACLONE(ParamIxb[2])      
	
	IF cOperation == 'OP_NOLIQFAT'	/*Sin origen en Factura/Liquidación*/
        FOR nX := 1 TO LEN(aBases)
            aBases[nX,4] := aBases[nX,4] - 200
        NEXT nX
    ELSEIF cOperation == 'OP_LIQFAT'	/*Provenientes de Factura/Liquidación*/
        FOR nX := 1 TO LEN(aBases)
            aBases[nX,4] := aBases[nX,4] - 100
        NEXT nX
    ENDIF  RETURN ACLONE(aBases)

/*
*** Definición de cada posición del array aBase ***
	1 - Código del vendedor
	2 - Base de la comisión
	3 - Base en la emisión
	4 - Base en la baja
	5 - Valor en la emisión
	6 - Valor en la baja
	7 - % de la comisión (si el % es cero, contendrá diversos caracteres de porcentaje - %)
	8 - PIS
	9 - COFINS
	10 - CSLL
	11 - IRRF
	12 - Valor original del título dado de baja (suma del valor de los títulos dados de baja por liquidación)
	13 - RECNO del título Liquidado/Facturado
*/

06. ASUNTOS RELACIONADOS

Puntos de entrada alternativos en lugar del PE F440ABA2:

F440ABAS - Modificar base de comisión (títulos no facturados)

F440CBASE - Modificar base de comisión (títulos facturados)