Die Anwendung dieser Funktion muss mit Bedacht erfolgen, da sie den Automatismus mit dem RelToReport() neue Zeilen und Seiten anfängt, auf unerwartete Weise durcheinander bringen kann.
Siehe auch Zeilenumbruch() und PageCursorLU().
tupfunc-
DrawTupel (Tupel tup)
# alle Felder hintereinander und ggf. auf mehrere Zeile verteilt ausgeben
FORALL feld IN tup
txt := tup.GetText (feld)
TextOnReport (feld+": "+txt, typ, "Links")
ENDFOR
Zeilenumbruch()
P := AktRepPage()
pos := P.PageCursortLU()
range := PageNetto()
p1 := {XKoo(range.RangeLU()), pos.YKoo()}
p2 := {XKoo(range.RangeRO()), pos.YKoo()-1}
P.FrameOnPage (p1, p2, 0.01)
ZeilenumbruchAb (p2)
Zeilenumbruch()
END
AZUR ()
R := OpenRel("kerndaten")
ueber := "Stammdaten aller Stationen"
Rep := RelToReport (R, False, "9,19", 0.4, ueber, 1, "MachHeader", "DrawTupel")
Rep.PrintReport ("derreport.pdf", "PDF")
END
toposoft 31.10.2025