ich hänge an einem kleinen Problem. Ich habe für die Maske 'BAUF_B_' ein neues Druckformular erstellt, dieses darf aber nur gedruckt werden
in Abhängigkeit der Auftragssart, in unserem Fall 'SA' für Sterilisationsauftrag. Das Skript unten habe ich auf das Ereignis 'BtnOkOnClick' gelegt.
Die Abfrage funktioniert aber nur bedingt, im Falle dass es sich wirklich um einen Steri-Auftrag handelt, ist alles OK.
Ist die Auftragsart kein Steri-Auftrag, öffnet sich die MessageBox mit der Fehlermeldung und nach Bestätigung, friert AvERP mit der Fehlermeldung
'Element " hat kein übergeordnetes Fenster' ein. Weitere Skripte befinden sich nicht in dem Druckformular.
Was mache ich hier falsch
Code: Alles auswählen
Begin
DebugOn := True;
B := lbFormName.Caption;
Z := Application.FindComponent(B);
//Auftragsart aus der Auftragsverwaltung holen
AufArtIst := AsString(Z.q_1.FieldByName('BTOUR_MASKENKEY'));
//Zuweisung des Kürzels für Sterilisationsauftrag
AufArtSoll := 'SA';
//Auftragsart Ist und Soll vergleichen
//Wenn ungleich- Fehlermeldung ausgeben und Fenster schliessen
if (AufArtIst <> AufArtSoll) then
begin
MessageBox('Ausdruck nur für Sterilisationsaufträge !',Self.Caption,0+64);
Self.Close();
end;
End;