Linha Microsiga Protheus

Árvore de páginas

Carregando...

Versões comparadas

Versão antiga 1

changes.mady.by.user Joao Marcos Martins de Souza

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Joao Marcos Martins de Souza

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
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

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)

CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
  3. Tela XXX
    1. Outras Ações / Ações relacionadas
  4. Tela XXX
    1. Principais Campos e Parâmetros
  5. Tabelas utilizadas

01. VISÃO GERAL

02. EXEMPLO DE UTILIZAÇÃO

03. TELA XXXXX

Outras Ações / Ações relacionadas

...

04. TELA XXXXX

Principais Campos e Parâmetros

...

Card documentos
InformacaoUse esse box para destacar informações relevantes e/ou de destaque.
TituloIMPORTANTE!

...