Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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:
NomeTipoDescrição
aRetArray

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_LJRECEBCaractere

Conteúdo configurado no parâmetro MV_LJRECEB.

cRecCartCaractereNúmero do Cartão .(SIGACRD)
cRecCPFCaractereCPF do cliente.
cRecContCaractereNúmero do contrato .(SIGACRD)
lOciosoLógicoIndica se está aguardando .(Informação reservada de uso interno do sistema)
aTituloArray

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]

cSerieRecCaracterecRecibo

CaracterecCodCliCaracterecLojaCliCaracterecLojCliCaracterelFCHCONLógico
Retorno:
TipoDescriçã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
languagedelphi
firstline1
linenumberstrue
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.