Histórico da Página

#INCLUDE 'Protheus.ch'

/* 
*** Programa  : F440ABA2
    Data      : 10/01/2023
    Descricao : Permite alterar a base de comissão para o vendedor
*/
USER FUNCTION A435VPAR F440ABA2()
    LOCAL nX AS NUMERIC
    LOCAL cOperationaMvs AS CHARACTER
    LOCAL aBases AS ARRAY

    cOperation := ParamIxb[1]
    aBases aMvs:= ACLONE(ParamIxb[21])         

	
	IFaMvs cOperation =:= {{'OPmv_NOLIQFAT'	/*Sem origem em Fatura/Liquidação*/
        FOR nX := 1 TO LEN(aBases)
            aBases[nX,4] := aBases[nX,4] - 200
        NEXT nX
    ELSEIF cOperation == 'OP_LIQFAT'	/*Provenientes de Fatura/Liquidação*/
        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 Liquidado/Faturado
*/

par01', 2					},; // 01	Mostra Lanc Contab ?
					{'mv_par02', Val(SEE->EE_AGLCTB)},; // 02	Aglut Lancamentos ?
					{'mv_par03', SEE->EE_DIRPAG		},; // 03	Arquivo de Entrada ?
					{'mv_par04', SEE->EE_CFGPAG		},; // 04	Arquivo de Config ?
					{'mv_par05', SEE->EE_CODIGO		},; // 05	Codigo do Banco ?
					{'mv_par06', SEE->EE_AGENCIA	},; // 06	Codigo da Agencia ?
					{'mv_par07', SEE->EE_CONTA		},; // 07	Codigo da Conta ?
					{'mv_par08', SEE->EE_SUBCTA		},; // 08	Codigo da Sub-Conta ?
					{'mv_par09', 1					},; // 09	Contabiliza On Line ?
					{'mv_par10', Val(SEE->EE_CNABPG)},; // 10	Configuracao CNAB ?
					{'mv_par11', Val(SEE->EE_PROCFL)},; // 11	Processa Filial?
					{'mv_par12', Val(SEE->EE_MULTNT)}}  // 12	Considera Multiplas naturezas ?

 RETURN ACLONE(aMvs)