<\/p>\n
Im ersten Teil dieser Beitragsreihe haben wir uns angesehen, wie Sie per Webservice einige Informationen Ihrer Bank einlesen und einfache Funktionen wie das Ermitteln einer IBAN aus Kontonummer und Bankleitzahl durchführen. In vorliegenden zweiten Teil gehen wir einen Schritt weiter: Sie erfahren, wie Sie den Kontostand und die Umsätze einlesen und wie Sie überweisungen durchführen können. Dies alles geschieht weiterhin per Webservice, Sie benötigen also nichts außer Ihrer Datenbankanwendung und einer Internetverbindung für diese Funktionen.<\/b><\/p>\n
Datenbank vorbereiten<\/b><\/p>\n
Bevor wir in die Onlinebanking-Materie einsteigen, bereiten wir die Beispieldatenbank auf die folgenden Anforderungen vor. Diese sollen beispielsweise die Kontakte speichern (also die eindeutigen Verbindungen zur Bank), die Kontodaten, die Umsätze und weitere Informationen.<\/p>\n
Tabellen zum Speichern der Kontakte<\/b><\/p>\n
Die erste Tabelle heißt dann auch gleich tblKontakte<\/b> und nimmt die Felder aus Bild 1 auf. Die BLZ, die Benutzerkennung und die Teilnehmernummer (Letztere sind mitunter identisch) können Sie den Unterlagen Ihres Kreditinstituts zum Onlinebanking entnehmen. Die beiden übrigen Felder finden Sie dort nicht vor:<\/p>\n
![\"Tabellen](\"..\/fileadmin\/_temp_\/2015_03\/pic_987_001.png\")
<\/p>\n
Bild 1: Tabellen zum Speichern der Onlinebanking-Kontakte<\/span><\/b><\/p>\n Ablauf beim Zugriff<\/b><\/p>\n Der grundsätzliche Ablauf beim Zugriff über den Webservice sieht so aus, dass in einer ersten Abfrage der Wert von ContactData <\/b>ermittelt wird, für den die übermittlung der Kontaktdaten (also Bankleitzahl, Benutzerkennung et cetera) erforderlich ist. Diesen Wert können Sie lokal speichern und ihn wiederverwenden oder sie lesen ihn vor jedem Zugriff erneut ein. Bei der Abfrage des Kontostandes, der Umsätze oder bei der Durchführung einer überweisung übergeben Sie dann nur noch die in ContactData <\/b>verschlüsselten Daten des Kontaktes, sodass diese nicht einfach abgegriffen und einem Konto zugeordnet werden können.<\/p>\n Das Gleiche geschieht später beim Einlesen der Konten: Hier verschlüsselt der Webservice die Kontodaten in einem Element namens AccountId<\/b>.<\/p>\n Tabelle zum Speichern der Kontodaten<\/b><\/p>\n Die Tabelle tblKonten <\/b>aus Bild 2 speichert die Informationen je Konto. Damit sind wir gleich darauf vorbereitet, dass ein Kontakt einmal mehr als nur ein Konto verwendet – also beispielsweise mehrere Girokonten. Der Sinn der meisten Felder erschließt sich aus der Abbildung. Wichtig ist das Feld AccountId<\/b>. Dieses nimmt einen eindeutigen Identifizierer auf, der für den Zugriff auf den Kontostand oder die Umsätze sowie für die Durchführung von überweisungen benötigt wird.<\/p>\n Bild 2: Tabellen zum Speichern der Kontodaten<\/span><\/b><\/p>\n Die Datensätze der Tabelle tblKonten <\/b>werden über das Feld KontaktID <\/b>mit der Tabelle tblKontakte <\/b>verknüpft, jedes Konto kann also logischerweise nur einem einzigen Kontakt zugewiesen werden.<\/p>\n Daten ermitteln<\/b><\/p>\n Nachdem wir die Tabellen zum Speichern von Kontakten und Kontodaten erstellt haben, benötigen wir noch ein Formular namens frmKonten<\/b>, von dem aus wir die Aktionen wie etwa das Einlesen der Kontodaten starten. Das Formular soll zunächst zwei Kombinationsfelder enthalten, von denen das erste der Auswahl des Kontakts dient. Das zweite soll dann alle Konten zu diesem Kontakt zur Auswahl anbieten. Außerdem fügen wir dem Formular bereits zwei Schaltflächen hinzu (s. Bild 3):<\/p>\n Bild 3: Formular zum Verwalten von Kontakten und Konten<\/span><\/b><\/p>\n Die Schaltfläche cmdNeuerKontakt <\/b>soll ein weiteres Formular namens frmKontaktdetails <\/b>öffnen, mit dem der Benutzer einen neuen Kontakt anlegen soll.<\/p>\n Das Formular frmKontaktdetails<\/b><\/p>\n Dieses Formular verwendet die Tabelle tblKontakte <\/b>als Datenherkunft und zeigt die drei Felder BLZ<\/b>, Benutzerkennung <\/b>und Teilnehmernummer <\/b>an (s. Bild 4).<\/p>\n Bild 4: Formular zum Anlegen von Kontakten<\/span><\/b><\/p>\n Die Schaltfläche cmdOK <\/b>schließt das Formular lediglich:<\/p>\n Neuen Kontakt anlegen<\/b><\/p>\n Um mit dem Formular frmKontaktdetails <\/b>einen neuen Kontakt anzulegen, soll dieses durch einen Klick auf die Schaltfläche cmdNeuerKontakt <\/b>des Formulars frmKonten <\/b>geöffnet werden. Nach dem Schließen des als modaler Dialog geöffneten Formulars aktualisiert das Formular die Liste der Kontakte im Kombinationsfeld cboKontakte<\/b>:<\/p>\n Das Kombinationsfeld cboKontakte <\/b>zeigt alle Datensätze der Tabelle tblKontakte <\/b>an, wobei wir fast alle Felder der Tabelle verwenden. Die anzuzeigende Spalte soll einen aus der Bankleitzahl, der Teilnehmernummer und der Benutzerkennung zusammengesetzten Ausdruck liefern. Daher haben wir die Datensatzherkunft für das Kombinationsfeld wie folgt formuliert:<\/p>\n Damit das Kombinationsfeld nur das zweite Feld der Datensatzherkunft anzeigt, aber die anderen bei Bedarf über das Kombinationsfeld abgefragt werden können, stellen wir die Eigenschaft Spaltenanzahl <\/b>auf 6 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf 0cm;;0cm;0cm;0cm;0cm <\/b>ein.<\/p>\n Kontakt aktualisieren<\/b><\/p>\n Damit kommen wir zu der Schaltfläche cmdKontenAktualisieren<\/b>, welche die Informationen zum aktuell im Kombinationsfeld cboKontakte <\/b>ausgewählten Kontakt ermittelt.<\/p>\n Diese löst die Prozedur aus Listing 1 aus, die lediglich den Wert des Feldes ContactData <\/b>der Tabelle tblKontakte<\/b> für den aktuell ausgewählten Kontakt leert. Danach ruft sie die Prozedur cboKontakte_AfterUpdate <\/b>auf, die außerdem beim Aktualisieren des Wertes des Kombinationsfeldes cboKontakte <\/b>ausgelöst wird.<\/p>\n Listing 1: Start der Aktualisierung eines Kontakts<\/span><\/b><\/p>\n Diese Prozedur finden Sie in Listing 2.<\/p>\n Listing 2: Prozedur, die bei der Aktualisierung des aktuellen Kontakts ausgelöst wird<\/span><\/b><\/p>\n Sie liest zunächst einige Werte aus den nicht sichtbaren Spalten des Kombinationsfeldes aus und speichert diese in Variablen wie strBLZ<\/b>, strCustomerID<\/b>, strUserID <\/b>und lngKontaktID<\/b>.<\/p>\n Nun folgt eine Prüfung, ob das Feld ContactData <\/b>für diesen Kontakt leer ist. Dies ist der Fall, wenn die Daten des Kontakts noch nie eingelesen wurden oder der Benutzer zuvor auf die Schaltfläche cmdKontaktAktualisieren <\/b>geklickt hat, die ja dieses Feld für den aktuellen Kontakt leert.<\/p>\n In diesem Fall ruft die Prozedur eine weitere Funktion namens Anmelden auf, der sie die Bankleitzahl, die Benutzerkennung und die Teilnehmernummer übergibt – mehr dazu weiter unten.<\/p>\n Danach ist jedenfalls die Tabelle tblKonten <\/b>mit den Konten zu diesem Kontakt gefüllt. Die folgenden Anweisungen filtern dann das Kombinationsfeld cboKonten <\/b>nach dem soeben ausgewählten beziehungsweise aktualisierten Kontakt, wählen den ersten Eintrag aus und rufen eine weitere Prozedur namens cboKonten_AfterUpdate <\/b>auf, die auch ausgelöst wird, wenn der Benutzer manuell den Wert des Kombinationsfeldes cboKonten <\/b>ändert.<\/p>\n Anmelden und Kontaktdaten einlesen<\/b><\/p>\n Die Funktion Anmelden <\/b>aus Listing 3 erwartet die Bankleitzahl, die Benutzernummer und die Teilnehmernummer als Parameter und soll die Kontaktdaten in Form eines XML-Dokuments zurückliefern. Dazu ist zunächst die Abfrage der PIN für diesen Kontakt erforderlich – also die Zeichenfolge, mit der Sie sich auch für Onlinebanking anmelden. Diese fragt die Funktion per InputBox <\/b>ab und speichert sie in der Variablen strPIN<\/b>. Danach folgt der Aufruf einer weiteren Funktion namens CreateContactDirectRequest<\/b>. Diese leistet den eigentlich Zugriff auf den Bankserver und liefert das gewünschte XML-Dokument als String<\/b>-Variable zurück (Erläuterung zu dieser Funktion siehe weiter unten). Beim Aufruf übergeben wir einige Werte per Parameter, andere Parameter sollen die Rückmeldungen des Webservice an die aufrufende Funktion zurückliefern. Das Ergebnis landet schließlich in der Variablen strContactData<\/b>.<\/p>\n Listing 3: Anmelden an den Bankserver und ermitteln einiger Daten zum aktuellen Kontakt<\/span><\/b><\/p>\n <\/p>\n Sollte die Funktion CreateContactDirectRequest<\/b> den Parameter strErrorType <\/b>mit einem Wert ungleich 0 <\/b>füllen, ist kein Fehler aufgetreten und die gelieferten Daten können verarbeitet werden.<\/p>\n Die Prozedur ruft dann die Prozedur KontenEinlesen <\/b>auf, welche die Kontoinformationen einliest und in der Tabelle tblKonten <\/b>speichert (siehe weiter unten). Dieser übergibt sie den Wert aus strResponse<\/b>. Wie der Inhalt dieser Variablen aussieht, schauen wir uns ebenfalls weiter unten an.<\/p>\n Dann ermittelt die Prozedur den Primärschlüsselwert des Kontakts, für den soeben die Daten neu eingelesen wurden, und speichert diesen in der Variablen lngKontaktID<\/b>.<\/p>\n Ein neues DOMDocument<\/b>-Objekt namens objXML <\/b>wird mit dem Inhalt der Antwort des Webservice-Aufrufs aus strResponse <\/b>gespeist. Uns interessiert hier das Element CreateContactDirectRequestResult<\/b>, das wir in die IXMLDOMNode<\/b>-Variable objNode <\/b>einlesen. Dieses Objekt verarbeiten wir aber auch nicht direkt in dieser Prozedur, sondern übergeben es noch an weitere Prozeduren, die jeweils einen Teil des XML-Dokuments analysieren.<\/p>\n Zuvor schreibt die Prozedur dieses aber auf jeden Fall in das Feld ContactData <\/b>des betroffenen Datensatzes in der Tabelle tblKontakte<\/b>.<\/p>\n Schließlich folgt noch der Aufruf zweier Prozeduren, die jeweils einen Satz von Daten in weitere Tabellen eintragen: SecurityFunctionsAktualisieren <\/b>und GeschaeftsvorfaelleAktualisieren<\/b>.<\/p>\n Webservice aufrufen<\/b><\/p>\n Einen wichtigen Teil der Arbeit erledigt die bereits erwähnte Funktion CreateContactDirectRequest<\/b>. Diese erwartet die Kontaktdaten sowie die PIN als Parameter und liest damit einen ganzen Rutsch Daten vom Bankserver ein.<\/p>\n Die Prozedur aus Listing 4 stellt in der Variablen strRequest <\/b>den wichtigen Teil des XML-Requests zusammen. Dieser sieht etwa wie folgt aus und enthält die Bankdaten und die PIN:<\/p>\n Listing 4: Anfrage an den Webserver senden und Antwort zurückliefern<\/span><\/b><\/p>\n Die Funktion CreateSoapRequest<\/b>, die wir bereits im ersten Teil der Beitragsreihe vorgestellt haben, ergänzt den Request um die führenden und nachfolgenden Zeilen; das Ergebnis landet wieder in strRequest<\/b>.<\/p>\n Diese Zeichenkette wird dann zusammen mit der noch leeren Objektvariablen objXMLResponse <\/b>an die Prozedur Request <\/b>übergeben, deren Beschreibung Sie ebenfalls im ersten Teil der Beitragsreihe finden. objXMLResponse <\/b>enthält anschließend das Ergebnis vom Webservice, das in der folgenden Zeile über die Eigenschaft XML <\/b>ausgelesen und in die Variable strResponse <\/b>geschrieben wird.<\/p>\n Aus dieser ermittelt die Prozedur dann gegebenenfalls vorhandene Fehlermeldungen und speichert sie in den Variablen strErrorType<\/b>, strErrorText<\/b> und strErrorCustomerText<\/b>. Nach einer Prüfung, ob diese Variablen allesamt leer sind und somit kein Fehler aufgetreten ist, gibt die Funktion den Inhalt des Elements ContactData <\/b>des Ergebnisses an die aufrufende Prozedur Anmelden <\/b>zurück.<\/p>\n Konten einlesen<\/b><\/p>\n Das so ermittelte XML-Dokument im String-Format wird von der Prozedur Anmelden <\/b>gleich an die Routine KontenEinlesen <\/b>weitergegeben (s. Listing 5).<\/p>\n Listing 5: Eintragen der Account-Daten in die Tabelle tblKonten<\/span><\/b><\/p>\n Diese Prozedur erzeugt für die Variable rst <\/b>ein neues Recordset auf Basis der Tabelle tblKonten<\/b>. Dann lädt sie den Inhalt von strXML <\/b>in ein DOMDocument<\/b>-Objekt namens objXML<\/b>. Daraus lassen sich mit der Funktion selectSingleNode <\/b>und der Angabe eines entsprechenden XPath<\/b>-Ausdrucks die Inhalts verschiedener Elemente des XML-Dokuments ermitteln. Im ersten Fall liefert das Element \/\/CustomerData\/BankCode <\/b>die Bankleitzahl, die dann in der Variablen strBankCode <\/b>landet. Auf die gleiche Art und Weise ermittelt die Prozedur die übrigen Informationen.<\/p>\n Diese sehen in der XML-Datei übrigens wie folgt aus – hier nur der relevante Ausschnitt mit dem Element CustomerData<\/b>:<\/p>\n Danach ermittelt die Prozedur per DLookup <\/b>den Primärschlüsselwert der Tabelle tblKontakte <\/b>für den aktuell zu aktualisierenden Kontakt und speichert diesen in lngContactID<\/b>. Damit löscht sie im nächsten Schritt alle Datensätze der Tabelle tblKonten<\/b>, da ja auch die Konten neu eingelesen werden sollen. Schließlich durchläuft sie alle Elemente des XML-Objekts, die den Elementnamen BAC-AccountData <\/b>tragen. Auf diese greift es über die Funktion selectNodes <\/b>des DOMDocument<\/b>-Objekts zu, die eine Auflistung liefert, welche die Prozedur in einer For Each<\/b>-Schleife durchlaufen kann. Das jeweilige XML-Element landet dabei in der Variablen objAccount<\/b>.<\/p>\n Für jedes damit referenzierte Konto des aktuellen Kontakts legt die Prozedur nun zunächst einen neuen Datensatz in dem Recordset auf Basis der Tabelle tblKonten <\/b>an.<\/p>\n Danach trägt sie die über die selectSingleNode <\/b>ermittelten Informationen aus dem XML-Dokument direkt in die entsprechenden Felder der Tabelle tblKonten <\/b>ein – also BIC, IBAN, Kontonummer, Bankleitzahl und so weiter. Schließlich speichert die Prozedur den neu erstellten und gefüllten Datensatz mit der Update<\/b>-Anweisung in der Tabelle und springt mit der Next-Anweisung zum nächsten Accounts<\/b>-Objekt.<\/p>\n Zum besseren Verständnis hier noch der Ausschnitt des XML-Dokuments mit den Daten eines Beispielkontos:<\/p>\n Damit hätten wir schon einmal die benötigten Basisdaten zusammen – also die Contact<\/b>– und die Account<\/b>-Daten. Diese sind jeweils in den Tabellen tblKontakte <\/b>und tblKonten <\/b>gelandet. Das Formular frmKonten <\/b>zeigt nun die Kontakte im Kombinationsfeld cboKontakte <\/b>an und die Konten zum aktuellen Kontakt im Kombinationsfeld cboKonten<\/b> (s. Bild 5). Dieses müssen Sie zuvor noch hinzufügen und einrichten. Es verwendet eine Abfrage namens qry-Cbo-Konten <\/b>als Datensatzherkunft, welches den folgenden SQL-Ausdruck enthält:<\/p>\n Bild 5: Kontakte und Konten lassen sich nun bereits auswählen.<\/span><\/b><\/p>\n Das Kombinationsfeld soll nur das zweite der Felder anzeigen, die übrigen aber verborgen zur Verfügung stellen. Dazu stellen Sie die Eigenschaft Spaltenanzahl <\/b>auf den Wert 6 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf den Wert 0cm;;0cm;0cm;0cm;0cm <\/b>ein.<\/p>\n Formular frmKonten erweitern<\/b><\/p>\n Damit das Formular frmKonten<\/b> auch die gewonnenen Informationen wie den Kontostand oder die Kontoumsätze anzeigen kann, müssen Sie noch weitere Steuerelemente hinzufügen.<\/p>\n Dazu fügen Sie dem Formular zunächst die Steuerelemente zur Anzeige und zur Aktualisierung des Kontostands hinzu (s. Bild 6).<\/p>\n Bild 6: Steuerelemente zur Anzeige und Aktualisierung des Kontostandes<\/span><\/b><\/p>\n Die Schaltfläche cmdKontostandEinlesen <\/b>soll die Prozedur aus Listing 6 auslösen. Die Prozedur liest zunächst den Wert des Feldes ContactData <\/b>aus der Tabelle tblKontakte<\/b> ein. Die entsprechende Zeichenkette ist länger als 255 Zeichen, sodass wir diese nicht einfach in der Datensatzherkunft für das Kombinationsfeld unterbringen können. Die folgende If…Then<\/b>-Bedingung prüft, ob der Benutzer das Kontrollkästchen chkAlleKonten <\/b>aktiviert hat. In diesem Fall soll der Kontostand aller Konten dieses Kontaktes eingelesen werden. Ist chkAlleKonten <\/b>deaktiviert, trägt die Prozedur die Nummer des einzulesenden Kontos aus dem aktuellen Eintrag des Kombinationsfeldes cboKonten <\/b>in die Variable strAccountId <\/b>ein.<\/p>\n\n
![\"Tabellen](\"..\/fileadmin\/_temp_\/2015_03\/pic_987_002.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2015_03\/pic_987_003.png\")
<\/p>\n\n
![\"Formular](\"..\/fileadmin\/_temp_\/2015_03\/pic_987_004.png\")
<\/p>\nPrivate Sub <\/span>cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdNeuerKontakt_Click()\r\n DoCmd.OpenForm \"frmKontaktdetails\", _\r\n WindowMode:=acDialog, DataMode:=acFormAdd\r\n Me!cboKontakte.Requery\r\nEnd Sub<\/span><\/pre>\nSELECT KontaktID, [BLZ] & \"|\" & [Teilnehmernummer] & \"|\" & [Benutzerkennung] AS Kontakt, \r\nBLZ, Teilnehmernummer, Benutzerkennung, ContactData FROM tblKontakte;<\/pre>\n
Private Sub <\/span>cmdKontaktAktualisieren_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE tblKontakte SET ContactData = NULL WHERE KontaktID = \" _\r\n & Me!cboKontakte, dbFailOnError\r\n cboKontakte_AfterUpdate\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboKontakte_AfterUpdate()\r\n Dim <\/span>strContactData As String<\/span>\r\n Dim <\/span>strBLZ As String<\/span>\r\n Dim <\/span>strCustomerID As String<\/span>\r\n Dim <\/span>strUserID As String<\/span>\r\n Dim <\/span>lngKontaktID As Long<\/span>\r\n strBLZ = Me!cboKontakte.Column(2)\r\n strCustomerID = Me!cboKontakte.Column(4)\r\n strUserID = Me!cboKontakte.Column(3)\r\n lngKontaktID = Me!cboKontakte\r\n If <\/span>IsNull(DLookup(\"ContactData\", \"tblKontakte\", \"KontaktID = \" & lngKontaktID)) Then<\/span>\r\n strContactData = Anmelden(strBLZ, strCustomerID, strUserID)\r\n End If<\/span>\r\n Me!cboKonten.RowSource = \"SELECT * FROM qryCboKonten WHERE KontaktID = \" & lngKontaktID\r\n Me!cboKonten = Me!cboKonten.ItemData(0)\r\n cboKonten_AfterUpdate\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>Anmelden(strBLZ As String<\/span>, strCustomerID As String<\/span>, strUserID As String<\/span>) _\r\n As String<\/span>\r\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>objNode As <\/span>MSXML2.IXMLDOMNode\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strContactData As String<\/span>\r\n Dim <\/span>lngKontaktID As Long<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n Dim <\/span>strPIN As String<\/span>\r\n Dim <\/span>strErrorType As String<\/span>\r\n Dim <\/span>strErrorText As String<\/span>\r\n Dim <\/span>strErrorCustomerText As String<\/span>\r\n strPIN = InputBox(\"PIN\")\r\n strContactData = CreateContactDirectRequest(strBLZ, strUserID, strCustomerID, strPIN, _\r\n strResponse, strErrorType, strErrorText, strErrorCustomerText)\r\n If <\/span>Len<\/span>(strErrorType) = 0 Then<\/span>\r\n KontenEinlesen strResponse\r\n lngKontaktID = DLookup(\"KontaktID\", \"tblKontakte\", _\r\n \"BLZ = ''\" & strBLZ & \"'' AND Benutzerkennung = ''\" _\r\n & strCustomerID & \"'' AND Teilnehmernummer = ''\" & strUserID & \"''\")\r\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument\r\n objXML.loadXML strResponse\r\n Set<\/span> objNode = objXML.selectSingleNode(\"\/\/CreateContactDirectRequestResult\")\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE tblKontakte SET ContactData = ''\" & strContactData _\r\n & \"'', BankInfo = ''\" _\r\n & FormatXML(objNode.XML) & \"'' WHERE KontaktID = \" & lngKontaktID, dbFailOnError\r\n SecurityFunctionsAktualisieren db, objNode, lngKontaktID\r\n GeschaeftsvorfaelleAktualisieren db, objNode\r\n Anmelden = strContactData\r\n Else<\/span>\r\n MsgBox<\/span> \"Fehler: \" & vbCrLf<\/span> & vbCrLf<\/span> & strErrorCustomerText\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>CreateContactDirectRequest(strBankCode As String<\/span>, strUserID As String<\/span>, _\r\n strCustomerID As String<\/span>, _\r\n strPIN As String<\/span>, strResponse As String<\/span>, strErrorType As String<\/span>, strErrorText As String<\/span>, _\r\n strErrorCustomerText As String<\/span>) As String<\/span>\r\n Dim <\/span>objXMLResponse As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>strRequest As String<\/span>\r\n Dim <\/span>strFunction As String<\/span>\r\n strFunction = \"CreateContactDirectRequest\"\r\n strRequest = \" <ser:CustomerData>\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" <ser:BankCode>\" & strBankCode & \"<\/ser:BankCode>\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" <ser:UserId>\" & strUserID & \"<\/ser:UserId>\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" <ser:CustomerId>\" & strCustomerID & \"<\/ser:CustomerId>\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" <\/ser:CustomerData>\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" <ser:Pin>\" & strPIN & \"<\/ser:Pin>\"\r\n strRequest = CreateSoapRequest(strRequest, strFunction)\r\n Request strRequest, objXMLResponse\r\n strResponse = objXMLResponse.XML\r\n strErrorType = GetXMLElement(strResponse, \"\/\/ErrorType\")\r\n strErrorText = GetXMLElement(strResponse, \"\/\/ErrorText\")\r\n strErrorCustomerText = GetXMLElement(strResponse, \"\/\/ErrorCustomerText\")\r\n If <\/span>Len<\/span>(strErrorType & strErrorText & strErrorCustomerText) = 0 Then<\/span>\r\n CreateContactDirectRequest = GetXMLElement(strResponse, \"\/\/ContactData\")\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n<ser:CustomerData>\r\n <ser:BankCode>70000997<\/ser:BankCode>\r\n <ser:UserId>735160<\/ser:UserId>\r\n <ser:CustomerId>735160<\/ser:CustomerId>\r\n<\/ser:CustomerData>\r\n<ser:Pin>12345<\/ser:Pin><\/pre>\n
Public Sub <\/span>KontenEinlesen(strXML As String<\/span>)\r\n Dim <\/span>objXML As <\/span>DOMDocument\r\n Dim <\/span>objAccount As <\/span>IXMLDOMNode\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngContactID As Long<\/span>\r\n Dim <\/span>strBankCode As String<\/span>\r\n Dim <\/span>strUserID As String<\/span>\r\n Dim <\/span>strCustomerID As String<\/span>\r\n Set<\/span> objXML = New<\/span> DOMDocument\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblKonten\", dbOpenDynaset)\r\n objXML.loadXML strXML\r\n strBankCode = objXML.selectSingleNode(\"\/\/CustomerData\/BankCode\").nodeTypedValue\r\n strUserID = objXML.selectSingleNode(\"\/\/CustomerData\/UserId\").nodeTypedValue\r\n strCustomerID = objXML.selectSingleNode(\"\/\/CustomerData\/CustomerId\").nodeTypedValue\r\n lngContactID = DLookup(\"KontaktID\", \"tblKontakte\", \"BLZ = ''\" & strBankCode & \"'' AND Benutzerkennung = ''\" _\r\n & strCustomerID & \"'' AND Teilnehmernummer = ''\" & strUserID & \"''\")\r\n db.Execute \"DELETE FROM tblKonten WHERE KontaktID = \" & lngContactID, dbFailOnError\r\n For Each objAccount In objXML.selectNodes(\"\/\/BACAccountData\")\r\n rst.AddNew<\/span>\r\n rst!KontaktID = lngContactID\r\n rst!AccountID = objAccount.selectSingleNode(\"AccountId\").nodeTypedValue\r\n rst!Iban = objAccount.selectSingleNode(\"Iban\").nodeTypedValue\r\n rst!Bic = objAccount.selectSingleNode(\"Bic\").nodeTypedValue\r\n rst!AccountNumber = objAccount.selectSingleNode(\"AccountNumber\").nodeTypedValue\r\n On Error Resume Next<\/span>\r\n rst!SubAccountCharacteristic = objAccount.selectSingleNode(\"SubAccountCharacteristic\").nodeTypedValue\r\n On Error GoTo<\/span> 0\r\n rst!CountryCode = objAccount.selectSingleNode(\"CountryCode\").nodeTypedValue\r\n rst!BankCode = objAccount.selectSingleNode(\"BankCode\").nodeTypedValue\r\n rst!CustomerId = objAccount.selectSingleNode(\"CustomerId\").nodeTypedValue\r\n rst!AccountType = objAccount.selectSingleNode(\"AccountType\").nodeTypedValue\r\n rst!Currency = objAccount.selectSingleNode(\"Currency\").nodeTypedValue\r\n rst!AccountHolderName = objAccount.selectSingleNode(\"AccountHolderName\").nodeTypedValue\r\n rst!AccountName = objAccount.selectSingleNode(\"AccountName\").nodeTypedValue\r\n rst.Update\r\n Next<\/span> objAccount\r\nEnd Sub<\/span><\/pre>\n<CreateContactDirectRequestResult>\r\n <CustomerData>\r\n <BankCode>70000997<\/BankCode>\r\n <UserId>735160<\/UserId>\r\n <CustomerId>735160<\/CustomerId>\r\n <\/CustomerData>\r\n <Accounts...>\r\n <SupportedSecurityFunctions...>\r\n <ContactData>GgxGb1115NitZ2XV9Rn...<\/ContactData>\r\n <SuccessText...>\r\n<\/CreateContactDirectRequestResult><\/pre>\n
<CreateContactDirectRequestResult>\r\n <CustomerData ...>\r\n <Accounts>\r\n <BACAccountData>\r\n <AccountId>5E3A4E4882B730A5...<\/AccountId>\r\n <Iban>DE43700009971000735160<\/Iban>\r\n <Bic>DDBADEMM002<\/Bic>\r\n <AccountNumber>1000735160<\/AccountNumber>\r\n <CountryCode>280<\/CountryCode>\r\n <BankCode>70000997<\/BankCode>\r\n <CustomerId>735160<\/CustomerId>\r\n <AccountType>1<\/AccountType>\r\n <Currency>EUR<\/Currency>\r\n <AccountHolderName>USER-735160<\/AccountHolderName>\r\n <AccountName>Girokonto<\/AccountName>\r\n <\/BACAccountData>\r\n <BACAccountData...>\r\n <\/Accounts>\r\n <SupportedSecurityFunctions...>\r\n <ContactData>GgxGb1115NitZ2XV9Rn...<\/ContactData>\r\n <SuccessText>Angemeldet. (0020); Informationen \r\n fehlerfrei entgegengenommen. (0020); \r\n Die Synchronisierung der Kundensystem-ID war \r\n erfolgreich. (0020)<\/SuccessText>\r\n<\/CreateContactDirectRequestResult><\/pre>\n
![\"Kontakte](\"..\/fileadmin\/_temp_\/2015_03\/pic_987_005.png\")
<\/p>\nSELECT KontoID, [AccountNumber] & \"|\" & [AccountName] AS Konto, AccountNumber, \r\nIban, Bic, AccountId, KontaktID, BankCode FROM tblKonten;<\/pre>\n
![\"Steuerelemente](\"..\/fileadmin\/_temp_\/2015_03\/pic_987_006.png\")
<\/p>\nPrivate Sub <\/span>cmdKontostandEinlesen_Click()\r\n Dim <\/span>strContactData As String<\/span>\r\n Dim <\/span>strNewContactData As String<\/span>\r\n Dim <\/span>strAccountId As String<\/span>\r\n Dim <\/span>strXML As String<\/span>\r\n Dim <\/span>strErrorCode As String<\/span>\r\n Dim <\/span>strErrorText As String<\/span>\r\n Dim <\/span>curKontostand As Currency<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>objResponse As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>objBalance As <\/span>MSXML2.IXMLDOMNode\r\n strContactData = DLookup(\"ContactData\", \"tblKontakte\", \"KontaktID = \" & Me!cboKontakte) ''wegen Längenbeschränkung\r\n If <\/span>Me!chkAlleKonten = False<\/span> Then<\/span>\r\n strAccountId = Me!cboKonten.Column(5)\r\n End If<\/span>\r\n strXML = BalanceRequest(strContactData, strNewContactData, strAccountId, strErrorCode, strErrorText)\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Len<\/span>(strNewContactData) > 0 Then<\/span>\r\n db.Execute \"UPDATE tblKontakte SET ContactData = ''\" & strNewContactData & \"'' WHERE KontaktID = \" _\r\n & Me!cboKontakte, dbFailOnError\r\n End If<\/span>\r\n If <\/span>Len<\/span>(GetXMLElement(strXML, \"\/\/SuccessText\")) > 0 Then<\/span>\r\n Set<\/span> objResponse = New<\/span> MSXML2.DOMDocument\r\n objResponse.loadXML strXML\r\n For Each objBalance In objResponse.selectNodes(\"\/\/Balance\")\r\n curKontostand = Eval(objBalance.selectSingleNode(\"CurrentValutaBalance\/Amount\").nodeTypedValue)\r\n db.Execute \"UPDATE tblKonten SET LetzterKontostand = \" & Replace<\/span>(curKontostand, \",\", \".\") _\r\n & \", LetzterKontostandDatum = \" & Isodatum(Now) & \" WHERE KontoID = \" & Me!cboKonten, dbFailOnError\r\n Next<\/span> objBalance\r\n Me!txtKontostand = DLookup(\"LetzterKontostand\", \"tblKonten\", \"KontoID = \" & Me!cboKonten)\r\n Else<\/span>\r\n MsgBox<\/span> \"Fehler:\" & vbCrLf<\/span> & strErrorCode & vbCrLf<\/span> & strErrorText\r\n End If<\/span>\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n