Alteração TACBrBoleto e TACBrBancoBanrisul - Motivo : Conta

[lukas1056]

Olá pessoal estive verificando e percebi que ao passar as informações necessárias para gerar o arquivo de remessa para o Banrisul o mesmo estava gerando o numero da conta incorretamente, por exemplo se a minha conta for " 35.1287420-9 " (Conta fictícia criada apenas para exemplo com números aleatórios ), sendo os dois primeiros dígitos utilizados para identificar o tipo da conta , os próximos sete como o numero da conta e o ultimo como digito verificador. 

Acontece que antes da alteração feita só era possível adicionar o Numero da conta e o digito verificador, mas ao setar a conta com os 9 dígitos  passa pela função IntToStrZeros que faz o tamanho ficar 7 que é o tamanhoConta no TAcbrBancoBanrisul, então a minha alteração feita foi apenas adicionar mais uma property ao ACBrBoleto "CodTpoConta" que ira receber esse código que vem antes do numero da conta, para que no momento da geração do arquivo o mesmo seja gerado corretamente  contendo os três zeros como informa o manual, o código do tipo da conta e o numero da conta propriamente dito com os 7 digitos.

Imagens: 

 

 Adicionado a variavel

 

Adicionado a Property

 

 

Alterado para ao gerar o Header seja colocado a conta com os três zeros mais o código do tipo da conta e o numero da conta.

Alteração no GerarRegistroHeader240

 

 

Alteração no Segmento P

                                                      

 Nesta parte a conta vai ser formatada assim dizendo de acordo com o TamanhoConta definido no TACBrBancoBanrisul, no caso 7 dígitos

Set Conta

 

Nesta parte pode ser visto o tamanho da conta do banrisul que é usada  na função da imagem anterior.

Tamanho da Conta

Essa função serviria para colocar zeros caso o tamanho do numero fosse menor que o tamanho passado, mas neste caso remove digitos pois o numero passado é maior que o Tamanho definido. (No caso o numero tem 9 digitos e o tamanho é  7).

Função IntToStrZeros

 

 

Manual do Banrisul CNAB240

 

Conta corrente.

 

Link do manual: http://www.banrisul.com.br/bob/data/CobrancaEletronicaBanrisul_layout_pdr_Febraban240_vrs25102013.pdf?cache=9

Arquivos para teste: ModificaçoesBanrisul.rar

Bom gente, primeiramente agradeço a atenção de todos, gostaria que fosse validado essas alterações pois acredito que seja desta maneira que deva ser tratado a conta no caso do banrisul, e se eu estiver errado sobre algo por favor me digam! Sou iniciante no Delphi, mas essa foi a forma que encontrei para gerar o arquivo com essas informações corretas.

Estou no aguardo da validação desta alteração. Muito Obrigado.