SCRIPT "Geräteverleih" IS

IdTag tag;
String action, String equip, String name;

FORM selection "Geräteverleih" IS
  action = SELECTION ("Treffen Sie Ihre Auswahl:", "Entnahme|Rückgabe");
BEGIN
END;

FORM "Geräteverleih" IS
  tag = WAIT ("", NFC_IDTAG);
BEGIN
END;

FORM "Geräteverleih" IS
  name = TEXTINPUT ("Bitte Name eingeben:", ANY);
BEGIN
  STORE
    "Aktion" = action;
    "Equipment" = tag.id;
    "Name" = name;
  END;
  IF (action == "Entnahme") THEN
    GOTO entnahme;
  ELSE
    GOTO rueckgabe;
  END;
END;

FORM entnahme "Geräteverleih" IS
  TEXTOUTPUT(tag.id + " verliehen an: " + name, OK, 3);
BEGIN
  GOTO selection;
END;

FORM rueckgabe "Geräteverleih" IS
  TEXTOUTPUT("Danke " + name + " für ihre Rückgabe (" + tag.id + ")", OK, 3);
BEGIN
  GOTO selection;
END;

END SCRIPT;