...
Punto de Entrada entrada que permite modificar las bases de comisión para el vendedor, cuando los títulos no se hayan facturado.
...
| Tipo | Contenido |
|---|---|
| Operación | Identificador Caracter Carácter de operación:
|
| Vector | Vector que contiene los valores de base de la comisión. |
...
| 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.
...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE 'Protheus.ch'
/*
*** Programa : F440ABA2
Data : 10/01/2023
Descricao : Permite alterarmodificar ala base de comissãocomisión para oel 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' /*SemSin origemorigen emen FaturaFactura/LiquidaçãoLiquidación*/
FOR nX := 1 TO LEN(aBases)
aBases[nX,4] := aBases[nX,4] - 200
NEXT nX
ELSEIF cOperation == 'OP_LIQFAT' /*Provenientes de FaturaFactura/LiquidaçãoLiquidación*/
FOR nX := 1 TO LEN(aBases)
aBases[nX,4] := aBases[nX,4] - 100
NEXT nX
ENDIF RETURN ACLONE(aBases)
/*
*** DefiniçãoDefinición de cada posiçãoposición dodel array aBase ***
1 - Código dodel vendedor
2 - Base dade la comissãocomisión
3 - Base en nala emissãoemisión
4 - Base naen la baixabaja
5 - Valor naen la emissãoemisión
6 - Valor en nala baixabaja
7 - % dade la comissãocomisión (sesi el % ées zerocero, conterácontendrá diversos caracteres de porcentagemporcentaje - %)
8 - PIS
9 - COFINS
10 - CSLL
11 - IRRF
12 - Valor original dodel título dado de baixadobaja (somasuma dodel valor dosde los títulos baixadosdados de baja por liquidaçãoliquidación)
13 - RECNO dodel título Liquidado/FaturadoFacturado
*/ |
Puntos de Entrada entrada alternativos en lugar del PE F440ABA2:
F440ABAS - Modificar base de comisión (títulos no facturados)
...