Problema de visualização dos boletos

[FabioMachado]

Bom dia! Meu ambiente é Delphi Seatle com acbrboleto e ACBrBoletoFCFortes1 estou tendo problemas com a visualização para impressão e na geração do PDF pois nada é mostrado quando vai imprimir e no arquivo em pdf tb não.

Rotina de inclusão dos boletos

    while not sqlCad.Eof do begin
     sqlCliente.Locate('CLI_ID', IntToStr(sqlCadCRE_CLI.AsInteger),[]);
     Titulo:= ACBrBoleto1.CriarTituloNaLista;

     if sqlCadCRE_DATA_VENCIMENTO.Value<date then
        data_final:=date+1 else
        data_final:=sqlCadCRE_DATA_VENCIMENTO.AsDateTime;

     with Titulo do
     begin

        LocalPagamento    := 'Pagar preferêncialmente nas agências da(o) '+sqlBancosBAN_NOME.AsString; //MEnsagem exigida pelo bradesco
        Vencimento        := data_final;
        DataDocumento     := sqlCadCRE_DATA_EMISSAO.Value;
        NumeroDocumento   := sqlCadCRE_NR_DOC.AsString;
        EspecieDoc        := 'DM';
        if sqlBancosBAN_ACEITE.Value=1 then // .Value=True then
        Aceite            := atSim else
        Aceite            := atNao;
        EspecieDoc        := 'R$';
        DataProcessamento := Now;
        NossoNumero       := sqlCadCRE_NR_DOC.AsString;//IntToStrZero(sqlCadCRE_NR_DOC.Value,8);
        Carteira          := sqlBancosBAN_CARTEIRA.AsString;
        ValorDocumento    := sqlCadCRE_VALOR_RECEBER.AsCurrency; //100.35 * (I+0.5);
        PercentualMulta   := dm.sqlconfiguracao_geralCG_MULTA.AsCurrency;
        Sacado.NomeSacado := sqlClienteCLI_NOME.AsString+' - '+sqlclienteCLI_NOME_RED.AsString ; //'Jose Luiz Pedroso';
        if Trim(sqlClienteCLI_CNPJ.AsString)=EmptyStr then
        Sacado.CNPJCPF    := sqlClienteCLI_CPF.AsString else //'12345678901'
        Sacado.CNPJCPF    := sqlClienteCLI_CNPJ.AsString; //'12345678901';
        Sacado.Logradouro := sqlClienteCLI_ENDERECO.AsString;  //'Rua da Consolacao';
        Sacado.Numero     := sqlClienteCLI_NUMERO.AsString; //'100';
        Sacado.Bairro     := sqlClienteCLI_BAIRRO.AsString; //'Vila Esperanca';
        Sacado.Cidade     := sqlClienteCLI_CIDADE.AsString; //'Tatui';
        Sacado.UF         := sqlClienteCLI_UF.AsString; //'SP';
        Sacado.CEP        := sqlClienteCLI_CEP.AsString; //'18270000';
        ValorMoraJuros := sqlCadCRE_JUROS_DIA.AsCurrency;
        ValorDesconto     := sqlCadCRE_VALOR_DESCONTO.AsCurrency;
        DataMoraJuros     := data_final;
        DataDesconto      := sqlCadCRE_DATA_DESCONTO.AsDateTime;
        DataProtesto      := sqlCadCRE_DATAPROTESTO.AsDateTime;
        Mensagem.Add(sqlcadCRE_HISTORICO.AsString);

     end;

     sqlCad.Next;
  end;

  ACBrBoleto1.Imprimir;
 

 

Se eu incluir até 5 boletos, vai blz. Mas se eu colocar 6 ja acontece isso ai da imagem.

 

Editado 25 Fevereiro, 2017 por FabioMachado

[BigWings]

23 minutos atrás, FabioMachado disse:

Se eu incluir até 5 boletos, vai blz. Mas se eu colocar 6 ja acontece isso ai da imagem.

Isso acontece com o demo também? Testei aqui com 20 boletos e visualizou e gerou PDF normalmente.

[FabioMachado]

2 minutos atrás, BigWings disse:

Isso acontece com o demo também? Testei aqui com 20 boletos e visualizou e gerou PDF normalmente.

Então .... pelo demo não apresentou esse problema pra visualizar.

[BigWings]

6 minutos atrás, FabioMachado disse:

Então .... pelo demo não apresentou esse problema pra visualizar.

Talvez a sua aplicação esteja acessando alguma unit diferente e causando esse erro, ou alguma informação específica no 6º boleto. Difícil dizer.

Tente replicar o erro usando o demo. Assim alguém poderá lhe ajudar.

[FabioMachado]

1 hora atrás, BigWings disse:

Talvez a sua aplicação esteja acessando alguma unit diferente e causando esse erro, ou alguma informação específica no 6º boleto. Difícil dizer.

Tente replicar o erro usando o demo. Assim alguém poderá lhe ajudar.

O estranho é que não importa a sequencia nem a quantidade, apenas 5 boletos são visualizados, exemplo se eu seleciono 80 boletos só visualizo os últimos 5 e se a quantidade for de 15 só visualiza os últimos 5

E se eu usar o componente ACBrBoletoFCFR funciona tudo normal, porém a formatação dos boletos não estão com layout correto.

[SoftLine Automação]

Fabio conseguiu resolver o seu problema? 

Estou com a mesma situação!

pode me ajudar?