/*Steckbrief anlegen*/



res=.bsf.dialog~dialogBox("Neuen Steckbrief anlegen?", , "Frage des Tages",  "YesNo")
say res
if res = 0 then
do
    Vorname=.bsf.dialog~inputBox("Gib deinen Vornamen ein!", "Dein Vorname!", "info")
    if Vorname = .Nil then Call Exit
    Nachname=.bsf.dialog~inputBox("Gib deinen Nachnamen ein!", "Dein Nachname!", "info")
    if Nachname = .Nil then Call Exit
    Geburtstag=.bsf.dialog~inputBox("Gib deinen Geburtstag ein! [dd.mm.yyyy]", "Dein Geburtstag!", "info")
    if Geburtstag = .Nil then Call Exit
    Bundesland_liste=.list~of("Salzburg", "Niederoesterreich", "Oberoesterreich", "Steiermark", "Wien", "Kaernten", "Tirol", "Vorarlberg", "Burgenland")
    Standart_Auswahl="Wien"
    Bundesland=.bsf.dialog~inputBox("Waehle dein Bundesland!", "Choice Dialog", "plain", , Bundesland_liste, Standart_Auswahl)
    if Bundesland = .Nil then Call Exit
    Output=.bsf.dialog~messageBox(Vorname "," Nachname "," Geburtstag "," Bundesland, "Dein Steckbrief")
    end
else
Call Exit

::Routine Exit
Ende=.bsf.dialog~messageBox("Schoenen Tag", "Info", "info")

::requires BSF.CLS