ACBr Banco Banrisul CNAB 240

[Filipe Sortica]

Olá! Boa noite a todos!

Estou postando aqui no fórum a implementação que fiz da Remessa de 240 posições para o Banco Banrisul, e a envio para análise.

ACBrBancoBanrisul.pas

Ainda farei o Retorno de 240 posições.

Fico no aguardo.

Att,

Filipe Sortica

[Juliana Tamizou]

Bom dia Filipe.

Assim que possivel será disponibilizado no svn. Obrigada pela contribuição.

Att.

[alexfermiano]

Seguinte pelo que eu percebi o layout do Banrisul Cnab240 está sendo baseado nas regras do doc do link:

http://www.boletophp.com.br/documentaca ... nrisul.zip

Mas no link do proprio banrisul: http://www.banrisul.com.br/bob/data/Cob ... 032010.pdf está diferente, pelo menos na linha digitável após o segundo "bb" a constante deveria ser "40" e não "41" como está sendo atualmente.

Qual seria o correto??

[alexfermiano]

Ninguem está fazendo boletos para o banrisul???

Segue a duvida acima.

[j2c9m7]

Estou emitindo boletos do Banrisul a 2 meses aprox e em varios clientes!

A rotina esta correta! e nao tive nenhum problema ate o momento!

Informe-se mais a respeito!

[j2c9m7]

atualizei pelo svn hoje, e realmente, temos problemas com Banrisul

a alteracao de formatacao da agencia, conta, e carteira

foi feita em todos os boletos, e esquecido no Banrisul!!!

favor adicionar as linhas com alteracao, conforme abaixo e subir pro svn

constructor TACBrBanrisul.create(AOwner: TACBrBanco);

begin

inherited create(AOwner);

fpDigito:=8;

fpNome:='Banrisul';

fpTamanhoMaximoNossoNum:=8;

fpTamanhoAgencia := 3; // alteracao

fpTamanhoConta := 7; // alteracao

end;

[Daniel Simoes]

Juliana,

Já verificou essa correção ? (parece que o SVN ainda não foi atualizado)

[j2c9m7]

Daniel

com campo fpTamanhoAgencia := 3 funciona tudo, apesar de estar errado!

o correto realmente(cfe manual do banco), seria fpTamanhoAgencia := 4 porem deve se alterar a rotina MontarCodigoBarras

usar no

constructor TACBrBanrisul.create(AOwner: TACBrBanco);

fpTamanhoAgencia := 4

e no

function TACBrBanrisul.MontarCodigoBarras(const ACBrTitulo: TACBrTitulo): string;

CampoLivre:= Modalidade +

padR(copy(ACBrBoleto.Cedente.Agencia,2,3), 3, '0')+ { Código da agência (apesar de ter 4, so usa 3 no boleto) }

padR(ACBrBoleto.Cedente.Conta, 7, '0') + { Código conta 7, Codigo do Cedente 9 }

padR(NossoNumero, 8, '0')+{ Nosso número 8}

'041';

pois o Banrisul, so utiliza 3 digitos da agencia no boleto

Abraços

[alexfermiano]

Tenho receio de alterar as units, sem ser pelo svn. Alguém tem alguma previsão de guando esta correção estará no svn???

Obrigado.

[Juliana Tamizou]

Bom dia.

Estive um pouco sem tempo estes dias, porém esta semana estarei disponibilizando no svn suas correções.

Att.