!RAW
! ListDialog.obas (c) Andre Koppel Software 2013
! Das folgende Programm zeigt, wie mit Hilfe der
! Listenfunktionen ein eigener Dialog aufgebaut
! werden kann.
! Zuerst wird eine Liste erzeugt, die das Aussehen
! und die Funktionen des Dialogs definiert.
! Danach wird die Listen-Dialog-Funktion aufgerufen.
! Das Ergebnis der Listen-Dialog-Funktion ist eine
! Liste, die für jedes definierte Element einen
! Rückgabewert entwählt.
! Wir benutzen den Dialog, um mit dem Gesamtergebnis
! ein XML-Tag zu erzeugen, das wir ausgeben.
! Wenn man dieses Programm als INVEP-BASIC-Makro
! speichert, so kann man dadurch menügeführte Makros
! erzeugen
! Die erste Zeile mit dem Eintrag !RAW weist die
! Makro-Verarbeitung an, dass dieses Programm nicht
! vorverarbeitet werden soll, also keine Verarbeitung
! der Escape-Zeichen erfolgt
INIT VARSPACE
DIM D$[2000]; r$[2000]

! Wir erstellen den zu erzeugenden Dialog in Form einer Liste.
! Zuerst definieren wir den Dialog an sich. Die Option "Verbose"
! gibt an, dass das Layouting des erzeugten Dialogs in
! Die Protokolldatei geschrieben wird. Die Option timeout gibt
! an, dass der Dialog nach 60 Sekunden ohne Tastendruck beendet,
! d.h. abgebrochen wird.
d$="{ DialogName -> \"Anfechtungs-Tags\"; Timeout -> 60000; Verbose; XOffset -> 5; "
! Jetzt erstellen wir die einzelnen Widgets. Aus Lesbarkeits-
! gründen ein Widget pro Zeile Jedes Widget wird als eigenstän-
! dige Liste erzeugt. Die Variablen, die den Feldbezeichnern
! zugeordnet werden, müssen nur dann in Anführungszeichen
! gesetzt werden, wenn Sonderzeichen enthalten sind.
! zuerst zwei Datumseingabefelder (Type DATE)
d$=d$&"{ Typ -> DATE ; Label -> Datum; QHELP -> \"Datum der Rechnung\" }; "
d$=d$&"{ Typ -> DATE ; Label -> \"Fälligkeit\" }; "
! jetzt ein Mittellanges Eingabefeld für Gleitkommazahlen
d$=d$&"{ Typ -> DOUBLE_M ; Label -> Betrag; QHELP -> \"Höhe der Rechnung\" }; "
! jetzt ein mittellanges Feld für die Eingabe von Text
d$=d$&"{ Typ -> TEXT_M ; Label -> Rechnungsgrund }; "
! damit der Dialog etwas übersichtlicher wird, machen wir in
! der nächsten Zeile weiter dafür die es das Pseudowidget
! "NEWLINE"
d$=d$&"{ Typ -> NEWLINE }; "
! Es folgt die Definition eines Check-Box-Widgets (ein/aus)
d$=d$&"{ Typ -> TBUTTON_S; Label -> Titel; QHELP -> \"Ist die Forderung tituliert?\" }; "
! jetzt kommt wieder ein Text-Eingabefeld
d$=d$&"{ Typ -> TEXT_M ; Label -> Titel; QHELP -> \"z.B. VB vom 02.05.2013\" }; "
! Eine Selection-Box wäre auch möglich, brauchen wir hier nicht,
! bleibt daher auskommentiert
! d$=d$&"{ Typ -> CBUTTON_S; Label -> Auswahl; Widgets -> { \"Ja\" ; \"Nein\" ; \"Weißnich\" } }; "
! jetzt definieren wir noch zwei Buttons für Ende und Abbruch
d$=d$&"{ Typ -> BUTTON_S ; Action -> EXIT };"
d$=d$&"{ Typ -> BUTTON_S ; Action -> ABORT } }"
! Falls in der Eingabe eine Rechnung durchgeführt wird,
! so würde das Ergebnis hier ausgegeben werden
! Diese Ausgabe schalten wir mit DISCARD OUTPUT aus
DISCARD OUTPUT ON
r$=LIST DIALOG$(d$)
DISCARD OUTPUT OFF
DROP PENDING OUTPUT
! unser Ergebnis wird in Form einer Liste geliefert, deren
! Elemente in der gleichen Reihenfolge wie die Widgets
! vorliegen.
! Wenn wir als Ergebnis keine Liste bekommen haben, wurde die
! Eingabe abgebrochen. Daher schauen wir erstmal, ob überhaupt
! eine Liste vorliegt
IF LIST TEST(r$) THEN
  ! Hura, der Anwender hat etwas eingegeben. Der Code-Lesbar-
  ! keit halber weisen wir die Listenelemente selbsterklärenden
  ! Variablen zu
  datum$=LIST GET$(r$;1)
  faellig$=LIST GET$(r$;2)
  betrag$=LIST GET$(r$;3)
  grund$=LIST GET$(r$;4)
  ! Ob ein Titel vorliegt, ist eine Ja/Nein-Thematik, das
  ! Listenergebnis liegt jedoch in Form einer Zeichenkette vor,
  ! also nehmen wir eine numerische Umwandlung vor
  isttitel=IVAL(LIST GET$(r$;5))
  titeltext$=LIST GET$(r$;6)
  ! jetzt haben wir alles zusammengesammelt und können Stück für
  ! Stück das Tag bauen
  DISP ""
  ! Ist der Grund der Forderung angegeben worden, wenn ja, dann
  ! geben wir ihn aus
  IF SLEN(grund$) THEN DISP "\"" grund$ "\""
  ! jetzt beenden wir unser Tag
  DISP ""
  DISP "\n"
END IF