Linha Microsiga Protheus

Árvore de páginas

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:
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]

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.

02. EXEMPLO DE UTILIZAÇÃO

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.