01. DADOS GERAIS
Produto: | TOTVS Backoffice |
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | Backoffice |
Módulo: | Financeiro (SIGAFIN) |
Função: | Recálculo de comissão (FINA440) |
País: | Brasil |
02. VISÃO GERAL
Ponto de Entrada que permite alterar as bases de comissão para o vendedor, quando os títulos não tiverem sido faturados.
Importante!
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 F440ABA2
03. PARÂMETROS
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 |
04. RETORNO
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.
05. EXEMPLO
#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 */
06. ASSUNTOS RELACIONADOS
Pontos de Entrada alternativos 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)