Histórico da Página

...

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:

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]	cSerieRec	Caractere	cRecibo	Caractere	cCodCli	Caractere	cLojaCli	Caractere	cLojCli	Caractere	lFCHCON	Lógico

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.

...

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 := { <valor28,; //valor do título>,;

 título (já considerando o desconto)
{;
 {; // Primeiro título 
     /* 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)
     TIT_PREF,;"001",;                            //|TIT_PREF | Caractere | E1_PREFIXO    |   02-Prefixo do titulo
     "000001   ", carácter.
;                      //|TIT_NUME,; //03-Titulo, carácter.
 | Caractere | E1_NUM        |   03-Número do Titulo
     "1  ",;                            //|TIT_PARC,; | Caractere | E1_PARCELA    |   //04-Parcela
     ctod("30/12/2022"), carácter.
;               //|TIT_VREA,; | Data      | E1_VENCREA    |   //05-Vencimento real
     30, data.
;                               //|TIT_VALO,; | Numérico  |               |   //06-Valor, do numérico.Título
     TIT_MULT,;0,;                                //|TIT_MULT | Numérico  | E1_MULTA      |   07-Multa
     0, numérico.
;                                //|TIT_JURO,; | Numérico  | E1_JUROS      |   //08-Juros
     2, numérico.
;                                //|TIT_DESC,; | Numérico  |               |   //09-Valor de Desconto
     28, numérico.
;                               //|TIT_RECE,; | Numérico  |               |   //10-Recebimento,Valor numérico.recebido
     TIT_TIPO,; "FI ",;                            //|TIT_TIPO | Caractere | E1_TIPO       |   11-Tipo
     "          ", carácter.
;                     //|TIT_CONT,; //12-Contrato, carácter. | Caractere | E1_NUMCRD     |   12-Número do Contrato CRD
     TIT_CLIE,;"000002",;                         //|TIT_CLIE | Caractere | E1_CLIENTE    |   13-Cliente
     "01", carácter.
;                             //|TIT_LOJA,;_LOJA | Caractere | E1_LOJA       |   //14-Loja
     "D SP 01 ", carácter.
;                       //|TIT_FILI,; | Caractere | E1_FILIAL     |  // 15-Filial
     931, carácter.
;                              //|TIT_RECN,; //16-Recno - número da posição | Numérico  | SE1->(Recno())|   16-Recno do registro da tabela SE1
     0, numérico.
;                                //|TIT_ACRS,; // | Numérico  | E1_SDACRES    |   17-Acrescimo financeiro
     .F., numérico.
;                              //|TIT_CACR,; //18-Posicao logica, lógico. | Lógico    | .F.           |   18-Posicao lógica - Posicao reservada de uso interno
     TIT_ABAT0,;                                //|TIT_ABAT | Numérico  | 0             |   19-Valor de Abatimentos
     ctod("30/12/2022"), numérico.
;               //|TIT_VENC,;  // | Data      | E1_VENCTO     |   20-Vencimento original, data.

     "000002D SP 01 001000001   1  TIT_LOCK",;  //|TIT_LOCK | Caractere | SE1->E1_CLIENTE+SE1->E1_FILIAL+SE1->E1_PREFIXO+SE1->E1_NUM+SE1->E1_PARCELA | 21-Cod. de uso do Registro, carácter. para controle de LOCK
     TIT_MOED1,;                                //|TIT_MOED | Numérico  | E1_MOEDA      |   22-CodigoCódigo da moeda do titulo, numérico.
 título
     NIL,;                              //|TIT_INTE,;  // | Numérico  | Nil           |   23-Interes (Juros) - Posicao reservada, numérico.
     TIT_DTBX,; //24-Dt. da baixa, data.
 de uso interno
     ctod("  /  /  "),;                 //|TIT_DTBX | Data      | E1_BAIXA      |   24-Data da baixa
     30,;                               //|TIT_SALD,; // | Numérico  | E1_SALDO      |   25-Saldo do titulo, numérico.
título
     0;                                 //|TIT_VLIQ; | Numérico  | E1_VALLIQ     |   //26-Valor Liquido, numérico.
  };

  {;
    /* Segundo título */
  };

  {;
    /* Terceiro título */
  };

   ...

 };

}
}


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

Return .F.

Árvore de páginas

Versões comparadas

Versão antiga 13

Nova versão 14

Chave