Linha Microsiga Protheus

Árvore de páginas

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

TipoConteúdo
Operação

Identificador Caractere de operação:

  • OP_NOLIQFAT - Sem origem em Fat/Liq
  • OP_LIQFAT - Com origem em Fat/Liq
Vetor

Vetor contendo os valores de base de comissão.

Estrutura do vetor:

PosiçãoConteúdo
1Có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

3Base da comissão que será aplicada no momento da emissão do título.
4Base da comissão que será aplicada no momento da baixa do título.
5Valor de comissão calculados sobre a emissão do título
6Valor de comissão calculados sobre a baixa do título
7% da comissão (Se "zero" diversos %'s)
8

PIS

9COFINS
10CSLL
11IRRF
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



Exemplo de execução
#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)