Problemas com o programa Demo [Sicoob]

[zyonfb]

Bom dia,

Estou tendo um problema na execução do programa de demonstração.

Ocorre o seguinte, no evento Oncreate do Form, eu mudo o banco para o número 756:

procedure TfrmDemo.FormCreate(Sender: TObject);

begin

   AcbrBoleto1.Banco.Numero := 756; //<<--Incluo esta linha (sigo depurando o programa, mas não ocorre nenhum erro)


   edtDataDoc.Text    := DateToStr(Now);

   edtVencimento.Text := DateToStr(IncMonth(StrToDate(edtDataDoc.Text),1));

   edtDataMora.Text   := DateToStr(StrToDate(edtVencimento.Text)+1);


   AString[0] := '.';

   AString[1] := '-';

   AString[2] := '/';

   AString[3] := '(';

   AString[4] := ')';

   AString[5] := ' ';

end;

Clico em incluir boleto e mando imprimir, aparece apenas a janela vazia de Pré-visualização do QuickReport, sem nada exibido. Este código funcionou com os outros bancos (001, 341, etc), só notei este erro no 756, que é o que realmente preciso.

Fiz algo errado? Alguém tem alguma sugestão?

Sempre gerei meus boletos manualmente, mas achei este componente muito útil e gostaria de poder incluí-lo em minhas aplicações.

PS. Utilizo Delphi 7 e QuickReport 4.04.

Qualquer ajuda é muito bem vinda! Grato!

[Juliana Tamizou]

Bom dia.

Vc chegou a testar com o fortes ?

Att.

[zyonfb]

Olá Juliana,

Fiz os testes com o Fortes Report, e dá o seguinte erro, assim que mando imprimir:

LayoutBoleto: Erro durante a preparação do relatório

Carteira Inválida.

Aparentemente o erro é levantado no código da unit ACBrBoletoFCFortesFr, linhas 474 a 479:

        

if Filtro = fiNenhum then

         begin

           if MostrarPreview then   

              RLLayout.PreviewModal

           else

              RLLayout.Print;

Utilizo carteira "1", sem aceite, e com todas as configurações padrão do Demo.

Fico grato com qualquer ajuda, mas meu objetivo é o funcionamento no quick-report.

Att.