{"id":55000992,"date":"2015-08-01T00:00:00","date_gmt":"2020-05-22T19:21:46","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=992"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Klasse_fuer_DHLIntrashipCSVDateien","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Klasse_fuer_DHLIntrashipCSVDateien\/","title":{"rendered":"Klasse für DHL-Intraship-CSV-Dateien"},"content":{"rendered":"

\"\"<\/p>\n

Die CSV-Dateien, die für die Einreichung bei DHL für die Erstellung von Versandetiketten gefordert werden, sind erstens sehr umfangreich und zweitens auch noch komplex. Diese einfach per Code zusammenzusetzen mag auf den ersten Blick schnell gehen, aber was geschieht, wenn später einmal änderungen nötig sind Um die Programmierung des Exports einer CSV-Datei für DHL-Intraship zu vereinfachen, erstellen wir in diesem Beitrag einige Klassen, mit denen das Zusammenstellen der CSV-Dateien zum Kinderspiel wird.<\/b><\/p>\n

Im Beitrag Versandetiketten mit DHL-IntraShip <\/b>(www.access-im-unternehmen.de\/991<\/b>) zeigen wir, wie Sie eine CSV-Datei mit den Versandinformationen an die Webseite von DHL\/IntraShip übergeben und damit entsprechende Versandetiketten erhalten. Dabei setzen Sie dort einen Satz von Klassen ein, welcher die einfache Erstellung der CSV-Datei ermöglicht. Den Aufbau und die Erstellung dieser Klassen möchten wir im vorliegenden Beitrag erläutern.<\/p>\n

Ausgangsmaterial: PDF-Dokument mit CSV-Beschreibung<\/h2>\n

Grundlage für die Erstellung der Klasse ist ein PDF-Dokument, das die verschiedenen Sätze beschreibt, die Sie benötigen, um die Informationen zu einer Versendung unterzubringen. Dieses Dokument namens Auftragsimport DD-Shipments 6.1 DE.PDF<\/b>, das Sie als Geschäftskunde anfordern können (wir können es leider nicht zum Download anbieten), ist immerhin 27 Seiten lang. Wir haben davon die für eine Sendung von Deutschland aus an ein Ziel innerhalb Deutschlands oder in ein anderes EU-Land nötigen Elemente in Form entsprechender Klassen umgesetzt. Es gibt noch einige weitere Elemente, die beispielsweise zur Erstellung einer ProForma-Rechnung oder der Zollpapiere für den Versand etwa in die Schweiz benötigt werden. Deren Umsetzung beschreibt der vorliegende Beitrag nicht.<\/p>\n

Das PDF-Dokument enthält die Beschreibung verschiedener Satzarten, von denen einige verpflichtend sind, ein paar andere können optional hinzugefügt werden. Für einen Auftrag benötigen Sie auf jeden Fall eine Zeile der Satzart Sendung<\/b>, die etwa so aussieht – jede Information ist durch das Pipe-Zeichen von der nächsten Information getrennt:<\/p>\n

1234|DPEE-SHIPMENT|EPN|20150629|1.3||||AEMA|||||||||||||||||100|EUR||||||<\/b><\/p>\n

|01|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||<\/b><\/p>\n

Sie enthält die grundlegenden Informationen zu der Sendung wie die Sendungsart, das Datum, das Gewicht, den Warenwert oder eine Sendungsreferenz. Außerdem enthält sie als Erstes eine Zahl, die für alle weiteren Sätze für diese Sendung gleich sein muss. Dementsprechend beginnt die zweite Satzart namens Absender <\/b>auch mit dieser Zahl, enthält aber die Absenderinformationen:<\/p>\n

1234|DPEE-SENDER|6275498028|André Minhorst Verlag||André Minhorst|Borkhofer Str.|17||47137|Duisburg|DE||andre@minhorst.com|0123\/4567890|||||||||||||||||||||<\/b><\/p>\n

Das Element der Satzart Empfänger <\/b>enthält logischerweise die Adresse und weitere Informationen zum Empfänger der Sendung:<\/p>\n

1234|DPEE-RECEIVER|André Minhorst Verlag||||Herr Klaus Müller|Borkhofer Str.|17||47137|Duisburg|DE||klaus@mueller.de||||||||||||||||||<\/b><\/p>\n

Danach folgt eine Zeile, welche die Daten für die Satzart Packstück <\/b>aufnimmt (diese Zeile kann, wenn es sich um mehrere Packstücke handelt, auch mehrfach vorkommen). Sie sieht so aus:<\/p>\n

1234|DPEE-ITEM|1.3|||||PK||<\/b><\/p>\n

Die letzte von uns in diesem Beitrag behandelte Zeile enthält die E-Mail-Adresse des Empfängers der Versandbenachrichtigung (Satzart Benachrichtigungen<\/b>).<\/p>\n

Auch hier können Sie mehrere Sätze der gleichen Art angeben, beispielsweise um sich selbst und dem Empfänger eine Benachrichtigung zu schicken, die etwa die Nummer für die Sendungsverfolgung enthält. Sie ist beispielsweise wie folgt aufgebaut:<\/p>\n

1234|DPEE-NOTIFICATION||andre@minhorst.com|||<\/b><\/p>\n

Warum Klassen<\/h2>\n

Man könnte beispielsweise das erste Element mit den grundlegenden Informationen zur Sendung wie folgt in die CSV-Datei schreiben:<\/p>\n

Print #1, lngKundeID & \"|DPEE-SHIPMENT|\" & strPaketart & \"|\" & Format(Date, \"yyyymmdd\") _\r\n    & \"|\" & Replace<\/span>(curGewicht, \",\", \".\") & \"||||\" & strKuerzel & \"|||||||||||||||||\" _\r\n    & Replace<\/span>(curWert, \",\", \".\") _\r\n    & \"|EUR|||||||01|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\"<\/pre>\n
Sobald Sie aber mal einen Parameter in der CSV-Datei benötigen, den Sie hier nicht berücksichtigt haben und der irgendwo zwischen dem 80. und 81. Pipe-Zeichen eingefügt werden muss, dürfen Sie erstmal die Dokumentation suchen, die Zeile anpassen et cetera.<\/p>\n
Der Ansatz in der beschriebenen Codezeile ist Teil meines ersten Versuchs, die Erstellung der CSV-Datei zu automatisieren, und funktioniert natürlich gut – zumindest, bis man dann etwas an der Programmierung ändern oder, noch schlimmer, den Code anderen Entwicklern zugänglich machen möchte – also beispielsweise den Lesern dieses Beitrags.<\/p>\n
Gerade in letzterem Fall werden doch die unterschiedlichsten Anforderungen zusammentreffen, die sich unmöglich mit einer einzigen Zeile Code je Element der CSV-Datei erledigen lassen. So ist dann nach einigem Hin und Her die Idee entstanden, ein System von Klassenmodulen aufzusetzen, von denen eines die Hauptschnittstelle zum Erstellen der CSV-Datei bildet und weitere Klassen jeweils eine Zeile der CSV-Datei repräsentieren.<\/p>\n
CSV erstellen mit Klassen<\/h2>\n
Schauen wir uns zunächst an, wie Sie mit den nachfolgend erläuterten Klassen die CSV-Datei zusammenstellen können. Dies sieht in einem Beispiel für eine einzelne Sendung wie in Listing 1 aus. Keine Sorge: Der Code wird nicht wesentlich länger, wenn Sie beispielsweise die CSV-Datei für ein paar hundert Sendungen erstellen wollen – Sie müssen dann nur hier und da ein paar Schleifen hinzufügen und ein paar feste Zuweisungen durch Verweise auf die jeweiligen Feldinhalt ersetzen.<\/p>\n
Public Sub <\/span>BeispielDHL()\r\n     Dim <\/span>objDPEEMain As <\/span>clsDPEEMain\r\n     Set<\/span> objDPEEMain = New<\/span> clsDPEEMain\r\n     With<\/span> objDPEEMain\r\n         .Ordnungsnummer = 1234\r\n         With<\/span> .DPEEShipment\r\n             .Produktcode = eDHLPaket\r\n             .Sendungsdatum = Date\r\n             .Gewicht = 1.3\r\n             .Sendungsreferenz = \"AEMA\"\r\n             .Warenwert = 100\r\n             .WarenwertWaehrung = \"EUR\"\r\n             .Teilnahme = \"01\"\r\n         End With<\/span>\r\n         With<\/span> .DPEESender\r\n             .Kundennummer = \"6275498028\"\r\n             .Firmenname1 = \"André Minhorst Verlag\"\r\n             .Kontaktperson = \"André Minhorst\"\r\n             .Strasse = \"Borkhofer Str.\"\r\n             .Hausnummer = \"17\"\r\n             .PLZ = \"47137\"\r\n             .Stadt = \"Duisburg\"\r\n             .Laendercode = LaendercodeAusLand(\"Deutschland\")\r\n             .Emailadresse = \"andre@minhorst.com\"\r\n             .Telefonnummer = \"0123\/4567890\"\r\n         End With<\/span>\r\n         With<\/span> .DPEEReceiver\r\n             .Firmenname = \"André Minhorst Verlag\"\r\n             .Firmenname2 = \"\"\r\n             .Kontaktperson = \"Herr Klaus Müller\"\r\n             .Strasse = \"Borkhofer Str.\"\r\n             .Hausnummer = \"17\"\r\n             .PLZ = \"47137\"\r\n             .Stadt = \"Duisburg\"\r\n             .Land = LaendercodeAusLand(\"Deutschland\")\r\n             .Emailadresse = \"klaus@mueller.de\"\r\n         End With<\/span>\r\n         With<\/span> .AddDPEEItem\r\n             .GewichtDesPackstueckesInKg = 1.3\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         With<\/span> .AddDPEENotification\r\n             .Emailadresse = \"test@test.de\"\r\n         End With<\/span>\r\n         Open CurrentProject.Path & \"\\dhltest.csv\" For Output As <\/span>#1\r\n         Print #1, .Satz\r\n         Close #1\r\n     End With<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Erstellen einer CSV-Datei für den Versand<\/span><\/b><\/p>\n
Die Prozedur deklariert ein Objekt auf Basis der Klasse clsDPEEMain<\/b>. Dieses erstellt sie gleich in der darauffolgenden Zeile mit der New<\/b>-Anweisung. Da wir nachfolgend einige Eigenschaften dieser Klasse einstellen möchten, verwenden wir nun die With<\/b>-Anweisung, damit wir den Objektbezeichner objDPEEMain <\/b>nicht in jeder Zeile wiederholen müssen.<\/p>\n
Als Erstes legen wir die Ordnungsnummer fest. Dies ist die Nummer, die wir in jedem Satz als erstes Element angeben müssen, damit wir die einzelnen Sätze als zu einer Versendung gehörend markieren können. Gleichzeitig ist das auch die einzige Information, die wir direkt an diese Klasse übergeben.<\/p>\n
über diese Klasse greifen wir jedoch über Eigenschaften wie DPEEShipment <\/b>(Satzart Sendung<\/b>), DPEESender <\/b>(Satzart Absender<\/b>), DPEEReceiver <\/b>(Satzart Empfaenger<\/b>), DPEEItem <\/b>(Satzart Packstück<\/b>) und DPEENotification <\/b>(Satzart Benachrichtigungen<\/b>) auf die Objekte für die einzelnen Sätze beziehungsweise Zeilen in der CSV-Datei zu.<\/p>\n
über DPEEShipment <\/b>stellen Sie so etwa den Produktcode, das Sendungsdatum oder das Gesamtgewicht ein.<\/p>\n
DPEESender <\/b>stellt Eigenschaften bereit, mit denen Sie die Kundennummer und die Adresse des Absenders festlegen.<\/p>\n
Dementsprechend dient das Objekt DPEEReceiver <\/b>dazu, die Adresse des Empfängers zu übergeben.<\/p>\n
Auf die Objekte DPEEItem <\/b>und DPEENotification <\/b>greifen Sie nicht wie auf die anderen Elemente zu. Der Grund ist, dass Sie beide mehrfach anlegen können. Daher legen Sie diese jeweils mit der entsprechenden Add…<\/b>-Methode an, also etwa AddDPEEItem <\/b>oder AddDPEENotification<\/b>. Da die beiden Methoden aber auch jeweils ein Element des Typs clsDPEEItem <\/b>beziehungsweise clsDPEENotification <\/b>zurückliefern, können Sie auf die Add…<\/b>-Methode jeweils mit der With<\/b>-Anweisung verweisen und darüber die einzelnen Eigenschaften festlegen – bei der Satzart Packstück <\/b>also etwa das Gewicht und die Packart (Paket oder Palette).<\/p>\n
Bei der Benachrichtigung verwenden Sie die Methode AddDPEENotification<\/b>, für die Sie nur die jeweilige E-Mail-Adresse des Empfängers angeben müssen. Im Beispiel legen wir gleich zwei E-Mail-Adressen für die Versandbestätigung an – eine für den Sender und eine für den Empfänger.<\/p>\n
Schließlich erstellt die Prozedur eine neue Textdatei mit der Endung .csv <\/b>und schreibt den Wert der Eigenschaft Satz <\/b>des Objekts objDPEEMain <\/b>hinein. Diese Eigenschaft liefert den Inhalt der CSV-Datei, den die Klasse auf Basis der übergebenen Werte zusammengestellt hat. Für unser Beispiel sieht diese Datei nun genau wie in Listing 2 aus.<\/p>\n
1234|DPEE-SHIPMENT|EPN|20150629|1.3||||AEMA|||||||||||||||||100|EUR||||||\r\n|01|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\r\n1234|DPEE-SENDER|6275498028|André Minhorst Verlag||André Minhorst\r\n|Borkhofer Str.|17||47137|Duisburg|DE|\r\n|andre@minhorst.com|0123\/4567890|||||||||||||||||||||\r\n1234|DPEE-RECEIVER|André Minhorst Verlag||||Herr Klaus Müller\r\n|Borkhofer Str.|17||47137|Duisburg|DE|| klaus@mueller.de||||||||||||||||||\r\n1234|DPEE-ITEM|1.3|||||PK||\r\n1234|DPEE-NOTIFICATION||andre@minhorst.com|||\r\n1234|DPEE-NOTIFICATION||test@test.de|||<\/pre>\n
Listing 2: Frisch erstellte CSV-Datei mit Sendungsdaten<\/span><\/b><\/p>\n
Das Tolle bei der Verwendung dieser Klassen ist, dass Sie nicht erst die Dokumentation nach den Namen der einzelnen Eigenschaften einer Zeile der CSV-Datei suchen oder die Position innerhalb der Zeile ermitteln müssen, sondern einfach einen Punkt hinter dem Objektbezeichner einfügen und dann alle möglichen Eigenschaften per IntelliSense präsentiert bekommen (s. Bild 1).<\/p>\n
\"IntelliSense<\/p>\n
Bild 1: IntelliSense beim Programmieren der Erstellung der CSV-Datei<\/span><\/b><\/p>\n
Versierte Access-Entwickler haben nach der Durchsicht dieses Beispielcodes schon eine Vorstellung, wie sie auf dieser Basis den Code erstellen, um die benötigten Informationen aus einigen Tabellen zusammenzusuchen und so in die CSV-Datei zu schreiben.<\/p>\n
Klassen programmieren<\/h2>\n
Nun fehlt noch die Antwort auf die Frage: Wie kommt man von der Definition des Aufbaus der verschiedenen Satzarten aus einem 27 Seiten langen PDF-Dokument, das beispielsweise wie in Bild 2 aussieht, zu einer Reihe von Klassenmodulen, welche die Eingabe dann wie hier beschrieben erleichtern Dazu gehört in der Tat entweder eine Menge Handarbeit oder, was wir Access-Entwickler eindeutig bevorzugen, ein paar Zeilen VBA-Code, die uns einen Großteil der Arbeit abnehmen.<\/p>\n
\"Umzusetzende<\/p>\n
Bild 2: Umzusetzende Beschreibung aus dem PDF<\/span><\/b><\/p>\n
Wir haben es im Detail mit fünf Tabellen zu tun, die von  weniger als zehn bis zu knapp 100 Zeilen enthalten.<\/p>\n
Jede Tabelle beschreibt eine Satzart, also benötigen wir für jede Tabelle eine eigene Klasse. Jede Zeile der Tabelle beschreibt eine Eigenschaft, also benötigen wir für jede Zeile eine private Variable in der Klasse, um den zugewiesenen Wert speichern zu können, sowie eine Property Let<\/b>-Prozedur, um diese Eigenschaften von außerhalb der Klasse füllen zu können.<\/p>\n
<\/p>\n
Schließlich soll jede Klasse noch eine Eigenschaft namens Satz<\/b> bereitstellen, die nach dem Zuweisen der Eigenschaften alle Eigenschaften auswertet und die Zeile der CSV-Datei für diese Satzart zusammenstellt und zurückgibt. Das wären für die fünf hier behandelten Sätze insgesamt 289 Zeilen, für die entsprechenden Eigenschaften, Property Let<\/b>-Prozeduren und Einträge in die Satz<\/b>-Eigenschaft vorgenommen werden müssten. Nein: Von Hand wollen wir das nicht erledigen.<\/p>\n
Dummerweise können wir die Inhalte der Tabellen noch nicht einmal direkt in eine Excel- oder Access-Tabelle einfügen – zwar landet jede Zeile in einer eigenen Zeile der Zieltabelle, aber die Spalten werden alle in das erste Feld geschrieben. Also sind wir so vorgegangen: Wir haben die Tabellen zunächst in eine Text-Datei geschrieben, Tab-Zeichen zwischen die erste und zweite Spalte gebracht, in die dritte Spalte den Datentyp unter VBA eingetragen und die maximale Zeichenanzahl in die vierte Spalte geschrieben – alles jeweils durch Tabulatorzeichen voneinander getrennt. Das Zwischenergebnis sah dann wie in Bild 3 aus. Die Anzahl der manuellen Eingriffe hält sich hier noch in Grenzen.<\/p>\n
\"Felder<\/p>\n
Bild 3: Felder im Textformat<\/span><\/b><\/p>\n
Danach haben wir den kompletten Inhalt in die Zwischen-ablage kopiert und dann in eine neue Tabelle namens tblFelderDPEEItem <\/b>kopiert, die wir zuvor mit den vier benötigten Feldern ausgestattet haben. Der neue Zwischenstand ist in Bild 4 abgebildet.<\/p>\n
\"Felder<\/p>\n
Bild 4: Felder in der Zieltabelle<\/span><\/b><\/p>\n
Nun haben wir die Daten, wie wir sie brauchen – schön ordentlich in einer Tabelle untergebracht und per VBA erreichbar. Auf die gleiche Weise gehen wir noch für die übrigen vier Satzarten vor und erhalten fünf Tabellen mit den Daten der jeweiligen Eigenschaften einer Satzart.<\/p>\n
Nun benötigen wir nur noch eine Prozedur, die jeweils den Inhalt einer Tabelle ausliest und den Code für eine Klasse erzeugt – oder zumindest eine Grundlage, die wir durch wenige manuelle Anpassungen zum gewünschten Code umwandeln können.<\/p>\n
Die dazu verwendete Prozedur finden Sie in Listing 3. Die Prozedur erstellt als Erstes ein Recordset auf Basis der Tabelle mit der umzusetzenden Satzart, in diesem Fall tblFelderDPEENotification <\/b>(für die anderen Tabellen haben wir die Tabellen manuell angepasst und die Prozedur neu gestartet).<\/p>\n
Public Sub <\/span>KlasseErstellen()\r\n     Dim <\/span>db As <\/span>DAO.Database\r\n     Dim <\/span>rst As <\/span>DAO.Recordset\r\n     Dim <\/span>strMember As String<\/span>\r\n     Dim <\/span>strProperties As String<\/span>\r\n     Dim <\/span>strPraefix As String<\/span>\r\n     Dim <\/span>strSatz As String<\/span>\r\n     Set<\/span> db = CurrentDb\r\n     Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblFelderDPEENotification\", dbOpenDynaset)\r\n     strSatz = strSatz & \"Public Property Get Satz() As String<\/span>\" & vbCrLf<\/span>\r\n     strSatz = strSatz & \"    Dim strSatz As String<\/span>\" & vbCrLf<\/span>\r\n     Do While<\/span> Not<\/span> rst.EOF\r\n         Select Case rst!Datentyp\r\n             Case <\/span>\"String\"\r\n                 strPraefix = \"str\"\r\n             Case <\/span>\"Long\"\r\n                 strPraefix = \"lng\"\r\n             Case <\/span>\"Currency\"\r\n                 strPraefix = \"cur\"\r\n         End Select<\/span>\r\n         strMember = strMember & \"Private m_\" & rst!Feldname & \" AS String\" & vbCrLf<\/span> ''Alle String!\r\n         strProperties = strProperties & \"Public Property Let \" & rst!Feldname & \"(\" & strPraefix & rst!Feldname _\r\n             & \" AS \" & rst!Datentyp & \")\" & vbCrLf<\/span>\r\n         Select Case rst!Datentyp\r\n             Case <\/span>\"Long\"\r\n                 strProperties = strProperties & \"    If \" & strPraefix & rst!Feldname & \" > 0 Then\" & vbCrLf<\/span>\r\n                 strProperties = strProperties & \"        m_\" & rst!Feldname & \" = \" & strPraefix & rst!Feldname _\r\n                     & vbCrLf<\/span>\r\n                 strProperties = strProperties & \"    End If\" & vbCrLf<\/span>\r\n             Case <\/span>\"Currency\"\r\n                 strProperties = strProperties & \"    If \" & strPraefix & rst!Feldname & \" > 0 Then\" & vbCrLf<\/span>\r\n                 strProperties = strProperties & \"        m_\" & rst!Feldname & \" = Replace<\/span>(\" & strPraefix _\r\n                     & rst!Feldname & \", \"\",\"\", \"\".\"\")\" & vbCrLf<\/span>\r\n                 strProperties = strProperties & \"    End If\" & vbCrLf<\/span>\r\n             Case Else<\/span>\r\n                 strProperties = strProperties & \"    m_\" & rst!Feldname & \" = \" & strPraefix & rst!Feldname & vbCrLf<\/span>\r\n         End Select<\/span>\r\n         strProperties = strProperties & \"End Property\" & vbCrLf<\/span>\r\n         strProperties = strProperties & vbCrLf<\/span>\r\n         strSatz = strSatz & \"    strSatz = strSatz & m_\" & rst!Feldname & \" & \"\"|\"\"\" & vbCrLf<\/span>\r\n         rst.MoveNext<\/span>\r\n     Loop<\/span>\r\n     strSatz = strSatz & \"    strSatz = left(strSatz, Len<\/span>(strSatz) - 1)\" & vbCrLf<\/span>\r\n     strSatz = strSatz & \"    Satz = strSatz\" & vbCrLf<\/span>\r\n     strSatz = strSatz & \"End Property\"\r\n     Inzwischenablage strMember & vbCrLf<\/span> & strProperties & vbCrLf<\/span> & strSatz\r\nEnd Sub<\/span><\/pre>\n
Listing 3: Code zum Erstellen des Inhalts der Klassenmodule<\/span><\/b><\/p>\n
Danach stellt sie in drei Variablen den kompletten Code der Klasse zusammen:<\/p>\n