Histórico da Página

O novo PE poderá ser usado como alternativa aos PEs F440ABAS e F440CBASE, e não de forma complementar a eles.

Os PEs F440ABAS e F440CBASE continuarão ativos, ou seja, não foram descontinuados em razão da criação do PE F440AB2

El nuevo PE podrá utilizarse 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

#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 en nala baixabaja
	5 - Valor naen la emissãoemisión
	6 - Valor naen la 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 baixadodado de baja (somasuma dodel valor dosde los títulos baixadosdados de baja por liquidaçãoliquidación)
	13 - VECTOR con los RECNO do título Liquidado/Faturado de los títulos que se liquidaron.
*/