Remessa do BRADESCO, header alteração incorreta

[OlavoJr]

Notei que no header do Bradesco, foi feito uma alteraçao incorreta de acordo com a documentação que consta no svn do ACBR (svn://svn.code.sf.net/p/acbr/code/tools/Bancos) que é a versão 08, inclusive em anexo coloquei um versão mais nova que á 10 (de 12/08/2015), acredito ser útil!

 

Se observarem em ambas, no Header de ambas as documentações, consta que o registro HEADER da posição 188 a 394 (277 posições) deve ser "Brancos", só que foi aberto um Tópico em (

) aonde foi citado um problema no registro de TRANSAÇÃO TIPO 1 e o codigo postado era referente a esta alteração no HEADER que esta incoerente com a documentação.

 

Resumindo, acredito que a procedure deva voltar de acordo como era antes, mais especificamente no arquivo ACBrBancoBradesco.pas na procedure GerarRegistroHeader400:

 

Codigo ATUAL:

 

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;

 

Codigo ANTERIOR:

 

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;

LAYOUT 400 POSIÇÕES_Troca_de_Arquivos_Cobrança_Versao_Portugues.pdf

ACBrBancoBradesco.pas

ACBrBancoBradesco.pas

Editado 13 Janeiro, 2016 por OlavoJr

[Juliana Tamizou]

Boa noite.

Alteração no svn.

Att,