Histórico da Página
...
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 */ |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas