Programiranje mask s skriptom mask

Načrt in koda

V oblikovalcu mask F12 preklopi med načrtom in kodo. F9 preveri skript, F1 odpre pomoč „Kaj zmore skript?“ s 35 primeri, ki jih vstaviš z dvoklikom. Jezik je Pascal (netPascalScript) z angleškimi imeni.

Dogodki

• Obrazec: BeforeOpen, AfterOpen, BeforeSave, AfterSave, BeforeClose, OnValidate.
• Polje: OnEnter, OnExit, OnChange, OnClick.

V inšpektorju objektov (neu) na zavihku „Dogodki“ ustvariš ustrezno rutino, na primer FormBeforeSave. Prazne rutine netERP odstrani ob shranjevanju.

Primer

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;

Kaj zmore skript

Brati in nastavljati polja (Form.Field, Form.SetField), polja prikazovati ali skrivati ter zakleniti (SetVisible, SetEnabled), nastaviti fokus, odpreti sekcijo, prikazati sporočila in vprašanja (Message, Confirm) ter preklicati shranjevanje ali zapiranje (Form.Cancel). Form.IsNew, Form.Module in Form.Id dajo informacije o zapisu. Ključi polj izhajajo iz oblikovanja maske.

Napaka v skriptu je prijavljena enkrat; obrazec ostane uporaben. Samo Form.Cancel prekine dejanje.