Mesclar Alteração Ao Código

[Eduardo Silva Dos Santos]

Boa tarde pessoal,

 

Utilizo o AcbrBoleto, para o Banco Banestes / ES, e ele não usa Dígito verificador da conta/agência, sugiro a alteração abaixo:

 

Unit ACBrBoleto.pas, linha 1975

 

procedure TACBrBoleto.ChecarDadosObrigatorios;

begin

   if (Cedente.Nome= '') or (cedente.Conta = '') or {(Cedente.ContaDigito ='') or } //Banestes não usa Digito verificador

      (Cedente.Agencia = '') {or (Cedente.AgenciaDigito = '')} then

     raise Exception.Create(ACBrStr('Informações do Cedente incompletas'));

end;

 

 

Obrigado.

Editado 8 Abril, 2014 por Eduardo Silva Dos Santos

[Juliomar Marchetti]

Boa tarde

favor anexar a unit alterada!

Essa alteração não irá ocasionar erro para os que já utilizam?

[Isaque Pinheiro]

Juliomar, não tenho implementado o ACBrBoleto no meu sistema, mas realmente o Banestes não tem digito verificador, e para que não haja efeito para os demais usuários, deve-se sobrepor o método "ChecarDadosObrigatorios" na unit do Banestes.

[Juliomar Marchetti]

Isaque estive olhando bem isso! abri o pacote aqui e estava a analisar essa implementação!

[Isaque Pinheiro]

Eduardo, como falei e verificando junto ao Juliomar essa alteração irá afetar aos demais bancos então tente assim e veja se funciona:

 

Depois nos relate se funcionou.

 

 

   if (Cedente.Nome= '') or (cedente.Conta = '') or ((Cedente.ContaDigito ='') and (Banco.TipoCobranca <> cobBanestes)) or

      (Cedente.Agencia = '') or ((Cedente.AgenciaDigito = '') and (Banco.TipoCobranca <> cobBanestes)) then

        raise Exception.Create(ACBrStr('Informações do Cedente incompletas'));

[Eduardo Silva Dos Santos]

Olá Isaque, solução perfeita, funcionou certinho.

 

Eu realmente não tinha pensado nos outros Bancos, atualmente só uso Banestes.

 

Obrigado.

[Isaque Pinheiro]

Blz, o código já está atualizado no repositório, obrigado pelo retorno.