Titulo não registrado

[Otavio Mafessoni]

Bom dia pessoal,

Estou com um problema e não sei como resolver.

Meu sistema gera remessa e recebe o retorno tudo certinho. Também consigo gerar o PDF do boleto, mas quando vou fazer o pagamento pelo codigo de barra ele diz que o boleto está sem registro no banco.

Mas tem registro porque eu confirmo no gerenciador do banco e esta la.

Sera alguma configuração que não estou sabendo fazer?

Alguém já teve esse problema?

[BigWings]

32 minutos atrás, Otavio Mafessoni disse:

Meu sistema gera remessa e recebe o retorno tudo certinho. Também consigo gerar o PDF do boleto, mas quando vou fazer o pagamento pelo codigo de barra ele diz que o boleto está sem registro no banco.

Mas tem registro porque eu confirmo no gerenciador do banco e esta la.

É preciso ver se os dados que está enviando na remessa são os mesmos dados usados para impressão do boleto.

Estando tudo correto e se ainda aparece o aviso, precisa entrar em contato com o banco pra saber se o problema é lá.

[Otavio Mafessoni]

@BigWings Obrigado pela resposta.

Na verdade eu não gero o nosso numero, espero o banco processar e registro no meu sistema o mesmo código.

Mas mesmo assim... Percebi que quando imprimo o PDF pelo componente, no campo nosso numero ele adiciona na frente do código o numero do convenio, e tirando segunda via pelo próprio banco não é feito isso, talvez seja isso o meu problema, mas não sei como resolver.

[BigWings]

2 minutos atrás, Otavio Mafessoni disse:

@BigWings Obrigado pela resposta.

Na verdade eu não gero o nosso numero, espero o banco processar e registro no meu sistema o mesmo código.

Mas mesmo assim... Percebi que quando imprimo o PDF pelo componente, no campo nosso numero ele adiciona na frente do código o numero do convenio, e tirando segunda via pelo próprio banco não é feito isso, talvez seja isso o meu problema, mas não sei como resolver.

Se a segunda via gerada pelo banco tem código de barras ou linha digitável diferente do gerado pelo ACBrBoleto, então ele não vai ser mesmo aceito.

Pra saber o que está errado só conferindo o manual do banco.

[Otavio Mafessoni]

Estranho, meu convenio é de 7 dígitos e o banco retorna o nosso numero com 10 dígitos, mas o componente gera o nosso numero com 17 dígitos.

[Juliana Tamizou]

Boa tarde.

De qual banco se trata? Forneça as configurações do componente na emissão.

Att.

[Otavio Mafessoni]

Boa tarde Juliana,

É do Banco do Brasil.

