Job-Vorlage: Generelle Version mit Include-Beispiele

Robert W.B. Linn´s Software, Beispielprojekte und Tipps zu TurboDB, TurboDB VCP, TurboDB Studio, Visual Data Publisher

Alle Einträge Stichworte Alle Tipps und Tricks Download Tipps und Tricks (html, hlp, rtf)

.Report
..#Diese Vorlage verwendet drei Include-Befehle für die Fontdatei, den Header und Footer
..#Der Vorteil diese Methode ist, daß Sie nur Änderungen in den Include-Dateien
..#vornehmen müßen um alle Datenbankjobs anzupassen
..#Mittels eines easy-Moduls könne alle Jobs neu übersetzt werden.
..#Siehe <Job- und Module-Kompilierungsprozedure>
..#10.10.1999 R.W.B.Linn
.Prolog
.PRIMTABLEIS TABELLE
.ZUGRIFF TABELLE.IND
.Include \daten\vdp\projekt\jobfonts.inc
..
..Systemvorgaben lesen
.Var nRNo = 0
.Do nRNo := ReadRec(SYSTEM, 1)
.If nRNo = 0
.Do Message("Keine Systemvorgaben gefunden!", "Fehler")
.ST
.End
..
..#Seiteneinstellungen
.DO SetPara(".MT "+STR(SYSTEM.JobMT)+", PO "+STR(SYSTEM.JobPO)+", MR"+STR(SYSTEM.JobMR))
.Selection Ihre Selection
..
..#Definition der Variabelen
.Var ULine20 = xMal("_",20)
.Var ULine40 = xMal("_",40)
.Var i = 0
.Var j = 0
..
.HE 1
.Header
.Include \daten\vdp\projekt\jobhdr.inc
$(@a12b "Überschrift vom " + DateStr(ToDay) C_Form ToMargin)
..
.Footer
.Include \daten\vdp\projekt\jobftr.inc
..
.Daten
..
..
.Epilog
..