Remessa Sicoob diferentes contas correntes

[jun_pdv]

Galera, seguinte, já emito boletos há algum tempo usando os componentes da ACBR, porém um de meus clientes abriu uma conta principal e sete subcontas no sicoob, ele planeja emitir boletos por todas essas contas, até ai, ok! O problema é ao gerar a remessa, conversei com o banco e eles disseram que eu posso gerar uma unica remessa com contas diferentes, desde que eu preencha os campos do seguimento P, conta corrente corretamente, porém mesmo eu fazendo isso, quando vou gerar a remessa, ela está preenchendo o campo conta corrente com os dados do ultimo seguimento P do meu lote da remessa(como se subscrevesse os dados anteriores). A minha pergunta é, estou fazendo algo de errado ou até o momento só é possível gerar uma remessa por conta corrente pelo acbr boleto?

 

Exemplo do meu código:

for i := 0 to Modulo3.qReceberSocios.RecordCount -1 do
         begin
           Titulo := dm.ACBrBoleto.CriarTituloNaLista;
           with objReceber do
           begin
             RecReceber(Modulo3.qReceberSocios);

             case objReceber.kyban of
              033 : begin
                      dm.ACBrBoleto.Cedente.Modalidade := '101';
                      dm.ACBrBoleto.Cedente.CaracTitulo:= tcVinculada; // Cobrança simples(rápida com registro)
                      dm.ACBrBoleto.Banco.TipoCobranca := cobSantander;
                    end;
              104 : dm.ACBrBoleto.Banco.TipoCobranca := cobCaixaEconomica;
              756 : begin
                       dm.ACBrBoleto.Cedente.Modalidade := '01';
                       dm.ACBrBoleto.Banco.TipoCobranca := cobBancoob;
                    end;
             end;

             //Pego os dados da conta corrente do boleto aqui

             objConta := TConta.create;
             objConta.selConta('AND codigo ='+IntToStr(kyCon), Modulo3.qConta1);
             objConta.recConta(Modulo3.qConta1);

             dm.ACBrBoleto.Cedente.TipoInscricao     := pJuridica;
             dm.ACBrBoleto.Cedente.Nome              := objClube.razso;
             dm.ACBrBoleto.Cedente.CNPJCPF           := objClube.cnpjc;
             dm.ACBrBoleto.Cedente.Agencia           := objConta.agenc;
             dm.ACBrBoleto.Cedente.AgenciaDigito     := objConta.agedv;
             dm.ACBrBoleto.Cedente.Conta             := objConta.cdcon;
             dm.ACBrBoleto.Cedente.ContaDigito       := objConta.condv;
             dm.ACBrBoleto.Cedente.ResponEmissao     := tbCliEmite;
             dm.ACBrBoleto.Cedente.CodigoCedente     := objConta.ceden;
             dm.ACBrBoleto.Cedente.TipoCarteira      := tctRegistrada;
             dm.ACBrBoleto.Cedente.CodigoTransmissao := objConta.agenc+'0000'+objConta.ceden;

[...]

 

Como podem observar coloquei os dados da conta dentro de um for, porém mesmo ele pegando corretamente os dados da conta corrente cada vez que ele passa nesse laço, quando vai montar a remessa, ele subscreve os dados das contas anteriores com o dado da ultima vez que ele passar pelo laço.

[Juliana Tamizou]

Bom dia.

Exatamente, o componente não foi projetado para incluir numa mesma remessa diferentes contas bancárias.

Att.