Atualização de código do acbrboleto

[alfadesign]

Boa Noite pessoal,
Na unit ACBr\Fontes\ACBrBoleto\ACBrBancoCaixa.pas na função: GerarRegistroTransacao240 está com erro ao gerar boletos para emissão e envio pela própria caixa. Fiz a correção e gostaria que vcs atualizassem no svn:

Na linha 535 esta assim:

      {Pegando a Modalidade}
        AModalidade:= RetornaModalidade(ACBrTitulo);

logo ABAIXO dessa linha tem que INCLUIR: 

      if ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite then
        AModalidade:= '00';

se não incluir este código, a caixa rejeita a remessa quando optamos pelo próprio banco fazer o envio do boleto ao cliente (ou seja, quando ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite)

[Juliana Tamizou]

Bom dia.

Sempre que fizer uma contribuição, anexe a unit alterada e o manual no qual a mesma se baseia (Se já consta no svn, basta indicar a pagina).

Em relação a sua alteração, não faz sentido tratar desta forma, observe que já existe uma função especifica para calcular a modalidade correta RetornaModalidade(), qualquer alteração deverá ser feita dentro dela.

Att.

[alfadesign]

Realmente o código estava certo. No meu código eu tinha que colocar:         CarteiraEnvio := tceBanco; aí o banco aceitou.

Obrigado.