ACBrBoleto - Banco Banese

[washington]

Bom dia.

Estou fazendo algumas alterações no componente pra adicionar o Banco Banese - Banco do Estado de Sergipe.
Já consegui a impressão e estou finalizando o arquivo de remessa, assim que finalizar e homologar estarei disponibilizando pra analise e adicionar ao projeto.
Estarei adicionando os manuais a fim de alguns esclarecimentos.

 

 

COBRANCA+BANCARIA+-+BANESE+-+V.1.3.pdf

Composicao+da+Linha+Digitavel+e+do+Codigo+de+Barras_05062017.pdf

Sistema+de+Cobranca+BANESE+-+Intercambio+de+Informacoes+entre+Bancos+e+Empresas+Padrao+FEBRABAN+-+240+Posicoes.pdf

[washington]

Bom dia.

Hoje recebe a boa noticia de Arquivo de remessa Validado e Enviei os boletos pra aprovação de layout.

Segue o que precisei alterar, só não consegui uma coisa: que foi a seleção do novo banco CobBanese pelo object Inspector no Delphi. Não sei como adicionar nessa opção.

 

ACBrBoleto.rar

Segue imagem do que não consegui adicionar!

[José M. S. Junior]

Obrigado, vamos analisar para adicionar ao repositório...

3 horas atrás, washington disse:

Não sei como adicionar nessa opção.

Você compilou e instalou o package novamente?

[washington]

Então, esta dando erro aqui comigo, acredito que seja o caminho de alguma unit. mas Quando subir e fizer a comparação e adicionar ao projeto, é só copilar ai que deve resolver.

Tô ajustando as alterações de Layout exigido pelo banco. assim que finalizar envio tudo novamente

 

[joemil]

pessoal tb tava adicionando o BancoBanese. segue os arquivos alterados (creditos para Rodrigo Meinerz)

ACBrBancoBanese.pas

ACBrBoleto.pas

[joemil]

pessoal, desconsidera este post. meus arquivos estavao desatualizados referente ao banese. vou atualizar eles aqui novamente e assim q tiver ok post novamente

[washington]

6 horas atrás, joemil disse:

pessoal, desconsidera este post. meus arquivos estavao desatualizados referente ao banese. vou atualizar eles aqui novamente e assim q tiver ok post novamente

Boa noite @joemil

Eu tenho eles atualizados e já homologado pelo Banco Banese.
Foi Homologado o layout do Boleto e envio de arquivo de remessa, não fiz o retorno ainda, mas acredito que assim que tiver um arquivo de um cliente já começo a trabalha nele, mais o arquivo de remessa já esta certo pra o modelo CBN240 que foi o exigido pelo Banco.

Segue anexo com as alterações.

Peço também que se possível atualizar os fontes do projeto.

Obrigado e aguardo retorno dos moderadores do projeto ACBr.

Alaterado.rar

Em 27/04/2018 at 14:38, José M. S. Junior disse:

Obrigado, vamos analisar para adicionar ao repositório...

Você compilou e instalou o package novamente?

Boa noite, depois que instalei e copilei todos os pacotes em uma nova maquina com a instalação do Delphi zerada funcionou.

Obrigado

[estinque]

Boa Tarde,

Estou anexando aos alterações que realizamos para o BANESE, contemplando a  Remessa e o Retorno, já homologado.

Verifiquem a possibilidade de incorporar ao ACBR, e o que precisarem, estaremos a disposição.

ACBrBanese.patch

[José M. S. Junior]

Em 30/05/2018 at 21:26, washington disse:

Boa noite @joemil

Eu tenho eles atualizados e já homologado pelo Banco Banese.
Foi Homologado o layout do Boleto e envio de arquivo de remessa, não fiz o retorno ainda, mas acredito que assim que tiver um arquivo de um cliente já começo a trabalha nele, mais o arquivo de remessa já esta certo pra o modelo CBN240 que foi o exigido pelo Banco.

Segue anexo com as alterações.

Peço também que se possível atualizar os fontes do projeto.

Obrigado e aguardo retorno dos moderadores do projeto ACBr.

Alaterado.rar

