<\/p>\n
Zu einer ordentlichen Bestellverwaltung gehört die Möglichkeit, den Versand der bestellten Artikel vorzubereiten. In diesem Beitrag stellen wir das Grundgerüste einer einfachen Bestellverwaltung vor, deren Daten wir dann nutzen, um Versendungen über das DHL-Geschäftskundenportal vorzubereiten. Dazu müssen wir aus den eingegebenen Bestelldaten die Daten zu einer CSV-Datei zusammenführen, die wir dann an über das Internetportal von DHL einreichen und als Ergebnis die benötigten Versandetiketten erhalten.<\/b><\/p>\n
Im Beitrag Versandetiketten mit DHL-IntraShip <\/b>(www.access-im-unternehmen.de\/991<\/b>) erhalten Sie die grundlegenden Informationen über den Einsatz des Geschäftskundenportals von DHL, der Beitrag Klasse für DHL-Intraship-CSV-Dateien <\/b>(www.access-im-unternehmen.de\/992<\/b>) liefert eine Bauanleitung für eine Klasse, mit der Sie die für die CSV-Datei benötigten Daten auf einfache Weise eingeben können.<\/p>\n
Die Informationen dieser beiden Beiträge fließen in unsere Lösung ein, wobei wir die Daten aus Tabellen wie tblKunden<\/b>, tblBestellungen<\/b>, tblBestellpositionen <\/b>und tblArtikel <\/b>zusammensuchen.<\/p>\nDatenmodell<\/h2>\n
Das Datenmodell der Beispieldatenbank sieht wie in Bild 1 aus. Die enthaltenen Tabellen weisen lediglich die notwendigsten Felder auf, um Bestellungen aufzunehmen und die für den Versand notwendigen Dateien zusammenzustellen.<\/p>\n
![\"Datenmodell](\"..\/fileadmin\/_temp_\/2015_04\/pic_993_001.png\")
<\/p>\n
Bild 1: Datenmodell der Beispielanwendung<\/span><\/b><\/p>\n Dabei ist die Tabelle tblKunden<\/b>, welche die üblichen Kundendaten enthält, per 1:n-Beziehung mit der Lookuptabelle tblAnreden <\/b>verknüpft, welche die verschiedenen Anreden speichert. Auf die Kundentabelle wiederum verweist die Tabelle tblBestellung <\/b>per Fremdschlüsselfeld. Auf diese Weise wird einer Bestellung der Kunde zugeordnet. Die Tabelle tblArtikel <\/b>speichert ein paar grundlegende Artikeldaten wie den Artikelnamen oder den Einzelpreis. Für die Erstellung der Versanddatei ist es wichtig, das Gewicht der einzelnen Artikel zu kennen, daher finden Sie dort auch das Feld Gewicht<\/b>. Schließlich nimmt das Feld Kurzbezeichnung <\/b>eine Abkürzung für den Artikelnamen auf. Wozu wir dies benötigten, erfahren Sie weiter unten.<\/p>\n Die Bestellungen und die Artikel führt die Tabelle tblBestellpositionen <\/b>zusammen. Sie ordnet die einzelnen Artikel aus der Tabelle tblArtikel<\/b> den Bestellungen zu. Dabei sollen der aktuelle Preis und das aktuelle Gewicht des Artikels in zwei entsprechenden Feldern dieser Tabelle gespeichert werden. Damit sichern wir die zum Zeitpunkt der Bestellung gültigen Daten, falls sich Preis oder Gewicht eines Artikels einmal ändern sollten.<\/p>\n Die Tabelle tblBestellpositionen <\/b>nimmt aber auch noch ein Feld namens Versanddatum <\/b>auf, welches bei Erstellung des Versandetiketts mit dem entsprechenden Datum gefüllt wird. Auf diese Weise erkennen wir, dass ein Artikel bereits versendet wurde. Schließlich finden Sie in dieser Tabelle das Feld Sendungsverfolgung<\/b>. Wenn wir schon mit DHL-Paketen arbeiten, die sich ja online verfolgen lassen, wollen wir auch die dazugehörige Trackingnummer in der Tabelle speichern. Diese erhalten wir bei der Verwendung der nachfolgenden Technik zwar nur auf einem kleinen Umweg, aber immer noch schneller, als wenn wir diese von Hand eintragen.<\/p>\n Das erste Formular heißt frmBestellungsdetails <\/b>und soll die einfache Eingabe von Bestellungen ermöglichen (s. Bild 2). Dazu geben Sie das Bestelldatum im Feld Bestelldatum <\/b>ein und wählen einen der bereits angelegten Kunden aus dem Kombinationsfeld cboKundeID <\/b>aus. Gegebenenfalls handelt es sich um einen neuen Kunden – diesen können Sie dann über einen Klick auf die Schaltfläche mit den drei Punkten neben dem Kombinationsfeld in einem weiteren Formular hinzufügen.<\/p>\n Bild 2: Das Formular frmBestellungsdetails in der Formularansicht<\/span><\/b><\/p>\n Mit dieser Schaltfläche können Sie das gleiche Formular nach der Auswahl eines Kunden öffnen, um dessen Kundendaten zu bearbeiten (s. Bild 3).<\/p>\n Bild 3: Bearbeiten der Kundendetails<\/span><\/b><\/p>\n Unten finden Sie ein Unterformular in der Datenblattansicht vor, mit dem Sie die Bestellpositionen zu der aktuellen Bestellung hinzufügen können. Dazu wählen Sie den gewünschten Artikel mit dem Kombinationsfeld aus.<\/p>\n Dadurch stellt das Unterformular automatisch die Inhalte der Felder Einzelpreis <\/b>und Gewicht <\/b>auf die in der zugrunde liegenden Tabelle tblArtikel <\/b>ein und legt für das Feld Menge<\/b> den Standardwert 1 <\/b>fest. Ein Klick auf die Schaltfläche cmdVersandVorbereiten <\/b>soll schließlich die CSV-Datei genau für diese eine Bestellung anlegen.<\/p>\n Das zweite Formular namens frmBestellungsdetails_Versand <\/b>ist etwas anders aufgebaut (s. Bild 4). Es soll zunächst alle Bestellpositionen, deren Gewicht größer als 0 ist, anzeigen – egal, ob diese bereits versendet wurden oder nicht. Oben bietet eine Optionsgruppe die Möglichkeit, alternativ alle Bestellpositionen anzuzeigen, die bereits versendet wurden, oder diejenigen, die noch nicht versendet wurden.<\/p>\n Bild 4: Das Formular frmBestellungsdetails_Versand in der Formularansicht<\/span><\/b><\/p>\n Auch hier gibt es eine Schaltfläche namens cmdVersandVorbereiten<\/b>. Diese berücksichtigt aber direkt alle noch offenen Bestellpositionen, also diejenigen, deren Feld Versanddatum noch leer ist.<\/p>\n Das Formular frmBestellungsdetails <\/b>sieht im Entwurf wie in Bild 5 aus. Es verwendet die Tabelle tblBestellungen <\/b>als Datenherkunft. Das Kombinationsfeld cboKun-deID <\/b>bezieht seine Daten aus der folgenden Abfrage:<\/p>\n Bild 5: Das Formular frmBestellungsdetails in der Entwurfsansicht<\/span><\/b><\/p>\n Wenn der Benutzer auf die Schaltfläche cmdKundendetails <\/b>klickt, löst dies die Prozedur aus Listing 1 aus. Dies öffnet das Formular frmKundendetails<\/b>. Wenn für das Kombinationsfeld cboKundeID <\/b>noch kein Eintrag ausgewählt wurde, soll das Formular frmKundendetails <\/b>einen neuen, leeren Datensatz anzeigen, anderenfalls den aktuell im Kombinationsfeld ausgewählten. Zu diesem Zweck wird der Primärschlüsselwert für diesen Datensatz per öffnungsargument an das Formular frmKundendetails <\/b>übergeben.<\/p>\n Listing 1: öffnen des Formulars zum Bearbeiten der Kundendetails oder zum Erstellen eines neuen Kunden<\/span><\/b><\/p>\n In beiden Fällen speichert die Prozedur nun einen Verweis auf das Formular in der Variablen frmKundendetails<\/b>, welches im Kopf des Klassenmoduls des Formulars frmBestellungsdetails <\/b>wie folgt deklariert wurde:<\/p>\n Dadurch können wir in diesem Klassenmodul auch Ereignisprozeduren für dieses Formular implementieren. In diesem Fall möchten wir auf das Ereignis Beim Entladen <\/b>reagieren, indem wir den aktuell im Formular frmKundendetails <\/b>angezeigten Datensatz einlesen und im Kombinationsfeld cboKundeID <\/b>auswählen. Dazu stellen wir zunächst die Eigenschaft OnUnload <\/b>von frmKundendetails <\/b>auf den Wert [Event Procedure] <\/b>ein. Dieses Ereignis programmieren wir dann wie folgt:<\/p>\n Dies sorgt dafür, dass wenn der Benutzer das Formular frmKundendetails <\/b>schließt, vorher noch das Ereignis frmKundendetails_Unload <\/b>im Klassenmodul des Formulars frmBestellungsdetails <\/b>ausgeführt wird und zweierlei erledigt: die Datensatzherkunft des Kombinationsfeldes cboKundeID <\/b>zu aktualisieren und den aktuell im Formular angezeigten Datensatz dort auszuwählen.<\/p>\n Damit das Formular frmKundendetails <\/b>gleich beim öffnen den richtigen Datensatz anzeigt, legen Sie die folgende Prozedur für das Ereignis Beim öffnen <\/b>des Formulars an:<\/p>\n Diese prüft, ob das öffnungsargument einen Wert enthält, und stellt das Formular in diesem Fall auf den betroffenen Datensatz ein.<\/p>\n Die Schaltfläche cmdVersandVorbereiten <\/b>im unteren Bereich löst die folgende Prozedur aus:<\/p>\n <\/p>\n Diese ruft zunächst die Funktion SatzErstellen <\/b>auf und übergibt dabei den Primärschlüsselwert der aktuell angezeigten Bestellung als Parameter. Diese Funktion erstellt die CSV-Datei auf Basis der Daten zu den Bestellpositionen dieser Bestellung und liefert den Inhalt im String<\/b>-Format an die Variable strSatz <\/b>zurück (siehe weiter unten). Die folgende Anweisung stellt einen Dateinamen zusammen, der aus dem Verzeichnis der aktuellen Datenbank, der Zeichenfolge DHL_<\/b>, dem Datum im Format yyyymmdd <\/b>und der Dateiendung .csv <\/b>besteht, also etwa DHL_20150630.csv<\/b>. Dann öffnet sie eine neue Textdatei unter diesem Namen, schreibt den Inhalt der Variablen strSatz <\/b>hinein und schließt die Datei wieder. Schließlich öffnet die Prozedur die neu erstellte Datei noch mit der dafür vorgesehenen Anwendung – in diesem Fall mit Excel. Das Ergebnis sieht dann beispielsweise wie in Bild 6 aus.<\/p>\n Bild 6: Frisch erstellte Versanddatei in Excel<\/span><\/b><\/p>\n Damit das Unterformular gleich den Einzelpreis, das Gewicht und die Menge für die Bestellposition einstellt, legen wir für das Ereignis Vor Aktualisierung <\/b>des Kombinationsfeldes cboArtikelID <\/b>noch die folgende Ereignisprozedur an:<\/p>\n Die Prozedur holt sich die entsprechenden Werte für den gewählten Artikel aus der Tabelle tblArtikel<\/b>. Werden diese nun im Rahmen dieser Bestellung angepasst, hat das keine Auswirkungen auf den Originalpreis.<\/p>\n Die Prozedur SatzErstellen <\/b>erwartet mit dem Parameter lngBestellungID <\/b>den Primärschlüsselwert der Bestellung, deren Bestellpositionen für die Erstellung der Sätze für eine Verwendung herangezogen werden sollen (s. Listing 2).<\/p>\n Listing 2: Erstellen der CSV-Datei auf Basis eines Bestelldatensatzes, Teil I<\/span><\/b><\/p>\n Sie greift zunächst auf über das Recordset rstOptionen <\/b>auf eine Tabelle namens tblOptionen<\/b> zu, welche die Informationen zum Versender enthält. Wichtig ist hier vor allem das Feld DHLKundennummer<\/b>, welches Sie mit der von DHL gelieferten Kundennummer füllen (s. Bild 7).<\/p>\n Bild 7: Tabelle mit den Absenderdaten<\/span><\/b><\/p>\n Ein weiteres Recordset namens rstBestellungEmpfaenger<\/b> greift auf den Datensatz der Abfrage qryBestellungEmpfaenger <\/b>zu, der dem per Parameter übermittelten Primärschlüsselwert entspricht (s. Bild 8).<\/p>\n Bild 8: Abfrage mit den Empfänderdaten<\/span><\/b><\/p>\n Das dritte Recordset heißt rstBestellpositionen <\/b>und greift auf die Abfrage qryBestellpositionenNichtVersendet <\/b>zu. Diese liefert die Daten der Tabelle tblBestellpositionen <\/b>plus das Feld Kurzbezeichnung <\/b>der Tabelle tblArtikel<\/b>, wobei nur solche Datensätze herangezogen werden, deren Feld Versanddatum<\/b> noch leer ist. Außerdem muss der Wert des Feldes Gewicht <\/b>größer als 0 <\/b>sein (so werden beispielsweise eBooks oder sonstige digitale Artikel nicht berücksichtigt) und die BestellungID <\/b>muss der aktuell bearbeiteten Bestellung entsprechen.<\/p>\n Die Funktion speichert dann zunächst den Primärschlüsselwert der Bestellung als Sendungsreferenz in der Variablen strSendungsreferenz<\/b>. Anschließend durchläuft sie alle Datensätze des Recordsets rstBestellpositionen<\/b>, um den Gesamtpreis und das Gesamtgewicht aller zu versendenden Artikel dieser Bestellung zu ermitteln. Und hier kommt nun auch die Kurzbezeichnung der Artikel zum Tragen: Diese werden nämlich ebenfalls an die Variable strSendungsreferenz<\/b> angehängt. Wozu das Weil die Sendungsreferenz später auf dem DHL-Versandetikett ausgedruckt wird. So brauchen Sie nur noch mit den Versandetiketten ins Lager zu gehen und die per Kurzbezeichnung identifizierbaren Artikel zu verpacken.<\/p>\n Außerdem stellt die Prozedur innerhalb dieser Schleife den Wert des Feldes Versanddatum <\/b>aller berücksichtigten Datensätze auf das aktuelle Datum ein.<\/p>\n Nun kommt die Klasse objDPEE<\/b>, die wir im Detail im Beitrag Klasse für DHL-Intraship-CSV-Dateien <\/b>(www.access-im-unternehmen.de\/992<\/b>) beschreiben, ins Spiel. Für diese legen wir zunächst die Ordnungsnummer <\/b>fest, welche dem Primärschlüsselwert der Bestellung entspricht.<\/p>\n Dann folgen die Eigenschaften des untergeordneten Objekts DBPPShipment<\/b>. Dieses nimmt die allgemeinen Informationen zu der Lieferung auf wie den Produktcode, das Sendungsdatum, das Gewicht, die Sendungsreferenz (in unserem Fall die BestellungID <\/b>plus die Kurzbezeichnung der enthaltenen Artikel) und den Warenwert.<\/p>\n Das Unterobjekt DPEESender <\/b>füllen wir mit den Daten aus dem Recordset rstOptionen<\/b>. Fehlt noch das Objekt DPEEReceiver<\/b>, dessen Eigenschaften wir mit den Daten für den Empfänger der Sendung aus dem Recordset rstBestellung-Empfaenger <\/b>füllen (s. Listing 3).<\/p>\n Listing 3: Erstellen der CSV-Datei auf Basis eines Bestelldatensatzes, Teil II<\/span><\/b><\/p>\n Der Kundenname landet auf jeden Fall in der Eigenschaft Firmenname<\/b>. Der Hintergrund ist, dass diese Bezeichnung in der E-Mail für die Versandbestätigung verwendet wird. Hier wollen wir den Namen des Kunden, nicht den Firmennamen platzieren.<\/p>\n Dann prüft die Funktion, ob das Feld Firma <\/b>einen Wert enthält. Falls ja, erfolgt eine weitere Prüfung, ob die Länge des Firmennamens mehr als 30 Zeichen beträgt. In diesem Fall ermittelt die Funktion das letzte Leerzeichen vor dem 30. Zeichen und teilt den Firmennamen an dieser Stelle auf. Der erste Teil landet in der Eigenschaft Firmenname2<\/b>, der zweite in Firmenname3<\/b>. Ist der Firmenname nicht länger als 30 Zeichen, landet er komplett in Firmenname2<\/b>.<\/p>\n Der Kundenname landet außerdem in der Eigenschaft Kontaktperson<\/b>. Bei den übrigen Zuweisungen ist nur noch die Eigenschaft Land <\/b>interessant. Hier ermitteln wir aus der Bezeichnung des Landes mit der Funktion LaendercodeAusLand <\/b>den Ländercode für das mit dem Feld Land <\/b>gelieferte Land.<\/p>\n Das nächste Unterobjekt kann mehrfach hinzufügt werden, in diesem Fall benötigen wir es jedoch nur einmal. Dazu nutzen wir die Funktion AddDPEEItem <\/b>und weisen dem dadurch repräsentierten Packstück das Gewicht und die Packart zu. Schließlich folgt noch ein Objekt, das wir mit AddDPEENotification <\/b>hinzufügen und das die E-Mail-Adresse für die Benachrichtigung nach dem Erstellen der Ladeliste enthält. Schließlich trägt die Funktion den Inhalt der Funktion Satz<\/b>, welche die Zeilen für diese Lieferung für die CSV-Datei liefert, als Funktionsergebnis in SatzErstellen <\/b>ein.<\/p>\n Neben dem einfachen Bestellformular haben wir ja noch das übersichtsformular, das alle Bestellpositionen anzeigt und die Möglichkeit bietet, auf einen Mausklick alle Bestellpositionen zum Versand hinzuzufügen, deren Versanddatum noch nicht gefüllt wurde.<\/p>\n Die durch die Schaltfläche cmdVersandVorbereiten <\/b>dieses Formulars ausgelöste Funktion durchläuft eine Schleife über ein Recordset, das alle Werte des Feldes BestellungID <\/b>der Abfrage qryBestellpositionenNichtVersendet <\/b>enthält, deren Gewicht <\/b>größer als 0 <\/b>ist (s. Listing 4).<\/p>\n Listing 4: Versandvorbereitung für alle noch offenen Bestellpositionen<\/span><\/b><\/p>\n Innerhalb dieser Schleife ruft sie jeweils die Funktion SatzErstellen <\/b>auf und fügt die Ergebnisse in der Variablen strSatz <\/b>zusammen. Diese enthält nun aneinandergefügt die Zeilen der einzelnen Versendungen für die CSV-Datei, welche sie auch gleich in diese einfügt. Anschließend öffnet sie die Datei mit der entsprechenden Anwendung.<\/p>\n Die so erzeugte CSV-Datei können Sie nun wie im Beitrag Versandetiketten mit DHL IntraShip <\/b>(www.access-im-unternehmen.de\/991<\/b>) hochladen und dort die Bestellung der Versandetiketten durch Erstellen der Ladeliste\/Einlieferungsliste auslösen.<\/p>\n Diese Einlieferungsliste ist das fehlende Stück in unserer Puzzlesammlung, denn sie enthält sowohl die Sendungsnummern, unter denen wir die Sendungen verfolgen können, als auch die in der Sendungsreferenz untergebrachte Kundennummer (s. Bild 9). Nur: Wie können wir mit möglichst wenig Handarbeit die Sendungsnummern den entsprechenden Bestellpositionen zuweisen<\/p>\n Bild 9: Einlieferungsliste<\/span><\/b><\/p>\n Wenn wir den kompletten Inhalt dieses Dokuments in ein Textfeld kopieren, finden Sie für jede Position etwa die folgenden Zeilen:<\/p>\n Diese können wir nun einfach parsen, nachdem wir den Inhalt in das Textfeld eines Formulars namens frmSendungsnummern <\/b>eingetragen haben.<\/p>\n Dies erledigt die Prozedur, die durch die Schaltfläche cmdZuordnen <\/b>ausgelöst wird (s. Listing 5). Die Prozedur trägt zunächst den Inhalt des Textfeldes in die Variable strListe <\/b>ein. Dann sucht sie in diesem Ausdruck nach dem ersten Auftreten der Zeile Sendungsnr.: <\/b>und trägt die Position der Fundstelle in die Variable lngPosStart <\/b>ein. Sollte dieser Wert danach nicht 0 <\/b>sein, was darauf hindeutet, dass es eine solche Zeile gibt, starten wir eine Do While<\/b>-Schleife, die erst beendet wird, wenn lngPosStart <\/b>den Wert 0 <\/b>enthält.<\/p>\nFormulare der Lösung<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2015_04\/pic_993_002.png\")
<\/p>\n![\"Bearbeiten](\"..\/fileadmin\/_temp_\/2015_04\/pic_993_003.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2015_04\/pic_993_004.png\")
<\/p>\nFormular frmBestellungsdetails erstellen<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2015_04\/pic_993_005.png\")
<\/p>\nSELECT [KundeID], [Firma] FROM tblKunden;<\/pre>\n
Private Sub <\/span>cmdKundendetails_Click()\r\n If <\/span>IsNull(Me!cboKundeID) Then<\/span>\r\n DoCmd.OpenForm \"frmKundendetails\", DataMode:=acFormAdd\r\n Else<\/span>\r\n DoCmd.OpenForm \"frmKundendetails\", DataMode:=acFormEdit, OpenArgs:=Me!cboKundeID\r\n End If<\/span>\r\n Set<\/span> frmKundendetails = Forms!frmKundendetails\r\n With<\/span> frmKundendetails\r\n .Modal = True<\/span>\r\n .OnUnload = \"[Event Procedure]\"\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents frmKundendetails As <\/span>Form<\/pre>\nPrivate Sub <\/span>frmKundendetails_Unload(Cancel As Integer<\/span>)\r\n If <\/span>Not<\/span> IsNull(frmKundendetails!KundeID) Then<\/span>\r\n Me!cboKundeID.Requery\r\n Me!cboKundeID = frmKundendetails!KundeID\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nKundendetails bearbeiten<\/h2>\n
Private Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n If <\/span>Not<\/span> IsNull(Me.OpenArgs) Then<\/span>\r\n Me.Recordset.FindFirst \"KundeID = \" & Me.OpenArgs\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nVersand vorbereiten<\/h2>\n
Private Sub <\/span>cmdVersandVorbereiten_Click()\r\n Dim <\/span>strSatz As String<\/span>\r\n Dim <\/span>strDateiname As String<\/span>\r\n strSatz = SatzErstellen(Me!BestellungID)\r\n strDateiname = CurrentProject.Path & \"\\DHL_\" _\r\n & Format(Date, \"yyyymmdd\") & \".csv\"\r\n Open strDateiname For Output As <\/span>#1\r\n Print #1, strSatz\r\n Close #1\r\n Call<\/span> ShellExecute(Me.hWnd, \"open\", strDateiname, \"\", _\r\n \"\", SW_NORMAL)\r\nEnd Sub<\/span><\/pre>\n![\"Frisch](\"..\/fileadmin\/_temp_\/2015_04\/pic_993_006.png\")
<\/p>\nUnterformular<\/h2>\n
Private Sub <\/span>cboArtikelID_BeforeUpdate(Cancel As Integer<\/span>)\r\n Me!Einzelpreis = DLookup(\"Einzelpreis\", _\r\n \"tblArtikel\", \"ArtikelID = \" & Nz(Me!cboArtikelID))\r\n Me!Gewicht = DLookup(\"Gewicht\", \"tblArtikel\", _\r\n \"ArtikelID = \" & Nz(Me!cboArtikelID))\r\n Me!Menge = 1\r\nEnd Sub<\/span><\/pre>\nSätze für die CSV-Datei erstellen<\/h2>\n
Public Function <\/span>SatzErstellen(lngBestellungID As Long<\/span>) As String<\/span>\r\n Dim <\/span>objDPEEMain As <\/span>clsDPEEMain\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rstBestellungEmpfaenger As <\/span>DAO.Recordset, rstBestellpositionen As <\/span>DAO.Recordset, rstOptionen As <\/span>DAO.Recordset\r\n Dim <\/span>curGesamtpreis As Currency<\/span>, curGesamtgewicht As Currency<\/span>\r\n Dim <\/span>strSendungsreferenz As String<\/span>, intTrennung As Integer<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstOptionen = db.OpenRecordset(\"SELECT * FROM tblOptionen\", dbOpenDynaset)\r\n Set<\/span> rstBestellungEmpfaenger = db.OpenRecordset(\"SELECT * FROM qryBestellungEmpfaenger WHERE BestellungID = \" _\r\n & lngBestellungID, dbOpenDynaset)\r\n Set<\/span> rstBestellpositionen = db.OpenRecordset(\"SELECT * FROM qryBestellpositionenNichtVersendet \" _\r\n & \"WHERE BestellungID = \" & lngBestellungID & \" AND Gewicht > 0\", dbOpenDynaset)\r\n strSendungsreferenz = lngBestellungID\r\n Do While<\/span> Not<\/span> rstBestellpositionen.EOF\r\n With<\/span> rstBestellpositionen\r\n curGesamtpreis = curGesamtpreis + !Einzelpreis * !Menge\r\n curGesamtgewicht = curGesamtgewicht + !Gewicht * !Menge\r\n strSendungsreferenz = strSendungsreferenz & \" \" & !Kurzbezeichnung\r\n .Edit\r\n !Versanddatum = Date\r\n .Update\r\n .MoveNext<\/span>\r\n End With<\/span>\r\n Loop<\/span>\r\n Set<\/span> objDPEEMain = New<\/span> clsDPEEMain\r\n With<\/span> objDPEEMain\r\n .Ordnungsnummer = rstBestellungen!BestellungID\r\n With<\/span> .DPEEShipment\r\n .Produktcode = eDHLPaket\r\n .Sendungsdatum = Date\r\n .Gewicht = curGesamtgewicht\r\n .Sendungsreferenz = strSendungsreferenz\r\n .Warenwert = curGesamtpreis\r\n .WarenwertWaehrung = \"EUR\"\r\n .Teilnahme = \"01\"\r\n End With<\/span>\r\n With<\/span> .DPEESender\r\n .Kundennummer = rstOptionen!DHLKundennummer\r\n .Firmenname1 = rstOptionen!AbsenderFirma\r\n .Kontaktperson = rstOptionen!AbsenderVorname & rstOptionen!AbsenderNachname\r\n .Strasse = rstOptionen!AbsenderStrasse\r\n .Hausnummer = rstOptionen!AbsenderHausnummer\r\n .PLZ = rstOptionen!AbsenderPLZ\r\n .Stadt = rstOptionen!AbsenderOrt\r\n .Laendercode = LaendercodeAusLand(rstOptionen!AbsenderLand)\r\n .Emailadresse = rstOptionen!AbsenderEMail\r\n .Telefonnummer = rstOptionen!AbsenderTelefon\r\n End With<\/span>\r\n ...<\/pre>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2015_04\/pic_993_007.png\")
<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2015_04\/pic_993_008.png\")
<\/p>\n ...\r\n With<\/span> .DPEEReceiver\r\n .Firmenname = rstBestellungEmpfaenger!Kundenname\r\n If <\/span>Not<\/span> Len<\/span>(Nz(rstBestellungEmpfaenger!Firma, \"\")) = 0 Then<\/span>\r\n If <\/span>Len<\/span>(rstBestellungEmpfaenger!Firma) > 30 Then<\/span>\r\n intTrennung = InStrRev<\/span>(Left<\/span>(rstBestellungEmpfaenger!Firma, 30), \" \")\r\n .Firmenname2 = Trim<\/span>(Left<\/span>(rstBestellungEmpfaenger!Firma, intTrennung))\r\n .Firmenname3 = Trim<\/span>(Mid<\/span>(rstBestellungEmpfaenger!Firma, intTrennung))\r\n Else<\/span>\r\n .Firmenname2 = rstBestellungEmpfaenger!Firma\r\n End If<\/span>\r\n End If<\/span>\r\n .Kontaktperson = rstBestellungEmpfaenger!Kundenname\r\n .Strasse = rstBestellungEmpfaenger!Strasse\r\n .Hausnummer = rstBestellungEmpfaenger!Hausnummer\r\n .PLZ = rstBestellungEmpfaenger!PLZ\r\n .Stadt = rstBestellungEmpfaenger!Ort\r\n .Land = LaendercodeAusLand(rstBestellungEmpfaenger!Land)\r\n .Emailadresse = rstBestellungEmpfaenger!EMail\r\n End With<\/span>\r\n With<\/span> .AddDPEEItem\r\n .GewichtDesPackstueckesInKg = curGesamtgewicht\r\n .PackartKollitraeger = ePaket\r\n End With<\/span>\r\n With<\/span> .AddDPEENotification\r\n .Emailadresse = \"andre@minhorst.com\"\r\n End With<\/span>\r\n SatzErstellen = .Satz\r\n End With<\/span>\r\nEnd Function<\/span><\/pre>\nVersandübersichtsformular<\/h2>\n
Private Sub <\/span>cmdVersandVorbereiten_Click()\r\n Dim <\/span>strSatz As String<\/span>\r\n Dim <\/span>strDateiname As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT DISTINCT BestellungID FROM qryBestellpositionenNichtVersendet \" _\r\n & \"WHERE Gewicht > 0\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n strSatz = strSatz & SatzErstellen(rst!BestellungID)\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n strDateiname = CurrentProject.Path & \"\\DHL_\" & Format(Date, \"yyyymmdd\") & \".csv\"\r\n Open strDateiname For Output As <\/span>#1\r\n Print #1, strSatz\r\n Close #1\r\n Call<\/span> ShellExecute(Me.hWnd, \"open\", strDateiname, \"\", \"\", SW_NORMAL)\r\nEnd Sub<\/span><\/pre>\nCSV-Datei verwenden<\/h2>\n
Sendungsverfolgung<\/h2>\n
![\"Einlieferungsliste\"](\"..\/fileadmin\/_temp_\/2015_04\/pic_993_009.png\")
<\/p>\nSendungsnr.:\r\n00340433836763669083\r\nKD-Sendungsreferenz:\r\n99003137 AOFF<\/pre>\n
Private Sub <\/span>cmdZuordnen_Click()\r\n Dim <\/span>lngPosStart As Long<\/span>, lngPosEnde As Long<\/span>, lngBestellungID As Long<\/span>\r\n Dim <\/span>strListe As String<\/span>, strSendungsnummer As String<\/span>, strSendungsreferenz As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n strListe = Me!txtListe\r\n lngPosStart = InStr<\/span>(1, strListe, \"Sendungsnr.:\" & vbCrLf<\/span>)\r\n Do While<\/span> Not<\/span> lngPosStart = 0\r\n lngPosEnde = InStr<\/span>(lngPosStart + 14, strListe, vbCrLf<\/span>)\r\n strSendungsnummer = Mid<\/span>(strListe, lngPosStart + 14, lngPosEnde - lngPosStart - 14)\r\n lngPosStart = InStr<\/span>(lngPosEnde + 1, strListe, \"KD-Sendungsreferenz:\" & vbCrLf<\/span>)\r\n lngPosEnde = InStr<\/span>(lngPosStart + 22, strListe, vbCrLf<\/span>)\r\n strSendungsreferenz = Mid<\/span>(strListe, lngPosStart + 22, lngPosEnde - lngPosStart - 22)\r\n lngBestellungID = Mid<\/span>(strSendungsreferenz, 1, InStr<\/span>(1, strSendungsreferenz, \" \"))\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE tblBestellpositionen SET Sendungsverfolgung = ''\" & strSendungsnummer & \"'' WHERE \" _\r\n & \"BestellungID = \" & lngBestellungID & \" AND Gewicht > 0 AND Sendungsverfolgung IS NULL\", dbFailOnError\r\n lngPosStart = InStr<\/span>(lngPosStart + 1, strListe, \"Sendungsnr.:\" & vbCrLf<\/span>)\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n