Histórico da Página

Descrição

Observações

Exemplos

User Function MNTA7655()

Local aTitulo := aClone(PARAMIXB[1])    // Array contendo informações a serem alteradas
Local nParcel := PARAMIXB[2]             // Número de parcelas em que o título foi dividido
Local nDescon := M->TRX_DESCON     // Valor de desconto sobre o valor total do título

/*----------------------------------------------------
aTitulo [N1][N2], onde:

N1 Indica o campo a ser alterado
N2 Utilizar posição 2 para alteração
----------------------------------------------------*/ 

aTitulo[15][2] := Space(TAMSX3("E2_HIST")[1])  // Limpa o desconto do histórico
aTitulo[16][2] := nDescon/nParcel              // Adiciona desconto no decréscimo

Return aTitulo

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Compatível com as Bases de Dados

Updates

Parâmetros

PARAMIXB[1] - Array contendo informações a serem alteradas. Posições do array:

1. E2_PREFIXO - Caracter
2. E2_NUM - Caracter
3. E2_TIPO - Caracter
4. E2_NATUREZ - Caracter
5. E2_FORNECE - Caracter
6. E2_LOJA - Caracter
7. E2_EMISSAO - Caracter
8. E2_ORIGEM - Caracter
9. E2_MOEDA - Numérico
10. E2_CCD - Caracter
11. E2_VENCTO - Caracter
12. E2_VALOR - Numérico
13. E2_VLCRUZ - Numérico
14. E2_PARCELA - Caracter
15. E2_HIST - Caracter
16. E2_DECRESC - Numérico

PARAMIXB[2] - Número de parcelas em que o título foi dividido

Retorno

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte