Alterações Acbrcaixasicob.pas

[CELENTE]

Na montagem do campo esta excedendo os 25 bytes.

Consequentemente , o digito do codigo de barras fica errado e não é possível realizar o pagamento do boleto.

Fiz a alteração que achei necessária , e está funcionando.

 

TACBrCaixaEconomicaSICOB.MontarCodigoBarras

 

   aCodCedente  := padR(RightStr(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,11),11,'0');

 

 // by Celente ------------------------------------------------

 // Tamanho do campo livre dever 25 bytes

 

   aCodCedente  := copy(aCodCedente,length(aCodCedente)-5,6);

 

 // ---------------------------------------------------------

 

   {Montando Campo Livre}

   CampoLivre := ANossoNumero +

                 RightStr(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 4) +

                 aCodCedente;

 

 

[Leandro SSilva {0,1}]

Sera isso então que o meu não esta gerando igual o do aplicativo da caixa sicob.

 

Alguem ja pois no servidor???