Histórico da Página
...
Ponto de Entrada que permite alterar as bases de comissão para o vendedor, quando os títulos não tiverem sido faturados.
| Nota | ||
|---|---|---|
| ||
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. |
...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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
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)
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas