Kursliste zum einkleben funktioniert auf einmal nicht mehr

[m.meier]

Guten Tag zusammen,
ich benutze die Kurs 42-Version 3.33.30528 und kann auf einmal keine Kursliste zum Einkleben (die aus dem Standard-Downloadpaket) nicht mehr nutzen, weil ich immer die Fehlermeldung aus dem Anhang erhalte. Woran kann das liegen?

[wschrewe]

Woran kann das liegen?

Entweder Sie aktualisieren Kurs 42 auf die aktuelle Version (s. Versionsgwschichte:)

09.05.2025 (Version: 3.33.36.532, Noten: 2.11.12.99)
....
Beim Druck von Kurslisten mit Tutoren kam es zu einem Laufzeitfehler, nun behoben.
....

oder Sie bearbeiten das Formular und entfernen das Datenfeld, das auf den Tutor zugreift.

[m.meier]

Ich habe auf die neue Version aktualisiert, erhalte allerdings weiter die Fehlermeldung. Wo genau finde ich das Datenfeld, das auf Tutoren zugreift?

[wschrewe]

I erhalte allerdings die Fehlermeldung.

Das sollte nicht sein. Es könnte sein, dass Ihre Blockungsdaiei einen Fehler hat. Wenn der Fehler beim Druck nach "Extras->Spezial->Fehlerbereinigung" weiter auftritt, können Sie mir die Blockungsdatei schicken, dann schaue ich mir das an.

[m.meier]

An welche Adresse kann ich die Blockungsdatei schicken?

[wschrewe]

An welche Adresse kann ich die Blockungsdatei schicken?

walter(at)wschrewe.de

[wschrewe]

Die Blockung und der Report sind in Ordnung. Die Kurslisten werden in der Vorschau problemlos angezeigt. Der Fehler entsteht, wenn die Ausgabe an den Drucker geschickt wird. Ich kann den Fehler reproduzieren, wenn in meinem Netzwerk kein Drucker angemeldet ist. Bitte überprüfen Sie Ihre Druckereinstellungen (Startmenü->Drucker und Geräte),

[m.meier]

Bei mir wird auch die Vorschau schon nicht korrekt angezeigt, andere Formulare (z. B. Kursliste mit Klausurnoten) kann ich als Vorschau sehen und auch drucken

[wschrewe]

Bei mir wird auch die Vorschau schon nicht korrekt angezeigt,

Dann sollten Sie mir bitte auch den verwendeten Report schicken.

[wschrewe]

So, der Fehler ist gefunden. Irgend jemand hat den Report bearbeitet und unter "Berechnungen" die Funktion "onGetText" des Datenfeldes "DBText1", das mit der Kursbezeichnung verknüpft ist, bearbeitet.
Dabei wurden zwei Fehler eingebaut:
Ursprünglicher Code:

Code: Alles auswählen

procedure DBText1OnGetText(var Text: String);
begin
  If Kurse['Kursart']=72 Then  
// Fehler: `Kursart' ist ein Textfeld, der Vergleich mit einem Zahlenwert führt
// zu einbem Laufzeitfehler, weil versucht wird, den Feldinhalt in einen Zahlenwert
// zu konvertieren. 
  Text :='Lk' else
  Text:= 'Gk';
// Diese Umwandlung ist überdies nicht notwendig, weil *Kursart' berits den Klartext enthält
  Text:= Text + ' ' + Kurse['Fach'] + '-' + Kurse['Kursnr'];	
// Hier besteht der Fehler darin, dass versucht wird, einen numerischen Wert ('KursNr*)
(( an eine Zeichenkette anzuhängen.
 end;

Einfacher wird das gewünschte Resultat mit

Code: Alles auswählen

procedure DBText1OnGetText(var Text: String);
begin
  Text:=Kurse['Kursart']  + ' ' + Kurse['Fach'] + '-' + IntToStr(Kurse['Kursnr']); 
end;

erreicht
Den korrigierten Report habe ich angehängt.