Verwaltung einer Datumsperiode mit einem String-Feld
Der folgende Programmcode zeigt die Definition eines Windows, über das eine
Datumsperiode ein- und ausgegeben werden kann. Dabei wird ein Oberflächenobjekt String verwendet, dessen Inhalt mit dem Befehl DrainWindow ins Objekt gestellt und mit FillWindow gefüllt wird.
Window(Win, 50, 70, 410, 37, T("Beispiel Nr. 1", "Example No. 1"))
[
Var(sdate)
INITIALIZE:
CreateTransObject(CX_SPAN_DATE) -> sdate
"2Q04 - 4Q05" sdate Put
sdate FillWindow
]
{
Prompt(10, 10, T("Datumsperiode:", "span-date:"))
String(CX_SPAN_DATE::this, 150, 10, 235)
}