Histórico da Página

Descrição

Ponto de entrada para manipular valores nos dados do título a ser pago

Programa fonte

LOJXREC.PRW

Parâmetros

Nome

Tipo

Descrição

Paramixb[1]

Numérico

Valor total do/s título/s Selecionado/s

Paramixb[2]

Array

Array com os dados dos títulos com seguinte estrutura:

Posição	Tipo	Descrição
01	Lógico	Titulo selecionado
02	Caractere	Prefixo
03	Caractere	Numero do título
04	Caractere	Parcela
05	Data	Vencimento
06	Numérico	Valor
07	Numérico	Valor Multa
08	Numérico	Valor Juros
09	Numérico	Valor Desconto
10	Numérico	Valor Recebido
11	Caractere	Tipo
12	Caractere	Contrato
13	Caractere	Cliente
14	Caractere	Loja
15	Caractere	Filial Titulo
16	Numérico	Recno
17	Numérico	Valor Acréscimo
18	Lógico	Conc. Acrs.
19	Numérico	Valor abatimento
20	Data	Vencimento Original
21	Caractere	Lock
22	Numérico	Moeda
23	NIL	-
24	Data	Data da baixa
25	Numérico	Saldo
26	Numérico	Valor Liq

Retorno

Array de duas posições na seguinte estrutura:

Posição 01	Valor numérico com valor total a ser recebido.
Posição 02	Array recebido pelo Paramixb[2] com os títulos do cliente.

Exemplo

UserFunction LJRECALT()

Local aRetorno := {} //Retorno do PE
Local nTotal := Paramixb[1] //Array com os titulos a receber do cliente
Local aTitulo := Paramixb[2] //Array com os titulos a receber do cliente
Local nX := 0 //Controle de For

For nX := 1To Len(aTitulo)
If aTitulo[nX][01] // Titulo selecionado?

/*
|| Lógica para verificar valores do titulo
*/

/*
|| Lógica para manipula valor total
|| Ex: nTotal := nTotal + ( nTotal * (10/100) )
*/
nTotal := nTotal + ( nTotal * (10/100) )

EndIf
NexT

Aadd(aRetorno,nTotal)
Aadd(aRetorno,aTitulo)

Return (aRetorno)

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão 3

Chave