<\/p>\n
Eine eigene Anwendung mit Zugriff auf das Konto oder die Konten des Benutzers – das könnte in vielen Fällen eine enorme Erleichterung sein. So könnten Sie beispielsweise regelmäßig die auf dem Bankserver gespeicherten Vorgänge herunterladen und in einer passenden Tabelle speichern. Auf diese Weise haben Sie alle Daten digital verfügbar anstatt nur diejenigen der letzten 90 Tage, wie es üblicherweise der Fall ist. Die Suche nach bestimmten Informationen und der Ausdruck individueller Auswertungen ist dann ein Kinderspiel, wie der vorliegende Beitrag zeigt.<\/b><\/p>\n<\/p><\/div>\n Im ersten Teil dieser Beitragsreihe (Shortlink 468) haben Sie erfahren, wie Sie den Kontostand eines Kontos ermitteln und die Kontoumsätze einlesen. Dies sollen Sie nun ausnutzen und die gewonnenen Daten in die Tabelle einer Datenbank eintragen.<\/p>\n Nebenher sollen diese Daten natürlich auch in ansprechender Form präsentiert werden und auch eine neue Technik lernen Sie in diesem Beitrag kennen – nämlich das Absetzen einer überweisung mit Access und der DDBAC-Bibliothek.<\/p>\n Die Beispieldatenbank empfängt den Benutzer mit dem Formular aus Bild 1. Es zeigt im Wesentlichen die Vorgänge eines bestimmten Zeitraums für das aktuell im Kombinationsfeld ausgewählte Konto an.<\/p>\n Bild 1: Buchungsvorgänge im Formular<\/span><\/b><\/p>\n<\/p><\/div>\n Zusammenfassend noch einmal die Voraussetzungen für den Online-Zugriff auf Ihre Konten:<\/p>\n Bild 2: Festlegen der Homebanking-Kontakte<\/span><\/b><\/p>\n<\/p><\/div>\n Dann kann es losgehen: Mit einem Klick auf die Schaltfläche Vorgänge einlesen <\/b>starten Sie den Zugriff auf den Bankserver. Je nach dem verwendeten Zugriffsschutz erscheint eine passende Abfrage: Im Falle der Schlüsseldatei müssen Sie die Passphrase eingeben (siehe Bild 3), bei Verwendung von PIN\/TAN geben Sie den PIN in den nun erscheinenden Dialog ein (siehe Bild 4).<\/p>\n Bild 3: Passphrase bei Verwendung eines Schlüssels eingeben<\/span><\/b><\/p>\n<\/p><\/div>\n Bild 4: Das Abfragen von Konten mit PIN\/TAN verlangt nach der PIN-Nummer.<\/span><\/b><\/p>\n<\/p><\/div>\n Danach stellt die Anwendung die Verbindung her und speichert alle verfügbaren Vorgänge in einer entsprechenden Tabelle. „Alle verfügbaren“ bezieht sich in der Regel auf die Vorgänge der letzten 90 Tage, zumindest lieferte keines der beim Testen angesprochenen Kreditinstitute ältere Daten.<\/p>\n Falls bis dahin noch keine Vorgänge gespeichert wurden, legt die Anwendung den vor dem ersten eingelesenen Vorgang bestehenden Kontostand als initialen Kontostand fest. Dies ist notwendig, damit der später vorgestellte Bericht jeweils den aktuellen Kontostand anzeigen kann. Auch diese Information liefern die Bankserver zwar, jedoch kann es auch interessant sein, vom Kontostand des ersten gespeicherten Vorgangs aus dessen Entwicklung nachzuverfolgen.<\/p>\n Sind die Daten einmal vom Bankserver heruntergeladen, kann man ganz nach Bedarf alle paar Tage die aktuelleren Buchungen herunterziehen. Die Anwendung prüft jeweils, ob ein Vorgang bereits gespeichert wurde, und holt dies gegebenenfalls nach. Dabei werden immer die Vorgänge der letzten 90 Tage untersucht, Sie sollten also zumindest vor Ablauf dieser Zeitspanne die vorhandenen Daten in der Datenbank speichern, damit zwischendrin keine Daten fehlen. Sollte dies doch einmal passieren, haben Sie sicher gedruckte Exemplare des Kontoauszugs zur Verfügung, um zumindest die wichtigsten Daten in die Tabelle zu übernehmen und damit eine lückenlose Darstellung des Kontostandes über diesen Zeitraum zu gewährleisten.<\/p>\n Wollen Sie nur die Einträge eines bestimmten Zeitraums anzeigen lassen, können Sie diesen über die Schaltfläche Zeitraum ändern <\/b>und den daraufhin erscheinenden Dialog anpassen. Dieser Dialog und die darin verwendete Technik wird ausführlich im Beitrag Zeiträume komfortabel auswählen <\/b>beschrieben. Die Schaltfläche Alle anzeigen <\/b>hebt den so festgelegten Filter wieder auf.<\/p>\n Zum Ausdrucken der Informationen oder einfach für einen besseren überblick liefert die Anwendung einen Bericht mit, der die wichtigsten Vorgangsdaten ausgibt. Diesen öffnen Sie mit einem Klick auf die Schaltfläche Bericht anzeigen<\/b> (siehe Bild 5).<\/p>\n Bild 5: Ausgabe der Umsätze und des jeweils aktuellen Kontostandes per Access-Bericht<\/span><\/b><\/p>\n<\/p><\/div>\n Der Bericht liefert genau die den im Formular festgelegten Einstellungen entsprechenden Vorgänge – also nur für das angegebene Konto und den passenden Zeitraum. Neben dem Buchungszeitpunkt enthält eine jede Zeile des Berichts Informationen zu Empfänger\/Verwendungszweck (diese beiden Felder wurden der übersichtlichkeit halber zusammengefasst), zum Betrag sowie zum aktuellen Kontostand. Zusätzlich ist die Ausgabe nach Monaten gruppiert. Für jeden Monat gibt der Bericht außerdem die Differenz zwischen Anfangs- und Endbestand aus.<\/p>\n Eine weitere Funktion, die in dieser Anwendung nicht fehlen darf, dient zum Ausführen einer überweisung. Um dies zu veranlassen, klicken Sie auf die Schaltfläche Neue überweisung <\/b>und füllen die passenden Felder im nun erscheinenden Formular frmUeberweisung <\/b>aus (siehe Bild 6).<\/p>\n Bild 6: Eingabe von Umsatzdetails per Formular<\/span><\/b><\/p>\n<\/p><\/div>\n Dabei hilft das Formular tatkräftig mit: Mit dem oberen Kombinationsfeld wählen Sie das Konto des Auftraggebers aus, sofern dies nicht das im aufrufenden Formular ausgewählte ist. Im Bereich Empfänger <\/b>tragen Sie den Namen, die BLZ und Kontonummer des Adressaten ein, im unteren Bereich schließlich noch den zu überweisenden Betrag sowie den Verwendungszweck.<\/p>\n Nach dem Betätigen der Schaltfläche überweisen <\/b>müssen Sie je nach Zugriffsschutz entweder nur auf die Antwort warten (Schlüsseldatei) oder eine passende TAN eingeben (siehe Bild 7).<\/p>\n Bild 7: Bei Bedarf fragt die HBCI-Schnittstelle TANs ab.<\/span><\/b><\/p>\n<\/p><\/div>\n Sollte kein Fehler auftreten, liefert das Formular das überweisungsdatum sowie die Antwort des Bankservers als Inhalt zweier Textfelder zurück.<\/p>\n Komfortabel ist, dass der aktuell verwendete Empfänger in der Datenbank gespeichert wird und bei folgenden überweisungen über das passende Kombinationsfeld ausgewählt werden kann.<\/p>\n Technischer Hintergrund<\/b><\/p>\n Nachfolgend stellt Ihnen dieser Beitrag einige technische Finessen vor, die für den Betrieb dieser Anwendung wichtig sind.<\/p>\n Vorweg folgender Hinweis: Die Anwendung enthält nur die allernotwendigsten Fehlerbehandlungen. Wenn Sie also nicht vorschriftsgemäß damit umgehen, könnte es hier und da krachen.<\/p>\n Als Erstes betrachten Sie die Technik, die für das Speichern der Vorgänge in der Tabelle tblVorgaenge <\/b>zum Einsatz kommt. Diese Tabelle enthält Felder für alle Informationen, die DDBAC überhaupt aus einem Buchungssatz vom Bankserver herausholen kann – sicher ist sicher: Die paar Daten mehr machen den Braten nicht fett, sind aber für Vorgänge, die länger als 90 Tage zurückliegen und noch nicht gespeichert wurden, verloren.<\/p>\n Neben diesen Feldern enthält die Tabelle ein Primärschlüsselfeld namens VorgangID <\/b>und zwei Felder zum Speichern der BLZ und der Kontonummer des betroffenen Kontos (die Anwendung kann mehrere Konten verwalten!). Weiter vorne haben Sie erfahren, dass die Anwendung zwar jeweils alle Vorgänge der letzten 90 Tage einliest, aber nur diejenigen in der Datenbank speichert, die noch nicht vorhanden sind.<\/p>\n Dazu brauchen Sie ein passendes Kriterium, das die vom Bankserver gelieferten Daten leider nicht bieten: Es gibt unter den vielen Eigenschaften eines Vorgangs kein einziges eindeutiges Merkmal.<\/p>\n Da man davon ausgehen kann, dass üblicherweise niemals zwei überweisungen auf das gleiche Konto erfolgen, bei denen Datum und Zweck übereinstimmen, legen Sie für die passenden Felder einen zusammengesetzten, eindeutigen Index fest (siehe Bild 8). In der Routine, die für das Einlesen der Vorgänge zuständig ist, löst das Einfügen eines – nach diesen Kriterien – schon vorhandenen Vorgangs einen Fehler aus, der mit einer passenden Fehlerbehandlung unschädlich gemacht wird.<\/p>\n Bild 8: Die Felder der Tabelle tblVorgaenge sind mit einem zusammengesetzten, eindeutigen Schlüssel versehen.<\/span><\/b><\/p>\n<\/p><\/div>\n <\/p>\n Listing 1 liefert die Routine, die das Einlesen und Schreiben der Vorgänge in die passende Tabelle übernimmt. Diese Routine ist eine erweiterte Version der Routine aus dem ersten Teil dieser Beitragsreihe (s. Shortlink 468). Hinzugekommen sind vor allem die Deklaration und die Instanzierung passender Database<\/b>– und Recordset<\/b>-Objekte. Geändert hat sich gegenüber der vorherigen Variante nicht nur der Bereich, in dem die einzelnen Vorgänge im Direktfenster ausgegeben wurden.<\/p>\n Listing 1: Eintragen der Kontoumsätze als Buchungen in die Tabelle tblVorgaenge (Teil 1)<\/p>\n Die dazu notwendigen Anweisungen sind nun nicht mehr vorhanden, stattdessen werden die Buchungsdaten direkt in die passenden Felder der Tabelle geschrieben. Nach den bereits bekannten Zeilen zur Anmeldung und zum Zusammenstellen des an den Bankserver zu sendenden Segments prüft die Routine zunächst, ob bereits ein Vorgang für das aktuelle Konto gespeichert wurde.<\/p>\n Ist das nicht der Fall, erzeugt sie einen generischen Eintrag, der den Kontostand zum Zeitpunkt des ersten verfügbaren Vorgangs sowie sein Buchungsdatum enthält. Damit ist die Grundlage für das Berechnen des aktuellen Kontostandes zu jedem beliebigen Zeitpunkt geschaffen. Während des Speicherns der Vorgänge läuft eine Zählervariable mit, die anschließend in Form einer Meldung die Anzahl der eingelesenen Vorgänge ausgibt.<\/p>\n Gegenüber der ersten Version weist diese Variante der Routine vor allem einen weiteren Parameter auf, der den Index des zu verwendenden Kontos erwartet. Dieser hat, sofern Sie in der Systemsteuerung nur ein Konto festgelegt haben, immer den Wert 0<\/b>.<\/p>\n Vorgänge anzeigen<\/b><\/p>\n Das Formular frmVorgaenge <\/b>und das darin enthaltene Unterformular sfmVorgaenge<\/b> sind für die Anzeige der Vorgänge verantwortlich.<\/p>\n Die Auswahl des gewünschten Kontos erfolgt mit dem Kombinationsfeld cboAccounts<\/b>, das durch eine in der Ereignisprozedur Beim öffnen <\/b>des Formulars aufgerufene Routine gefüllt wird und als gebundene Spalte den Index des Kontos in der gleichen Reihenfolge wie im passenden, über die Systemsteuerung erreichbaren Dialog besitzt.<\/p>\n Das Füllen des Kombinationsfeldes übernimmt die Routine cboAccountsFuellen <\/b>(s. Listing 2). Die Routine erzeugt zunächst ein neues BACContacts<\/b>-Objekt und füllt es mit der Populate<\/b>-Methode. Anschließend durchläuft es alle enthaltenen Einträge und setzt diese zu einer Zeichenkette zusammen, die anschließend der Datensatzherkunft des Formulars zugewiesen wird. Beachten Sie, dass hierzu kein Kontakt zu einem Bankserver erforderlich ist – die Daten werden alle beim Hinzufügen der Accounts zu den Homebanking-Kontakten über die Systemsteuerung hinzugefügt und können bequem von dort ausgelesen werden.<\/p>\n Listing 2: Füllen des Account-Kombinationsfeldes<\/p>\n Einlesen der Vorgänge starten<\/b><\/p>\n Die Schaltfläche cmdVorgaengeEinlesen <\/b>ruft die soeben beschriebene Routine KontoauszugInTabelle <\/b>mit dem Index-Wert auf, der dem im Kombinationsfeld cboAccounts <\/b>ausgewählten Eintrag entspricht, und aktualisiert anschließend über die Routine AlleAnzeigen <\/b>die Anzeige des Unterformulars mit den Vorgängen. Der Rest der Funktionalität des Formulars besteht im Auswählen alternativer Zeiträume und dem Anpassen der im Unterformular angezeigten Daten, wobei zwei Variablen zum Festlegen des Zeitraums durch passende Public Property Get<\/b>-Prozeduren für den öffentlichen Zugriff deklariert werden – mehr dazu weiter unten.<\/p>\n Kontoumsätze per Bericht<\/b><\/p>\n Bevor es gleich zu den überweisungen geht, folgen noch einige Informationen zur Anzeige der Vorgänge im Bericht rptVorgaenge<\/b>. Der Bericht bezieht seine Daten aus der Abfrage qryVorgaenge <\/b>(siehe Bild 9). Hier ist wichtig, dass die beiden Felder Name_ <\/b>und Purpose <\/b>zu einem durch einen Zeilenumbruch getrennten Text zusammengefasst werden. Der Hintergrund ist, dass das Feld Name_ <\/b>(das übrigens nicht wie die korrenspondierende Vorgangs-Eigenschaft Name <\/b>heißt, weil dieser Ausdruck als Feld- oder Variablenname unter Access Probleme bereiten kann) nicht immer gefüllt ist und daher gegebenenfalls eine häßliche Lücke im Bericht hinterließe.<\/p>\n Bild 9: Die Felder der Tabelle tblVorgaenge sind mit einem zusammengesetzten eindeutigen Schlüssel versehen.<\/span><\/b><\/p>\n<\/p><\/div>\n Der Entwurf des Berichts sieht wie in Bild 10 aus und enthält Gruppierungen nach der Bankleitzahl, der Kontonummer sowie nach dem Monat des Vorgangsdatums. Die ersten beiden sind nur interessant, wenn der Bericht mehrere Konten ausgeben soll. Die Gruppierung nach dem Monat soll zeigen, wie Sie den Gewinn oder Verlust innerhalb eines bestimmten Zeitraums ausgeben können. Genau dies passiert hier: Das Textfeld mit dem Inhalt =Summe(Amount) <\/b>gibt nämlich die Summe aller Beträge innerhalb der Gruppierung aus. Rechts neben dem zum Vorgang gehörenden Umsatz befindet sich noch ein Textfeld zur Anzeige des zum Zeitpunkt des Vorgangs aktuellen Kontostands. Dazu enthält seine Eigenschaft Steuerelementinhalt <\/b>den Wert =[txtAmount] <\/b>und die Eigenschaft Laufende Summe <\/b>den Wert über alles<\/b>.<\/p>\n Bild 10: Entwurfsansicht des Berichts zur Anzeige der Vorgangsliste<\/span><\/b><\/p>\n<\/p><\/div>\n Filtern des Berichts ohne Beeinflussung des aktuellen Kontostands<\/b><\/p>\n Eine Herausforderung ist folgende: Die Daten im Bericht sollen nach dem im Formular frmVorgaenge <\/b>angegebenen Zeitraum gefiltert werden. Nun ist das nicht so einfach über die Angabe eines passenden WhereCondition<\/b>-Ausdrucks beim öffnen des Berichts möglich, weil das Textfeld zum Ermitteln des zur Buchung passenden Kontostandes dann nicht auf allen vorherigen Vorgängen, sondern nur auf den angezeigten basiert – was das Ergebnis natürlich grob verfälscht.<\/p>\n Wie aber lassen sich sonst nur bestimmte Datensätze anzeigen, aber alle für den Kontostand relevanten Vorgänge berücksichtigen Die erste Möglichkeit wäre, den Kontostand für den ersten angezeigten Vorgang per VBA zu ermitteln und zu allen angezeigten Kontoständen hinzuzuaddieren. Für dieses Beispiel wurde aber eine andere Möglichkeit gewählt. Der Bericht liest beim öffnen zunächst die Grenzen des anzuzeigenden Zeitraums aus dem Formular frmVorgaenge <\/b>in passende Variablen ein:<\/p>\n Er wird aber nicht nach diesen Werten gefiltert, sondern er soll lediglich die außerhalb des angegebenen Zeitraums befindlichen Vorgänge ausblenden. Dafür sorgen die folgenden drei Ereignisprozeduren, die jeweils beim Formatieren verschiedener Bereiche ausgelöst werden (s. Listing 3). Befindet sich der aktuelle Eintrag nicht innerhalb der angegebenen Grenzen, wird die Ausgabe des Bereichs durch Setzen des Parameters Cancel <\/b>auf den Wert True <\/b>unterbunden. Interessanterweise wirkt sich dies nicht auf die laufenden Summen aus, diese werden wie gehabt aus allen vorherigen Vorgängen ermittelt.<\/p>\n Listing 3: Bereiche ausblenden<\/p>\n überweisungen vornehmen<\/b><\/p>\n Nach diesem Praxisbeispiel lernen Sie nun noch eine weitere Funktion kennen, die Sie mit der DDBAC-Bibliothek realisieren können (es gäbe noch viele mehr, doch Lastschriften, Sammellastschriften, Sammelüberweisungen oder Zugriffe auf Depots bleiben im Rahmen dieses Beitrags außen vor). Wer mag, kann sich die notwendigen Routinen aber im VB-Projekt HBCIPAD des Entwicklerpakets von DDBAC ansehen.<\/p>\n Bei der nun vorgestellten Funktion handelt es sich um eine einfache überweisung. Die Routine aus Listing 3 tut das, was Sie früher (oder vielleicht auch noch heutzutage) mit dem klassischen überweisungsträger erledigt haben („Bitte möglichst mit Schreibmaschine ausfüllen! Bei Handausschreibung in Druckschrift und „GROSSBUCHSTABEN““). Die Routine erwartet einige Parameter zur übergabe der Kontonummer, der Bankleitzahl und des Besitzers des Zielkontos sowie des Betrags und des Verwendungszwecks. Für Letzteren gilt: Nicht mehr als 27 Zeichen pro Zeile!<\/p>\n Listing 3: Diese Routine nimmt eine einfache überweisung vor.<\/p>\n Mit alldem arbeiten weitgehend die aus den Beispielen des ersten Teils bekannten Protagonisten. Im Mittelpunkt steht zunächst ein Segment namens objUeberweisungssegment<\/b>, das nach dem Herstellen der Verbindung mit dem Bankserver zunächst mit den Auftraggeberdaten gefüllt wird – bis hierher nichts Neues. Dann aber kommt der Empfänger ins Spiel, zunächst über die Zuweisung der Kontonummer, der Bankleitzahl sowie der obligatorischen Länderkennung. Es folgen der Name des Empfängers, der Betrag, die Währung sowie ein weiterer notwendiger Wert namens Textschluessel1<\/b>. Die als Verwendungszweck angegebene Zeichenfolge nimmt die Routine auseinander und trägt die einzelnen Zeilen in je ein Element einer Auflistung ein. Das so zusammengestellte Segment wird schließlich mit der Methode ExecuteSegment <\/b>ausgeführt. Hier handelt es sich nicht wie in den ersten beiden Beispielen zur Ermittlung des Kontostandes und der Kontoumsätze um die Abfrage von Daten, sondern um die Ausführung einer Transaktion. Dennoch liefert der Bankserver Informationen zurück, und zwar um den Erfolg oder den Misserfolg der Transaktion zu melden. Diese Informationen kommen in Form eines weiteren Segments, das Elemente mit den während der Transaktion aufgelaufenen Meldungen liefert. Diese liest die letzte For Next<\/b>-Schleife der Routine aus und gibt die resultierende Zeichenkette als Funktionswert an die aufrufende Routine zurück.<\/p>\n Das Formular frmUeberweisung <\/b>hält wenig überraschungen bereit, sodass der geneigte Leser an die Quellen in der Beispieldatenbank verwiesen wird. Dort findet er etwa eine ähnliche Routine wie im Formular frmVorgaenge<\/b>, um das Kombinationsfeld mit den Auftraggebern zu füllen, oder die Funktion, die neue Empfänger einer überweisung in der Tabelle tblEmpfaenger <\/b>speichert und diese fortan im Kombinationsfeld zur Auswahl des Empfängers zur Verfügung stellt.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Wenn auch die vorgestellten Techniken und die dazu gehörende Beispielanwendung zum Einlesen von Vorgängen und zum Tätigen von überweisungen taugen, darf dies nicht darüber hinwegtäuschen, dass die Programmierung von Routinen, die über alle Unwägbarkeiten erhaben sind, viel mehr Code erfordern würde – etwa zur Plausibilitätsprüfung von Eingaben.<\/p>\n Wer mag, kann sich dazu die im VB-Beispielprojekt HBCIPAD enthaltenen Prozeduren ansehen. Die hier vorgestellten Routinen sind von den dortigen Abläufen abgeleitet und orientieren sich am optimalen Vorgang. Was den Funktionsumfang angeht, scheinen die hier abgedeckten Funktionen dem zu entsprechen, was man im Allgemeinen beim Onlinebanking erledigt – Kontostände und -umsätze abfragen und überweisungen tätigen. Alles andere geschieht wohl eher selten, sodass Sie dazu entweder auf die Internetvariante zurückgreifen oder sich die eine oder andere Funktion hinzuprogrammieren – das DDBAC-SDK liefert genügend Anregungen. Davon abgesehen ist eine solche Access-Anwendung wesentlich komfortabler als eine Web-Anwendung: Hier entscheiden Sie nämlich selbst, ob und wann die Benutzeroberfläche, an die Sie sich seit langer Zeit gewöhnt haben, ein Facelifting nötig hat. Auch die Gewissheit, auf alle Vorgänge und nicht nur auf die der letzten 90 Tage zugreifen zu können, ist sehr tröstlich. In diesem Sinne: Viel Spaß beim Onlinebanking!<\/p>\n Enthaltene Beispieldateien:<\/p>\n HBCI.mdb<\/p>\n HBCI.accdb<\/p>\n\n\n ![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/OnlinebankingMitHBCCI_II_3-web-images\/pic001_opt.jpeg\")
\n <\/div>\n\n\n
\n ![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/OnlinebankingMitHBCCI_II_3-web-images\/pic002_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/OnlinebankingMitHBCCI_II_3-web-images\/pic003_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic004.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/OnlinebankingMitHBCCI_II_3-web-images\/pic004_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/OnlinebankingMitHBCCI_II_3-web-images\/pic005_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic006.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/OnlinebankingMitHBCCI_II_3-web-images\/pic006_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic007.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/OnlinebankingMitHBCCI_II_3-web-images\/pic007_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic008.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/OnlinebankingMitHBCCI_II_3-web-images\/pic008_opt.jpeg\")
\n <\/div>\n\n\nPublic Sub KontoauszugInTabelle(intCustomer As Integer, Optional dateStart As Date, _
Optional dateEnd As Date)
\r\n ''Deklarationsteil siehe Beispieldatenbank\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(\"SELECT * FROM tblVorgaenge WHERE 1=2\", dbOpenDynaset)\r\n Set objBanking = New BACBanking\r\n Set objCustomer = objBanking.Customers(intCustomer)\r\n Set objAccountSegment = objCustomer.AccountData.Segments(0)\r\n Set objDialog = objCustomer.NewDialogUI\r\n If objDialog Is Nothing Then\r\n Exit Sub\r\n End If\r\n objDialog.BeginDialog\r\n Set objKontoauszugSegment = objBanking.NewSegment(\"HKKAZ\", objCustomer(\"HBCIVersion\"))\r\n objKontoauszugSegment(\"AuftraggeberKontoverbindung1\", \"Kontonummer1\") = _
objAccountSegment(\"Kontoverbindung1\", \"Kontonummer1\")\r\n objKontoauszugSegment(\"AuftraggeberKontoverbindung1\", \"Laenderkennzeichen1\") = _
objAccountSegment(\"Kontoverbindung1\", \"Laenderkennzeichen1\")\r\n objKontoauszugSegment(\"AuftraggeberKontoverbindung1\", \"Kreditinstitutcode1\") = _
objAccountSegment(\"Kontoverbindung1\", \"Kreditinstitutcode1\")\r\n objKontoauszugSegment(\"AuftraggeberKontoverbindung1\", \"Unterkontomerkmal1\") = _
objAccountSegment(\"Kontoverbindung1\", \"Unterkontomerkmal1\")\r\n objKontoauszugSegment(\"AlleKonten1\") = False\r\n If dateStart > 0 And dateEnd > 0 And (dateEnd >= dateStart) Then\r\n objKontoauszugSegment(\"DatumVon1\") = dateStart\r\n objKontoauszugSegment(\"DatumBis1\") = dateEnd\r\n End If\r\n Set objMessage = objDialog.ExecuteSegment(objKontoauszugSegment)\r\n Set objTransaction = objMessage.Transactions(0)\r\n If objTransaction.ResponseSegments.Count = 1 Then\r\n Set objResponseSegment = objTransaction.ResponseSegments(0)\r\n If Not IsEmpty(objResponseSegment) Then\r\n Set objSwiftStatement = objResponseSegment(\"UmsaetzeGebucht1\")\r\n End If\r\n End If\r\n If DCount(\"VorgangID\", \"tblVorgaenge\", \"BLZ = ''\" & objCustomer.BankCode _
& \"'' AND Kontonummer = ''\" & objCustomer.UserID & \"''\") = 0 Then\r\n rst.AddNew\r\n rst!BLZ = objCustomer.BankCode\r\n rst!Kontonummer = objCustomer.UserID\r\n rst!Purpose = \"Kontostand vor dem Speichern des ersten Vorgangs\"\r\n rst!Amount = objSwiftStatement.OpeningBalanceAmount\r\n rst!EntryDate = objSwiftStatement.OpeningBalanceDate\r\n rst.Update\r\n End If\r\n For Each objLine In objSwiftStatement.StatementLines\r\n With objLine\r\n On Error Resume Next\r\n rst.AddNew\r\n rst!BLZ = objCustomer.BankCode\r\n rst!Kontonummer = objCustomer.UserID\r\n rst!AccountNumber = .AccountNumber\r\n rst!Amount = .Amount\r\n rst!BankCode = .BankCode\r\n rst!EntryDate = .EntryDate\r\n rst!Name_ = .Name\r\n rst!Purpose = .Purpose\r\n ''... weitere Felder ...\r\n rst.Update\r\n If Err.Number > 0 Then\r\n Select Case Err\r\n Case 3022\r\n Case Else\r\n MsgBox \"Fehler: \" & Err.Number\r\n End Select\r\n Else\r\n i = i + 1\r\n End If\r\n On Error GoTo 0\r\n End With\r\n Next objLine\r\n If i > 0 Then\r\n MsgBox \"Es wurden \" & i & \" neue Vorgänge gespeichert.\", vbOKOnly Or vbExclamation, _
\"Neue Vorgänge\"\r\n End If\r\n objDialog.EndDialog\r\nEnd Sub<\/pre>\n<\/p><\/div>\n\nPrivate Sub cboAccountsFuellen()\r\n Dim strAccounts As String\r\n Dim objContact As BACContact\r\n Dim objContacts As BACContacts\r\n Dim strFilter As String\r\n Dim i As Integer\r\n Set objContacts = New BACContacts\r\n objContacts.Populate \"\"\r\n For Each objContact In objContacts\r\n strAccounts = strAccounts & i & \";\" & objContact.UserID _
& \";\" & objContact.BankCode & \";\" _
& objContact.Fields(\"Contact\") & \";\"\r\n i = i + 1\r\n Next objContact\r\n Me!cboAccounts.RowSourceType = \"Wertliste\"\r\n Me!cboAccounts.RowSource = strAccounts\r\n Me!cboAccounts = Me!cboAccounts.ItemData(0)\r\nEnd Sub<\/pre>\n<\/p><\/div>\n\n ![\"pic009.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/OnlinebankingMitHBCCI_II_3-web-images\/pic009_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic010.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/OnlinebankingMitHBCCI_II_3-web-images\/pic010_opt.jpeg\")
\n <\/div>\n\nPrivate Sub Report_Open(Cancel As Integer)\r\n dateStart = Forms!frmVorgaenge.Startdatum\r\n dateEnd = Forms!frmVorgaenge.Enddatum\r\nEnd Sub<\/pre>\n
\nPrivate Sub Detailbereich_Format(Cancel As Integer,
FormatCount As Integer)\r\n If Me!EntryDate < dateStart Or Me!EntryDate > dateEnd Then\r\n Cancel = True\r\n End If\r\nEnd Sub\r\nPrivate Sub Gruppenfuß1_Format(Cancel As Integer, _
FormatCount As Integer)\r\n If Me!EntryDate < dateStart Or Me!EntryDate > dateEnd Then\r\n Cancel = True\r\n End If\r\nEnd Sub\r\nPrivate Sub Gruppenkopf0_Format(Cancel As Integer, _
FormatCount As Integer)\r\n If Me!EntryDate < dateStart Or Me!EntryDate > dateEnd Then\r\n Cancel = True\r\n End If\r\nEnd Sub<\/pre>\n<\/p><\/div>\n\nPublic Function Ueberweisung(intContact As Integer, strKontonummer As String, strBLZ As String, strEmpfaengername As String, curBetrag As Currency, strVerwendungszweck As String) As String\r\n ''Deklaration siehe Beispieldatenbank\r\n Set objBanking = New BACBanking\r\n Set objCustomer = objBanking.Customers(intContact)\r\n Set objAccountSegment = objCustomer.AccountData.Segments(0)\r\n Set objDialog = objCustomer.NewDialogUI\r\n objDialog.BeginDialog\r\n Set objUeberweisungSegment = objBanking.NewSegment(\"HKUEB\", objCustomer(\"HBCIVersion\"))\r\n objUeberweisungSegment(\"AuftraggeberKontoverbindung1\", \"Kontonummer1\") = _
objAccountSegment(\"Kontoverbindung1\", \"Kontonummer1\")\r\n objUeberweisungSegment(\"AuftraggeberKontoverbindung1\", \"Laenderkennzeichen1\") = _
objAccountSegment(\"Kontoverbindung1\", \"Laenderkennzeichen1\")\r\n objUeberweisungSegment(\"AuftraggeberKontoverbindung1\", \"Kreditinstitutcode1\") = _
objAccountSegment(\"Kontoverbindung1\", \"Kreditinstitutcode1\")\r\n objUeberweisungSegment(\"AuftraggeberKontoverbindung1\", \"Unterkontomerkmal1\") = _
objAccountSegment(\"Kontoverbindung1\", \"Unterkontomerkmal1\")\r\n objUeberweisungSegment(\"AlleKonten1\") = False\r\n objUeberweisungSegment(\"EmpfaengerKontoverbindung1\", \"Kontonummer1\") = strKontonummer\r\n objUeberweisungSegment(\"EmpfaengerKontoverbindung1\", \"Laenderkennzeichen1\") = 280\r\n objUeberweisungSegment(\"EmpfaengerKontoverbindung1\", \"Kreditinstitutcode1\") = strBLZ\r\n objUeberweisungSegment(\"EmpfaengernameEins1\") = strEmpfaengername\r\n objUeberweisungSegment(\"Zahlungsbetrag1\", \"Wert1\") = curBetrag\r\n objUeberweisungSegment(\"Zahlungsbetrag1\", \"Waehrung1\") = \"EUR\"\r\n objUeberweisungSegment(\"Textschluessel1\") = 51\r\n strZeile() = Split(strVerwendungszweck, vbCrLf)\r\n j = 1\r\n For i = LBound(strZeile()) To UBound(strZeile())\r\n objUeberweisungSegment(\"Verwendungszweck1\", \"Zeile\" & j) = strZeile(i)\r\n j = j + 1\r\n Next i\r\n Set objMessage = objDialog.ExecuteSegment(objUeberweisungSegment)\r\n Set objTransaction = objMessage.Transactions(0)\r\n Set objErgebnis = objTransaction.Acknowledgement\r\n For i = 1 To 100\r\n If Len(objErgebnis(i, 3)) > 0 Then\r\n strErgebnis = strErgebnis & vbCrLf & objErgebnis(i, 3)\r\n End If\r\n Next i\r\n Ueberweisung = strErgebnis\r\n objDialog.EndDialog\r\nEnd Function<\/pre>\n<\/p><\/div>\nDownloads zu diesem Beitrag<\/h3>\n