Adição de Nova Propriedade

[joemil]

Ola pessoal, estou dando manutencao em um sistema, e precisei fazer o processamento do arquivo retorno do bradesco, porem os boletos sao gerados pelo CobrebemX. Devido a algumas caracteristicas pra gerar os boletos feitos pelos programadores anteriores, algumas informacoes sao gravadas no banco "juntando" varias propriedades. uma delas é o campo nosso numero, q é gravado junto com o digito verificador.

Devido a essas particularidades, tive q adicionar uma nova propriedade ao componente, pra pegar o Digito Verificador do NossoNumero no arquivo de retorno (cnab400).

se possivel, podem adicionar este field ao componente?

As alteracoes q fiz foram estas:

Arquivo: ACBrBoleto.pas
Linha: 819 (logo abaixo do field fNossoNumero)
Código: fDigNossoNumero       : String;

Linha: 880 (logo abaixo da propriedade NossoNumero)
Código: property DigNossoNumero    : String      read fDigNossoNumero    write fDigNossoNumero;

     
arquivo: ACbrBoletoBradesco
Linha: 523 (Procedure TACBrBancoBradesco.LerRetorno400 ( ARetorno: TStringList )
            logo abaixo da linha: NossoNumero          := Copy(Linha,71,11);)
Código: DigNossoNumero       := Copy(Linha, 82,1);

nao sei se é possivel, mas precisei fazer isso aqui. os arquivos estao no anexo
 

ACBrBancoBradesco.pas

ACBrBoleto.pas

[joemil]

Ola pessoal, mais uma alteracao, agora para o SICOOB: DigNossoNumero:

Arquivo: ACBrBoletoBancoob

Linha 656 (Procedure TACBrBancoBradesco.LerRetorno400 ( ARetorno: TStringList )

Código:          DigNossoNumero       := Copy(Linha, 74, 1);

ACBrBancoBancoob.pas