<\/p>\n
Ende Februar 2018 hat DHL die Unterstützung der Intraship-Schnittstelle beendet. Das heißt, dass wir unsere DHL-Etiketten nun auf eine andere Weise erstellen müssen. Für Datenbank-Experten kein Problem: Wir benötigen nur eine Beschreibung der gewünschten Schnittstelle und liefern dann die Daten in der gewünschten Form.<\/b><\/p>\nAbkündigung von Intraship<\/h2>\n
Wer DHL-Kunde ist und bisher seine Paket-Etiketten mit Intraship erstellt hat, ist von DHL per Mail hinreichend über die anstehende Einstellung dieses Services informiert worden. Wer das lange genug ignoriert hat, hat Anfang März 2018 zwar noch den Link Versenden (Intraship) <\/b>auf der Startseite des Geschäftskundenportals gesehen (siehe Bild 1), aber hinter dem Link landete man dann auf einer Seite, auf der die Anmeldung nicht mehr funktionierte. <\/p>\n
![\"Das](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_001.png\")
<\/p>\n
Bild 1: Das Versenden per Intraship funktioniert nicht mehr.<\/span><\/b><\/p>\n Stattdessen soll man nun die Benutzeroberfläche nutzen, die sich direkt über den Link Versenden öffnen lässt und der die möglichen Dienste in übersichtlicher Form darstellt (siehe Bild 2).<\/p>\n Bild 2: Neue Benutzeroberfläche für den Versand von DHL-Paketen<\/span><\/b><\/p>\n Was aber ändert sich nun für uns, wenn wir bis dahin unsere Paket-Etiketten mit Intraship erstellt haben Zunächst einmal können wir das alte Export-Format, das wir im Beitrag Versandetiketten mit DHL-Intraship <\/b>(www.access-im-unternehmen.de\/991<\/b>) vorgestellt haben, verabschieden. Das Format war nicht gerade übersichtlich, daher ist der Wechsel zu einem neuen Format vielleicht gar nicht schlecht. Dafür programmieren wir den Export nun komplett neu. Wie die Export-Datei aussehen muss, finden wir im Anschluss heraus.<\/p>\n Dazu klicken wir zunächt auf den Link Sendungsdaten importieren<\/b>, was den Dialog aus Bild 3 öffnet. Hier finden wir bereits die Möglichkeit, eine Vorlage auszuwählen sowie eine Schaltfläche zum Auswählen der zu importierenden CSV-Datei. Wir benötigen allerdings Informationen darüber, wie die CSV-Datei aufgebaut sein soll.<\/p>\n Bild 3: Maske zum Hochladen der CSV-Datei<\/span><\/b><\/p>\n Klicken Sie hier im Text auf den Link > Vorlagen<\/b>, öffnet sich der Dialog aus Bild 4.<\/p>\n Bild 4: Auswahl einer CSV-Vorlage<\/span><\/b><\/p>\n Wenn wir uns nun beispielsweise die Vorlage DHL Vorlage Sendungsdatenimport <\/b>ansehen, finden wir eine Definition der Vorlage vor, die im oberen Teil zunächst allgemeine Formatierungsvorgaben liefert (siehe Bild 5).<\/p>\n Bild 5: Aussehen einer der vorgefertigten Vorlagen<\/span><\/b><\/p>\n Dort legen Sie beispielsweise fest, welches Trennzeichen zwischen den Inhalten der einzelnen Spalten angegeben werden soll, welches Zeichen als Dezimalzeichen zum Einsatz kommt und wie Texte eingefasst werden – hier etwa durch Anführungszeichen. Außerdem legen Sie den Zeichensatz (hier ISO 8859-1) und das Datumsformat (TT.MM.JJ) fest.<\/p>\n Darunter befinden sich alle Felder, die DHL überhaupt für den Versand einer Lieferung verwenden kann<\/p>\n Hier wurde für alle zu verwendenden Eigenschaften die Spaltenüberschrift der zu importierenden CSV-Datei angegeben.<\/p>\n Nach kurzem überfliegen der angegebenen Spaltenüberschriften stellen wir fest, dass wir für unsere Zwecke viel weniger Spalten zur Verfügung stellen wollen. Dazu müssen wir eine neue Vorlage anlegen.<\/p>\n Eine neue Vorlage legen wir ausgehend von der Seite Vorlagen für Sendungsdatenimport an, indem wir dort auf den Link Neue Import-Vorlage anlegen >> <\/b>klicken.<\/p>\n Hier finden wir die gleiche Ansicht wie in der zuvor betrachteten Vorlage vor – mit dem Unterschied, dass die rechte Spalte noch nicht mit den Spaltennamen der von uns gelieferten CSV-Datei gefüllt sind.<\/p>\n Das kann auch nicht der Fall sein, da das System unsere CSV-Datei ja noch gar nicht kennt.<\/p>\n Um das zu ändern, müssten wir auch zunächst einmal eine CSV-Datei erstellen, denn diese können wir dann unter dem Punkt 2. Hochladen der Musterdatei zum Auslesen der Inhalte <\/b>auswählen und mit einem Klick auf den Link Datei analysieren >> <\/b>untersuchen lassen (siehe Bild 6).<\/p>\n Bild 6: Hochladen der Musterdatei<\/span><\/b><\/p>\n Im Beitrag Bestellverwaltung mit Versand <\/b>(www.access-im-unternehmen.de\/993<\/b>) haben wir bereits eine kleine Lösung programmiert, die uns per Mausklick einen CSV-Export für die bis vor kurzem aktive Schnittstelle Intraship erzeugt hat. Diese wollen wir nun aufgreifen und so anpassen, dass wir einen Export erhalten, den wir mit der neuen Schnittstelle nutzen können. In dieser Lösung haben wir mit einigen Klassen gearbeitet, von denen jede zum Zusammenstellen einer Zeile eines Satzes für eine DHL-Lieferung diente.<\/p>\n Unter Intraship bestand die CSV-Datei nämlich nicht nur aus einer Zeile je Datensatz, sondern die Daten wurden auf mehrere Zeilen aufgeteilt. Das ist nun natürlich hinfällig – die neue Schnittstelle nimmt nur noch eine Zeile je Datensatz an. Das heißt, dass wir die in der bestehenden Lösung verwendeten Klassen auch mehr oder weniger aufgeben können.<\/p>\n Jede dieser Klassen stellte einige Eigenschaften zur Verfügung, mit denen die gewünschten Werte etwa aus einem Datensatz der Datenbank gefüllt werden konnten. Außerdem lieferten die Klassen für die Eigenschaft Satz die komplette Zeile mit den Daten dieser Klasse.<\/p>\n Eine solche Klasse wollen wir nun für die neuen Daten auch erstellen.<\/p>\n Wir arbeiten uns dabei durch die einzelnen Zeilen der Liste aus Bild 7 durch und berücksichtigen dabei zunächst nur die offensichtlich notwendigen Felder.<\/p>\n Bild 7: Freie Felder zum Zuweisen der Spalten der Vorlage<\/span><\/b><\/p>\n Hier stellt sich nun die Frage, wie wir am schnellsten zum Ziel kommen. Die bisherige Lösung bestand aus einer Hauptklasse, welche die unterschiedlichen Kategorien von Informationen wie Sendung, Benachrichtigungen, Absender, Empfänger und so weiter in einzelnen Klassen behandelt hat. Auf diese Weise war das Zusammenstellen leicht zu programmieren.<\/p>\n Wollen wir auf diesen Klassen aufsetzen und diese so ändern, dass diese die Daten nun so zurückliefern, wie wir sie für den Import benötigen Oder legen wir eine komplett neue Klasse an Wir entscheiden uns, die einmal gemachte Arbeit als Grundlage für den neuen Export zu nutzen und passen die bestehenden Klassen an.<\/p>\n Für die Hauptklasse clsDPEEMain<\/b>, welche die Daten aus den Unterklassen clsDPEEShipment<\/b>, clsDPEESender<\/b>, clsDPEEReceiver<\/b>, clsDPEEItem <\/b>und clsDPEENotification <\/b>zusammenstellt, brauchen wir den Code zunächst nur so zu ändern, dass die Daten, die zuvor in jeweils einer neuen Zeile aneinandergehängt wurden, nun in einer Zeile landen. Die neue Version der Eigenschaft Satz<\/b>, welche die Ergebnisse der übrigen Klassen zusammensetzt, sieht nun wie folgt aus:<\/p>\n Geändert hat sich hier im Wesentlichen, dass wir die von der Satz<\/b>-Eigenschaft der verschiedenen Klassen gelieferten Daten nicht mehr durch das Steuerzeichen vbCrLf <\/b>jeweils in eine neue Zeile schreiben, sondern diese einfach aneinanderhängen. Wenn wir nun nichts weiter ändern und die Schaltfläche Versand vorbereiten <\/b>im Formular frmBestellungsdetails <\/b>aufrufen (siehe Bild 8), legen wir eine CSV-Datei mit der folgenden Zeichenfolge an:<\/p>\n Bild 8: Das Formular frmBestellungsdetails<\/span><\/b><\/p>\n Hier fällt zunächst auf, dass wir als Trennzeichen das Pipe-Zeichen (|<\/b>) und nicht das Semikolon verwenden. Müssen wir das im Code ändern Nein, wir können auch einfach die Einstellung der noch anzulegenden Vorlage auf der DHL-Webseite auf dieses Zeichen ändern. Außerdem finden wir hier noch die Schlüsselwörter vor, die in der ursprünglichen Version jeweils den Inhalt einer Zeile markiert haben, also DPEE-SHIPMENT<\/b>, DPEE-SENDER <\/b>und so weiter. Diese können wir auch noch entfernen. Außerdem müssen wir, damit wir die Spalten über ihren Eigenschaftsnamen zur Vorlage zuweisen können, noch eine Zeile mit den Spaltenüberschriften vorbereiten – auch diese durch das Pipe-Zeichen voneinander getrennt.<\/p>\n Als Erstes wollen wir die Schlüsselwörter entfernen. Dies erledigen wir jeweils in den Public Property Satz<\/b>-Eigenschaften der fünf Klassen clsDBEEItem<\/b>, clsDBEE-Notification<\/b>, clsDBEESender<\/b>, clsDBEEReceiver <\/b>und clsDBEEShipment<\/b>.<\/p>\n In der Methode Satz <\/b>der Klasse clsDPEEItem <\/b>müssen wir dazu nur die Zeile entfernen, die den Text DPEE-ITEM| <\/b>zur Variablen strSatz <\/b>hinzufügt und die wir nachfolgend vorerst auskommentiert haben. Gleiches erledigen wir mit der Zeile, welche den Wert der Variablen m_Ordnungsnummer <\/b>hinzufügt. Diese haben wir in der Methode Satz <\/b>der Klasse clsDPEEMain <\/b>zwar schon nicht mehr an die einzelnen Klassen übergeben, weshalb diese im obigen Beispiel für die Ausgabe nicht mehr auftauchte, aber wir wollen auch noch die leere Stelle in der Ausgabe entfernen:<\/p>\n Schließlich entfernen wir auch noch die Zeile, die das abschließende Pipe-Zeichen entfernt – immerhin wollen wir später alle fünf Sätze in eine Zeile schreiben, wo wir auch das Trennzeichen zwischen dem letzten Element des vorhergehenden und dem ersten Element des folgenden Satzes ein Trennzeichen benötigen.<\/p>\n Auf die gleiche Art und Weise bearbeiten wir die Methode Satz <\/b>der übrigen Klassen. Damit sieht die Ausgabe schon etwas schlanker aus:<\/p>\n Nun wollen wir die Spaltenüberschriften hinzufügen. Das ist eine reine Fleißarbeit. Wir schnappen uns dazu zum Beispiel die folgenden Anweisungen der Satz<\/b>-Methode der Klasse clsDPEEItem<\/b>:<\/p>\n <\/p>\n Dann entfernen wir die Zeilenumbrüche, den vorderen Teil bis zum Unterstrich (strSatz = strSatz & m_<\/b>) lassen hinten auch nur das Pipe-Zeichen über. Das Ergebnis sieht dann für die erste Klasse wie folgt aus:<\/p>\n Statt dieses Zeichenkette zu speichern und bei Bedarf bereitzustellen, können wir auch den Klassen jeweils eine Eigenschaft namens Kopfzeile <\/b>hinzufügen, welche am Beispiel der Klasse clsDPEEItem <\/b>wie folgt aussieht:<\/p>\n Diese ist dann genauso aufgebaut wie die Eigenschaft Satz. Wenn einmal eine Zeile hinzukommt oder wegfällt, können wir auch die Spaltenköpfe viel leichter anpassen. Für die beiden Klassen clsDPEESender <\/b>und clsDPEEReceiver<\/b>, die teilweise gleich bezeichnete Eigenschaften enthalten, stellen wir den Spaltenüberschriften noch jeweils die Zeichenkette Sender_ <\/b>beziehungsweise Receiver_<\/b> voran:<\/p>\n In der Klasse clsDPEEMain <\/b>fügen wir ebenfalls eine neue Methode hinzu, welche die Kopfzeilen-Anteile der einzelnen Klassen zusammenführt:<\/p>\n Wichtig ist hier, dass die Kopfzeilen der einzelnen Abschnitte in der gleichen Reihenfolge zusammengefügt werden wie die Inhalte der Abschnitte selbst.<\/p>\n Die neue Vorlage erlaubt wohl sowohl nur ein einzelnes Packstück und auch nur eine Notification. Daher müssen wir in der Klasse clsDPEEMain <\/b>ein paar Anpassungen vornehmen. Als Erstes fliegen die nachfolgend auskommentierten Zeilen aus der Methode Initialize <\/b>heraus. Dafür kommen die beiden Anweisungen zur Methode hinzu, welche jeweils ein Objekt auf Basis der Klasse clsDPEEItem <\/b>und eines der Klasse clsDPEENotification <\/b>initialisieren:<\/p>\n Damit wir von außen auf die entsprechenden Elemente zugreifen können, fügen wir die beiden öffentlichen Eigenschaften hinzu:<\/p>\n Damit funktioniert nun auch die Methode Kopfzeile <\/b>einwandfrei.<\/p>\n Um die Kopfzeile abrufen zu können, legen wir im Modul mdlDPEE <\/b>die folgende Prozedur an:<\/p>\n Wir passen nun die Methode cmdVersandVorbereiten_Click<\/b>, die durch die Schaltfläche Versand vorbereiten <\/b>des oben dargestellten Formulars ausgelöst wird, wie folgt an:<\/p>\n Wir fügen also eine Variable namens strKopfzeile <\/b>hinzu und füllen diese durch einen Aufruf der Funktion KopfzeileErstellen<\/b>. Die so ermittelte Zeile fügen wir dann als erste Zeile in die zu erstellende .csv<\/b>-Datei ein.<\/p>\n Wenn wir diese nun ausführen, wird das Ergebnis aus Bild 9 in einem neuen Excel-Dokument angezeigt.<\/p>\n Bild 9: Export der Daten für den Versand eines DHL-Pakets<\/span><\/b><\/p>\n Hier zeigt sich, dass die Verwendung des Pipe-Zeichens als Trennzeichen zwischen den einzelnen Feldern auch zur Anzeige in Excel nicht optimal ist.<\/p>\n Um zu prüfen, ob die Spaltenüberschriften und die Spalteninhalte korrelieren, müssen wir wohl doch noch die Pipe-Zeichen durch Semikola ersetzen. Doch das ist leichter als gedacht: Wenn wir die Suchen und Ersetzen-Funktion des VBA-Editors für die fünf betroffenen Klassen durchführen, sind wir schon fertig (siehe Bild 10).<\/p>\n Bild 10: Suchen und ersetzen von Pipe-Zeichen durch das Semikolon<\/span><\/b><\/p>\n Danach sieht das Ergebnis in der Excel-Datei schon wesentlich besser lesbar aus (siehe Bild 11).<\/p>\n Bild 11: Export der Daten, diesmal mit der korrekten Aufteilung auf die einzelnen Spalten<\/span><\/b><\/p>\n Was noch viel besser ist: Wenn wir nun zum Webportal von DHL zum Versenden wechseln, dort die neue Vorlage anzeigen, unsere Datei auswählen und diese analysieren lassen, erscheinen unsere Spaltenüberschriften in der Auswahl der Quellfelder für die Zuweisung der Werte (siehe Bild 12).<\/p>\n Bild 12: Die Felder unserer Datei sind nun auswählbar.<\/span><\/b><\/p>\n Damit bleibt uns nun zunächst die Aufgabe, alle von uns benutzten Felder der CSV-Datei den entsprechenden Feldern in der übersicht zuzuweisen. Praktischerweise zeigt das Kombinationsfeld in Klammern hinter den Spaltenüberschriften sogar die mit der Musterdatei gelieferten Werte mit. Da hat sich jemand Gedanken gemacht! Haben Sie alle Spalten zugewiesen, können Sie unten auf die Schaltfläche Speichern <\/b>klicken. Zuvor müssen Sie jedoch noch einen aussagekräftigen Namen für die neue Vorlage angeben. Danach wird sie dann gespeichert und anschließend in der Liste der Vorlagen angezeigt. Sie können nun jederzeit zu der Vorlage zurückkehren und diese anpassen.<\/p>\n Und was den Komfort der Zuordnung angeht, wird es sogar noch besser: Wenn Sie nicht ewig in der Liste nach der gewünschten Spaltenüberschrift suchen wollen, können Sie einfach einen Teil der Bezeichnung der Spaltenüberschrift in das Textfeld eingeben. Das Kombinationsfeld zeigt dann nur die passenden Spaltenüberschriften an (siehe Bild 13).<\/p>\n Bild 13: Suche nach Spaltenüberschriften<\/span><\/b><\/p>\n Nach dem Zuordnen der Felder und dem Speichern der Vorlage unter dem Namen AMV <\/b>(in diesem Beispiel) versuchen gleich einmal, die exportierte Datei zu importieren. Dazu rufen wir den Menübefehl Versandabwicklung|Sendungsdaten importieren <\/b>auf. Dies resultiert allerdings in den Fehlermeldungen aus Bild 14. Diese schauen wir uns nacheinander an.<\/p>\n Bild 14: Fehler beim Import<\/span><\/b><\/p>\n Achtung: Vergessen Sie nicht, die von Ihnen neu erstellte Vorlage einzustellen (hier AMV<\/b>).<\/p>\n Das ist einfach. Wir haben als Datumsformat DD.MM.JJ <\/b>angegeben, allerdings wird unser Datum im Format JJJJMMDD <\/b>geliefert. Wir können an einer der beiden Stellen änderungen vornehmen. Also widmen wir uns dem Quellcode. Die Property Let<\/b>-Methode Sendungsdatum <\/b>in der Klasse clsDPEEShipment <\/b>sah bisher so aus:<\/p>\n Die entscheidende Zeile ändern wir nun wie folgt:<\/p>\n Damit starten wir das Hochladen der Datei erneut und erhalten nun immerhin eine Fehlermeldung weniger. Zur Sicherheit ändern wir auch gleich die Methode Zustelldatum <\/b>auf das passende Datumsformat.<\/p>\n Als Absenderland haben wir in Intraship immer das aus zwei Buchstaben bestehende Länderkürzel übergeben, für Deutschland also beispielsweise DE<\/b>. Das wird hier nicht akzeptiert, hier benötigen wir den aus drei Buchstaben bestehenden Ländercode. Also ändern wir die entsprechende Funktion, welche den Ländercode zum angegebenen Land liefert, wie folgt:<\/p>\n Damit haben wir weitere drei Fehlermeldungen entschärft. Diese Funktion können Sie noch durch eine ausgefeiltere Funktion ersetzen. Dazu brauchen wir eine Tabelle mit allen Ländercodes und den vollständigen Namen der Länder. Die Funktion würde dann das Kürzel für das betroffene Land auslesen.<\/p>\n Als Nächstes moniert der Import die fehlende Länge des Pakets sowie die fehlende Breite und Höhe. Diese haben wir bei der Vorgängerversion noch gar nicht genutzt, dort reichte die Angabe des Gewichts aus. Wir wollen aber zunächst den folgenden Fehler beheben, der die fehlende Produkt- und Servicekennzeichnung meldet – vielleicht können wir dann auf die Angabe der Abmessungen verzichten. Der von uns übermittelte Produktcode lautet EPN<\/b>. Ein Blick in die Zuordnung zeigt dann aber schnell, dass wir uns hier schlicht vertippt haben – das Feld Länge <\/b>enthielt als Quelle die Spalte Produktcode<\/b>. Dennoch widmen wir uns nun der Produkt- und Servicekennzeichnung. Da der Wert EPN <\/b>nicht akzeptiert wird, schauen wir uns einmal an, was in der Beispiel-Importdatei für Werte auftauchen. Da gibt es dann zum Beispiel Werte wie V01PAK <\/b>oder V01PAK.V01RET<\/b>. Wo finden wir diese Werte Dazu klicken Sie im Hauptmenü des Geschäftskundenportals auf Versenden|Einstellungen<\/b>. Hier klicken Sie dann auf den Eintrag Produkt-\/Servicezuordnungen für den Datenimport<\/b> (siehe Bild 15).<\/p>\n Bild 15: Zu den Produkt-\/Servicezuordnungen für den Datenimport<\/span><\/b><\/p>\n Hier finden Sie eine übersicht mit einem Datensatz mit DHL Produkt- und Service-Zuordnungen <\/b>als Vorlage für Ihren Import. Klicken Sie auf das Bearbeiten-Symbol, erscheint die übersicht aller Dienstleistungen (siehe Bild 16). Diese enthält in der linken Seite die Bezeichnung der Dienstleistung beziehungsweise des Produkts und auf der rechten die beim Import zu verwendenden Bezeichnungen. Diese wollen wir auch in diesem Fall in unserem Code anpassen und nicht in der Vorlage. Bisher haben wir in der Klasse clsDPEEShipment <\/b>die folgende Property Let<\/b>-Methode genutzt, um eine der beiden möglichen Konstanten, nämlich eWeltpaket <\/b>oder eDHLPaket<\/b>, in eine Zeichenkette umzuwandeln:<\/p>\n Bild 16: Vorlage für die Bezeichnungen der Produkte und Dienstleistungen<\/span><\/b><\/p>\n Hier ersetzen wir nun BPI <\/b>durch V53WPAK <\/b>(für DHL Paket International<\/b>) und EPN <\/b>durch V01PAK<\/b>, sodass der Code nun so aussieht:<\/p>\n Schließlich weist die Fehlerliste nur noch die Abrechnungsnummer auf. Diese haben wir in Intraship ebenfalls noch nicht berücksichtigt. Also fügen wir ein paar Elemente zum VBA-Projekt hinzu. Das erste ist die folgende Variable in der Klasse clsDPEEShipment<\/b>:<\/p>\n Dazu legen wir eine passende Property Let<\/b>-Methode an:<\/p>\n Schließlich fügen wir noch eine Zeile zur Methode Kopfzeile <\/b>hinzu, damit das neu hinzugefügte Feld auch in die CSV-Datei gelangt:<\/p>\n Das Gleiche erledigen wir auch noch für die Methode Satz<\/b>:<\/p>\n Damit würde die Abrechnungsnummer nun in der CSV-Datei landen. Warum würde Weil wir diese ja noch nicht festlegen. Also erweitern wir die Tabelle ![\"Neue](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_002.png\")
<\/p>\n![\"Maske](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_003.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_004.png\")
<\/p>\n![\"Aussehen](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_005.png\")
<\/p>\nNeue Vorlage anlegen<\/h2>\n
![\"Hochladen](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_006.png\")
<\/p>\nBestehende Lösung erweitern<\/h2>\n
Klasse zum Zusammenstellen von Datensätzen für die CSV-Datei<\/h2>\n
![\"Freie](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_007.png\")
<\/p>\nPublic Property Get <\/span>Satz() As String<\/span>\r\n Dim <\/span>strSatz As String<\/span>\r\n strSatz = strSatz & m_DPEEShipment.Satz\r\n strSatz = strSatz & m_DPEESender.Satz\r\n strSatz = strSatz & m_DPEEReceiver.Satz\r\n strSatz = strSatz & m_DPEEItem.Satz\r\n strSatz = strSatz & m_DPEENotification.Satz\r\n Satz = strSatz\r\nEnd Property<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_008.png\")
<\/p>\n|DPEE-SHIPMENT|EPN|20180306|||||1||||||||||||||||||EUR|||||||01||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||DPEE-SENDER|6275498028|André Minhorst Verlag||AndréMinhorst|Borkhofer Str.|17||47137|Duisburg|DE||andre@minhorst.com|0203\/12121212||||||||||||||||||||||DPEE-RECEIVER|Herr André Minhorst|André Minhorst Verlag|||Herr André Minhorst|Borkhofer Str.|17||47137|Duisburg|DE||andre@minhorst.com|||||||||||||||||||DPEE-ITEM||||||PK|||DPEE-NOTIFICATION||andre@minhorst.com|||<\/pre>\n
Public Property Get <\/span>Satz() As String<\/span>\r\n Dim <\/span>strSatz As String<\/span>\r\n ''''strSatz = strSatz & m_Ordnungsnummer & \"|\"\r\n ''''strSatz = strSatz & \"DPEE-ITEM|\"\r\n strSatz = strSatz & m_GewichtDesPackstueckesInKg & \"|\"\r\n strSatz = strSatz & m_LaengeDesPackstueckesInCm & \"|\"\r\n strSatz = strSatz & m_BreiteDesPackstueckesInCm & \"|\"\r\n strSatz = strSatz & m_HoeheDesPackstueckesInCm & \"|\"\r\n strSatz = strSatz & m_PackstueckBeschreibung & \"|\"\r\n strSatz = strSatz & m_PackartKollitraeger & \"|\"\r\n strSatz = strSatz & m_Packstueckreferenz & \"|\"\r\n strSatz = strSatz & m_Referenznummer & \"|\"\r\n'''' strSatz = Left<\/span>(strSatz, Len<\/span>(strSatz) - 1)\r\n Satz = strSatz\r\nEnd Property<\/span><\/pre>\nEPN|20180306|||||1||||||||||||||||||EUR|||||||01|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\r\n6275498028|André Minhorst Verlag||AndréMinhorst|Borkhofer Str.|17||47137|Duisburg|DE||andre@minhorst.com|\r\n0203\/12121212|||||||||||||||||||||Herr André Minhorst|André Minhorst Verlag|||Herr André Minhorst|Borkhofer\r\n Str.|17||47137|Duisburg|DE||andre@minhorst.com|||||||||||||||||||||||PK|||andre@minhorst.com|||<\/pre>\n
Spaltenüberschrift erstellen<\/h2>\n
strSatz = strSatz & m_GewichtDesPackstueckesInKg & \"|\"\r\nstrSatz = strSatz & m_LaengeDesPackstueckesInCm & \"|\"\r\nstrSatz = strSatz & m_BreiteDesPackstueckesInCm & \"|\"\r\nstrSatz = strSatz & m_HoeheDesPackstueckesInCm & \"|\"\r\nstrSatz = strSatz & m_PackstueckBeschreibung & \"|\"\r\nstrSatz = strSatz & m_PackartKollitraeger & \"|\"\r\nstrSatz = strSatz & m_Packstueckreferenz & \"|\"\r\nstrSatz = strSatz & m_Referenznummer & \"|\"<\/pre>\n
GewichtDesPackstueckesInKg|LaengeDesPackstueckesIn-Cm|Breite-DesPackstueckesInCm|HoeheDesPackstueckesIn--Cm|\r\nPackstueck-Beschreibung|PackartKollitraeger|Packstueck-referenz|Referenznummer|<\/pre>\n
Public Property Get <\/span>Kopfzeile() As String<\/span>\r\n Dim <\/span>strKopf As String<\/span>\r\n strKopf = strKopf & \"GewichtDesPackstueckesInKg|\"\r\n strKopf = strKopf & \"LaengeDesPackstueckesInCm|\"\r\n strKopf = strKopf & \"BreiteDesPackstueckesInCm|\"\r\n strKopf = strKopf & \"HoeheDesPackstueckesInCm|\"\r\n strKopf = strKopf & \"PackstueckBeschreibung|\"\r\n strKopf = strKopf & \"PackartKollitraeger|\"\r\n strKopf = strKopf & \"Packstueckreferenz|\"\r\n strKopf = strKopf & \"Referenznummer|\"\r\n Satz = strKopf\r\nEnd Property<\/span><\/pre>\nPublic Property Get <\/span>Kopfzeile() As String<\/span>\r\n Dim <\/span>strKopf As String<\/span>\r\n strKopf = strKopf & \"Sender_Kundennummer|\"\r\n strKopf = strKopf & \"Sender_Firmenname1|\"\r\n strKopf = strKopf & \"Sender_Firmenname2|\"\r\n strKopf = strKopf & \"Sender_Kontaktperson|\"\r\n strKopf = strKopf & \"Sender_Strasse|\"\r\n strKopf = strKopf & \"Sender_Hausnummer|\"\r\n strKopf = strKopf & \"Sender_ZusaetzlicheAdressinformation|\"\r\n strKopf = strKopf & \"Sender_PLZ|\"\r\n strKopf = strKopf & \"Sender_Stadt|\"\r\n strKopf = strKopf & \"Sender_Laendercode|\"\r\n strKopf = strKopf & \"Sender_Bemerkung|\"\r\n strKopf = strKopf & \"Sender_Emailadresse|\"\r\n ...\r\n Kopf = strKopf\r\nEnd Property<\/span><\/pre>\nPublic Property Get <\/span>Kopfzeile() As String<\/span>\r\n Dim <\/span>strKopf As String<\/span>\r\n strKopf = strKopf & m_DPEEShipment.Kopfzeile\r\n strKopf = strKopf & m_DPEESender.Kopfzeile\r\n strKopf = strKopf & m_DPEEReceiver.Kopfzeile\r\n strKopf = strKopf & m_DPEEItem.Kopfzeile\r\n strKopf = strKopf & m_DPEENotification.Kopfzeile\r\n Kopfzeile = strKopf\r\nEnd Property<\/span><\/pre>\nWeitere änderungen<\/h2>\n
Private Sub <\/span>Class_Initialize()\r\n Set<\/span> m_DPEEShipment = New<\/span> clsDPEEShipment\r\n Set<\/span> m_DPEESender = New<\/span> clsDPEESender\r\n Set<\/span> m_DPEEReceiver = New<\/span> clsDPEEReceiver\r\n'''' Set<\/span> m_DPEEItems = New<\/span> Collection\r\n'''' Set<\/span> m_DPEENotifications = New<\/span> Collection\r\n Set<\/span> m_DPEEItem = New<\/span> clsDPEEItem\r\n Set<\/span> m_DPEENotification = New<\/span> clsDPEENotification\r\nEnd Sub<\/span><\/pre>\nPublic Property Get <\/span>DPEEItem() As <\/span>clsDPEEItem\r\n Set<\/span> DPEEItem = m_DPEEItem\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>DPEENotification() As <\/span>clsDPEENotification\r\n Set<\/span> DPEENotification = m_DPEENotification\r\nEnd Property<\/span><\/pre>\nKopfzeile abrufen<\/h2>\n
Public Function <\/span>KopfzeileErstellen()\r\n Dim <\/span>objDPEEMain As <\/span>clsDPEEMain\r\n Dim <\/span>strKopfzeile As String<\/span>\r\n Set<\/span> objDPEEMain = New<\/span> clsDPEEMain\r\n With<\/span> objDPEEMain\r\n strKopfzeile = strKopfzeile _\r\n & .DPEEShipment.Kopfzeile\r\n strKopfzeile = strKopfzeile _\r\n & .DPEESender.Kopfzeile\r\n strKopfzeile = strKopfzeile _\r\n & .DPEEReceiver.Kopfzeile\r\n strKopfzeile = strKopfzeile & .DPEEItem.Kopfzeile\r\n strKopfzeile = strKopfzeile _\r\n & .DPEENotification.Kopfzeile\r\n End With<\/span>\r\n KopfzeileErstellen = strKopfzeile\r\nEnd Function<\/span><\/pre>\nFunktion mit Kopfzeile testen<\/h2>\n
Private Sub <\/span>cmdVersandVorbereiten_Click()\r\n Dim <\/span>strSatz As String<\/span>\r\n Dim <\/span>strKopfzeile As String<\/span>\r\n Dim <\/span>strDateiname As String<\/span>\r\n strKopfzeile = KopfzeileErstellen\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, strKopfzeile\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![\"Export](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_009.png\")
<\/p>\n![\"Suchen](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_010.png\")
<\/p>\n![\"Export](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_011.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_012.png\")
<\/p>\n![\"Suche](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_013.png\")
<\/p>\nImport, erster Versuch<\/h2>\n
![\"Fehler](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_014.png\")
<\/p>\nFehler: Falsches Datumsformat<\/h2>\n
Public Property Let <\/span>Sendungsdatum(datSendungsdatum As Date<\/span>)\r\n If <\/span>datSendungsdatum > 0 Then<\/span>\r\n m_Sendungsdatum = Format(datSendungsdatum, \"yyyymmdd\")\r\n End If<\/span>\r\nEnd Property<\/span><\/pre>\nm_Sendungsdatum = Format(datSendungsdatum, \"dd.mm.yy\")<\/pre>\n
Ungültiges Absenderland<\/h2>\n
Public Function <\/span>LaendercodeAusLand(strLand As String<\/span>) As String<\/span>\r\n Dim <\/span>strLaendercode As String<\/span>\r\n Select Case strLand\r\n Case <\/span>\"Deutschland\"\r\n strLaendercode = \"DEU\"\r\n Case <\/span>\"österreich\"\r\n strLaendercode = \"AUT\"\r\n Case <\/span>\"Schweiz\"\r\n strLaendercode = \"CHE\"\r\n End Select<\/span>\r\n LaendercodeAusLand = strLaendercode\r\nEnd Function<\/span><\/pre>\nLänge, Breite, Höhe<\/h2>\n
![\"Zu](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_015.png\")
<\/p>\n![\"Vorlage](\"..\/fileadmin\/_temp_\/2018_02\/pic_1127_016.png\")
<\/p>\nPublic Property Let <\/span>Produktcode(_\r\n intProduktcode As <\/span>eProduktcode)\r\n Dim <\/span>strProduktcode As String<\/span>\r\n Select Case intProduktcode\r\n Case <\/span>eWeltpaket\r\n strProduktcode = \"BPI\"\r\n Case <\/span>eDHLPaket\r\n strProduktcode = \"EPN\"\r\n End Select<\/span>\r\n m_Produktcode = strProduktcode\r\nEnd Property<\/span><\/pre>\nPublic Property Let <\/span>Produktcode(intProduktcode As <\/span>eProduktcode)\r\n Dim <\/span>strProduktcode As String<\/span>\r\n Select Case intProduktcode\r\n Case <\/span>eWeltpaket\r\n strProduktcode = \"V53WPAK\"\r\n Case <\/span>eDHLPaket\r\n strProduktcode = \"V01PAK\"\r\n End Select<\/span>\r\n m_Produktcode = strProduktcode\r\nEnd Property<\/span><\/pre>\nAbrechnungsnummer<\/h2>\n
Private <\/span>m_Abrechnungsnummer As String<\/span><\/pre>\nPublic Property Let <\/span>Abrechnungsnummer( strAbrechnungsnummer As String<\/span>)\r\n m_Abrechnungsnummer = \"\"\"\" & strAbrechnungsnummer & \"\"\"\"\r\nEnd Property<\/span><\/pre>\nPublic Property Get <\/span>Kopfzeile() As String<\/span>\r\n Dim <\/span>strKopf As String<\/span>\r\n strKopf = strKopf & \"Produktcode;\"\r\n ...\r\n strKopf = strKopf & \"Email;\"\r\n strKopf = strKopf & \"Abrechnungsnummer;\"\r\n Kopfzeile = strKopf\r\nEnd Property<\/span><\/pre>\nPublic Property Get <\/span>Satz() As String<\/span>\r\n Dim <\/span>strSatz As String<\/span>\r\n strSatz = strSatz & m_Produktcode & \";\"\r\n ...\r\n strSatz = strSatz & m_Email & \";\"\r\n strSatz = strSatz & m_Abrechnungsnummer & \";\"\r\n Satz = strSatz\r\nEnd Property<\/span><\/pre>\n