Histórico da Página

#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 en nala emissãoemisión
	6 - Valor en nala baixabaja
	7 - % de dala 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 de doslos títulos dados de baixadosbaja por liquidaçãoliquidación)
	13 - VECTOR con los RECNO do título Liquidado/Faturado de los títulos que se liquidaron.
*/