Berichte gestalten - Wer hat Erfahrung?

Guten Abend,

seit zwei Tagen tüfftel ich an einem Bericht und komme nicht weiter. :question: Ich möchte gern den Bericht „Auftragsliste im Querformat“ umschreiben.
Einiges ist mir bereits gelungen. Jedoch bekomme ich es nicht hin, die Auftragspositionen zu einem Auftrag mit anzeigen zu lassen. Es wird nichts angezeigt.

Meine bisher beste Variante stelle ich hiermit zur Diskussion und hoffe über diesen Weg eine Auskunft zu bekommen.


HandleLayout(C_Zeile, isSchraffur, SchraffurFarbe, theFont, HorzLinienArt, VertLinienArt, Rand)
If isSchraffur then
isSchraffur = false
else
isSchraffur = true
End if
ClearRow(C_Zeile, „“)
end function

SetCellText(C_H_Spalte_1, „Eingangs-Datum“)
SetCellText(C_H_Spalte_2, „Liefer-Datum“)
SetCellText(C_H_Spalte_3, „Projekt-Nr. Bezeichnung“)
SetCellText(C_H_Spalte_4, „Kunden-Nr.“)
SetCellText(C_H_Spalte_5, „Name Straße PLZ Ort“)
SetCellText(C_H_Spalte_6, „Auftrags-Nr.“)
SetCellText(C_H_Spalte_7, „A-Pos“)
SetCellText(C_H_Spalte_8, „Artikel“)
SetCellText(C_H_Spalte_9, „Menge“)
SetCellText(C_H_Spalte_10, „Betrag“)

SetFooterCell(C_S_Zeile)
SetHeaderCell(C_H_Zeile)

Result_R = FirstRecord(„R“)
While Result_R Do

strWaehrung = GetCurrencySymbol(AUFTR_RG_BETRAG, bWaehrungAlsText)

SetCellText(C_Spalte_1, FormatDate("%d.%m.%Y", GetDate(AUFTR_BELEGDATUM)))
SetCellText(C_Spalte_2, Get(AUFTR_LIEFERDATUM))
SetCellText(C_Spalte_3, Get(AUFTR_PROJEKT_NR) + " " + Get(AUFTR_BESCHR_TEXT))
SetCellText(C_Spalte_4, Get(AUFTR_KD_NR))
If get(AUFTR_FA) <> „“ then
SetCellText(C_Spalte_5, Get(AUFTR_FA) + " " + Get(AUFTR_STRASSE) + " " + Get(AUFTR_PLZ) + " " + Get(AUFTR_ORT))
else
SetCellText(C_Spalte_5, Get(AUFTR_NAME_1) + " " + Get(AUFTR_VORNAME) + " " + Get(AUFTR_STRASSE) + " " + Get(AUFTR_PLZ) + " " + Get(AUFTR_ORT))
End if
SetCellText(C_Spalte_6, Get(AUFTR_KURZBEZ_AKT_AUFTR_NR) + " " + FormatNumeric("%.0f", GetNumeric(AUFTR_BELEG_NR)))

'Auftragspositionen zum Auftrag auflisten
Result_P = FirstRecord(AUFTRAGSPOSITION)
While Result_P do

SetCellText(C_Spalte_7, Get(POS_NR))
SetCellText(C_Spalte_8, Get(POS_BEZ))
SetCellText(C_Spalte_9, Get(POS_MENGE))
SetCellText(C_Spalte_10, Get(POS_SUM_BRUTPREISE))
LeereZellen()
SetCellText(C_Spalte_10, Get(AUFTR_RG_BETRAG))

Result_P= NextRecord(AUFTRAGSPOSITION)
End While
Result_R = NextRecord(„R“)
DrawCell(C_Zeile, Result_R)
LeereZellen()
End While[/color]
Ich erhalte die folgende Fehlermeldung für diesen Bericht:

---------- Parsing file: C:\ProgramData\Lexware\office\Formular\pcfk\N2Auftragliste.usf ----------
---------- Compiling file: C:\ProgramData\Lexware\office\Formular\pcfk\N2Auftragliste.usf ----------
Debug output: C:\ProgramData\Lexware\office\Formular\pcfk\N2Auftragliste.dbg
Compiler output: C:\ProgramData\Lexware\office\Formular\pcfk\N2Auftragliste.umb
---------- Datei-Informationen: C:\ProgramData\Lexware\office\Formular\pcfk\N2Auftragliste.umb ----------
Virtuelle Maschine:
Pure LexVM
Version 2.70
Compiler:
DruckNT LexVM Compiler
Version 2.70
Formular:
Zielgerät: Printer
Kennung: Auftragsliste
Beschreibung: Neu1_Auftragsliste im Querformat
Orientierung: Landscape
Spezielle Drucker: 0
DruckerBeschreibung: Standarddrucker

Ich würde mich unendlich toll freuen, wenn ich hierbei ein Stückchen weiterkäme.

Viele Grüße

Irene Br

Hallo Irene,

die identische Frage wurde unter Faktura & Auftrag Standard / Plus - Spezieller Bericht mit Auftragspositionen gewünscht | Lexware Support Forum gestellt und dort auch beantwortet.