Ir para conteúdo
  • Cadastre-se

dev botao

Erro Geração Remessa Bradesco


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

Recommended Posts

Olá estou com prolemas na geração do arquivo de remessa do banco Bradesco, vi em algum tópico(abaixo) que já identificaram o problema porem solução dada não resolveu ou eu estou fazendo alguma coisa errada.

 

 

O problema está na geração do header, onde conforme manual deve ir brancos da posição 118 a 394, onde é montada pelo código abaixo.

 

procedure TACBrBancoBradesco.GerarRegistroHeader400(NumeroRemessa : Integer; ARemessa:TStringList);
var
  wLinha, ATipoInscricao: String;
begin
   with ACBrBanco.ACBrBoleto.Cedente do
   begin
      case TipoInscricao of
         pFisica  : ATipoInscricao := '1';
         pJuridica: ATipoInscricao := '2';
      else
         ATipoInscricao := ' ';
      end;

      wLinha:= '0'                                             + // ID do Registro
               '1'                                             + // ID do Arquivo( 1 - Remessa)
               'REMESSA'                                       + // Literal de Remessa
               '01'                                            + // Código do Tipo de Serviço
               PadRight( 'COBRANCA', 15 )                          + // Descrição do tipo de serviço
               PadLeft( CodigoCedente, 20, '0')                   + // Codigo da Empresa no Banco
               PadRight( Nome, 30)                                 + // Nome da Empresa
               IntToStr( Numero )+ PadRight('BRADESCO', 15)        + // Código e Nome do Banco(237 - Bradesco)
               FormatDateTime('ddmmyy',Now)  + Space(08)+'MX'  + // Data de geração do arquivo + brancos
               IntToStrZero(NumeroRemessa,7) + Space(101)      + // Nr. Sequencial de Remessa + brancos
               ATipoInscricao + Space(175)                     + // Cedente é pessoa Física ou Júrdica
               IntToStrZero(1,6);                                // Nr. Sequencial de Remessa + brancos + Contador

      ARemessa.Text:= ARemessa.Text + UpperCase(wLinha);
   end;
end;

ATipoInscricao deve ser espaço em branco, foi feita uma correção em 14/dez/2015 onde passava vazio('') para passar um espaço em branco(' ') porem como foi definido a estrutura da classe nunca vai passar pelo espaço em branco, veja código abaixo.

 

TACBrPessoa = (pFisica,pJuridica,pOutras);
TACBrPessoaCedente = pFisica..pJuridica;


property TipoInscricao: TACBrPessoaCedente  read fTipoInscricao write  SetTipoInscricao;

 

Ou seja sempre vai ser física ou jurídica e passar '1' ou '2'.

Tem alguma coisa que estou deixando de fazer?

Obrigado

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa noite.

Vc está usando os fontes do trunk2? Se sim, é possível reproduzir o problema no demo?

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 !!

Link para o comentário
Compartilhar em outros sites

13 horas atrás, Juliana Tamizou disse:

Boa noite.

Vc está usando os fontes do trunk2? Se sim, é possível reproduzir o problema no demo?

Att.

Sim estou usando o trunk2, fontes atualizados e o problema acontece no demo também.

Conforme informei no post através do código sempre vai imprimir 1 ou 2, quando o correto é espaço em branco pois não é possível setar a propriedade TipoInscricao = pOutras.

 

 

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa tarde.

Fiz um teste com o demo e não foi possível reproduzir o problema, quais propriedades do componente ACBrBoleto foram alteradas em seu teste?

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 !!

Link para o comentário
Compartilhar em outros sites

Eu não mudei propriedade nenhuma, apenas configurei o componente para o banco bradesco e nosso número.

 

Juliana pelos código que postei é possível ver que sempre vai gerar 1 ou 2, nunca vai entrar no espaço em branco, veja abaixo, nunca vai entrar no else.

 

Anexo o arquivo que gerei.

 

   case TipoInscricao of
         pFisica  : ATipoInscricao := '1';
         pJuridica: ATipoInscricao := '2';
      else
         ATipoInscricao := ' ';
      end;

cb260104.rem

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa tarde.

Agora entendi seu problema, no caso que você citou estava sendo discutida a quantidade de caracteres da linha (estava faltando um), porém oque vc questiona aqui é o conteúdo da posição 118.

Preciso verificar melhor, porém pode ter sido uma mudança de layout do banco, o mesmo retornou erro ao homologar o arquivo?

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 !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa tarde.

12 minutos atrás, rlmariz disse:

Isso! Conforme manual da posição 118 a 394  deve ser brancos e o código está colocando um número "1" ou "2" no meio de acordo com tipo de pessoa.

 

Estou tentando homologar e retornou erro no arquivo.

Você conseguiria junto ao banco o manual atualizado para conferirmos todo o layout? A versão disponível no svn é de 2009..

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 !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

A correção e o manul atualizado estão disponíveis no svn.

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 !!

Link para o comentário
Compartilhar em outros sites

×
×
  • 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.