Histórico da Página
...
03. PARÂMETROS
| Tipo | Conteúdo |
|---|---|
| Operação | Identificador Caractere de operação:
|
| Vetor | Vetor contendo os valores de base de comissão. |
...
| 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.
...
| 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 IFnX
ELSEIF cOperation == 'OP_NOLIQFAT'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
*/ |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas