ReportInit()

ReportInit() – Reportobjekt erzeugen

Die Funktion erzeugt das Reportobjekt, das später für den Druck über ReportPrint() benötigt wird.

Parameter	Beschreibung
aReportName:C	Name des Reports unter dem er in der Tabelle DabR10 gespeichert werden soll.
aTables:U	Tabellenobjekt oder ein Array mit Tabellenobjekten, die die richtigen Aliase haben.
aArguments:U	Parameter oder ein Array mit Parametern. Inhalt wird in die Eigenschaft 'RParams' des Report-Objektes übernommen; default = null()

Rückgabewert

Objekt - Reportobjekt

Beispiel - mit einem DataModul und richtigem Tabelle-Alias

CODE

| aReport, oDab010, aOldCursor, oDM |

oDM := DBGetDataModuleFromPool('Druck'),
startseq
   oDab010 := DbGetTable(oDM, waDab010, 'ODAB010'),
   oDab010.CbIndexName := 'DAB011',
   oDab010.CbFilter    := 'ARTNR = "A"',
   oDab010.CbFiltered  := true,

   aReport := ReportInit('Artikelliste', oDab010, {'Artikelliste'}),
   if !Empty(aReport) then
      aOldCursor := SetCursor(crHourGlass),
      startseq,
         ReportPrint(aReport, rm_print),
      onerror,
         WriteLn('Fehler beim Drucken aufgetreten: ' + GetErrorText(GetErrorObj())),
      stopseq,
      DestroyObject(aReport),
      SetCursor(aOldCursor),
   endif,
always
  DBReturnDataModuleToPool(oDM),
stopseq

Beispiel - Alt

CODE

| aReport, oDab010:DB := 'waDAB010, DAB011', aPrinters, aOldCursor |

DBFilter('ARTNR = "C"', oDab010),
aReport := ReportInit('Artikelliste', oDab010, {'Artikelliste C'}),
if !Empty(aReport) then
   aOldCursor := SetCursor(crHourGlass),
   startseq,
      ReportPrint(aReport),
   onerror,
      Showmessage('Fehler beim Drucken aufgetreten!'),
   stopseq,
   DestroyObject(aReport),
   SetCursor(aOldCursor),
endif,

Weitere Verknüpfungen

ReportPrint()