Histórico da Página

#include "protheus.ch"

user function F440ABAS()
    local// Programa  : F440ABA2
// Data      : 10/01/2023
// Descricao : Permite alterar a base de comissão para o vendedor
#INCLUDE 'Protheus.ch'

USER FUNCTION F440ABA2()
    LOCAL nX AS NUMERIC
    LOCAL cOperation AS CHARACTER
    LOCAL aBases AS ARRAY

    cOperation := ParamIxb[1]
    aBases := aClone(ParamIxb)
	//Alterações no array
return aBasesACLONE(ParamIxb[2])

    IF cOperation == 'OP_NOLIQFAT'
        FOR nX := 1 TO LEN(aBases)
            aBases[nX,4] := aBases[nX,4] - 100
        NEXT nX
    ENDIF

RETURN ACLONE(aBases)

/*
*** Definição de cada posição do array aBase ***
	1 - Código do vendedor
	2 - Base da comissão
	3 - Base na emissão
	4 - Base na baixa
	5 - Valor na emissão
	6 - Valor na baixa
	7 - % da comissão (se % é zero, conterá diversos caracteres de porcentagem - %)
	8 - PIS
	9 - COFINS
	10 - CSLL
	11 - IRRF
	12 - Valor original do título baixado (soma do valor dos títulos baixados por liquidação)
	13 - RECNO do título filho  
*/