Erro homologação BNB

[Werner_Marques]

Boa tarde. 

Estou com um problema na homologação do Banco do nordeste, Segundo o setor responsável, o numero da conta não está aparecendo no código de Barras.

Esperado: 00490.03304 04234.410001 00680.210002 1 68170000002000
Encontrado (captura p/leitora): 00490.03304 00000.010009 00680.210002 7 68170000002000

Estou alimentando o Componente da seguinte forma:

Agência: 0033

Agência digito: 0

Cedente: 10025176002

Conta:0042344

Digito:1

Já tentei de varias formas mas não consegui gerar corretamente.

 

[Juliana Tamizou]

Boa tarde.

Como foi configurada a propriedade TipoCobranca do componente? O mesmo problema é reproduzido no demo?

Att.

[Werner_Marques]

Preencho com o 'cobBancoDoNordeste'

Juliana, No DEMO eu consigo gerar normalmente, mas estou achando estranho pois informo ao demo da mesma forma que informo no meu sistema.

[Werner_Marques]

Juliana, também estou achando estranho porque no boleto, o local para código do beneficiário está com vários zeros.

Boleto no demo: 

código do beneficiário: 0042344-1

Boleto gerado pelo meu sistema:

código do beneficiário: 000000042344-1

[Juliana Tamizou]

Bom dia.

Estranho, pois se fosse algo no componente o problema se repetiria no demo, por favor anexe o trecho de código no qual você passa as informações ao componente.

Att.

[Werner_Marques]

Bom dia, Juliana.

Compreendo que o problema não seja o componente, mas não vejo onde estou errando ao alimenta-lo.

    ACBrBoleto1.Banco.Nome            := qrbanco.fieldbyname('nm_banco').asstring; //Banco do Nordeste
    ACBrBoleto1.Cedente.Agencia       := qrbanco.fieldbyname('nr_agencianro').AsString;//33
    ACBrBoleto1.Cedente.AgenciaDigito := qrbanco.fieldbyname('nr_agenciadig').AsString;//0
    ACBrBoleto1.Cedente.CodigoCedente := qrbanco.fieldbyname('nr_cedente').AsString;//10025176002
    ACBrBoleto1.Cedente.Conta         := qrbanco.fieldbyname('nr_contanro').AsString;//42344
    ACBrBoleto1.Cedente.ContaDigito   := qrbanco.fieldbyname('nr_contadig').AsString;//1
    ACBrBoleto1.Cedente.Nome          := frPrincipal.qrempresa.fieldbyname('nm_emp').AsString;//S R F DE OLIVEIRA
    ACBrBoleto1.Cedente.CNPJCPF       := frPrincipal.qrempresa.fieldbyname('nr_cgc').AsString;//15089780000165
    ACBrBoleto1.Cedente.Modalidade    := qrbanco.fieldbyname('nr_variacao').asstring;// vazio
    ACBrBoleto1.Cedente.Convenio      := qrbanco.fieldbyname('nr_cedente').AsString;//10025176002
    ACBrBoleto1.ACBrBoletoFC.DirLogo  := qrbanco.fieldbyname('nm_barras').asstring;//c:\boleto\imagens\

[Juliana Tamizou]

Boa tarde.

Em que momento foi setada a propriedade TipoCobranca?

Att.

[Werner_Marques]

Boa tarde juliana, não percebi que esqueci uma linha.

Após esse código que postei: 

    TpBanco := qrbanco.fieldbyname('tp_banco').AsString;

 

    if TpBanco = 'BancoDoNordeste' then
      ACBrBoleto1.Banco.TipoCobranca := cobBancoDoNordeste;

[Werner_Marques]

Juliana, encontrei o problema. 

Quando eu seto o TipoCobranca antes das demais configurações, o boleto é gerado corretamente.

[Werner_Marques]

Obrigado pela ajuda Juliana.