Campo instrução bradesco

[datilas]

quando eu uso 4 linhas no campo instrução ao gerar o arquivo de remessa só gera a linha1 e a linha4 então alterei a função DoMontaInstrucoes1 na linha 180 do ACBrBancoBradesco.pas

Mudando "=" por ">="

  function DoMontaInstrucoes1: string;
  begin
     Result := '';
     with ACBrTitulo, ACBrBoleto do
     begin

        {Primeira instrução vai no registro 1}
        if Mensagem.Count <= 1 then
        begin
           Result := '';
           Exit;
        end;

        Result := sLineBreak +
                  '2'               +                                    // IDENTIFICAÇÃO DO LAYOUT PARA O REGISTRO
                  Copy(PadRight(Mensagem[1], 80, ' '), 1, 80);               // CONTEÚDO DA 1ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO

        if Mensagem.Count >= 3 then
           Result := Result +
                     Copy(PadRight(Mensagem[2], 80, ' '), 1, 80)              // CONTEÚDO DA 2ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO
        else
           Result := Result + PadRight('', 80, ' ');                          // CONTEÚDO DO RESTANTE DAS LINHAS

        if Mensagem.Count >= 4 then
           Result := Result +
                     Copy(PadRight(Mensagem[3], 80, ' '), 1, 80)              // CONTEÚDO DA 3ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO
        else
           Result := Result + PadRight('', 80, ' ');                          // CONTEÚDO DO RESTANTE DAS LINHAS

        if Mensagem.Count >= 5 then
           Result := Result +
                     Copy(PadRight(Mensagem[4], 80, ' '), 1, 80)              // CONTEÚDO DA 4ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO
        else
           Result := Result + PadRight('', 80, ' ');                          // CONTEÚDO DO RESTANTE DAS LINHAS


        Result := Result                                              +
                  space(45)                                           +  // COMPLEMENTO DO REGISTRO
                  aCarteira                                           +
                  aAgencia                                            +
                  aConta                                              +
                  Cedente.ContaDigito                                 +
                  NossoNumero + DigitoNossoNumero                     +
                  IntToStrZero( aRemessa.Count + 2, 6);                  // Nº SEQÜENCIAL DO REGISTRO NO ARQUIVO
     end;
  end;

 

[Juliana Tamizou]

Bom dia.

Por favor anexe a unit alterada.

Att.

[datilas]

22 minutos atrás, Juliana Tamizou disse:

Bom dia.

Por favor anexe a unit alterada.

Att.

ACBrBancoBradesco.pas

[datilas]

alguem?

[Juliana Tamizou]

Boa tarde.

2 horas atrás, datilas disse:

alguem?

Como você pode observar temos muitas contribuições para analisar, peço que aguarde, pois assim que possível esta alteração será analisada.

Att.

[Juliana Tamizou]

Boa noite.

Alteração disponível no svn.

Att.

[toninho]

Boa tarde, gostaria de saber se tem algum tipo de boleto no componente onde posso informar um demonstrativo de Receitas/Despesas, conforme anexo.

Desde já agradeço.

 

Editado 20 Janeiro, 2016 por toninho

[Juliana Tamizou]

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.