Berichte gestalten - Wer hat Erfahrung?

Hier ist Platz für Themen rund um Lexware Programme faktura+auftrag (standard, plus), handwerk plus und warenwirtschaft (pro, premium)

Moderator: Steve Rückwardt

IreneBru
Neu-Mitglied

Beiträge: 1
Registriert: Di 1. Aug 2017, 19:47
Lexware-Software: Lexware Faktura+Auftrag Plus

Berichte gestalten - Wer hat Erfahrung?

Beitragvon IreneBru » Di 1. Aug 2017, 20:04

Guten Abend,

seit zwei Tagen tüfftel ich an einem Bericht und komme nicht weiter. :?: 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

Benutzeravatar
Udo Netzel
Mitglied

Beiträge: 485
Registriert: Do 10. Jul 2014, 18:41
Lexware-Software: siehe Signatur
Wohnort: Berlin
Danke gesagt: 1
Danke erhalten: 97
Kontaktdaten:

Re: Berichte gestalten - Wer hat Erfahrung?

Beitragvon Udo Netzel » Mi 2. Aug 2017, 00:02

Hallo Irene,

die identische Frage wurde unter https://forum.lexware.de/threads/13509/ gestellt und dort auch beantwortet.
Freundliche Grüße aus Berlin

Udo Netzel
________________________________________________________________________________
financial office plus 2017 | neue Steuerkanzlei 2017 | Finanzmanager 2018 | TAXMAN 1994-2017
Windows 10 x64 (1703) | 8 GB RAM


Zurück zu „Auftragswesen / Fakturierung (z.B. Lexware warenwirtschaft)“

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 11 Gäste