Boa noite, depois que instalei e copilei todos os pacotes em uma nova maquina com a instalação do Delphi zerada funcionou.

Obrigado

Boa tarde, atualizado no repositório, favor realizar os testes.

[estinque]

Verifiquei que muitos dos campos estão em desacordo com o manual (anexo) de integração do CNAB 240, vou fazer as adaptações com os meus fontes e disponibilizarei aqui.

Campos no HEAD com Número da remessa e data devem ser preenchido com 0.

Sistema+de+Cobranca+BANESE+-+Intercambio+de+Informacoes.pdf

[estinque]

Fiz alguns ajustes na classe, todas referente ao CNAB 240 que é o único formato com REGISTRO para o BANESE.
Peço que analisem as alterações e se possível incluir no repositório.

Modificações no CNAB 240 (NOVA COBRANÇA BANESE):
- Colocado 0 e vazios em campos, conforme documentação;
- Incluído digito verificador no nosso número (G069);
- Corrigido Tipos de documentos (tinha muito mais dos quais são suportados);
- Baixa não pode ser maior que 60 dias;
- Retorno não estava carregando todos os motivos de baixa;
- Corrigido calculo do dígito verificador (incluído a agência);
- Retorno estava incorreto, considerando os campos numéricos com 15 caracteres (são 13);

ACBrBancoBanese.pas.patch

ACBrBancoBanese.pas

Editado 19 Junho, 2018 por estinque

[Juliana Tamizou]

Boa tarde.

Suas alterações estão com as alterações adicionadas ao svn pelo Junior?

Em 15/06/2018 at 17:59, José M. S. Junior disse:

Boa tarde, atualizado no repositório, favor realizar os testes.

Att.

[estinque]

Boa Tarde Juliana,

Sim, fiz em cima do que ele tinha postado, precisei só fazer mais uma correção, use estes fontes aqui para incluir no repositório, e não o anterior.

- Retorno estava incorreto, considerando os campos numéricos com 15 caracteres (são 13); (Na verdade, o retorno do BANESE não traz o campo VALOR DO DOCUMENTO preenchido, avaliamos errado o problema, CORRIGIDO NESTES CODIGO)

Obrigado.

ACBrBancoBanese.pas.patch

ACBrBancoBanese.pas

[estinque]

Boa Tarde,

Queria ver se esse código entrava no repositório, todas as vezes que atualizamos, estamos tendo o cuidado de verificar se foi apagado para não gerar um executável com problema.

Obrigado.

Em 20/06/2018 at 16:22, Juliana Tamizou disse:

Boa tarde.

Suas alterações estão com as alterações adicionadas ao svn pelo Junior?

Att.

 

[Juliana Tamizou]

Bom dia.

Caso ao baixar você não observe tais alterações nos fontes, é porque ainda não estão no repositório. Certamente você observou que foram feitos diversos comites no componente, logo temos trabalhado bastante nele, por este motivo peço que aguarde até que seja analisado e adicionado.

Att.

 

[estinque]

Bom dia, 

Segue as correções no último SVN do ACBR (15470), peço que avaliem a possibilidade de incorporação no projeto, tendo em vista que já usamos em produção.

Obrigado.

ACBrBancoBanese.pas.patch

ACBrBancoBanese.pas

[Juliana Tamizou]

Boa tarde.

O banco teve mudanças de layout?

Att.

[estinque]

Boa Noite,

Não teve mudança no Layout, o que acontece é que o código que está no repositório, não está tratando o retorno, fizemos as adaptações baseado no último código do SVN.

[washington]

Em 25/07/2018 at 18:09, estinque disse:

Boa Noite,

Não teve mudança no Layout, o que acontece é que o código que está no repositório, não está tratando o retorno, fizemos as adaptações baseado no último código do SVN.

Boa tarde, realmente não tinha implementado esse código, vc tem como me passar  o código pra eu poder adicionar aqui, depois que atualizei pelo SVN, os arquivos passaram a ser rejeitado pelo Banese, e tive que pegar um backup e atualizar no meus fontes e ai foram aceitos queria pegar essa parte do código de retorno pra poder atualizar e assim enviar pra teste aqui no estado já que sou de Sergipe e tenho contato com o pessoal do banco.

 

