Histórico da Página

Ponto de Entrada LJTelaRec

01. DADOS GERAIS

Descrição:

Este Ponto de Entrada tem por objetivo substituir a tela padrão de Recebimento de Títulos.

O Ponto de entrada é executado antes da chamada da tela de Recebimento de Títulos para substituir a tela padrão.

Programa(s) Fonte:

LOJXREC.PRW

Parâmetros:

Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Colapse ALL

Expand ALL

LJTelaRec - Substituição de tela padrão

Ponto de entrada antes da chamada da tela de recebimento de titulos para substituir a tela padrão.

Versões

Protheus 10

Sintaxe

LJTelaRec - Substituição de tela padrão [ ExpA1 ] [ ExpC2 ] [ ExpC3 ] [ ExpC4 ] [ ExpC5 ] [ ExpL6 ] [ ExpA7 ]

...

Nome	Tipo	Descrição

...

aRet

...

Array

Parâmetro passado como referência que deve ser alimentado com informações dos títulos que estão sendo recebidos. Este array

...

é composto de duas posições :

...

1ª. posição: Numérico contendo o valor total recebido 2ª. posição: Array de títulos
cMV_LJRECEB	Caractere	Conteúdo configurado no parâmetro MV_LJRECEB
cRecCart	Caractere	Número do Cartão (SIGACRD)
cRecCPF	Caractere	CPF do cliente
cRecCont	Caractere	Número do contrato (SIGACRD)
lOcioso	Lógico	Indica se está aguardando (Informação reservada de uso interno do sistema)
aTitulo	Array	Parâmetro passado como referência que deve ser alimentado com informações dos títulos que estão sendo recebidos. Este array deve ser atualizado com a mesma informação contida da posição 2 do array aRet no final deste Ponto de Entrada. Exemplo: aTitulo := aRet[2]

Retorno:

Tipo	Descrição
Lógico	.T. (Abre a tela padrão de recebimento) / .F. (Ignora a tela padrão de recebimento)

Observações:

Quando esse Ponto de Entrada retorna .F. (false), a tela padrão de Recebimento de Títulos não é aberta e o sistema é direcionado direto para a tela de pagamentos da Venda Assistida.

02. EXEMPLO DE UTILIZAÇÃO

Abrangência

Protheus 10

Nível Acesso

Nível 1 (Acesso Clientes)

Países

Brasil

Sistemas Operacionais

Windows

Base de Dados

Todos

Bloco de código

language	delphi
firstline	1
linenumbers	true

User  Function LJTelaRec( aRet, cMV_LJRECEB, cRecCart, cRecCPF, cRecCont, lOcioso, aTitulo )

/* Aqui fica a tratativa no desenvolvimento da tela customizada de recebimento de títulos. */

//Exemplo de recebimento de um título no valor de 30,00 com desconto de 2,00.

/* aRet é parâmetro de referência e será utilizado para a baixa do título. Deverá ser alimentada na seguinte estrutura: */
aRet := { 28,; //valor do título (já considerando o desconto)
{;
 {; // Primeiro título 
     .T.,;                              //|TIT_SELE | Lógico    |               |   01-Posicao lógica (.T. marca o título para baixa, .F. não marca o título para baixa)
     "001",;                            //|TIT_PREF | Caractere | E1_PREFIXO    |   02-Prefixo do titulo
     "000001   ",;                      //|TIT_NUME | Caractere | E1_NUM        |   03-Número do Titulo
     "1  ",;                            //|TIT_PARC | Caractere | E1_PARCELA    |   04-Parcela
     ctod("30/12/2030"),;               //|TIT_VREA | Data      | E1_VENCREA    |   05-Vencimento real
     30,;                               //|TIT_VALO | Numérico  |               |   06-Valor do Título
     0,;                                //|TIT_MULT | Numérico  | E1_MULTA      |   07-Multa
     0,;                                //|TIT_JURO | Numérico  | E1_JUROS      |   08-Juros
     2,;                                //|TIT_DESC | Numérico  |               |   09-Valor de Desconto
     28,;                               //|TIT_RECE | Numérico  |               |   10-Valor recebido
     "FI ",;                            //|TIT_TIPO | Caractere | E1_TIPO       |   11-Tipo
     "          ",;                     //|TIT_CONT | Caractere | E1_NUMCRD     |   12-Número do Contrato CRD
     "000002",;                         //|TIT_CLIE | Caractere | E1_CLIENTE    |   13-Cliente
     "01",;                             //|TIT_LOJA | Caractere | E1_LOJA       |   14-Loja
     "D SP 01 ",;                       //|TIT_FILI | Caractere | E1_FILIAL     |   15-Filial
     931,;                              //|TIT_RECN | Numérico  | SE1->(Recno())|   16-Recno do registro da tabela SE1
     0,;                                //|TIT_ACRS | Numérico  | E1_SDACRES    |   17-Acrescimo financeiro
     .F.,;                              //|TIT_CACR | Lógico    | .F.           |   18-Posicao lógica - Posicao reservada de uso interno
     0,;                                //|TIT_ABAT | Numérico  | 0             |   19-Valor de Abatimentos
     ctod("30/12/2030"),;               //|TIT_VENC | Data      | E1_VENCTO     |   20-Vencimento original
     "000002D SP 01 001000001   1  ",;  //|TIT_LOCK | Caractere | SE1->E1_CLIENTE+SE1->E1_FILIAL+SE1->E1_PREFIXO+SE1->E1_NUM+SE1->E1_PARCELA | 21-Cod. de uso do Registro para controle de LOCK
     1,;                                //|TIT_MOED | Numérico  | E1_MOEDA      |   22-Código da moeda do título
     NIL,;                              //|TIT_INTE | Numérico  | Nil           |   23-Interes (Juros) - Posicao reservada de uso interno
     ctod("  /  /  "),;                 //|TIT_DTBX | Data      | E1_BAIXA      |   24-Data da baixa
     30,;                               //|TIT_SALD | Numérico  | E1_SALDO      |   25-Saldo do título
     0;                                 //|TIT_VLIQ | Numérico  | E1_VALLIQ     |   26-Valor Liquido
  };
 ,;
  {;// Segundo título...
  };
 ,;
  {;// Terceiro título...
  };
 };
}


aTitulo := aRet[2] //Atualiza o Array aTitulo

Return .F.

e a 2º contendo o array de titulos.

{ 0 , { } }

ExpC2

caracter

cMV_LJRECEB , conteudo do parametro MV_LJRECEB : Conteudo do MV_LJRECEB "1" - Financeiro,"2" - Gestao Educacional, "3" - Fidelizacao e Analise de Credito ,"4" - EMS - Eletronic Market Solution

" "

ExpC3

caracter

cRecCart - Numero do Cartao.

""

ExpC4

caracter

cRecCPF - CPF do cliente

""

ExpC5

caracter

cRecCont - Numero do contrato

" "

ExpL6

logico

lOcioso - indica se está aguardando

.F.

ExpA7

array_of_record

aTitulo , array contendo os titulos em aberto

{ }

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

Ponto de Entrada LJTelaRec

01. DADOS GERAIS

LJTelaRec - Substituição de tela padrão

Ponto de entrada antes da chamada da tela de recebimento de titulos para substituir a tela padrão.

02. EXEMPLO DE UTILIZAÇÃO