Προγραμματισμός φορμών με το Maskenskript

Σχεδίαση και κώδικας

Στον Maskendesigner το F12 εναλλάσσει μεταξύ Σχεδίασης και Κώδικα. F9 ελέγχει το σενάριο, F1 ανοίγει τη βοήθεια «Τι μπορεί το σενάριο;» με 35 παραδείγματα τα οποία εισάγονται με διπλό κλικ. Η γλώσσα είναι Pascal (netPascalScript) με αγγλικά ονόματα.

Γεγονότα

• Φόρμα: BeforeOpen, AfterOpen, BeforeSave, AfterSave, BeforeClose, OnValidate.
• Πεδίο: OnEnter, OnExit, OnChange, OnClick.

Στον Επιθεωρητή αντικειμένων, το (neu) στην καρτέλα «Γεγονότα» δημιουργεί την αντίστοιχη ρουτίνα, για παράδειγμα FormBeforeSave. Άδειες ρουτίνες αφαιρούνται από το netERP κατά την αποθήκευση.

Παράδειγμα

procedure FormBeforeSave(Sender: TObject);
begin
  if Form.Field('description') = '' then
    Form.Cancel('Bitte die Bezeichnung angeben.');
end;

procedure CodeOnExit(Sender: TObject);
begin
  Form.SetField('code', UpperCase(Form.Field('code')));
  Form.SetEnabled('zip', Form.Field('country') = 'DE');
end;

Τι μπορεί να κάνει το σενάριο

Ανάγνωση και εγγραφή πεδίων (Form.Field, Form.SetField), εμφάνιση ή απόκρυψη και κλείδωμα πεδίων (SetVisible, SetEnabled), ρύθμιση του focus, άνοιγμα ενότητας, εμφάνιση μηνυμάτων και ερωτήσεων επιβεβαίωσης (Message, Confirm) και ακύρωση αποθήκευσης ή κλεισίματος (Form.Cancel). Τα Form.IsNew, Form.Module και Form.Id παρέχουν πληροφορίες για την εγγραφή. Τα κλειδιά πεδίων προέρχονται από το σχεδιασμό της φόρμας.

Σφάλμα στο σενάριο αναφέρεται μία φορά· η φόρμα παραμένει λειτουργική. Μόνο το Form.Cancel ακυρώνει μια ενέργεια.