Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

02. VISIÓN GENERAL

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

...

TipoContenido
Operación

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

...

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.

...

Bloco de código
languagejava
themeMidnight
firstline1
titleExemplo Ejemplo de execuçãoejecución
linenumberstrue
#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
*/

06. ASUNTOS RELACIONADOS

Puntos de Entrada entrada alternativos en lugar del PE F440ABA2:

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

...