Alterações Remessa Caixa E Retorno Banrisul

[Denise Lima]

Boa tarde!

     Implementando a leitura de arquivos retorno do Banrisul, precisei adicionar a leitura da carteira. Segue em anexo alteração realizada.

     Já para o banco da Caixa, tenho clientes que fazem uso da remessa, e o tipo de envio é pela agência, para isso há a necessidade de que a modalidade da carteira esteja disposta no arquivo remessa, antes estava enviando o '14' como constante. Segue anexo com alterações para análise.

ACBrBancoBanrisul.pas

ACBrBancoCaixa.pas

[aocampioni]

Estimado,

 

Bom dia! Sua alteração é boa, mas o ACBr já possui uma propriedade Modalidade que pode ser utilizada. Fixo como está, necessitará de outra alteração no futuro pois há quem use a carteira 12 (cobrança rápida), e/ou ainda a 41 (descontada).

 

Sugestão:

 

      if( padR(trim(ACBrBoleto.Cedente.Modalidade),2,'0') = '00') then
      begin
        if ACBrTitulo.CarteiraEnvio = tceCedente then
          ACBrBoleto.Cedente.Modalidade := '14'
        else
          ACBrBoleto.Cedente.Modalidade := '11';
      end;

Isso daria chance  para o usuário escolher também a carteira 12 ou 41 usando a propriedade Modalidade.

 

E no registro gerado ao invés de :

               padL(ACBrBoleto.Cedente.CodigoCedente, 6, '0')             + //24 a 29 - Código do Convênio no Banco (Codigo do cedente)
               padL('', 11, '0')                                          + //30 a 40 - Uso Exclusivo da CAIXA
               ACarteiraEnvio                                             + //41 a 42 - Modalidade da Carteira
               padR(Copy(ANossoNumero,3,17), 15, '0')                     + //43 a 57 - Nosso número - identificação do título no banco
               '1'                                                        + //58 - Cobrança Simples

Isso:

               padL(ACBrBoleto.Cedente.CodigoCedente, 6, '0')             + //24 a 29 - Código do Convênio no Banco (Codigo do cedente)
               padL('', 11, '0')                                          + //30 a 40 - Uso Exclusivo da CAIXA
               padR(ACBrBoleto.Cedente.Modalidade, 2, '0')                + //41 a 42 - Modalidade da Carteira:11 simples / 12 rápida / 14 sem registro / 41 descontada
               padR(Copy(ANossoNumero,3,17), 15, '0')                     + //43 a 57 - Nosso número - identificação do título no banco
               '1'                                                        + //58 - Cobrança Simples

Mas é apenas uma sugestão tá ok, já que remessa não se gera com modalidade 14, mas veja aí o que você acha e se a Juliana ou o Juliomar concordarem também, pode-se alterar a unit da caixa assim. 

 

Até mais,

[Denise Lima]

Olá Alexandre,

       Obrigada pela sugestão, eu realmente havia esquecido que ja existe a propriedade "Modalidade" no ACBr, estarei revendo as alterações para melhorar e disponibilizá-las.