Customizar O Boleto Vencimento E Valor

[Leandro SSilva {0,1}]

Bom dia !

Pessoal gostaria de saber se tem como customizar o boleto?

 

Ex: preciso imprimir boletos com valor e vencimento em branco, porque?

os boletos tem que ser semi-impresso sem vencimento e valor, pois esses dados são colocados manualmente no momento da entrega do boleto ao consumidor final, os boletos são gerados e liberado dai quando chega ao consumidor a pessoa que entrega preencher esses dois campos, o boleto é do tipo cobrança sem registro.

[Juliana Tamizou]

Boa tarde.

 

Isso parece aqueles boletos gerados normalmente para cartões de crédito que não tem vencimento e nem valor...

Atualmente não é possível emitir este tipo de boleto pelo componente, pois essas informações são utilizadas nos cálculos do DV do Código de Barras.

 

Att.

[Jéter Rabelo Ferreira]

Juliana, boa tarde.

 

Eu nunca precisei disso, mas não vejo problema em ser implementado.

 

O único tratamento do componente seria a impressão de '' nos campos de valores. Os cálculos dos DV's podem ser feitos normalmente, considerando os zeros do Fator Vencimento/Valor Boleto..

 

A impressão da linha digitável com o Fator Vencimento/Valor com zeros também pode ser opcional. Não vejo nenhum problema a impressão desses valores zerados.

 

Atenciosamente.

[Juliana Tamizou]

Bom dia Jeter.

 

Você tem razão, seria necessário apenas a modificação na impressão para não imprimir nada na data de vencimento e no valor.

 

Att.

[Leandro SSilva {0,1}]

Obrigado pela atenção pessoal, tambem acho que não seria tão problematico, em codificar na impressão.

 

Será possivel essa implementação?

[Juliana Tamizou]

Bom dia.

 

Poderia ser feito sim, porém até o momento nenhum dos administradores do projeto teve necessidade deste recurso, por isso teria que aguardar pela disponibilidade de ser feito, ou se desejar, você pode fazer a implementação e nos enviar as alterações.

 

Att.

[Leandro SSilva {0,1}]

Perfeito, então no final de semana eu vou mexer e aviso quando tiver pronto, obrigado pela atenção Juliana.     

[Leandro SSilva {0,1}]

Juliana mexi no código parece está ok.

 

só pra esclarecimento uso Delphi2010 e QuickReport 504

Geração de boleto sem registro, sem data de vencimento e valor.

 

Alterações:

 

na Unit ACBrBoleto o método foi modificado.

 

function TACBrBancoClass.CalcularFatorVencimento(const DataVencimento: TDatetime) : String;

begin

   //-- Leandro.SSilva

   //-- Se a data de vencimento não for preenchida na hora de adicionar os titulos

   //-- ela vira com valor default 30/12/1899 após o calculo abaixo retonara -35710

   //-- dai é preenchido com 0000.

 

   if IntToStr( Trunc(DataVencimento - EncodeDate(1997,10,07)) ) = '-35710' then

      Result:='0000'

   else         //-- linha original

      Result := IntToStr( Trunc(DataVencimento - EncodeDate(1997,10,07)) );

end;

 

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

 

Na Unit ACBrBoletoFCQuickFr no evento BeforePrint de cada um dos três QuickReport foi alterado a linha

 

      //-- Se a data vier 30/12/1899 sera impresso vazio no QuickReport

      //-- Leandro.SSilva

 

      if FormatDateTime('dd/mm/yyyy', Titulo.Vencimento) = '30/12/1899' then

         txtDataVencimento2.Caption      := ''

      else              //-- Linha original

         txtDataVencimento2.Caption      := FormatDateTime('dd/mm/yyyy', Titulo.Vencimento);

 

 

      //-- Leandro.SSilva

      //-- Se o valor vier 0 sera impresso vazio no QuickReport

 

      if Titulo.ValorDocumento = 0 then

         txtValorDocumento2.Caption      :=''

      else           //-- Linha original

         txtValorDocumento2.Caption      := FormatFloat('###,###,##0.00',Titulo.ValorDocumento);

 

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

 

fiz teste aqui e funcionou perfeito fico no aguardo sobre a implantação.

desde de já obrigado pela atenção.

[Juliana Tamizou]

Bom dia.

 

Por favor anexe as units alteradas para que possam ser analisadas mais facilmente.

 

Att.

[Leandro SSilva {0,1}]

Ola Juliana desculpe a demora segue as unit modificadas, para ser analisadas.

Unit Boleto.rar

[Juliana Tamizou]

Bom dia.

 

A alteração foi implementada de uma forma um pouco diferente, porém  com os mesmos resultados...já está disponível no svn.

 

Att.