Correções Remessa Bb E Instruções Carnê Fastreport

[andersonh]

Ola pessoal, segue abaixo duas mudanças que tive que fazer:

 

Alteçãoes ACBrBancoBrasil

procedure GerarRegistroTransacao400(ACBrTitulo : TACBrTitulo; aRemessa: TStringList); override;

Caso Comando da Posição 157 ou 159 for 06(Protesto em dias corridos), deve ser informado na

posição 392 o número de dias para protesto, sendo que estava levando apenas um digito no dias de

protesto causando erro no layout do arquivo pois deve ser 2 digitos. Segue correção efetuada:

padR(DiasProtesto,2,'0')+ ' '                           + // Número de dias para protesto + Branco

 

 

 

Alterações ACBrBoletoFCFortesFr

procedure TACBRBoletoFCFortesFr.RLBand3BeforePrint ( Sender: TObject;  var PrintIt: boolean ) ;

A linha abaixo estava comentada, sendo que não estava imprimindo as instruções no Carnê causando

a rejeição dos bloquetos pelo banco no momento da homologação, removido comentário.

ACBrBoletoFC.ACBrBoleto.AdicionarMensagensPadroes(Titulo,MensagemPadrao); //-- Anderson : estava comentado

 

 

Segue anexo units ajustadas em funcionamento para atualizar no SVN.

Editado 9 Abril, 2013 por andersonh

[Isaque Pinheiro]

Assim que possível a Juliana irá avaliara sua contribuição, obrigado.

[Juliana Tamizou]

Bom dia.

 

Correção disponível no svn.

 

Att.