Árvore de páginas

Carregando...

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
DescriçãoPonto de entrada para validar 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

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 e manipular valores do titulo
        */       
       
    EndIf
NexT
 
Aadd(aRetorno,nTotal)
Aadd(aRetorno,aTitulo)

Return (aRetorno)

...