Ir para conteúdo
  • Cadastre-se

dev botao

Homologação Remessa Bradesco - Alteração ACBrBancoBradesco


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

Recommended Posts

  • Membros Pro

Ao tentar Homologar Remessa Bradesco recebi a seguinte resposta

Registro de Transação Tipo 1 (detalhe):

- Posição 219 a 220 - Gravar 2= CNPJ, 1 é para CPF

Tive que alterar a procedure da classe ACBRBancoBradesco para solucionar:

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;

 

Atual:

procedure TACBrBancoBradesco.GerarRegistroHeader400(NumeroRemessa : Integer; ARemessa:TStringList);
var
  wLinha: String;
begin
   with ACBrBanco.ACBrBoleto.Cedente do
   begin
      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(277)      + // Nr. Sequencial de Remessa + brancos
               IntToStrZero(1,6);                                // Nr. Sequencial de Remessa + brancos + Contador

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

ACBrBancoBradesco.pas

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Administradores

Boa noite.

Alterações 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

  • 3 semanas depois ...

Olá, a primeira linha do arquivo remessa bradesco,(CNAB400) estar menos um caracteres, houve alguma alteração na mesma?

Já envio mais de um ano, o banco recusou o arquivo, ao abrir percebi que falta um caractere,

atualizei hoje(sábado 05/12/2015 as 13:00), version 10618

Arquivo anexo.

Obrigado,

Leão

                                                                                                                                                                                                                                                                     

 

1_01M.txt

Link para o comentário
Compartilhar em outros sites

  • Administradores
2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.
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

  • Este tópico foi criado há 3035 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.