Descrição: | Esse ponto de entrada é chamado na rotina de calculo (Botão Simula) da multinegociação, permitindo a manipulação do valor da parcela gerada, como a adição de um juros adicional , por exemplo. | ||||||||||||||||||
Programa Fonte: | Ponto de entrada chamado no fonte LOJA764 | ||||||||||||||||||
Função: | LJ701A4( ExpC1 ], [ ExpC2 ], [ ExpD3 ], [ ExpN4 ], [ ExpN5 ] ) --> Array com os valores ajustados
| ||||||||||||||||||
| Retorno: | Array com os valores das parcelas alterados pelo ponto de entrada.
|
Exemplo:
#Include 'Protheus.ch'
User Function LJ701A4()
Local aRec := aClone(PARAMIXB[1]) // Array com a condição calculada pelo padrao
Local aConNeng := aClone(PARAMIXB[2]) // Array com as informações de negociacao
// aConNen[1] - Tipo juros
// aConNen[2] - Data entrada + Intervalo de dias
// aConNen[3] - Valor Entrada
// aConNen[4] - Taxa de Juros
// aConNen[5] - Parcelas
Local nVlrFin := PARAMIXB[3] // valor Total
Local nVlrEnt := PARAMIXB[4] // Valor de Entrada
Local nDescont := PARAMIXB[5] // Desconto
Local nParc := aConNeng[5] // Numero de parcelas do item calculado
Local nI := 0
Local nJuros := 10 // % de juros a aplicar na parcela
For nI := 1 to Len(aRec) // numero de parcelas
nValorTot := aRec[nI][2] // retorna a Entrada ao valor
nValorTot += (nValorTot *10)/100 // acrescenta Juros
nValorPac := nValorTot // refaz as parcelas
aRec[nI][2] := nValorPac
Next
Return aRec
