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
Parâmetros aternativos ao uso fo F440ABA2 (não complementares)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