Ajustes Na Impressão Do Boleto E Remessa Arq. Banrisul

[Moroni]

Boa tarde!

 

Eu precisei realizar uma impressão de boleto onde as mensagens(instruções) ocupassem toda a largura disponível possível e várias linhas com quebras de linha.

Utilizo o layout 'PadrãoEntrega', na parte do 'Recibo do Sacado' estava tudo ok mas no recibo do banco(o último) estava me ocorrendo problemas. ou seja, a largura disponivel era menor. Tive que realizar as seguintes alterações:

 

na unit ACBrBoletoFCQuickFr:

 

txInstrucaoes6_2 : Width = 477 --> 562 e

                              Top = 849 --> 851

 

txInstrucaoes3 :     Width = 477 --> 562 e

                              Top = 614 --> 616

 

Outro detalhe é na unit ACBrBancoBanrisul:

 

 if (DataProtesto = 0) then begin
      // estava fixo "04" para dias de protesto
      DataProtesto := IncDay(Vencimento, 4);
 end;

 

Comentei toda esta parte acima, pois desta forma sempre terá protesto mesmo eu não querendo e isto estava causando erro na consistência com o banco.

 

               '000'                                                            + // taxa para multa após o vencimento

               '00'                                                              + // dias para multa após vencimento

troquei por

               IntToStrZero(Round(PercentualMulta*10), 3)                       + // taxa para multa após o vencimento
               IfThen((DataMoraJuros <> 0) and (DataMoraJuros > Vencimento),
                      padR(IntToStr(DaysBetween(DataMoraJuros, Vencimento)), 2, '0'),
                      '00')                                                     + // dias para multa
 

pois estas duas posições estavam fixas mesmo tendo multa para ser cobrado.

 

Att.,

Rafael Moroni

[Juliana Tamizou]

Boa noite.

 

Por favor anexe a unit alterada aqui.

 

Att.

[Moroni]

Boa noite!

 

Estou anexando as units alteradas para realização do commit.

 

Att.,

Rafael Moroni

ACBrBancoBanrisul.pas

ACBrBoletoFCQuickFr.pas

[guilhermeurutun]

Pessoal,

 

Estas correções já foram atualizadas no SVN? Pois realizei o commit e não estão atualizadas.

 

Obrigado.

Editado 16 Julho, 2013 por guilhermeurutun

[guilhermeurutun]

Pessoal,

 

Realizei mais alguns ajustes na unit ACBrBancoBanrisul.pas enviada acima pelo Moroni, segue abaixo as alterações e a nova Unit, favor avaliar e realizar o Commit.

 

//Adicionado SeuNumero na Procedure GerarRegistroTransacao400, onde havia somente a instrução de espaços.

padL(SeuNumero, 25, ' ')                  + //  id do título para o cedente (usado no arquivo de retorno)

 

//Adicionado Tipo de Boleto Escritual - '06'

 

{Pegando Tipo de Boleto}

case ACBrBoleto.Cedente.ResponEmissao of

  tbCliEmite    : TipoBoleto:='08';   //Cobrança credenciada Banrisul

  tbBancoEmite  : TipoBoleto:='06'; //Cobrança Escritural  ******Linha Adicionada******   

  tbBancoReemite: TipoBoleto:='04'; //Cobrança Direta

else

  TipoBoleto:='08'; //Cobrança credenciada Banrisul

end;

 

ACBrBancoBanrisul.pas