Ir para conteúdo
  • Cadastre-se

dev botao

ACBrBoleto - Banco Banese


Ver Solução Respondido por José M. S. Junior,
  • Este tópico foi criado há 2017 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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

  • Obrigado 1
Postado

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!

Screenshot_113.png

  • Moderadores
Postado

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?

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Postado

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

 

  • 1 mês depois ...
Postado

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

Analista de Sistemas

Control Fácil Sistemas

MultiWare Tecnologia

TW Speed Telecom

Postado
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

  • Obrigado 1
  • 2 semanas depois ...
Postado

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

  • Moderadores
Postado
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.

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Postado (editado)

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 por estinque
  • Administradores
Postado

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.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Postado

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

Postado

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.

 

  • Administradores
Postado

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.

 

  • Obrigado 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

  • 4 semanas depois ...
  • Administradores
Postado

Boa tarde.

O banco teve mudanças de layout?

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Postado

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.

  • Curtir 1
  • 3 semanas depois ...
Postado
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

Postado
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;


 

Postado
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.

  • Este tópico foi criado há 2017 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...