Fico grato

[estinque]

Boa Tarde,

Segue o arquivo que estamos usando atualmente, tanto para remessa, quanto para retorno, na última versão do ACBR.

ACBrBancoBanese.pas.patch

ACBrBancoBanese.pas

[washington]

31 minutos atrás, estinque disse:

Boa Tarde,

Segue o arquivo que estamos usando atualmente, tanto para remessa, quanto para retorno, na última versão do ACBR.

ACBrBancoBanese.pas.patch

ACBrBancoBanese.pas

Boa Tarde, eu vi aqui baixei o svn novamente e vi o problema.

Vou te passar como resolvi, quando gerar mais de uma vez, a variável  fRegLote ele inicia do ultimo registro gerado no arquivo anterior e não iniciava novamente do 1.


 

function TACBrBancoBanese.GerarRegistroHeader240(NumeroRemessa : Integer): String;
var
  ATipoInscricao: string;
  AMensagemReservada: String;
begin

   with ACBrBanco.ACBrBoleto.Cedente do
   begin
   
      case TipoInscricao of
         pFisica  : ATipoInscricao := '1';
         pJuridica: ATipoInscricao := '2';
      end;

      if ACBrBanco.ACBrBoleto.Homologacao then
         AMensagemReservada := 'REMESSA-TESTE'
      else
         AMensagemReservada := 'REMESSA-PRODUCAO';

      { GERAR REGISTRO-HEADER DO ARQUIVO }
      Result:= IntToStrZero(ACBrBanco.Numero, 3)       + //1 a 3 - Código do banco
               '0000'                                  + //4 a 7 - Lote de serviço - Se registro for Header do Arquivo preencher com '0000'
               '0'                                     + //8 - Tipo de registro - Registro header de arquivo '0' = Header de Arquivo
               PadRight('', 9, ' ')                    + //9 a 17 Uso exclusivo FEBRABAN/CNAB
               ATipoInscricao                          + //18 - Tipo de inscrição do cedente [ '1' = CPF '2' = CGC / CNPJ ]
               PadLeft(OnlyNumber(CNPJCPF), 14, '0')   + //19 a 32 -Número de inscrição do cedente CPF ou CNPJ
               PadLeft(Convenio,20, '0')               + //33 a 52 - Código do convênio no banco
               PadLeft(OnlyNumber(Agencia), 5, '0')    + //53 a 57 - Código da agência do cedente
               PadLeft(AgenciaDigito, 1 , '0')         + //58 - Dígito da agência do cedente
               PadLeft(Conta, 12, '0')                 + //59 a 70 - Código Cedente (Código do Convênio no Banco)
               PadLeft(ContaDigito, 1, '0')            + //71 - Digito verificado da conta - DEIXA BRANCO
               Space(1)                                + //72 - Digito verificado da Agencia/conta - DEIXA BRANCO
               PadRight(Nome, 30, ' ')                 + //73 a 102 - Nome do cedente
               PadRight('BANESE', 30, ' ')             + //103 a 132 - Nome do banco
               PadRight('', 10, ' ')                   + //133 a 142 - Uso exclusivo FEBRABAN/CNAB
               '1'                                     + //143 - Código de Remessa / Retorno ( '1' = Remessa (Cliente > Banco)   '2' = Retorno (Banco > Cliente) )
               FormatDateTime('ddmmyyyy', Now)         + //144 a 151 - Data do de geração do arquivo
               FormatDateTime('hhmmss', Now)           + //152 a 157 - Hora de geração do arquivo
               PadLeft(IntToStr(NumeroRemessa), 6, '0')+ //158 a 163 - Número seqüencial do arquivo
               '101'                                   + //164 a 166 - Número da versão do layout do arquivo "101"
               PadRight('',  5, '0')                   + //167 a 171 - Densidade de gravação do arquivo (BPI)
               Space(20)                               + // 172 a 191 - Uso reservado do banco
               PadLeft(AMensagemReservada, 20, ' ')    + // 192 a 211 - Uso reservado da empresa
               PadLeft('', 29, ' ');                     // 212 a 240 - Uso Exclusivo FEBRABAN / CNAB

      { GERAR REGISTRO HEADER DO LOTE }
      Result:= Result + #13#10 +
               IntToStrZero(ACBrBanco.Numero, 3)        + //1 a 3 - Código do banco
               '0001'                                   + //4 a 7 - Lote de serviço - Preencher com '0001' para o primeiro lote do arquivo.
               '1'                                      + //8 - Tipo de registro - Registro header de arquivo  '1' = Header de Lote
               'R'                                      + //9 - Tipo de operação: 'R' = Arquivo Remessa 'T' = Arquivo Retorno
               '01'                                     + //10 a 11 - Tipo de serviço: 01' = Cobrança
               Space(2)                                 + //12 a 13 - FUso Exclusivo FEBRABAN / CNAB: Preencher com Brancos.
               '060'                                    + //14 a 16 - Número da versão do layout do lote
               Space(1)                                 + //17 - Uso exclusivo FEBRABAN/CNAB
               ATipoInscricao                           + //18 - Tipo de inscrição do cedente [ '1' = CPF '2' = CGC / CNPJ ]
               PadLeft(OnlyNumber(CNPJCPF), 15, '0')    + //19 a 33 -Número de inscrição do cedente CPF OU CNPJ
               PadLeft(Convenio, 20, '0')               + //34 a 53 - Código do convênio no banco (código do Convenio)
               PadLeft(OnlyNumber(Agencia), 5 , '0')    + //54 a 58 - Agência do cedente
               PadLeft(AgenciaDigito, 1 , '0')          + //59 - Dígito da agência do cedente
               PadLeft(Conta, 12, '0')                  + //60 a 71 - Código do convênio no banco (código do cedente)
               PadLeft(ContaDigito, 1, '0')             + //71 - Digito verificado da conta - DEIXA BRANCO
               Space(1)                                 + //73 - Digito verificado da Agencia/conta - DEIXA BRANCO
               PadLeft(Nome, 30, ' ')                   + //74 a 103 - Nome do cedente
               PadLeft('', 40, ' ')                     + //104 a 143 - Mensagem 1 para todos os boletos do lote
               PadLeft('', 40, ' ')                     + //144 a 183 - Mensagem 2 para todos os boletos do lote
               PadLeft(IntToStr(NumeroRemessa), 8, '0') + //184 a 191 - Número do arquivo
               FormatDateTime('ddmmyyyy', Now)          + //192 a 199 - Data de geração do arquivo
               PadLeft('', 8, '0')                      + //200 a 207 - Data do crédito - Só para arquivo retorno
               PadLeft('', 33, ' ');                      //208 a 240 - Uso exclusivo FEBRABAN/CNAB
   end;

   fRegLote := 0;
   
