Erro na montagem do código Barras BradescoSicoob.

[luciano_f]

Ao Administrador do Boleto existe um erro na montagem do Código de barras do BradescoSiccob.

function TACBrBancoBradescoSICOOB.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String;
var
  NossoNumero, CodigoBarras, FatorVencimento, DigitoCodBarras:String;
begin
   with ACBrTitulo.ACBrBoleto do
   begin
      FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento);
      NossoNumero := MontarCampoNossoNumero(ACBrTitulo);
      
      CodigoBarras := IntToStr( Numero )+'9'+ PadLeft(OnlyNumber(FatorVencimento),4,'0') +
                      IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) +
                      PadLeft(OnlyNumber(Cedente.Agencia),4,'0') +
                      PadLeft(OnlyNumber(ACBrTitulo.Carteira),2,'0') +
                      PadLeft(NossoNumero,11,'0') +
                  //    PadLeft(RightStr(Cedente.Conta,7),7,'0') +   Essa linha eu tive que alterar pois de acordo com o manual tem que ser 
                 //   18 a 24  7 Posições que são o "Código do Cedente"  e não a Conta.
Linha Alterada para ->   PadLeft(RightStr(Cedente.CodigoCedente,7),7,'0') +  
                      '0';

      DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras);
   end;

   Result:= IntToStr(Numero) + '9'+ DigitoCodBarras + Copy(CodigoBarras,5,Length(CodigoBarras));
end;

 

 Em anexo a unit para os Administradores alterar o componente.

 

ACBrBancoBradescoSICOOB.pas

[Juliana Tamizou]

Bom dia.

Por favor anexe o manual utilizado como base para a alteração.

Att.

[luciano_f]

Manual em anexo

está na Pagina 16

Campo Livre 
O  Campo  Livre  é  um  conjunto  de  dados  que  será  retornado  da 
compensação para identificar o título. O campo livre do Bradesco é definido da 
seguinte forma: 
Posição  Tamanho  Descrição
1 a 4  4  Agência Correspondente - 3509 
5 a 6  2  Carteira (Fixo 09 ) 
7 a 17  11  Nosso Número Bradesco do título (sem o dígito verificador) 
18 a 24  7  Código do Cedente (Conta Corrente da Cooperativa no Bradesco) 
25 a 25  1  Zero 

Manual+Layout+Sicoob+Correspondente+BRADESCO+Impressão+Local.pdf

[Juliana Tamizou]

Boa tarde.

De acordo com o trecho do manual citado por você, não se faz necessária a alteração proposta, uma vez que o Código do Cedente é a Conta Corrente.

Att.

[luciano_f]

Sim porém essa seria a conta corrente do Siccob dentro do Bradesco o que na verdade está incorreto usar a propriedade conta corrente do componente na formação do codigo de barras.

  No caso o meu cliente tem um numero de conta corrente que se Eu informar ela no componente a homologação dá rejeição,  assim liguei para o suporte do Siccob ele me disse que esse trecho é muito vezes mal interpretado pois se trata da conta corrento dentro do bradesco porém que o certo é Codigo do Cedente.

Exemplo :  o numero da Conta corrente que meu cliente vai usar que está no Cartão de Debito e no Cheque é 18532-X
porém se colocar esse numero no componente na propriedade "Conta" ao gerar o Boleto fica invalido pois tem que ser o codigo do Cedente que não tem nada a ver com essa conta  ele é  1665352

Grato.

 

[luciano_f]

 "Juliana Tamizou"   você curtiu então devo acredito que está correta minha alteração ?

 Você vai subir a unit que postei a alteração para o Trunk ?

 Grato.

Editado 26 Setembro, 2016 por luciano_f

[luciano_f]

"Juliana Tamizou"  desconsidere esse meu topico não precisa alterar o Trunk do ACBR

Pois vai gerar quebra de compatibilidade com os usuarios que já homologaram seus Sistemas

Outra coisa é o Digito com "-"  do Codigo do Cedente que não aceita no Codigo de Barras dá erro na geração pois o codigo do Cedente não tem o Digito assim fiz o seguinte ::

 if (Remessa <> 'S') And (AcbrBoleto.Banco.TipoCobranca = cobBradescoSICOOB) Then Begin
  AcbrBoleto.Cedente.Conta := Func_NumeroContaAgencia(vCodCedente);
  AcbrBoleto.Cedente.ContaDigito := Func_DigitoContaAgencia(vCodCedente);
 End;

 Com disso não precisa alterar o ACBR 

e Muito grato pela atenção.

 

 

[Juliana Tamizou]

Boa tarde.

Acredito que seja possível ajustar para manter a compatibilidade, iremos analisar.

Att. 

[Graziele Rocha Serafim]

Bom dia @luciano_f,

Estava analisado e aparentemente o problema foi devido configuração errada, provavelmente você inverteu as contas quando populou o cedente.

Att.