Línea Protheus
| Producto: | |
|---|---|
| Línea de producto: | Línea Protheus |
| Segmento: | |
| Módulo: | Financiero (SIGAFIN) |
| Función: | Recálculo de comisión (FINA440) |
| País: | Brasil |
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 |
| Tipo | Contenido |
|---|---|
| Operación | Identificador Carácter de operación:
|
| Vector | Vector que contiene los valores de base de la comisión. |
Estructura del vector:
| Posición | Contenido |
|---|---|
| 1 | Có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 |
| 3 | Base de la comisión que se aplicará en el momento de emitir el título. |
| 4 | Base de la comisión que se aplicará en el momento de dar baja al título. |
| 5 | Valor de comisión calculados sobre la emisión del título |
| 6 | Valor de comisión calculados sobre la baja del título |
| 7 | % de la comisión (Si "cero" diversos %'s) |
| 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 |
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.
#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
*/ |
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)