end;

 

[estinque]

Boa tarde,

Já tinha corrigido, esse erro, tem outros contadores que devem ser reiniciado conforme imagem abaixo:

[estinque]

@washington , teste o que te passei fizemos muitas correções em relação a postagem inicial. pode ser que te ajude.

 

[washington]

5 minutos atrás, estinque disse:

@washington , teste o que te passei fizemos muitas correções em relação a postagem inicial. pode ser que te ajude.

 

@estinque

40383 0000000000000000000040383 32 1 3-Entrada Rejeitada 23-Aceite Inválido
08-Nosso Número Inválido
40394 0000000000000000000040394 32 2 3-Entrada Rejeitada 23-Aceite Inválido
08-Nosso Número Inválido
40395 0000000000000000000040395 32 3 3-Entrada Rejeitada 23-Aceite Inválido
08-Nosso Número Inválido
40399 0000000000000000000040399 32 4 3-Entrada Rejeitada 23-Aceite Inválido
08-Nosso Número Inválido

 

Do ultimo arquivo que esta no SVN foi rejeitado o Nosso Numero.

 

Vou pegar esses arquivos.

Quando disponibilizei aqui os arquivos já tinha sido homologado, mas o retorno não tinha implementando, era apenas isso que não tinha feito os demais ajustes foram feitos.

[washington]

29 minutos atrás, estinque disse:

@washington , teste o que te passei fizemos muitas correções em relação a postagem inicial. pode ser que te ajude.

 

você chegou a fazer a homologação e deu tudo certo?