Abaixo as configurações. Falta algo sera?

   with AACBrBoleto do
    begin
      ACBrBoletoFC := AACBrBoletoFC;
      ACBrBoletoFC.DirLogo := ExtractFilePath(Application.ExeName) + 'Logos';
      ACBrBoletoFC.Filtro := fiNenhum;
      ACBrBoletoFC.LayOut := lPadrao;
      ACBrBoletoFC.MostrarPreview := True;
      ACBrBoletoFC.MostrarProgresso := True;
      ACBrBoletoFC.MostrarSetup := True;
      AACBrBoletoFC.FastReportFile := ExtractFilePath(Application.ExeName)+'Boleto.fr3';

      case FieldByName('LAYOUT').AsInteger of
        0: LayoutRemessa := c240;
        1: LayoutRemessa := c400;
      end;

      Banco.TipoCobranca    := RetornaBanco(FieldByName('CODIGO').AsInteger);
      Cedente.Nome          := FieldByName('Nome').AsString;
      Cedente.Logradouro    := FieldByName('ENDERECO').AsString + ',' + FieldByName('NUMERO').AsString;
      Cedente.Bairro        := FieldByName('BAIRRO').AsString;
      Cedente.CEP           := FieldByName('CEP').AsString;
      Cedente.Cidade        := FieldByName('CIDADE').AsString;
      Cedente.UF            := FieldByName('ESTADO').AsString;
      Cedente.CNPJCPF       := FieldByName('CNPJ').AsString;
      Cedente.NumeroRes     := FieldByName('TELEFONE').AsString;
      Cedente.Telefone      := FieldByName('TELEFONE').AsString;
      Cedente.TipoInscricao := pJuridica;
      Cedente.CodigoCedente := FieldByName('NroCedente').AsString;
      Cedente.Agencia       := FieldByName('NROAGENCIA').AsString;
      Cedente.AgenciaDigito := FieldByName('DIGITOAGENCIA').AsString;
      Cedente.Conta         := FieldByName('NROCONTA').AsString;
      Cedente.ContaDigito   := FieldByName('DIGITOCONTA').AsString;
      Cedente.Convenio      := FieldByName('CONVENIO').AsString;
    end;

     Titulo := ACBrBoleto.CriarTituloNaLista;
      with Titulo do
      begin
        Vencimento        := qryConsulta.FieldByName('DtaVcto').AsDateTime;
        DataDocumento     := qryConsulta.FieldByName('DtaEmissao').AsDateTime;
        NumeroDocumento   := qryConsulta.FieldByName('Numero').AsString;
        EspecieDoc        := 'DM';

        if qryContas.FieldByName('ACEITE').AsBoolean then
           Aceite := atSim
        else Aceite := atNao;

        DataProcessamento := qryConsulta.FieldByName('DtaVcto').AsDateTime;
        Carteira          := qryConsulta.FieldByName('Carteira').AsString;
        NossoNumero       := qryConsulta.FieldByName('NossoNumero').AsString;
        rVlr := TruncFloat(qryConsulta.FieldByName('Valor').AsFloat, 2, False);
        ValorDocumento    := rVlr;
        Sacado.NomeSacado := qryConsulta.FieldByName('RAZAOSOCIAL').AsString;
        Sacado.CNPJCPF    := qryConsulta.FieldByName('CNPJCPF').AsString;
        Sacado.Logradouro := qryConsulta.FieldByName('Endereco').AsString;
        Sacado.Numero     := qryConsulta.FieldByName('Numero').AsString;
        Sacado.Bairro     := qryConsulta.FieldByName('Bairro').AsString;
        Sacado.Cidade     := qryConsulta.FieldByName('Cidade').AsString;
        Sacado.UF         := qryConsulta.FieldByName('UF').AsString;
        Sacado.CEP        := qryConsulta.FieldByName('CEP').AsString;

        if Length(Sacado.CNPJCPF) > 14 then
          Sacado.Pessoa   := pJuridica
        else Sacado.Pessoa := pFisica;

        ValorAbatimento   := 0;
        LocalPagamento    := qryContas.FieldByName('LOCALPGTO').AsString;
        ValorMoraJuros    := qryContas.FieldByName('JUROSMORA').AsFloat;
        ValorDesconto     := 0;
        ValorAbatimento   := 0;
        DataMoraJuros     := qryConsulta.FieldByName('DtaVcto').AsDateTime;
        DataDesconto      := 0;
        DataAbatimento    := 0;
        DataProtesto      := 0;
        PercentualMulta   := qryContas.FieldByName('PERCMULTA').AsFloat;
        Mensagem.Text     := qryContas.FieldByName('INSTRUCOES').AsString;
      end;
 

[Juliana Tamizou]

Boa tarde.

Precisamos que informe os valores passados ao componente.

Att.

[Otavio Mafessoni]

@Juliana Tamizou Segue abaixo as informações... Tambem adicionei em anexo o boleto gerado pelo componente e outro pelo gerenciador do banco.

    with AACBrBoleto do
    begin
      ACBrBoletoFC := AACBrBoletoFC;
      ACBrBoletoFC.DirLogo := ExtractFilePath(Application.ExeName) + 'Logos';
      ACBrBoletoFC.Filtro := fiNenhum;
      ACBrBoletoFC.LayOut := lPadrao;
      ACBrBoletoFC.MostrarPreview := True;
      ACBrBoletoFC.MostrarProgresso := True;
      ACBrBoletoFC.MostrarSetup := True;
      AACBrBoletoFC.FastReportFile := ExtractFilePath(Application.ExeName)+'Boleto.fr3';
  
      LayoutRemessa := c240;     

      Banco.TipoCobranca    := cobBancoDoBrasil;
      Cedente.Nome          := XPert Tecnologia em Automação
      Cedente.Logradouro    := R. Argentina,199
      Cedente.Bairro        := Jardim América
      Cedente.CEP           := 85.502-040
      Cedente.Cidade        := PATO BRANCO
      Cedente.UF            := PR
      Cedente.CNPJCPF       := 01.425.713/0001-60
      Cedente.NumeroRes     := (46) 2101 - 0101
      Cedente.Telefone      := (46) 2101 - 0101
      Cedente.TipoInscricao := pJuridica
      Cedente.CodigoCedente := 000066826001411019
      Cedente.Agencia       := 0495
      Cedente.AgenciaDigito := 2
      Cedente.Conta         := 000000006245
      Cedente.ContaDigito   := 6
      Cedente.Convenio      := 0066826
    end;

     Titulo := ACBrBoleto.CriarTituloNaLista;
      with Titulo do
      begin
        Vencimento        := 05/05/2020
        DataDocumento     := 06/04/2020
        NumeroDocumento   := 459144
        EspecieDoc        := DM
        Aceite               := atNao     
        DataProcessamento := 05/05/2020
        Carteira          := 11
        NossoNumero       := 6144712004
        ValorDocumento    := 655
        Sacado.NomeSacado := POSTO MAGNOLIA LTDA
        Sacado.CNPJCPF    := 35.123.447/0007-28
        Sacado.Logradouro := BR 316  KM 265
        Sacado.Numero     := 0
        Sacado.Bairro     := CENTRO
        Sacado.Cidade     := SANTA INES
        Sacado.UF         := MA
        Sacado.CEP        := 65.300-000
        Sacado.Pessoa     := pJuridica     
        ValorAbatimento   := 0
        LocalPagamento    := NAO SERA ACEITO DEPOSITO EM C/C
        ValorMoraJuros    := 0
        ValorDesconto     := 0
        ValorAbatimento   := 0
        DataMoraJuros     := 05/05/2020
        DataDesconto      := 0
        DataAbatimento    := 0
        DataProtesto      := 0
        PercentualMulta   := 2
        Mensagem.Text     := NAO SERA ACEITO DEPOSITO EM C/C
      end;
 

