Árvore de páginas

Carregando...
DescriçãoPonto de entrada para verificar os dados do título a ser pago, podendo também manipular o valor a ser recebido.
Programa fonteLOJXREC.PRW
Parâmetros
NomeTipoDescrição

Paramixb[1]

NuméricoValor total do/s título/s Selecionado/s (Não pode ser manipulado)

Paramixb[2]

Array

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

PosiçãoTipoDescrição
01LógicoTitulo selecionado
02CaracterePrefixo
03CaractereNumero do título
04CaractereParcela
05DataVencimento
06NuméricoValor
07NuméricoValor Multa
08NuméricoValor Juros
09NuméricoValor Desconto
10NuméricoValor Recebido
11CaractereTipo
12CaractereContrato
13CaractereCliente
14CaractereLoja
15CaractereFilial Titulo
16NuméricoRecno
17NuméricoValor Acréscimo
18LógicoConc. Acrs.
19NuméricoValor abatimento
20DataVencimento Original
21CaractereLock
22NuméricoMoeda
23NIL-
24DataData da baixa
25NuméricoSaldo
26NuméricoValor Liq
Retorno

Array de duas posições na seguinte estrutura:

Posição 01Valor numérico recebido por Paramixb[1], com valor total a ser recebido, deve ser retornado o mesmo valor que foi recebido.
Posição 02Array recebido pelo Paramixb[2] com os títulos do cliente.
OBS: A única posição que é efetivamente verificada pelo padrão será a posição 10 de valor a ser recebido.
Exemplo

User Function 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 := 1 To Len(aTitulo)
    If aTitulo[nX][01] // Titulo selecionado?

        /*
        || Lógica para verificar e manipular valores do titulo
        */       
       
    EndIf
NexT
 
Aadd(aRetorno,nTotal)
Aadd(aRetorno,aTitulo)

Return (aRetorno)