01. DATOS GEENERALES

Producto:

Línea de producto:

Línea Protheus

Segmento:

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.

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 Caracter 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. RESPUESTA

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



#INCLUDE 'Protheus.ch'

/* 
*** Programa  : F440ABA2
    Data      : 10/01/2023
    Descricao : Permite alterar a base de comissão para o 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'	/*Sem origem em Fatura/Liquidação*/
        FOR nX := 1 TO LEN(aBases)
            aBases[nX,4] := aBases[nX,4] - 200
        NEXT nX
    ELSEIF cOperation == 'OP_LIQFAT'	/*Provenientes de Fatura/Liquidação*/
        FOR nX := 1 TO LEN(aBases)
            aBases[nX,4] := aBases[nX,4] - 100
        NEXT nX
    ENDIF  RETURN ACLONE(aBases)

/*
*** Definição de cada posição do array aBase ***
	1 - Código do vendedor
	2 - Base da comissão
	3 - Base na emissão
	4 - Base na baixa
	5 - Valor na emissão
	6 - Valor na baixa
	7 - % da comissão (se % é zero, conterá diversos caracteres de porcentagem - %)
	8 - PIS
	9 - COFINS
	10 - CSLL
	11 - IRRF
	12 - Valor original do título baixado (soma do valor dos títulos baixados por liquidação)
	13 - RECNO do título Liquidado/Faturado
*/

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)