459144-Componente.pdf 459144-Banco.pdf

[BigWings]

1 hora atrás, Otavio Mafessoni disse:

      Cedente.Convenio      := 0066826

O manual de geração do boleto do Banco do Brasil que temos no repositório identifica os convênios de 7 posições como aqueles acima de 1.000.000.

Esse convênio então seria de 5 posições, caso para o qual não há previsão no manual.

https://svn.code.sf.net/p/acbr/code/tools/Bancos/BancoBrasil/Especificação Técnica do Bloqueto Cobrança.pdf

Veja se esse convênio está correto, se estiver, peça ao banco o manual de geração de boleto bancário correspondente.

[Juliana Tamizou]

Bom dia.

O banco realmente lhe passou esses dois "0" a esquerda para o convênio? me recordo de já ter visto alguém informar esses digitos extras e ter tido problemas.

Att.

[Otavio Mafessoni]

Bom dia, 

O banco me passou essas informações...

Agencia : 0495 - 2 PATO BRANCO               Conta   :      6245 - 6
Carteira: 11 SIMPLES COM REGISTRO            Variacao: 01 - 9        
Convenio: 0066826     Contrato: 12802823

[Otavio Mafessoni]

Caso eu remova os "00" ele da o erro:Tamanho Máximo do Nosso Número é: 5

O nosso numero que eu informo é o que vem no retorno bancário, com 10 posições.

OBS: Alguns vem com digito, fica com 11 posições.

 

[Juliana Tamizou]

Bom dia.

Qual foi o nosso número retornado pelo banco? Se possivel anexe seu arquivo de retorno tb.

Att.

[Otavio Mafessoni]

@Juliana Tamizou Segue em anexo...IEDCBR4987604202024748.ret

[Juliana Tamizou]

Boa tarde.

Nos fontes do componente ao montar a remessa temos a verificação se trata-se de uma das carteiras que a numeração é a critério do banco, e neste caso enviamos essas posições zeradas, conforme sua remessa pode mostrar, porém no retorno não é feita essa verificação.

A imagem acima foi extraída do manual do CNAB400, verifique junto ao banco se a mesma regra realmente se aplica ao CNAB240, se sim podemos alterar para que ao ler retorno, se for as carteiras 11,31 ou 51 leia as 17 posições.

Att.

[Otavio Mafessoni]

Boa tarde,

Em anexo está o manual de cobrança enviado hoje pelo pessoal do banco.

ManualCBRcnab240.pdf

[BigWings]

7 horas atrás, Otavio Mafessoni disse:

@Juliana Tamizou Segue em anexo...IEDCBR4987604202024748.ret

O estranho nesse arquivo é que o header de lote indica um número de convênio, enquanto o formato do nosso número indica outro..

7 horas atrás, Otavio Mafessoni disse:

Caso eu remova os "00" ele da o erro:Tamanho Máximo do Nosso Número é: 5

Fiz teste informando:

Convenio = 61447

Nosso número = 12004

O resultado foi o mesmo do banco:

[Otavio Mafessoni]

Boa tarde pessoal,

Estou aguardando uma posição do banco sobre isso...

[Juliana Tamizou]

Bom dia.

Nenhum retorno do banco ainda?

Att.

[Otavio Mafessoni]

Bom dia Juliana,

Por enquanto nada...Cobrei uma posição deles hoje novamente, mas ainda estou aguardando.

[Otavio Mafessoni]

Bom dia,

Só para deixar o pessoal a parte... Minha situação foi um pouco inusitada pois o banco relatou que o código de convenio e a carteira eram muito antigos e não eram mais utilizados.

Para resolver meu problema deveria ser gerado um novo código de convenio e também utilizar outra carteira.

Ainda vou decidir o que fazer, mas aparentemente não é nada com o componente.

Agradeço pela atenção de todos que tentaram me ajudar.

 

 

 

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.