\n| \n Die DataDesign AG bietet auf ihrer Webseite verschiedene Versionen der DDBAC-Komponenten zur Verfügung. Die DDBAC Runtime Version 4.1.6.0 ist komplett kostenlos, das DDBAC Software Development Kit 4.1.6.0 ist an Lizenzbedingungen geknüpft, die Sie beim Download einsehen können. Der wesentliche Punkt lautet: Kostenpflichtig wird der Einsatz einer oder mehrerer DDBAC-Komponenten erst, wenn Sie diese in Projekte integrieren und als Paket an Dritte verkaufen. DataDesign hat aber zugesichert, dass Sie das auf der Heft-CD befindliche oder von http:\/\/www.datadesign.de herunterzuladende SDK für die Entwicklung eigener Anwendungen einsetzen und diese im Eigengebrauch kostenlos nutzen dürfen.<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table><\/div>\n Voraussetzungen<\/b><\/p>\n Ohne einen Online-Zugang zu Ihrem Konto läuft natürlich gar nichts, und außerdem müssen die HBCI-Funktionen für Sie freigeschaltet sein. Wenn Sie per Onlinebanking via Internet auf Ihr Konto zugreifen, sollten Sie die HBCI-Funktionen darüber freischalten können. Gegebenenfalls ist dazu ein kurzer Schriftwechsel oder ein Telefonat mit der Bank notwendig. Außerdem brauchen Sie natürlich die DataDesign Banking Application Components <\/b>(DDBAC<\/b>), die Sie unter [1] herunterladen können. Deren Installation bringt nicht nur die notwendigen Komponenten auf die Festplatte, sondern fügt auch der Systemsteuerung einen Eintrag hinzu. Mit diesem sorgen Sie für die Grundlage des Zugriffs, indem Sie einen oder mehrere Kontakte anlegen und diese später verwalten (siehe Bild 1).<\/p>\n\n ![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2007_03\/HBCI-web-images\/pic001_opt.jpeg\") \n <\/div>\n \n Bild 1: über die Systemsteuerung verwalten Sie Onlinebanking-Kontakte.<\/span><\/b><\/p>\n<\/p><\/div>\nEin Kontakt ist dabei keinesfalls mit einem Konto gleichzusetzen, auch wenn die Daten, die Sie hierzu von Ihrer Bank erhalten, möglicherweise darauf schließen lassen. über einen Kontakt können Sie auf eines oder mehrere eigene Konten (beispielsweise Girokonto und Sparkonto), unter Umständen aber auch auf fremde Konten zugreifen – etwa, wenn Sie als Buchhalter eines Unternehmens auf dessen Konten Zugriff haben. Diese Feinheiten werden weiter unten in der Beschreibung des Objektmodells deutlicher.<\/p>\n Bis dahin müssen Sie erstmal einen Kontakt anlegen, indem Sie den Administrator für Homebanking Kontakte <\/b>öffnen und mit einem Klick auf die Schaltfläche Neu <\/b>den passenden Assistenten starten (siehe Bild 2).<\/p>\n\n ![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2007_03\/HBCI-web-images\/pic002_opt.jpeg\") \n <\/div>\n \n Bild 2: Start des Assistenten zum Erstellen eines Kontaktes<\/span><\/b><\/p>\n<\/p><\/div>\nFür die folgenden Schritte benötigen Sie die Unterlagen, die Ihnen die Bank Ihres Vertrauens geliefert hat – zum Beispiel den Ini-Brief, die Ini-Diskette oder die HBCI-Chipkarte. Sie geben dort die Art des Zugriffs auf den Server (etwa per Pin\/Tan oder FinTS), die Bankleitzahl, Ihre Benutzerkennung (aus den Unterlagen – stimmt gegebenenfalls mit Ihrer Kontonummer überein) und weitere Daten ein. Beim Anlegen des neuen Homebanking-Kontakts erfolgt schließlich die Synchronisierung mit den passenden Daten auf dem Bankserver. Wichtig ist, dass Sie sich – wenn Sie mit einer Schlüsseldatei arbeiten – die für den Zugang mit dem auf einem passenden Medium gesicherten Schlüssel gültige Passphrase merken. Diese benötigen Sie später für die erneute Anmeldung am Onlinebanking-Server. Der Vorteil ist, dass Sie damit die lästige Eingabe von TANs umgehen können.<\/p>\n Nach dem Anlegen des Kontakts können Sie diesen von Anwendungen, die auf die DDBAC-Schnittstelle zugreifen, referenzieren und für das Anmelden an den Banking-Server verwenden.<\/p>\n Datenbank HBCI-fähig machen<\/b><\/p>\n Nun können Sie endlich mit dem Bau einer Access-Anwendung für den Zugriff auf Ihre Bankkonten beginnen. Als Erstes brauchen Sie einen Verweis auf die Bibliothek DataDesign DDBAC HBCI Banking Application Components<\/b> (siehe Bild 3).<\/p>\n\n ![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2007_03\/HBCI-web-images\/pic003_opt.jpeg\") \n <\/div>\n \n Bild 3: Erstellen eines Verweises auf die DDBAC-Bibliothek<\/span><\/b><\/p>\n<\/p><\/div>\nAnschließend geht es los – am besten mit dem Untersuchen der Daten, die Sie wie soeben beschrieben mit dem Assistenten vom Onlinebanking-Server auf Ihren Arbeitsrechner gezogen haben.<\/p>\n Dabei handelt es sich nämlich um Basisdaten wie die einzelnen Konten, die Sie unter den von Ihnen angegebenen Benutzerdaten verwalten können. Im Falle des Autors und des im Beispiel verwendeten Zugangs beschränkt sich dies auf zwei Konten – ein Giro- sowie ein Sparkonto. Trotzdem Grund genug, sich einmal anzusehen, wie man auf diese Daten zugreift.<\/p>\n Die Routine aus Listing 1 zeigt, wie das funktioniert. Wie für die meisten folgenden Beispiele benötigen Sie ein Objekt des Typs BACBanking<\/b>, das gleichzeitig das Wurzelelement des Objektmodells ist. Dieses deklarieren Sie wie folgt in einem Standardmodul:<\/p>\nDim objBanking As BACBanking<\/pre>\nSie benötigen noch ein weiteres Element, mit dem Sie den aktuellen Onlinebanking-Benutzer referenzieren:<\/p>\n Dim objCustomer As BACCustomer<\/pre>\n\n \n\n\n| \n Listing 1: Ausgabe einiger der beim Synchronisieren mit dem Banking-Server auf dem lokalen Rechner gespeicherten Informationen<\/p>\n<\/td>\n<\/tr>\n | \n\nPublic Sub LokaleDaten()
<\/pre>\n Dim objAccountSegment As BACSegment<\/pre>\n
Set objBanking = New BACBanking<\/pre>\n
For Each objCustomer In objBanking.Customers<\/pre>\n
Debug.Print "*** Customer ***"<\/pre>\n Debug.Print "Benutzer-ID: " & objCustomer.UserID<\/pre>\n Debug.Print "Bankleitzahl: " & objCustomer.BankCode<\/pre>\n Debug.Print "Ländercode: " & objCustomer.CountryCode<\/pre>\n
For Each objAccountSegment In objCustomer.AccountData.Segments<\/pre>\n
With objAccountSegment
<\/pre>\n Debug.Print "*** Kontoverbindung ***"<\/pre>\n Debug.Print "Kontonummer: " & .Item("Kontoverbindung1", "Kontonummer1")<\/pre>\n Debug.Print "Merkmal: " & .Item("Kontoverbindung1", "Unterkontomerkmal1")<\/pre>\n Debug.Print "Länderkennzeichen: " & .Item("Kontoverbindung1", "Laenderkennzeichen1")<\/pre>\n Debug.Print "Kreditinstitutcode: " & .Item("Kontoverbindung1", "Kreditinstitutcode1")<\/pre>\n Debug.Print "Kontowährung: " & .Item("Kontowaehrung1")<\/pre>\n Debug.Print "Besitzername: " & .Item("NameEins1")<\/pre>\n Debug.Print "Produktbezeichnung: " & .Item("Kontoproduktbezeichnung1")<\/pre>\n
End With<\/pre>\n
Next objAccountSegment<\/pre>\n
Next objCustomer<\/pre>\n
End Sub<\/pre>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table><\/div>\nEin BACCustomer<\/b>-Objekt entspricht einem der Einträge in der Maske aus Bild 2. Dort können Sie – wenn Sie Konten bei verschiedenen Banken besitzen – auch mehrere HBCI-Benutzer einrichten.<\/p>\n Für diesen Fall bietet sich auch die Verwendung der Customers<\/b>-Auflistung des BACBanking<\/b>-Objekts an, das Methoden etwa zum Suchen von BACCustomer<\/b>-Objekten nach dem Benutzernamen oder der Bankleitzahl erlaubt. Im vorliegenden Fall soll jedoch ein einfaches Durchlaufen der vorhandenen BACCustomer<\/b>-Objekte genügen. Dies geschieht innerhalb einer For Each<\/b>-Schleife über die Customers<\/b>-Auflistung. Die Routine LokaleDaten <\/b>gibt zunächst zu jedem BACCustomer<\/b>-Objekt die Benutzerkennung (UserID<\/b>), die Bankleitzahl (BankCode<\/b>) und den CountryCode <\/b>aus.<\/p>\n <\/p>\n Gut segmentiert<\/b><\/p>\n Und dann wird es interessant, denn die folgenden Zeilen greifen erstmals auf ein Element zu, das Sie im Folgenden noch häufiger einsetzen werden: das BACSegment<\/b>-Objekt. Dabei handelt es sich um ein generisches Objekt, das Sie in der Regel als Container für den Austausch von Informationen mit dem Onlinebanking-Server einsetzen.<\/p>\n Ein solches Segment enthält je nach Einsatzfall verschiedene Eigenschaften, die in der HTML-Datei Segmente.html <\/b>im Installationsverzeichnis von DDBAC beschrieben ist.<\/p>\n Im Beispiel aus Listing 1 stammen die Segmente aus der AccountData<\/b>-Auflistung des BACCustomer<\/b>-Objekts und liefern Informationen zu den einzelnen Bankkonten des aktuellen Benutzerkontos. über die Item<\/b>-Eigenschaft lassen sich Informationen ausgeben, die Sie über ein oder zwei Parameter identifizieren – Item("Kontoverbindung1", "Kontonummer1") <\/b>liefert etwa die Kontonummer des ersten in der Auflistung enthaltenen Kontos.<\/p>\n Wie bereits erwähnt, legt die Spezifikationsdatei Segmente.html <\/b>die hier zu verwendenden Parameter fest. Die Datei ist ellenlang und enthält Informationen zu mehr als 300 Segmenttypen, sodass sich die Frage stellt, wie man den passenden Typ und somit die gültigen Parameter ermittelt. Dies ist ziemlich einfach: Die Eigenschaft Type <\/b>des BACSegment<\/b>-Objekts liefert die passende Kennung für das Segment, in diesem Fall HIUPD <\/b>für Kontoinformation<\/b> (siehe Bild 4)<\/p>\n\n ![\"pic004.tif\"](\"..\/fileadmin\/_temp_\/2007_03\/HBCI-web-images\/pic004_opt.jpeg\") \n <\/div>\n \n Bild 4: Informationen über die Parameter der Segment-Objekte liefert diese HTML-Datei.<\/span><\/b><\/p>\n<\/p><\/div>\nDie Frage, warum man jeweils noch das Zeichen 1 <\/b>an die Parameternamen anhängen muss, beantwortet die Dokumentation leider nicht, man gewöhnt sich aber schnell daran.<\/p>\n Die Routine aus Listing 1 gibt schließlich einige Informationen es Segments HIUPD aus, mit denen Sie etwa ein Listenfeld zur Auswahl des zu verwaltenden Kontos füllen können.<\/p>\n Online gehen<\/b><\/p>\n Mit Onlinebanking hatte das Bisherige noch nicht allzuviel zu tun, was sich aber nun ändert. Vor dem ersten Zugriff auf die Kontodaten müssen Sie sich allerdings zunächst am Server anmelden – was nach einmalig erfolgter Synchronisierung sehr einfach vonstatten geht.<\/p>\n Die Routine aus Listing 2 zeigt nicht nur, wie die Anmeldung erfolgt, sondern auch, wie Sie einen Kontostand abfragen. Die Routine ist eine stark vereinfachte Variante des Ablaufs eines mit der Komponente aus [1] gelieferten Beispiels, das Sie im Unterverzeichnis HBCIPAD <\/b>als VB6-Projekt finden. Vereinfacht deshalb, weil aus Gründen der übersichtlichkeit beispielsweise die Fehlerbehandlung und sämtliche Sicherheitsabfragen herausgenommen wurden.<\/p>\n\n \n\n\n| \n Listing 2: Anmelden an den Onlinebanking-Server und Abfragen des aktuellen Kontostandes<\/p>\n<\/td>\n<\/tr>\n | \n\nPublic Function Kontostand() As Currency
<\/pre>\n Dim objAccountSegment As BACSegment<\/pre>\n Dim objDialog As BACDialog<\/pre>\n Dim objMessage As BACMessage<\/pre>\n Dim objResponseSegment As BACSegment<\/pre>\n Dim objSaldoSegment As BACSegment<\/pre>\n
Set objBanking = New BACBanking<\/pre>\n Set objCustomer = objBanking.Customers(0)<\/pre>\n Set objAccountSegment = objCustomer.AccountData.Segments(0)<\/pre>\n Set objDialog = objCustomer.NewDialogUI<\/pre>\n
objDialog.BeginDialog<\/pre>\n
Set objSaldoSegment = objBanking.NewSegment("HKSAL", objCustomer("HBCIVersion"))<\/pre>\n
objSaldoSegment("AuftraggeberKontoverbindung1", "Kontonummer1") = _
objAccountSegment("Kontoverbindung1", "Kontonummer1")<\/pre>\n objSaldoSegment("AuftraggeberKontoverbindung1", "Laenderkennzeichen1") = _
objAccountSegment("Kontoverbindung1", "Laenderkennzeichen1")<\/pre>\n objSaldoSegment("AuftraggeberKontoverbindung1", "Kreditinstitutcode1") = _
objAccountSegment("Kontoverbindung1", "Kreditinstitutcode1")<\/pre>\n objSaldoSegment("AuftraggeberKontoverbindung1", "Unterkontomerkmal1") = _
objAccountSegment("Kontoverbindung1", "Unterkontomerkmal1")<\/pre>\n objSaldoSegment("AlleKonten1") = False<\/pre>\n
Set objMessage = objDialog.ExecuteSegment(objSaldoSegment)<\/pre>\n
For Each objResponseSegment In objMessage.Transactions(0).ResponseSegments<\/pre>\n Debug.Print objResponseSegment("SaldoGebucht1", "Wert1")<\/pre>\n Debug.Print objResponseSegment("SaldoGebucht1", "Datum1")<\/pre>\n Debug.Print objResponseSegment("SaldoGebucht1", "Waehrung1")<\/pre>\n Debug.Print objResponseSegment("SaldoGebucht1", "SollHabenKennzeichen1")<\/pre>\n Next objResponseSegment<\/pre>\n
objDialog.EndDialog<\/pre>\n
End Function<\/pre>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table><\/div>\nNach dem Instanzieren des BACBanking<\/b>-Objekts legt die Routine einen Verweis auf den ersten in der Liste aus Bild 2 enthaltenen Eintrag fest:<\/p>\n Set objCustomer = objBanking.Customers(0)<\/p>\n Die Einträge könnte man auch hier in einer Schleife durchlaufen, aber der Zugriff soll diesmal etwas gezielter erfolgen. Die folgende Anweisung erstellt einen Verweis auf das erste Konto für den soeben referenzierten Customer:<\/p>\n Set objAccountSegment =
objCustomer.AccountData.Segments(0)<\/pre>\nMit den folgenden beiden Anweisungen stellen Sie schließlich die Verbindung her, wobei Sie zunächst ein neues BACDialog<\/b>-Objekt erzeugen und sich dann über dessen BeginDialog<\/b>-Methode mit dem Onlinebanking-Server verbinden:<\/p>\nSet objDialog = objCustomer.NewDialogUI\r\nobjDialog.BeginDialog<\/pre>\nDies ruft den Dialog aus Bild 5 auf den Plan, der nach der Passphrase für die verwendete Schlüsseldatei oder, falls Sie Ihren Banking-Kontakt für das PIN\/TAN-Verfahren eingerichtet haben, die Angabe der PIN verlangt.<\/p>\n \n ![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2007_03\/HBCI-web-images\/pic005_opt.jpeg\") \n <\/div>\n \n Bild 5: Anmelden per Passphrase<\/span><\/b><\/p>\n<\/p><\/div>\nSchließlich wollen Sie den Kontostand des angegebenen Kontos ermitteln. Und hier kommen wieder die Segmente ins Spiel: Kurzgefasst werden Sie in den folgenden Schritten ein Segment erzeugen, das die Anforderung formuliert („schicke mir den Kontostand für das Konto mit den folgenden Daten“), dieses abschicken und als Antwort ein weiteres Segment mit den gewünschten Informationen erhalten.<\/p>\n Das zu sendende Segment hat die Kennung HKSAL (die ersten beiden Buchstaben stehen immer für den Absender, die folgenden charakterisieren die angeforderten\/gesendeten Informationen). Ein passendes Segment-Objekt erstellen Sie mit der NewSegment<\/b>-Methode des BACBanking<\/b>-Objekts. Das HKSAL-Segment füllen Sie wie in der folgenden Anweisung (in einer Zeile) mit den Informationen des abzufragenden Kontos:<\/p>\nobjSaldoSegment("AuftraggeberKontoverbindung1",
"Kontonummer1") =
objAccountSegment("Kontoverbindung1",
"Kontonummer1")<\/pre>\nDarauf aufbauend erzeugen Sie schließlich ein neues BACMessage<\/b>-Objekt:<\/p>\nSet objMessage =
objDialog.ExecuteSegment(objSaldoSegment)<\/pre>\nDies ist neben der eigentlichen Anmeldung die einzige Anweisung, die einen Kontakt mit dem Onlinebanking-Server aufbaut und die deshalb circa eine Sekunde Zeit für die Abarbeitung benötigt.<\/p>\n Anschließend liegt das Ergebnis in Form eines Segments im ersten Element der Transactions<\/b>-Auflistung des BACMessage<\/b>-Objekts vor. Die einzelnen Informationen dieses Segments, das übrigens die Kennung HISAL trägt, können Sie nach diesem Schema ausgeben (in einer Zeile):<\/p>\nDebug.Print objResponseSegment("SaldoGebucht1", "Wert1")<\/pre>\nDie Ausgabe im Direktfenster sieht schließlich wie in Bild 6 aus.<\/p>\n \n ![\"pic006.tif\"](\"..\/fileadmin\/_temp_\/2007_03\/HBCI-web-images\/pic006_opt.jpeg\") \n <\/div>\n \n Bild 6: Ausgabe des Kontostands (hier – manipuliert – der Wunschkontostand des Autors)<\/span><\/b><\/p>\n<\/p><\/div>\nKontoauszug abfragen<\/b><\/p>\n Wer etwa seine Finanzen mit einer eigenen Access-Datenbank verwaltet, um daraus eine Bilanz oder eine Einnahme-überschuss-Rechnung zu erstellen, sollte sich folgendes Beispiel zu Gemüte führen. Es fragt die Buchungen über einen bestimmten Zeitraum ab und gibt diese in einer Form aus, die Sie leicht in einer Tabelle speichern und damit die gebuchten Ein- und Ausgangsrechnungen abgleichen können.<\/p>\n Dies sollte man natürlich regelmäßig durchführen, da die meisten Banken diese Daten nur für einen Zeitraum von 90 Tagen zur Verfügung stellen.<\/p>\n Die in Listing 3 vorgestellte Prozedur liest die Kontobewegungen in dem per Parameter übergebenen Zeitraum ein und gibt diese im Direktfenster aus. Der Aufruf sieht etwa wie folgt aus:<\/p>\n Kontoauszug "30.4.2007", "1.5.2007"<\/pre>\nDie Routine beginnt wie diejenige zum Ermitteln des aktuellen Kontostands aus Listing 2 und stellt dabei eine Verbindung zum Onlinebanking-Server her. Dann erzeugt es ein neues BACSegment<\/b>-Objekt namens objKontoauszugSegment <\/b>und stellt einige seiner Attribute auf das betreffende Konto ein.<\/p>\n\n \n\n\n| \n Listing 3: Anmelden an den Onlinebanking-Server und Ausgabe der Kontoumsätze<\/p>\n<\/td>\n<\/tr>\n | \n\nPublic Sub Kontoauszug(Optional dateStart As Date, Optional dateEnd As Date)<\/pre>\n Dim objAccountSegment As BACSegment<\/pre>\n Dim objDialog As BACDialog<\/pre>\n Dim objMessage As BACMessage<\/pre>\n Dim objResponseSegment As BACSegment<\/pre>\n Dim objKontoauszugSegment As BACSegment<\/pre>\n Dim objTransaction As BACTransaction<\/pre>\n Dim objSwiftStatement As New BACSwiftStatement<\/pre>\n Dim objLine As BACSwiftStatementLine<\/pre>\n Set objBanking = New BACBanking<\/pre>\n Set objCustomer = objBanking.Customers(0)<\/pre>\n Set objAccountSegment = objCustomer.AccountData.Segments(0)<\/pre>\n Set objDialog = objCustomer.NewDialogUI
<\/pre>\n objDialog.BeginDialog<\/pre>\n Set objKontoauszugSegment = objBanking.NewSegment("HKKAZ", objCustomer("HBCIVersion"))
<\/pre>\n objKontoauszugSegment("AuftraggeberKontoverbindung1", "Kontonummer1") = _
objAccountSegment("Kontoverbindung1", "Kontonummer1")<\/pre>\n objKontoauszugSegment("AuftraggeberKontoverbindung1", "Laenderkennzeichen1") = _
objAccountSegment("Kontoverbindung1", "Laenderkennzeichen1")<\/pre>\n objKontoauszugSegment("AuftraggeberKontoverbindung1", "Kreditinstitutcode1") = _
objAccountSegment("Kontoverbindung1", "Kreditinstitutcode1")<\/pre>\n objKontoauszugSegment("AuftraggeberKontoverbindung1", "Unterkontomerkmal1") = _
objAccountSegment("Kontoverbindung1", "Unterkontomerkmal1")<\/pre>\n objKontoauszugSegment("AlleKonten1") = False<\/pre>\n If dateStart > 0 And dateEnd > 0 And (dateEnd >= dateStart) Then<\/pre>\n objKontoauszugSegment("DatumVon1") = dateStart<\/pre>\n objKontoauszugSegment("DatumBis1") = dateEnd<\/pre>\n End If<\/pre>\n Set objMessage = objDialog.ExecuteSegment(objKontoauszugSegment)<\/pre>\n Set objTransaction = objMessage.Transactions(0)<\/pre>\n If objTransaction.ResponseSegments.Count = 1 Then<\/pre>\n Set objResponseSegment = objTransaction.ResponseSegments(0)<\/pre>\n If Not IsEmpty(objResponseSegment) Then<\/pre>\n Set objSwiftStatement = objResponseSegment("UmsaetzeGebucht1")<\/pre>\n End If<\/pre>\n End If<\/pre>\n Debug.Print "StatementNumber: " & objSwiftStatement.StatementNumber<\/pre>\n Debug.Print "AccountIdentificationCode: " & objSwiftStatement.AccountIdentificationCode<\/pre>\n For Each objLine In objSwiftStatement.StatementLines<\/pre>\n
Debug.Print "RealValidityDate : " & objLine.RealValidityDate<\/pre>\n Debug.Print "EntryDate: " & objLine.EntryDate<\/pre>\n Debug.Print "BusinessTransactionText: " & objLine.BusinessTransactionText<\/pre>\n Debug.Print "CustomerReference: " & objLine.CustomerReference<\/pre>\n Debug.Print "InstitutionReference: " & objLine.InstitutionReference<\/pre>\n Debug.Print "Name: " & objLine.Name<\/pre>\n Debug.Print "Purpose: " & objLine.Purpose<\/pre>\n Debug.Print "Amount\/Currency: " & objLine.Amount & " " & objLine.CurrencyCode<\/pre>\n
Next objLine<\/pre>\n Debug.Print "Datum\/alter Kontostand: " & objSwiftStatement.OpeningBalanceDate _
& " " & objSwiftStatement.OpeningBalanceAmount
<\/pre>\n Debug.Print "Datum\/neuer Kontostand: " & objSwiftStatement.ClosingAvailableBalanceDate _
& "" & objSwiftStatement.ClosingAvailableBalanceAmount<\/pre>\n objDialog.EndDialog
<\/pre>\nEnd Sub<\/pre>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table><\/div>\nNachfolgend prüft die Routine, ob der Benutzer gültige Daten für den anzuzeigenden Zeitraum eingegeben hat und legt die Datumsangaben gegebenenfalls für die Attribute DatumVon1 <\/b>und DatumBis1 <\/b>fest.<\/p>\n Anschließend schickt die Routine das Segment an den Server und speichert das Ergebnis im BACMessage<\/b>-Objekt objMessage<\/b>.<\/p>\n Dieses enthält üblicherweise eine Transaktion mit einen Antwort-Segment, das im Anschluss mit der Objektvariablen objResponseSegment <\/b>referenziert wird.<\/p>\n Dieses Segment hat nun passend zum abgeschickten Segment den Typ HIKAZ, das nur Attribute aufweist: UmsaetzeGebucht <\/b>und UmsaetzeNichtGebucht<\/b>. Hier ist nur der erste interessant, der auch gleich noch eine Besonderheit aufweist: Er enthält keinen der bisher verwendeten Datentypen, sondern liefert einen Binärstrom.<\/p>\n Und wenn es nicht einige Beispiele und Dokumentationen gäbe, würden Sie vermutlich lange nach einer Möglichkeit suchen, diesen auf einfache Weise aufzusplitten und die gewünschten Informationen zu extrahieren: Dies erfolgt nämlich mit einem Objekt der Bibliothek DataDesign DDBAC S.W.I.F.T. Format Component<\/b>, die Sie hierzu übrigens noch per Verweis registrieren müssen.<\/p>\n Das Objekt hat den Typ BACSwiftStatement <\/b>und Sie können ihm ohne Probleme den Inhalt des Parameters UmsaetzeGebucht1 <\/b>des Antwort-Segments zuweisen:<\/p>\nSet objSwiftStatement =
objResponseSegment("UmsaetzeGebucht1")<\/pre>\nUnd dieses Objekt ist ein wahrer Segen, wenn es um das Parsen der einzelnen Kontoumsätze geht. Ein solches sieht nämlich in Textform etwa so wie in Bild 7 aus.<\/p>\n \n ![\"pic007.tif\"](\"..\/fileadmin\/_temp_\/2007_03\/HBCI-web-images\/pic007_opt.jpeg\") \n <\/div>\n \n Bild 7: Dieser Kontoumsatz ist für das menschliche Auge nicht besonders gut lesbar.<\/span><\/b><\/p>\n<\/p><\/div>\nDas BACSwiftStatement <\/b>aber nimmt die kompletten per HIKAZ-Segment gelieferten Kontoumsätze und stellt ein Objektmodell zur Verfügung, mit dem Sie ganz einfach auf die Informationen des aktuellen Auszugs sowie auch die einzelnen Buchungen zugreifen können.<\/p>\n Die Routine aus Listing 3 macht sich dies zu Nutze, indem sie im Direktfenster zunächst die üblicherweise im Kopf eines Kontoauszugs in Papierform zu findenden Informationen ausgibt, dann die in der Auflistung StatementLines <\/b>gespeicherten Buchungssätze durchläuft und in feine Häppchen aufgegliedert liefert und schließlich noch den alten und den neuen Saldo preisgibt.<\/p>\n Wie auch die Routine aus Listing 2 ist dies eine stark vereinfachte Variante der passenden Funktion des VB-Projekts aus der Beispielsammlung. Sie tat aber während der Erstellung dieses Beitrags klaglos ihren Dienst – sollte das bei Ihnen nicht der Fall sein, geben Sie uns bitte Feedback unter info@access-im-unternehmen.de.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Die ersten beiden Beispiele für das Auslesen von Kontoständen und -umsätzen machen Appetit auf mehr, und das sollen Sie auch bekommen: In den folgenden Ausgaben stellen wir weitere Techniken vor und zeigen, wie Sie die ausgelesenen Informationen in Tabellen speichern und Gewinn bringend weiterverwenden können.<\/p>\n Wer es bis dahin nicht aushalten kann, findet mit der Routine aus Listing 3 bereits die Grundlage, ständig seine Umsätze in passenden Datenbanktabellen zu speichern – Sie brauchen ja nur die Tabellen anzulegen und die gewonnenen Informationen in den entsprechenden Feldern zu speichern.<\/p>\n Quellen<\/p>\n [1] Onlinebanking-Komponente von DataDesign:
http:\/\/www.datadesign.de\/internet\/DDBAC.htm<\/p>\n Downloads zu diesem Beitrag<\/h3>\nEnthaltene Beispieldateien:<\/p>\n HBCI.accdb<\/p>\n HBCI.mdb<\/p>\n Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"Kontoumsätze abfragen und Überweisungen tätigen kann dank Onlinebanking und des passenden Internetangebots mittlerweile jeder. Aber können Sie auch ganz einfach die vorgefundenen Informationen in Ihre Datenbank importieren Noch nicht, aber bald: Dieser Beitrag zeigt, wie Sie Kontostände und -umsätze direkt in Ihre Datenbank einlesen. Alles, was Sie brauchen, ist eine passende Onlinebanking-Komponente.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662007,66032007,44000026,44000030,44000027],"tags":[],"class_list":["post-55000468","post","type-post","status-publish","format-standard","hentry","category-662007","category-66032007","category-Interaktiv","category-Internet","category-Loesungen"],"yoast_head":"\n Onlinebanking mit HBCI - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Onlinebanking mit HBCI\" \/>\n<meta property=\"og:description\" content=\"Kontoumsätze abfragen und Überweisungen tätigen kann dank Onlinebanking und des passenden Internetangebots mittlerweile jeder. Aber können Sie auch ganz einfach die vorgefundenen Informationen in Ihre Datenbank importieren Noch nicht, aber bald: Dieser Beitrag zeigt, wie Sie Kontostände und -umsätze direkt in Ihre Datenbank einlesen. Alles, was Sie brauchen, ist eine passende Onlinebanking-Komponente.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2021-02-11T21:16:50+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg01.met.vgwort.de\/na\/2415a9c962f342dba989bd49610e98b7\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"16\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Onlinebanking mit HBCI\",\"datePublished\":\"2021-02-11T21:16:50+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/\"},\"wordCount\":2579,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/2415a9c962f342dba989bd49610e98b7\",\"articleSection\":[\"2007\",\"3\\\/2007\",\"Interaktiv\",\"Internet\",\"L\u00f6sungen\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/\",\"name\":\"Onlinebanking mit HBCI - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/2415a9c962f342dba989bd49610e98b7\",\"datePublished\":\"2021-02-11T21:16:50+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/2415a9c962f342dba989bd49610e98b7\",\"contentUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/2415a9c962f342dba989bd49610e98b7\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Onlinebanking_mit_HBCI\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Onlinebanking mit HBCI\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Onlinebanking mit HBCI - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/","og_locale":"de_DE","og_type":"article","og_title":"Onlinebanking mit HBCI","og_description":"Kontoumsätze abfragen und Überweisungen tätigen kann dank Onlinebanking und des passenden Internetangebots mittlerweile jeder. Aber können Sie auch ganz einfach die vorgefundenen Informationen in Ihre Datenbank importieren Noch nicht, aber bald: Dieser Beitrag zeigt, wie Sie Kontostände und -umsätze direkt in Ihre Datenbank einlesen. Alles, was Sie brauchen, ist eine passende Onlinebanking-Komponente.","og_url":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/","og_site_name":"Access im Unternehmen","article_published_time":"2021-02-11T21:16:50+00:00","og_image":[{"url":"http:\/\/vg01.met.vgwort.de\/na\/2415a9c962f342dba989bd49610e98b7","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"16\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Onlinebanking mit HBCI","datePublished":"2021-02-11T21:16:50+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/"},"wordCount":2579,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/#primaryimage"},"thumbnailUrl":"http:\/\/vg01.met.vgwort.de\/na\/2415a9c962f342dba989bd49610e98b7","articleSection":["2007","3\/2007","Interaktiv","Internet","L\u00f6sungen"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/","url":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/","name":"Onlinebanking mit HBCI - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/#primaryimage"},"thumbnailUrl":"http:\/\/vg01.met.vgwort.de\/na\/2415a9c962f342dba989bd49610e98b7","datePublished":"2021-02-11T21:16:50+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/#primaryimage","url":"http:\/\/vg01.met.vgwort.de\/na\/2415a9c962f342dba989bd49610e98b7","contentUrl":"http:\/\/vg01.met.vgwort.de\/na\/2415a9c962f342dba989bd49610e98b7"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Onlinebanking_mit_HBCI\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Onlinebanking mit HBCI"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000468","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000468"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000468\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000468"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000468"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000468"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}} |
|
| |