Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.300 Beiträge
 
Delphi 12 Athens
 
#10

AW: Fastreport: Optimierung

  Alt 2. Dez 2021, 06:10
Zitat:
Ich würde nochmal auf den eingangs erwähnten Punkt hinweisen
...ist heute im Plan.


Nachtrag (Werte in Milisekunden):

Zitat:
gleiche Rechnung, gleiche Anhänge

1. Versuch

1. dmReport.frxReport1.PrepareReport(True) 765
FillReportPDF 0
1. ExportPDF 1079
dmReport.FillReportVariable('IsReceiptCopy', Print.IsReceiptCopy) 0
2. dmReport.frxReport1.PrepareReport(True) 421
FillReportTransus; 0
2. ExportPDF 1000
Copy 6063
DB1 47
DB2 1984

2.Versuch

1. dmReport.frxReport1.PrepareReport(True) 843
FillReportPDF 0
1. ExportPDF 1094
dmReport.FillReportVariable('IsReceiptCopy', Print.IsReceiptCopy) 0
2. dmReport.frxReport1.PrepareReport(True) 422
FillReportTransus; 0
2. ExportPDF 953
Copy 6140
DB1 47
DB2 2063
Wow... Das das Kopieren die meiste Zeit braucht, hatte ich nicht erwartet. (3 PDF Anhänge: hier lokal nach lokal)

DB2: 1 Update auf ein Feld! Alle where Felder im Index...Warum braucht er solange. Verstehe ich nicht.
Code:
update Documents set SendTypeUSB = :GES where ReceiptNumber = :PAT
Zitat:
[IDX_ReceiptNumber] vorhanden

Entscheidung:

Das Auflösen des Datamodules (dmReport) mache ich später. Ich werde die Kopien in einen TTask auslagern. Die DB2 schaue ich mir an...

Danke an Alle...

Geändert von haentschman ( 2. Dez 2021 um 08:24 Uhr)
  Mit Zitat antworten Zitat