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!