<\/p>\n
Nachdem wir in einigen vorherigen Beiträgen eine feine Verwaltung für Kunden, Produkte und Bestellungen programmiert haben, wagen wir uns nun an ein Thema heran, das noch recht neu ist und das auch erst durch die wachsende Anzahl von Anwendungen im Finanzbereich für mobile Geräte entstanden ist. Wir wollen Rechnungen nun nicht mehr nur auf einem schnöden Blatt Papier oder als PDF-Dokument erzeugen, sondern diese auch noch mit einem schicken QR-Code versehen, der die für die Begleichung der Rechnung über die Banking-App notwendige Bilddatei anzeigt. Und wenn wir schon dabei sind, erklären wir auch direkt, wie Sie auf Basis der bisherigen Teile dieser Beitragsreihe einen Rechnungsbericht erstellen.<\/b><\/p>\nHinweis<\/h2>\n
Die Downloads zu diesem Beitrag enthalten die DLL zur Generierung des hier verwendeten EPC-QR-Codes. Diese DLL kann hier erworben werden:<\/p>\n
https:\/\/shop.minhorst.com\/access-tools\/372\/amvepcqrcode?c=78<\/pre>\nAls Abonnent dieses Magazins erhalten Sie eine Kopie der DLL, die Sie für den privaten Gebrauch nutzen können. Für geschäftliche Zwecke oder für den Einbau in Anwendungen für Ihre Kunden können Sie eine oder mehrere Lizenzen erwerben.<\/p>\n
Vorbereitungen<\/h2>\n
Bevor wir uns mit der Erstellung des eigentlichen Berichts beschäftigen, erledigen wir ein paar vorbereitende Arbeiten:<\/p>\n
Danach kümmern wir uns um den Bericht selbst.<\/p>\n
Zum Erstellen von Rechnungen eignen sich verschiedene Orte in einer Datenbank. Wir könnten in der Übersicht aller Bestellungen eine Schaltfläche hinzufügen, die alle aktuell angezeigten Bestellungen in Rechnung stellt, aber wir wollen es erst einmal einfacher halten und nur eine Rechnung gleichzeitig anzeigen. Dazu verwenden wir das Formular frmBestellungDetails<\/b>, das jeweils eine Bestellung anzeigt. Diesem fügen wir eine Schaltfläche namens cmdRechnungsberichtErstellen <\/b>hinzu (siehe Bild 1).<\/p>\n
![\"Schaltfläche](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_001.png\")
<\/p>\n
Bild 1: Schaltfläche zum Anzeigen des Rechnungsberichts<\/span><\/b><\/p>\n Für diese Schaltfläche hinterlegen wir die folgende Ereignisprozedur:<\/p>\n Dies öffnet den noch zu erstellenden Bericht namens rptRechnung <\/b>in der Seitenansicht – das ist die Ansicht, welche die Druckansicht anzeigt. Außerdem übergeben wir dem Bericht die ID <\/b>der aktuell im Formular angezeigten Bestellung.<\/p>\n Unter Optionen des Rechnungssenders verstehen wir solche Daten, die im Bericht landen sollen, aber bisher nirgends gespeichert werden. Dazu gehören Informationen wie Firmenname, Briefkopf, Bankverbindung, Umsatzsteuer-Identifikationsnummer et cetera.<\/p>\n Diese könnten wir auch direkt im Bericht anlegen, aber wenn der Benutzer diese dann ändern möchte, müsste er den Entwurf des Berichts anpassen – und das wollen wir tunlichst vermeiden. Also wollen wir solche Informationen in einer Optionentabelle speichern, deren Daten in einem entsprechenden Formular angezeigt werden.<\/p>\n Der Entwurf dieser Tabelle wird in Bild 2 dargestellt.<\/p>\n Bild 2: Tabelle zum Speichern der Optionen für den Bericht<\/span><\/b><\/p>\n Das Formular, mit dem wir die Optionen für den Bericht eingeben wollen, finden Sie in Bild 3. Es verwendet die Tabelle tblOptionen <\/b>als Datensatzquelle. Wir ziehen alle Felder außer dem Feld ID <\/b>in den Detailbereich des Formularentwurfs.<\/p>\n Bild 3: Formular zum Eingeben der Optionen in der Entwurfsansicht<\/span><\/b><\/p>\n Dadurch, dass wir in den vorherigen Teilen der Beitragsreihe bereits ein Formular namens Normal <\/b>erstellt haben, in dem wir auch einige Standardeinstellungen für Beschriftungsfelder vorgenommen haben, werden die Beschriftungen direkt mit Doppelpunkten abgeschlossen.<\/p>\n Da das Formular immer nur einen Datensatz anzeigen und keinen Wechsel zu einem neuen, leeren Datensatz ermöglichen soll, stellen wir die Eigenschaft Zyklus <\/b>auf Aktueller Datensatz <\/b>ein. Außerdem stellen wir die Eigenschaften Bildlaufleisten<\/b>, Trennlinien<\/b>, Navigationsschaltflächen <\/b>und Datensatzmarkierer <\/b>auf den Wert Nein <\/b>und Automatisch zentrieren <\/b>auf den Wert Ja <\/b>ein.<\/p>\n Schließlich legen wir den Namen der Schaltfläche mit der Beschriftung OK <\/b>auf cmdOK <\/b>fest und hinterlegen für diese die folgende Ereignisprozedur:<\/p>\n Außerdem legen wir für die Textfelder Firmenname<\/b>, Briefkopf<\/b>, Empfaengername <\/b>und Adresszeile <\/b>die Eigenschaft Horizontaler Anker <\/b>auf Beide <\/b>ein, damit die Größe dieser Steuerelemente mit dem Vergrößern des Formulars ebenfalls vergrößert wird. Diese Eigenschaft müssen wir für die dazugehörigen Bezeichnungsfelder anschließend wieder auf Links zurücksetzen.<\/p>\n Wechseln wir zur Formularansicht und geben wir einige Daten in der Formular ein, sieht dieses wie in Bild 4 aus. Nach der Eingabe der Daten können wir es mit einem Klick auf OK <\/b>schließen.<\/p>\n Bild 4: Formular zum Eingeben der Optionen in Aktion<\/span><\/b><\/p>\n Den neuen Bericht erstellen wir mit dem Ribbonbefehl Erstellen|Berichte|Berichtsentwurf<\/b>. Danach landen wir in der Entwurfsansicht und nehmen direkt die erste Einstellung vor.<\/p>\n Dabei legen wir für den Detailbereich die Eigenschaft Alternative Hintergrundfarbe <\/b>auf den Wert der Eigenschaft Hintergrundfarbe <\/b>ein, in diesem Fall von Hintergrund 1, Dunkler 5% <\/b>zu Hintergrund 1<\/b> (siehe Bild 5).<\/p>\n Bild 5: Einstellen der alternativen Hintergrundfarbe für den Detailbereich<\/span><\/b><\/p>\n Nun fügen wir die Datensatzquelle für den Bericht hinzu. Und im Gegensatz zu Formularen, wo man immer möglichst eine Tabelle pro Haupt-\/Unterformular verwendet, damit die Daten noch bearbeitet werden können, statten wir die Abfrage für den Bericht mit allen Daten aus, die wir darin anzeigen wollen.<\/p>\n Da wir wollen, dass die Abfrage optimiert wird, um schnell die benötigten Daten zusammenstellen zu können, speichern wir ihn als eigene Abfrage, die auch im Navigationsbereich angezeigt wird. Diese Abfrage nennen wir qryRechnung<\/b>. Wir fügen dieser fast alle Tabellen der Datenbank hinzu (siehe Bild 6).<\/p>\n Bild 6: Abfrage als Datensatzquelle des Rechnungsberichts<\/span><\/b><\/p>\n Aus diesen Tabellen ziehen wir die folgenden Felder in den Abfrageentwurf, beginnend mit der Tabelle tblBestellungen<\/b>, dann nach rechts und anschließend nach links:<\/p>\n Wir fügen also selbst alle Felder der Tabelle tblOptionen <\/b>hinzu, obwohl diese mit keiner der hier vorliegenden Tabellen verknüpft ist. Aber ist das ein Problem, weil ja dann alle Kombinationen der Datensätze der Tabellen tblOptionen <\/b>und der Datensätze der übrigen Tabellen ausgegeben werden? Nein, das ist kein Problem – solange die Tabelle tblOptionen <\/b>nur den einen vorgesehenen Datensatz enthält.<\/p>\n Sollte man einmal mehrere Sätze von Optionen <\/b>verwenden wollen, um Rechnungen mit verschiedenen Erstellern zu erzeugen, dann muss man noch eine entsprechende Verknüpfung hinzufügen. Das wollen wir im Rahmen dieses Beitrags jedoch nicht tun.<\/p>\n Nun stellen wir für den Bericht die Abfrage qryRechnung <\/b>als Datensatzquelle <\/b>ein. Außerdem blenden wir den Bereich Berichtskopf\/-fuß ein. Diesen ziehen wir in der Höhe ein wenig größer und stellen die Hintergrundfarbe auf Automatisch <\/b>ein. Die Bereiche Seitenkopf <\/b>und Seitenfuß <\/b>minimieren wir zunächst in der Höhe – diese holen wir später wieder dazu.<\/p>\n [<\/p>\n Danach können wir beginnen, die Felder in der gewünschten Anordnung in den Bericht zu ziehen. Dabei landen zuerst einmal die Elemente der Tabelle tblOptionen <\/b>an den entsprechenden Stellen. Diese ziehen wir dabei einfach aus der Feldliste an die jeweilige Stelle im Bericht, wie Bild 7 zeigt.<\/p>\n Bild 7: Hinzufügen der Elemente der Tabelle tblOptionen<\/span><\/b><\/p>\n Wenn Sie die drei Felder Firmenname<\/b>, Briefkopf <\/b>und tblOptionen.UstIdNr <\/b>rechts oben anordnen, sollten Sie diese noch rechtsbündig ausrichten.<\/p>\n Außerdem sollten Sie, spätestens nach dem Hinzufügen aller Steuerelemente, einmal alles markieren und die Eigenschaft Rahmenart <\/b>für alle Elemente auf Transparent <\/b>einstellen – mit Ausnahme der Linie, die wir unter dem Element Adresszeile <\/b>im Bereich für das Adressfenster untergebracht haben.<\/p>\n Der nächste Schritt ist das Hinzufügen der Empfängeradresse. Hier kann es sein, dass der Kunde eine Firma angegeben hat oder auch nicht.<\/p>\n Für den Fall, dass eine Firma vorliegt, soll diese in der ersten Zeile der Adresse erscheinen und die Anrede samt Vorname und Nachname des Empfängers in der zweiten Zeile. Finden wir keine Firma vor, soll die Anrede des Empfängers in der ersten Zeile ausgegeben werden. Beispiel:<\/p>\n oder<\/p>\n In den weiteren Zeilen sollen die Straße sowie PLZ und Ort folgen. Bei Adressen außerhalb Deutschlands geben wir in der letzten Zeile das Land an.<\/p>\n Für den Inhalt der Empfängeradresse wählen wir also den folgenden Ausdruck, basierend auf den zur Verfügung stehenden Feldern:<\/p>\n Diesen Ausdruck bringen wir in der Eigenschaft Steuerelementinhalt <\/b>eines neuen Textfeldes namens txtEmpfaenger <\/b>unter. Auch für dieses Feld stellen wir die Eigenschaft Rahmenart <\/b>auf Transparent <\/b>ein.<\/p>\n Außerdem positionieren wir das Textfeld so, dass es im Fenster eines Briefumschlags erscheint.<\/p>\n Die Position lautet:<\/p>\n Die Maße lauten:<\/p>\n Dabei berechnen wir das Textfeld mit dem Absender mit ein und sehen 10 mm Höhe dafür vor, das Textfeld mit der Empfängeradresse darf also 35 mm hoch sein.<\/p>\n Beim Bericht ziehen wir von diesen Werten noch den oberen und den linken Seitenrand ab. Der linke Seitenrand soll 25 mm betragen, also platzieren wir das Textfenster am linken Rand des Berichtsentwurfs. Auch für den oberen Rand planen wir 10 mm ein, sodass die Absenderadresse in 40,8 mm Abstand vom oberen Rand des Entwurfs landet. Insgesamt sieht das Textfeld nun wie in Bild 8 aus.<\/p>\n Bild 8: Einfügen des Textfeldes für die Empfängeradresse<\/span><\/b><\/p>\n Damit die Abmessungen im Berichtsentwurf später zum Ausdruck passen, stellen wir noch sicher, dass die Seitenränder des Berichts entsprechende Werte aufweisen. Dazu wählen wir von der Entwurfsansicht des Berichts aus den Ribbonbefehl Seite einrichten|Seitenlayout|Seite einrichten<\/b> (siehe Bild 9).<\/p>\n Bild 9: Aufrufen der Einstellungen für die Seitenränder des Berichts<\/span><\/b><\/p>\n Dies öffnet den Dialog Seite einrichten <\/b>aus Bild 10. Hier legen wir den linken Seitenrand auf 25 mm fest.<\/p>\n Bild 10: Einstellungen für die Seitenränder<\/span><\/b><\/p>\n Wechseln wir anschließend zur Seitenansicht des Berichts, erhalten wir die Ausgabe aus Bild 11. Das passt – wir können uns also nun den weiteren Daten zuwenden.<\/p>\n Bild 11: Test der Position des Adressblocks<\/span><\/b><\/p>\n Die Bestellpositionen fügen wir hinzu, indem wir zunächst alle benötigten Felder in den Detailbereich ziehen: Produktbezeichnung<\/b>, Einheitbezeichnung<\/b>, Einzelpreis<\/b>, Steuersatz<\/b>, Menge <\/b>und Rabatt<\/b>. Außerdem fügen wir noch ein Feld hinzu, das den Preis bezogen auf die Menge und den Rabatt für die aktuelle Position angibt. Dieses Textfeld soll txtGesamt <\/b>heißen.<\/p>\n Von all diesen Steuerelementen schneiden wir nun die Bezeichnungsfelder aus und fügen diese im Berichtskopf wieder ein. Danach positionieren wir die Steuerelemente im Detailbereich nebeneinander und die Bezeichnungsfelder im Berichtskopf darüber, sodass der Bericht anschließend wie in Bild 12 aussieht.<\/p>\n Bild 12: Felder für die Bestellpositionen<\/span><\/b><\/p>\n Für das Feld txtGesamt <\/b>legen wir den folgenden Ausdruck an:<\/p>\n Die Gesamtsumme des Rechnungsbetrags wollen wir im Berichtsfuß über den Bankangaben platzieren. Dazu verschieben wir die Bankangaben etwas nach unten und fügen oben im Berichtsfuß ein neues Textfeld namens txtSummeGesamt <\/b>ein.<\/p>\n Das Bezeichnungsfeld verschieben wir ganz nach links, das Textfeld nach rechts, sodass es unterhalb des Textfeldes txtGesamt <\/b>angezeigt wird. Für dieses Textfeld stellen wir die Eigenschaft Steuerelementinhalt <\/b>auf den folgenden Ausdruck ein:<\/p>\n Außerdem fügen wir im Berichtsfuß über den beiden Steuerelementen noch eine horizontale Linie und darunter zwei Linien hinzu, sodass dieser Bereich nun mit den markierten Linien wie in Bild 13 aussieht.<\/p>\n Bild 13: Summenfeld für den Gesamtbetrag<\/span><\/b><\/p>\n In einer Rechnung müssen auch noch die Mehrwertsteuerbeträge für die verschiedenen Mehrwertsteuersätze enthalten sein. Diese wollen wir in einem Satz unter der Rechnungssumme angeben. Dafür hinterlegen wir dort ein neues Textfeld ohne Bezeichnungsfeld über die gesamte Breite.<\/p>\n Beim Inhalt des Textfeldes wird es spannend. Wenn wir nur einen Steuersatz pro Rechnung hätten, könnten wir einen einfachen Ausdruck wie den folgenden Nutzen:<\/p>\n Wir ermitteln also wie schon beim Summenfeld für den Gesamtbetrag einfach die Summe über die Berechnung der Mehrwertsteuer für alle Positionen.<\/p>\n Dies würde in der Seitenansicht wie in Bild 14 aussehen.<\/p>\n Bild 14: Hinweis auf die enthaltene Mehrwertsteuer<\/span><\/b><\/p>\n Allerdings kann es auch geschehen, dass einmal Positionen mit verschiedenen Mehrwertsteuersätzen in einer Rechnung auftauchen. Dann hilft dieser Satz nicht mehr weiter, denn hier würde zwar die Summe der Mehrwertsteuer korrekt berechnet, aber nur der Mehrwertsteuersatz der letzten Position angezeigt werden.<\/p>\n Wir können allerdings die Beträge der verschiedenen Mehrwertsteuersätze aufsummieren, indem wir diese in jeweils in eine Wenn<\/b>-Bedingung einfassen. Daraus resultiert nun der folgende Ausdruck:<\/p>\n Wir haben den Ausdruck formatiert, damit er besser lesbar wird.<\/p>\n Der erste Teil umfasst alle Mehrwertsteuerbeträge für 7% Mehrwertsteuer, der zweite Teil alle für 19% Mehrwertsteuer. <\/p>\n Da wir im Ausdruck einen Zeilenumbruch eingefügt haben, stellen wir die Eigenschaft Vergrößerbar <\/b>des Textfeldes auf Ja <\/b>ein. Das Ergebnis finden wir in Bild 15.<\/p>\n Bild 15: Angabe der Mehrwertsteuer für verschiedene Sätze<\/span><\/b><\/p>\n Damit kommen wir zum Finale – dem Hinzufügen des QR-Codes für die Rechnung. Die meisten Daten für den QR-Code stehen bereits vor dem Erstellen des Rechnungsberichts fest: die Rechnungsnummer, die Bankdaten für das Konto, auf das überwiesen werden soll et cetera. Eine der wichtigsten Informationen berechnen wir jedoch erst im Bericht, nämlich die Rechnungssumme. Nun gibt es zwei Möglichkeiten: Wir berechnen diese Summe per VBA und erstellen auf dieser Basis den QR-Code. Oder wir prüfen, ob wir im Bericht in einem Ereignis auf die dort berechnete Rechnungssumme zugreifen und diese dann noch bei der Erstellung des QR-Codes berücksichtigen können.<\/p>\n Zum besseren Verständnis der Ablauf der Erstellung und Integration des QR-Codes:<\/p>\n Den QR-Code erstellt man, indem man ein Objekt auf Basis einer Klasse erstellt, seinen Eigenschaften die im QR-Code zu erfassenden Daten übermittelt und dann den QR-Code in Form einer .png<\/b>-Datei im Dateisystem speichert. Diese Datei würden wir dann in einem Bild-Steuerelement im Bericht anzeigen.<\/p>\n Die Frage wäre, ob es zeitlich zusammenpasst, erst im Bericht den Gesamtbetrag zu berechnen und diesen dann in die Erstellung des QR-Codes einfließen zu lassen, der dann ebenfalls im gleichen Bericht angezeigt werden soll.<\/p>\n Wir haben es auf diesem Wege ausprobiert und für das Ereignis Beim Formatieren <\/b>des Bereichs Berichtsfuß <\/b>eine Prozedur angelegt, welche die genannten Schritte ausführt. Der QR-Code wurde zwar erstellt, landete aber nicht im angegebenen Bild-Steuerelement (Code ist auskommentiert im Klassenmodul des Berichts rptRechnung<\/b>).<\/p>\n Bevor wir die Ermittlung der Gesamtsumme per VBA vorab berechnet haben, haben wir allerdings noch getestet, ob es nicht doch im Ereignis Beim Formatieren <\/b>des Bereichs Berichtskopf funktioniert – also dem Bereich, in dem auch der QR-Code angezeigt werden sollte.<\/p>\n Und es hat wider Erwarten funktioniert, wenn wir auf das Steuerelement txtGesamtsumme <\/b>im Berichtsfuß verwiesen haben. Also nachfolgend die Lösung!<\/p>\n Als Erstes fügen wir noch zwei Felder aus der Datensatzquelle hinzu, die wir zur Berechnung des QR-Codes benötigen. Zur Information: In Berichten müssen alle Felder, die irgendwo referenziert werden, nicht nur in der Feldliste vorkommen, sondern auch an ein Steuerelement im Bericht gebunden sein. Also fügen wir die beiden Felder Empfaengername <\/b>aus der Tabelle tblOptionen <\/b>und Bestellnummer <\/b>aus der Tabelle tblBestellungen <\/b>oben links im Bericht ein und stellen ihre Eigenschaft Sichtbar <\/b>auf Nein<\/b> ein, damit diese nicht im Bericht angezeigt werden (siehe Bild 16).<\/p>\n Bild 16: Einfügen der zur Anzeige des QR-Codes benötigten Steuerelemente<\/span><\/b><\/p>\n Danach fügen wir ein Bild-Steuerelement hinzu, für das wir beim ersten Anlegen einen vorhandenen QR-Code auswählen. Danach ändern wir die Eigenschaft Bildtyp <\/b>des Steuerelements auf Verknüpft<\/b>. Außerdem legen wir picQRCode <\/b>als Name des Steuerelements fest.<\/p>\n Damit fehlt nur noch der VBA-Code, der den QR-Code erstellt. Diesen finden Sie in Listing 1.<\/p>\n Listing 1: Code zum Erstellen des QR-Codes und zum Einfügen der erstellten Datei in den Bericht<\/span><\/b><\/p>\n Bevor wir die dort erwähnte Klasse verwenden können, müssen wir dem VBA-Projekt einen Verweis auf die entsprechende Bibliothek hinzufügen.<\/p>\n Diese müssen Sie wiederum zuerst installieren – das Setup dazu finden Sie im Download zu diesem Beitrag. Danach fügen Sie den Verweis wie in Bild 17 hinzu.<\/p>\n Bild 17: Verweis auf die Bibliothek amvEPCQRCode<\/span><\/b><\/p>\n Die Prozedur Berichtskopf_Format<\/b> wird beim Anzeigen des Berichts ausgeführt. Sie deklariert die Variable objQRCode <\/b>mit dem Typ amvEPCQRCode.EPCQRCodeGenerator<\/b> und füllt diese später mit einem Verweis auf ein neu erstelltes Objekt auf Basis dieser Klasse. Vorher ermittelt sie die Rechnungssumme aus dem Textfeld txtSummeGesamt <\/b>des Berichtsfußes und speichert diese in der Variablen curSummeGesamt<\/b>.<\/p>\n Dann füllt die Prozedur die einzelnen Eigenschaften des Objekts in objQRCode <\/b>mit den Daten aus den Feldern des Berichts und speichert den Pfad der zu erzeugenden QR-Code-Datei in der Variablen strQRCodePfad<\/b>.<\/p>\n Schließlich ruft sie die Methode Generate <\/b>auf und übergibt dieser den Pfad der zu erstellenden Datei. Nach erfolgreichem Erstellen weist die Prozedur diese Datei der Picture<\/b>-Eigenschaft des Bild-Steuerelements picQRCode <\/b>zu.<\/p>\n Wenn wir den Bericht nun vom Formular frmBestellungDetails<\/b> aus öffnen, zeigt dieser die Rechnung für die Bestellung aus dem Formular an und blendet auch den richtigen QR-Code ein (siehe Bild 18).<\/p>\nPrivate Sub <\/span>cmdRechnungsberichtErstellen_Click()\r\n DoCmd.OpenReport \"rptRechnung\", _\r\n View:=acViewPreview, _\r\n WhereCondition:=\"ID = \" & Me!ID\r\nEnd Sub<\/span><\/pre>\nTabelle für die Optionen des Rechnungssenders erstellen<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_003.png\")
<\/p>\nFormular zum Verwalten der Optionen<\/h2>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_004.png\")
<\/p>\nPrivate Sub <\/span>cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span><\/pre>\n![\"Formular](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_005.png\")
<\/p>\nNeuen Bericht erstellen<\/h2>\n
![\"Einstellen](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_002.png\")
<\/p>\nAbfrage für den Bericht<\/h2>\n
![\"Abfrage](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_006.png\")
<\/p>\n\n
Hinzufügen der Felder zum Bericht<\/h2>\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_007.png\")
<\/p>\nEmpfängeradresse hinzufügen<\/h2>\n
Müller GmbH\r\nHerrn Dieter Müller\r\n...<\/pre>\n
Herrn\r\nDieter Müller\r\n...<\/pre>\n
=Wenn(\r\nIstNull([Firma]);[AnredeBrief];[Firma]) \r\n& Zchn(13) & Zchn(10) \r\n& Wenn(IstNull([Firma]);\"\";[AnredeBrief] & \" \") \r\n& [Vorname] & \" \" & [Nachname] \r\n& Zchn(13) & Zchn(10) \r\n& [Strasse] \r\n& Zchn(13) & Zchn(10) \r\n& [PLZ] & \" \" & [Ort] \r\n& Zchn(13) & Zchn(10) \r\n& Wenn([LandBezeichnung]=\"Deutschland\";\"\";\r\n[LandBezeichnung])<\/pre>\n
\n
\n
![\"Einfügen](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_008.png\")
<\/p>\nEinstellen der Seitenränder<\/h2>\n
![\"Aufrufen](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_009.png\")
<\/p>\n![\"Einstellungen](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_010.png\")
<\/p>\n![\"Test](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_011.png\")
<\/p>\nHinzufügen der Bestellpositionen<\/h2>\n
![\"Felder](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_012.png\")
<\/p>\n=[Einzelpreis]*[Menge]*(1-[Rabatt])<\/pre>\n
Summen im Berichtsfuß<\/h2>\n
=Summe([Einzelpreis]*[Menge]*(1-[Rabatt]))<\/pre>\n
![\"Summenfeld](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_013.png\")
<\/p>\nZusammenfassung der Mehrwertsteuerbeträge<\/h2>\n
=\"Der Rechnungsbetrag enthält \" & Format(Summe([Einzelpreis]*[Mehrwertsteuersatz]*(1-[Rabatt])*[Menge]);\"0,00 €\") & \" Mehrwertsteuer zu einem MwSt.-Satz von \" & Format([Mehrwertsteuersatz];\"0 %\") & \".\"<\/pre>\n
![\"Hinweis](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_014.png\")
<\/p>\n=\"Enthaltene Mehrwertsteuer (7 %): \" & \r\n Format(\r\n Summe(\r\n Wenn(\r\n [Mehrwertsteuersatz]=0,07;\r\n [Einzelpreis]*[Mehrwertsteuersatz]* (1-[Rabatt])*[Menge]\r\n ;0)\r\n );\r\n \"0,00\"\" EUR\"\"\") \r\n& Zchn(13) & Zchn(10) \r\n& \"Enthaltene Mehrwertsteuer (19 %): \" \r\n& Format(\r\n Summe(\r\n Wenn(\r\n [Mehrwertsteuersatz]=0,19;\r\n [Einzelpreis]*[Mehrwertsteuersatz]* (1-[Rabatt])*[Menge];\r\n 0\r\n )\r\n );\r\n\"0,00\"\" EUR\"\"\")<\/pre>\n
![\"Angabe](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_015.png\")
<\/p>\nHinzufügen des QR-Codes<\/h2>\n
Erweitern des Berichts<\/h2>\n
![\"Einfügen](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_016.png\")
<\/p>\nVBA-Code zur Anzeige des QR-Codes<\/h2>\n
Private Sub <\/span>Berichtskopf_Format(Cancel As Integer<\/span>, FormatCount As Integer<\/span>)\r\n Dim <\/span>objQRCode As <\/span>amvEPCQRCode.EPCQRCodeGenerator\r\n Dim <\/span>curSummeGesamt As Currency<\/span>\r\n Dim <\/span>strErgebnis As String<\/span>\r\n Dim <\/span>strQRCodePfad As String<\/span>\r\n curSummeGesamt = Me!txtSummeGesamt\r\n Set<\/span> objQRCode = New<\/span> amvEPCQRCode.EPCQRCodeGenerator\r\n With<\/span> objQRCode\r\n .Betrag = curSummeGesamt\r\n .BIC = Me!BIC\r\n .Empfaenger = Me!Empfaengername\r\n .IBAN = Me!IBAN\r\n .Verwendungszweck = \"Rechnung \" & Me!Bestellnummer\r\n strQRCodePfad = CurrentProject.Path & \"\\qrcode.png\"\r\n If <\/span>.Generate(strQRCodePfad, strErgebnis, True<\/span>) Then<\/span>\r\n Me.picQRCode.Picture = strQRCodePfad\r\n Else<\/span>\r\n Debug.Print<\/span> \"Erstellung nicht erfolgreich.\"\r\n End If<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Verweis](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_017.png\")
<\/p>\n![\"Fertiger](\"..\/fileadmin\/_temp_\/2023_03\/pic_1400_018.png\")
<\/p>\n