Boleto Itau Codigo Cedente Incorreto

[zedaraguaia]

Quando emito uma duplicada do banco Itau a primeira sempre vem com o codigo do cedente de forma errada, levando em consideracao que estou usando a carteira 175, seguem as imagens, do mesmo boleto só que emitido sem sequencia....

Editado 22 Abril, 2015 por zedaraguaia

[Juliana Tamizou]

Bom dia.

 

Por favor descreva como reproduzir o problema.

 

Att.

[zedaraguaia]

Nas imagens acima, você poderá observar que nos campos AGENCIA e CODIGO DO CEDENTE, o campo agencia está correto e sempre sai correto (3277), mas o campo CODIGO DO CEDENTE deveria ter apenas 5 digitos, observe que em uma das imagens o CODIGO DO CEDENTE vem assim : 0000020318-2 e se eu fizer uma reimpressão do boleto ele vem correto 20318-2, o primeiro boleto nunca é válido, já o segundo boleto é normal. eu fiz testes pra verificar os valores que estou passando, e os testes apontaram que eu estou passando o valor correto. Mas de qualquer forma vou mandar a parte do código em que eu passo os dados para o componente.

 

  DMC.ACBrBoleto1.ListadeBoletos.Clear;
  DMC.ACBrBoleto1.Cedente.Nome          := DMS.QEmpresasRAZAO_SOCIAL.value;
  DMC.ACBrBoleto1.Cedente.Agencia       := DMC.Query2.fieldbyname('CODIGO_AGENCIA').asstring;
  DMC.ACBrBoleto1.Cedente.CodigoCedente := DMC.Query2.fieldbyname('NUMERO_CONTA').asstring;
  DMC.ACBrBoleto1.Cedente.AgenciaDigito := '0';{Como o banco itau no tem digito no numero da agencia o valor a ser aplicado deverá ser 0}
  DMC.ACBrBoleto1.Cedente.Conta         := DMC.Query2.fieldbyname('NUMERO_CONTA').asstring;
  DMC.ACBrBoleto1.Cedente.ContaDigito   := DMC.Query2.fieldbyname('DIGITO_CONTA').asstring[1];
  DMC.ACBrBoleto1.Cedente.CNPJCPF       := DMS.QEmpresasCGC.value;
  DMC.ACBrBoleto1.Cedente.Logradouro    := DMS.QEmpresasENDERECO.value;
  DMC.ACBrBoleto1.Cedente.Complemento   := DMS.QEmpresasCOMPLEMENTO.value;
  DMC.ACBrBoleto1.Cedente.Bairro        := DMS.QEmpresasBAIRRO.value;
  DMC.ACBrBoleto1.Cedente.Cidade        := DMS.QEmpresasCIDADE.value;
  DMC.ACBrBoleto1.Cedente.UF            := DMS.QEmpresasUF.value;
  DMC.ACBrBoleto1.Cedente.CEP           := DMS.QEmpresasCEP.value;
  DMC.ACBrBoleto1.Banco.TipoCobranca    := cobItau;
  DMC.ACBrBoleto1.Banco.Nome            := 'Banco Itau';
  DMC.ACBrBoleto1.Banco.Numero          := 341;
  DMC.ACBrBoleto1.Banco.TamanhoMaximoNossoNum := 8;
 

[Juliana Tamizou]

Bom dia.

 

O TipoCobranca deve ser a primeira propriedade a ser setada, uma vez que ela ajusta outras propriedades do componente, as quais podem afetar o campo no qual você está tendo problemas.

 

Att.