Corrigir ACBrBancoBradesco

[Gutierres]

Corrigir essa linha 

 

padR( Convenio {CodigoCedente}, 20, '0')                   + // Codigo da Empresa no Banco

 

no método abaixo:

 

 

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

               padL( 'COBRANCA', 15 )                          + // Descrição do tipo de serviço

               padR( Convenio {CodigoCedente}, 20, '0')                   + // Codigo da Empresa no Banco

               padL( Nome, 30)                                 + // Nome da Empresa

               IntToStr( Numero )+ padL('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

[Juliana Tamizou]

Bom dia.

Esta alteração não é necessária, observe o tópico 

.

Att.