Árvore de páginas

Versões comparadas

Chave

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

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

...

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.
Protheus 12

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

...

NomeTipoDescrição

...

aRet

...

Array

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

...

é composto de duas posições :

  • 1ª. posição:

...

Retorno

...

  • Numérico contendo o valor total

...

  • recebido
  • 2ª. posição: Array de títulos
cMV_LJRECEBCaractere

Conteúdo configurado no parâmetro MV_LJRECEB

cRecCartCaractereNumero do Cartão
cRecCPFCaractereCPF do cliente
cRecContCaractereNúmero do contrato
lOciosoLógicoIndica se está aguardando
aTituloArray

Array contendo os títulos. Este array deve ser atualizado com a mesma informação da posição 2 do array aRet antes 

Exemplo: aTitulo := aRet[2]

cSerieRecCaractere
cReciboCaractere
cCodCliCaractere
cLojaCliCaractere
cLojCliCaractere
lFCHCONLó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.

02. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagedelphi
firstline1
linenumberstrue
User Function LJNumTit()
Local _aArea    := GetArea()
Local _cLjE1Num := ParamIXB[1] //Informação configurada no parâmetro MV_LJE1NUM.
Local _cNumSe1  := ParamIXB[2] //Número do título definido pela regra padrão do sistema.

//Defina aqui sua regra para determinar o número do título da venda que será gerado na tabela SE1
_cNumSe1:= "XXXXXXXXX" //Novo numero do Título definido

RestArea(_aArea)

Return _cNumSe1

Exemplo

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. */

/* aRet é parâmetro de referência e será utilizado para a baixa do título. Deverá ser alimentada na seguinte estrutura: */

aRet := { <valor do título>,;

{;

 {;

     /* Primeiro título */

     TIT_SELE,;     //01-Posicao lógica (.T. marca o título para baixa, .F. não marca o título para baixa)

     TIT_PREF,;    //02-Prefixo do titulo, carácter.

     TIT_NUME,; //03-Titulo, carácter.

     TIT_PARC,;   //04-Parcela, carácter.

     TIT_VREA,;   //05-Vencimento real, data.

     TIT_VALO,;   //06-Valor, numérico.

     TIT_MULT,;   //07-Multa, numérico.

     TIT_JURO,;   //08-Juros, numérico.

     TIT_DESC,;   //09-Desconto, numérico.

     TIT_RECE,;   //10-Recebimento, numérico.

     TIT_TIPO,;   //11-Tipo, carácter.

     TIT_CONT,; //12-Contrato, carácter.

     TIT_CLIE,;    //13-Cliente, carácter.

     TIT_LOJA,;   //14-Loja, carácter.

     TIT_FILI,;     //15-Filial, carácter.

     TIT_RECN,; //16-Recno - número da posição do registro da tabela SE1, numérico.

     TIT_ACRS,; //17-Acrescimo financeiro, numérico.

     TIT_CACR,; //18-Posicao logica, lógico.

     TIT_ABAT,;  //19-Abatimentos, numérico.

     TIT_VENC,;  //20-Vencimento original, data.

     TIT_LOCK,;  //21-Cod de uso do Registro, carácter.

     TIT_MOED,; //22-Codigo da moeda do titulo, numérico.

     TIT_INTE,;  //23-Interes (Juros) - Posicao reservada, numérico.

     TIT_DTBX,; //24-Dt. da baixa, data.

     TIT_SALD,; //25-Saldo do titulo, numérico.

     TIT_VLIQ;  //26-Valor Liquido, numérico.

  };

  {;

    /* Segundo título */

  };

  {;

    /* Terceiro título */

  };

   ...

 };

}

Return .F.  /* Não irá abrir a tela padrão e irá direto para a tela de pagamentos da Venda Assistida */

Abrangência

Protheus 12
Nível 1 (Acesso Clientes)
Brasil
Windows
Todos