| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | Financeiro (SIGAFIN) |
| Função: | Recálculo de comissão (FINA440) |
| País: | Brasil |
Ponto de Entrada que permite alterar as bases de comissão para o vendedor, quando os títulos não tiverem sido faturados.
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 |
| Tipo | Conteúdo |
|---|---|
| Operação | Identificador Caractere de operação:
|
| Vetor | Vetor contendo os valores de base de comissão. |
Estrutura do vetor:
| Posição | Conteúdo |
|---|---|
| 1 | Código do vendedor |
| 2 | Base da comissão total da comissão, ou seja, a soma das bases aplicadas a emissão do título e a baixa do título |
| 3 | Base da comissão que será aplicada no momento da emissão do título. |
| 4 | Base da comissão que será aplicada no momento da baixa do título. |
| 5 | Valor de comissão calculados sobre a emissão do título |
| 6 | Valor de comissão calculados sobre a baixa do título |
| 7 | % da comissão (Se "zero" diversos %'s) |
| 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 |
Vetor contendo os valores de base de comissão customizados. Deverá conter a mesma estrutura do vetor de comissão original, recebido como parâmetro.
#INCLUDE 'Protheus.ch'
/*
*** Programa : F440ABA2
Data : 10/01/2023
Descricao : Permite alterar a base de comissão para o 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' /*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
*/ |
Pontos de Entrada aternativos no lugar do PE F440ABA2:
F440ABAS - Alterar base de comissão (títulos não faturados)
F440CBASE - Alterar base de comissão (títulos faturados)