Siehe auch ZeilenumbruchAb() , Seitenumbruch() und PageCursorLU().
tupfunc-
DrawTupel (Tupel tup)
FORALL feld IN tup
txt := tup.GetText (feld)
IF (feld="ORT")
typ := BOLD
ELSE
typ := NORMAL
ENDIF
TextOnReport (feld+": "+txt, typ, "Links")
IF (feld="ORT")
Zeilenumbruch()
Zeilenumbruch()
ENDIF
ENDFOR
Seitenumbruch()
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