Ir para conteúdo
  • Cadastre-se

dev botao

Customizar O Boleto Vencimento E Valor


  • Este tópico foi criado há 3852 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Leandro dos Santos
Analista / Desenvolvedor
 

Link para o comentário
Compartilhar em outros sites

  • Administradores

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.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

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.

------------------------------------------------

Jéter Rabelo Ferreira
Campestre/MG

Link para o comentário
Compartilhar em outros sites

  • Administradores

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.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

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.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

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.

post-355-0-12788500-1377919304_thumb.png

Leandro dos Santos
Analista / Desenvolvedor
 

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

 

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

 

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

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.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3852 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.