Lade...
 

Verwaltung einer Datumsperiode mit einem String-Feld

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)

}