<\/p>\n
In den ersten beiden Teilen dieser Beitragsreihe haben wir uns die Funktionen für das Einlesen von Informationen und das Konvertieren von Kontonummern in IBAN sowie das Ermitteln des Kontostandes angesehen. Im abschließenden, letzten Teil wird es spannend: Wir fügen Funktionen hinzu, mit denen Sie die Kontoumsätze abrufen und überweisungen tätigen können. Damit ist auch der aktuelle Leistungsumfang des hier abgebildeten Webservice der Firma B+S Banksysteme AG beschrieben. Die Nutzung ist weiterhin für private Zwecke kostenlos!<\/b><\/p>\nUmsätze abrufen<\/h2>\n
Diese Funktion ist natürlich etwas umfangreicher als das Einlesen des Kontostandes, da wir ja nicht nur einen einzelnen Wert einlesen, sondern gleich eine ganze Reihe von Werten. Dazu benötigen wir natürlich eine eigene Tabelle, die wir tblUmsaetze <\/b>nennen, und welche im Entwurf wie in Bild 1 aussieht.<\/p>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2015_04\/pic_994_001.png\")
<\/p>\n
Bild 1: Tabelle zum Speichern der Umsätze<\/span><\/b><\/p>\n Auf die einzelnen Felder gehen wir gleich bei der Beschreibung des Zugriffs auf den Webservice ein. Wichtig ist an dieser Stelle, dass die Tabelle nicht mit der Tabelle tblKonten <\/b>verknüpft ist. Stattdessen enthält sie die beiden Felder BankCode <\/b>und Accountnumber<\/b>, welche die Bank und das Konto, über das die Transaktionen ausgeführt wurden, eindeutig identifiziert.<\/p>\n Banken fusionieren ja heutzutage gern mal oder ändern ihre Bankleitzahl aus anderen Gründen. Bei der hier durchgeführten Methode behalten Sie auf jeden Fall die Originalbankdaten bei. Es steht Ihnen natürlich frei, die Datensätze der Tabelle tblUmsaetze <\/b>über ein Fremdschlüsselfeld mit der Tabelle tblKonten <\/b>zu verknüpfen.<\/p>\n Weiterhin ist hier zu beachten, dass wir für das Feld HashValue <\/b>einen eindeutigen Index definiert haben. Damit stellen wir sicher, dass ein bereits eingelesener Umsatz nicht nochmals eingelesen wird.<\/p>\n Nun benötigen wir noch ein Element in der Benutzeroberfläche, um die Umsätze abzurufen und auch anzuzeigen. Dazu erweitern wir einfach das Formular frmKonten<\/b>, und zwar um eine Schaltfläche namens cmdUmsaetzeEinlesen<\/b>, zwei Textfelder namens txtStartdatum <\/b>und txtEnddatum<\/b>, mit denen Sie den Zeitraum für die einzulesenden Umsätze einstellen können, sowie ein Unterformular zur Anzeige der Umsätze (s. Bild 2).<\/p>\n Bild 2: Anpassungen des Formulars frmKonten<\/span><\/b><\/p>\n Das Unterformular verwendet die Tabelle tblUmsaetze<\/b> als Datenherkunft und zeigt davon die Felder Amount<\/b>, Valuta<\/b>, Purpose<\/b>, RecBankID<\/b>, RecAccountNr <\/b>und RecName <\/b>an.<\/p>\n Das Abrufen der Umsätze startet der Benutzer mit einem Klick auf die Schaltfläche cmdUmsaetzeEinlesen<\/b>. Diese Prozedur sieht wie in Listing 1 aus und prüft zunächst, ob der Benutzer für das Kombinationsfeld cboKontakte <\/b>überhaupt einen Wert ausgewählt hat.<\/p>\n Listing 1: Start des Einlesevorgangs der Umsätze<\/span><\/b><\/p>\n Anderenfalls erscheint eine entsprechende Meldung und die Prozedur wird beendet.<\/p>\n Danach ermittelt die Prozedur den Wert des Feldes ContactData <\/b>für den aktuellen Kontakt. Während die folgenden Werte direkt aus den weiteren Spalten des Kombinationsfeldes cboKontakte <\/b>ausgelesen werden, entnehmen wir diesen Wert per DLookup<\/b>-Funktion aus der Tabelle tblKontakte<\/b>. Der Grund ist einfach: Jede Spalte des Kombinationsfeldes kann nur 255 Zeichen aufnehmen, ContactData <\/b>ist aber länger.<\/p>\n Danach liest die Prozedur die Werte der Felder AccountID <\/b>und Accountnumber der Tabelle tblKontakte <\/b>ein, die wir aber bereits in den folgenden Spalten des aktuellen Eintrags des Kombinationsfeldes cboKonten <\/b>gespeichert haben.<\/p>\n Dann setzt die Prozedur einen Aufruf der Funktion StatementRequest <\/b>ab, welche ein XML-Dokument mit den angefragten Umsatz-Informationen zurückliefert. Die Funktion erwartet die Werte der Felder ContactData <\/b>und AccountID<\/b>, zwei Parameter, mit denen eventuelle Fehlerinformationen zurückgeliefert werden können, sowie das Start- und das Enddatum, wenn nur die Umsätze eines begrenzten Zeitraums eingelesen werden sollen.<\/p>\n Das zurückgelieferte XML-Dokument wertet die Prozedur dann gleich aus – zunächst, indem sie prüft, ob das Ergebnisdokument ein Element namens SuccessText <\/b>enthält. Ist dies der Fall, war der Aufruf des Webservice erfolgreich und wir können uns an die Auswertung begeben. Das bedeutet in diesem Fall, dass wir den Inhalt des XML-Dokuments zusammen mit dem Wert von strAccountnumber <\/b>an die Routine UmsaetzeVerarbeiten <\/b>übergeben. Danach brauchen wir nur noch das Unterformular sfmUmsaetze <\/b>zu aktualisieren, damit die neu eingelesenen Umsatzpositionen dort angezeigt werden.<\/p>\n Die Funktion StatementRequest<\/b> aus Listing 2 erwartet die bereits erwähnten Parameter. Sie fragt als Erstes per InputBox <\/b>den PIN für den Zugriff auf das Konto ab und speichert diesen in der Variablen strPIN<\/b>.<\/p>\n Listing 2: Zusammensetzen des Requests und Zurückgeben des Ergebnisses<\/span><\/b><\/p>\n Dann beginnt sie, den Request zusammenzusetzen. Dieses sieht anschließend beispielsweise wie folgt aus:<\/p>\n Wenn der Benutzer ein Start- oder Enddatum angegeben hat, wird die Anfrage noch entsprechend erweitert:<\/p>\n Danach ruft die Funktion die Routine Request <\/b>auf und übergibt ihr den Request als ersten und ein leeres DOMDocument<\/b>-Objekt als zweiten Parameter. Letzterer soll die Antwort des Webservice auf den Request aufnehmen.<\/p>\n Das Ergebnis dieses Aufrufs (die Routine Request <\/b>haben wir bereits im ersten Teil der Beitragsreihe beschrieben) speichert die Prozedur dann in der String-Variablen strResponse<\/b>. Die im Modul mdlWebservice <\/b>befindliche Funktion GetXMLElement <\/b>ermittelt aus dieser Antwort den Inhalt der Elemente Result\/Error\/ErrorCode <\/b>und Result\/Error\/ErrorText <\/b>und speichert diese, soweit gefüllt, in den beiden Variablen strErrorCode <\/b>und strErrorText<\/b>. Ein Response<\/b>-Dokument mit diesen Fehlerinformationen sieht beispielsweise wie in Listing 3 aus. Sie können diesen Fehler beispielsweise hervorrufen, indem Sie im Testsystem als PIN einen Wert eingeben, der mit 0 <\/b>beginnt (also etwa 01111<\/b>). Die Prozedur gibt neben eventuell vorhandenen Fehlerinformationen das zurückgelieferte XML-Dokument als Funktionswert an die aufrufende Prozedur zurück.<\/p>\n Listing 3: Rückgabe für eine fehlerhafte Anfrage<\/span><\/b><\/p>\n Die Prozedur UmsaetzeVerarbeiten <\/b>aus Listing 4 erwartet das XML-Dokument, das die Funktion StatementRequest <\/b>geliefert hat, sowie die Kontonummer als Parameter.<\/p>\n <\/p>\n Listing 4: Auslesen und speichern des Inhalts des XML-Dokuments mit den Umsätzen<\/span><\/b><\/p>\n Sie erstellt zunächst ein neues DOMDocument<\/b>-Objekt und füllt dieses mit dem Inhalt aus strXML<\/b>, der etwa wie in Listing 5 aussieht. In diesem Dokument interessieren uns die einzelnen Elemente unterhalb des Elements StatementLines<\/b>. Jedes Element namens BACStatementLine <\/b>enthält nämlich genau einen Buchungssatz. Die einzelnen dort enthaltenen Elemente liefern jeweils eine Information zur Buchung, zum Beispiel den Betrag, die Währung oder das Buchungsdatum. Außerdem liefert das Dokument im Element CustomerData <\/b>(hier zur Platzersparnis weggelassen) noch die Informationen zum Bankkonto.<\/p>\n Listing 5: XML-Dokument mit den Umsatzdaten, hier nur für eine Umsatzposition<\/span><\/b><\/p>\n Die Prozedur liest per selectSingleNode <\/b>beispielsweise das Element CustomerData\/BankCode <\/b>ein und speichert es in der Variablen strBankCode<\/b>. Gleiches geschieht mit dem Element CustomerData\/CustomerID<\/b>.<\/p>\n Danach durchläuft die Prozedur in einer For Each<\/b>-Schleife alle BACStatementLine<\/b>-Elemente. Für jedes Element legt sie im zuvor erstellten Recordset rst <\/b>je einen neuen Datensatz an und trägt die Inhalte der einzelnen Unterelemente des BACStatementLine<\/b>-Elements ein.<\/p>\n Der Einfachheit halber haben wir daher die Tabellenfelder nach den Elementnamen in der XML-Datei benannt.<\/p>\n Hier gibt es ein paar Besonderheiten. So kommen die Datumsangaben in den XML-Elementen beispielsweise in einem Format, das etwa so aussieht:<\/p>\n Dies können wir leider nicht direkt in einem Datumsfeld einer Access-Datenbank speichern, sondern müssen es zuvor noch einer speziellen Behandlung unterziehen.<\/p>\n Daher haben wir noch eine kleine Funktion namens Datum-AusXML <\/b>hinzugefügt, die wie folgt aussieht:<\/p>\n Es parst schlicht und einfach die einzelnen Datumsinformationen und fügt diese zu einem Access-kompatiblen Wert zusammen.<\/p>\n Interessant ist noch die Fehlerabfrage gegen Ende der Prozedur: Bevor wir den neuen Datensatz dort nämlich mit der Update<\/b>-Methode speichern, deaktiviert die Prozedur die eingebaute Fehlerbehandlung.<\/p>\n Es kann nämlich geschehen, dass bereits vorhandene Umsätze nochmals eingelesen werden, was zu einem Fehler wegen eines doppelten Wertes im Feld HashValue <\/b>führen würde, welches als eindeutiger Index festgelegt ist. Bereits vorhandene Umsätze werden in diesem Fall schlicht nicht nochmals angelegt.<\/p>\n Das Ergebnis sehen Sie in der Datenblattansicht der Tabelle tblUmsaetze <\/b>(s. Bild 3).<\/p>\n Bild 3: Beispiele für eingelesene Umsätze<\/span><\/b><\/p>\n Damit das Unterformular sfmUmsaetze <\/b>im Hauptformular frmKonten <\/b>auch wie in Bild 4 die zum aktuell angezeigten Konto liefert, müssen wir noch zwei kleine änderungen vornehmen. Als Erstes legen Sie zwei Textfelder im Hauptformular an, welche die für die Verknüpfung herangezogenen Spalten aus den entsprechenden Spalten der beiden Kombinationsfelder ermitteln. Das erste Textfeld heißt txtBankCode <\/b>und verwendet den folgenden Ausdruck als Steuerelementinhalt:<\/p>\n Bild 4: Ein Beispielumsatz im Unterformular<\/span><\/b><\/p>\n Das zweite Textfeld namens txtAccountnumber <\/b>wiederum greift seinen Wert aus dem Kombinationsfeld cboKonten <\/b>ab:<\/p>\n Die Eigenschaft Sichtbar <\/b>der beiden Textfelder können Sie nach einem Text, ob beide die gewünschten Werte anzeigen, auf den Wert Nein <\/b>einstellen und die Textfelder somit ausblenden.<\/p>\n Nun legen Sie noch die Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements fest. Dabei verknüpfen wir Haupt- und Unterformular jeweils nach zwei Feldern, und zwar (s. Bild 5):<\/p>\n Bild 5: Verknüpfung zwischen Haupt- und Unterformular<\/span><\/b><\/p>\n Erst danach können Sie mit den Kombinationsfeldern Kontakte und Konten auswählen und erhalten dann im Unterformular die bereits eingelesenen Umsätze. Schließlich benötigen wir dann noch eine Anweisung, die nach dem Aktualisieren des Kombinationsfeldes cboKonten <\/b>ausgelöst wird und den zuletzt eingelesenen Umsatz aus der Tabelle tblKonten <\/b>im Textfeld txtKontostand <\/b>anzeigt:<\/p>\n Fehlt noch der letzte der Geschäftsvorfälle, den der Webservice abdeckt – die Durchführung einer überweisung.<\/p>\n Dazu erstellen wir ein neues Formular namens frmUeberweisung<\/b>, das im Entwurf wie in Bild 6 aussieht und nicht an eine Datenherkunft gebunden ist.<\/p>\n Bild 6: Entwurf des Formulars zum Durchführen von überweisungen<\/span><\/b><\/p>\n Die oberen beiden Kombinationsfelder sind genauso ausgestattet wie die gleichnamigen Kombinationsfelder im Formular frmKonten<\/b>.<\/p>\n Die Textfelder darunter sind einfache, ungebundene Textfelder namens txtEmpfaenger<\/b>, txtBIC<\/b>, txtIBAN<\/b>, txtBLZ<\/b>, txtKontonummer<\/b>, txtLaendercode<\/b>, txtBetrag <\/b>und txtVerwendungszweck<\/b>. Das untere Kombinationsfeld cboSicherheitsverfahren <\/b>verwendet die Tabelle tblSicherheitsverfahren <\/b>als Datensatzherkunft und zeigt davon das dritte Feld namens SecurityFunction <\/b>an.<\/p>\n Damit dieses Kombinationsfeld immer die für den aktuell im Kombinationsfeld cboKontakte <\/b>ausgewählten Kontakt verfügbaren Sicherheitsverfahren zur Auswahl anbietet, haben wir die Prozedur cboKontakte_AfterUpdate<\/b>, die sonst genau mit der entsprechenden Prozedur im Formular frmKonten <\/b>übereinstimmt, um zwei Zeilen erweitert (s. Listing 6). Die erste aktualisiert die Datensatzherkunft des Kombinationsfeldes so, dass dieses nur Sicherheitsverfahren zum gewählten Kontakt anzeigt, die zweite wählt den ersten Eintrag der Datensatzherkunft aus.<\/p>\n Listing 6: Anpassen der Sicherheitsverfahren nach Auswahl eines Kontaktes<\/span><\/b><\/p>\n Sie können nach wie vor die Testkonten der B+S Banksysteme AG <\/b>verwenden. Dazu legen Sie Kontakte für die folgenden Konten an:<\/p>\n Sie dürfen diese Testkonten unter folgenden Bedingungen zu Testzwecken nutzen:<\/p>\n Als PIN verwenden Sie hier immer die 12345<\/b>, als TAN den Wert 123456<\/b>.<\/p>\n Die Beispieldatenbank enthält ja in den Tabellen tblKontakte <\/b>und tblKonten <\/b>bereits die Testkonten mit diesen Daten.<\/p>\n Damit Sie nun ganz einfach Testüberweisungen durchführen können, habe ich dem Formular eine Schaltfläche hinzugefügt, welche die Textfelder mit Testdaten füllt. Diese Prozedur sieht so aus:<\/p>\n Nach dem Betätigen dieser Schaltfläche sieht das Formular wie in Bild 7 aus und ist bereit, die überweisung durch einen Klick auf die Schaltfläche cmdUeberweisungen <\/b>auszuführen.<\/p>\n Bild 7: Formular nach der Eingabe von Testdaten<\/span><\/b><\/p>\n Dies löst die Prozedur aus Listing 7 aus. Die Prozedur ermittelt wieder den Wert des Feldes ContactData <\/b>aus der Tabelle tblKontakte<\/b>, da dieser wegen seiner Länge nicht direkt im Kombinationsfeld hinterlegt werden kann. Die AccountID hingegen liegt in der sechsten Spalte des Kombinationsfeldes und landet über eine entsprechende Abfrage des Ausdrucks Me!cboKontakte.Column(5) <\/b>in der Variablen strAccountId<\/b>.<\/p>\n Listing 7: Anstoßen der überweisung per Schaltfläche<\/span><\/b><\/p>\n Damit hat die Prozedur alle Informationen zusammen, um die Funktion MoneyTransferRequest <\/b>aufzurufen. Diese erwartet neben den beiden ermittelten Werten noch die Inhalte der Steuerelemente des Formulars frmUeberweisung<\/b> als Parameter.<\/p>\n Das Ergebnis der Funktion landet dann in der Variablen strXML<\/b>, aus dem die Prozedur den Wert des Elements SuccessText <\/b>ausliest.<\/p>\n Die Funktion MoneyTransferRequest <\/b>erwartet die für die überweisung benötigten Informationen als Parameter, einige zur Sicherheit sogar in redundanter Form: So können Sie dieser nicht nur Bankleitzahl und Kontonummer, sondern alternativ auch BIC und IBAN übergeben.<\/p>\n Die Funktion fragt zunächst wieder den PIN ab und beginnt, die Anfrage in strRequest <\/b>zusammenzustellen. Dabei prüft die Funktion bei einigen Daten wie der Bankleitzahl, der Kontonummer, der IBAN, der BIC und dem Ländercode des Empfängers, ob die entsprechenden Parameter überhaupt gefüllt sind, und legt nur dann die passenden Elemente unter dem Element RecAccount <\/b>(Empfängerkonto) im XML-Dokument an (s. Listing 8).<\/p>\nFormularelemente zum Abruf der Umsätze<\/h2>\n
![\"Anpassungen](\"..\/fileadmin\/_temp_\/2015_04\/pic_994_002.png\")
<\/p>\nUmsätze abrufen<\/h2>\n
Private Sub <\/span>cmdUmsaetzeEinlesen_Click()\r\n Dim <\/span>strContactData As String<\/span>\r\n Dim <\/span>strAccountId As String<\/span>\r\n Dim <\/span>strAccountnumber As String<\/span>\r\n Dim <\/span>strErrorCode As String<\/span>\r\n Dim <\/span>strErrorText As String<\/span>\r\n Dim <\/span>strXML As String<\/span>\r\n If <\/span>IsNull(Me!cboKontakte) Then<\/span>\r\n MsgBox<\/span> \"Wählen Sie einen Kontakt aus.\"\r\n Me!cboKontakte.SetFocus\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n strContactData = DLookup(\"ContactData\", \"tblKontakte\", \"KontaktID = \" _\r\n & Me!cboKontakte) ''wegen Längenbeschränkung auf 255 Zeichen\r\n strAccountId = Me!cboKonten.Column(5)\r\n strAccountnumber = Me!cboKonten.Column(2)\r\n strXML = StatementRequest(strContactData, strAccountId, strErrorCode, strErrorText, Nz(Me!txtStartdatum, 0), _\r\n Nz(Me!txtEnddatum, 0))\r\n If <\/span>Len<\/span>(GetXMLElement(strXML, \"\/\/SuccessText\")) > 0 Then<\/span>\r\n UmsaetzeVerarbeiten strXML, strAccountnumber\r\n Me!sfmUmsaetze.Form.Requery\r\n Else<\/span>\r\n MsgBox<\/span> \"Fehler:\" & vbCrLf<\/span> & strErrorCode & vbCrLf<\/span> & strErrorText\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nUmsätze vom Webservice holen<\/h2>\n
Public Function <\/span>StatementRequest(strContactData As String<\/span>, strAccountId As String<\/span>, strErrorCode As String<\/span>, _\r\n strErrorText As String<\/span>, Optional<\/span> datStart As Date<\/span>, Optional<\/span> datEnde As Date<\/span>) As String<\/span>\r\n Dim <\/span>objXMLResponse As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>strRequest As String<\/span>, strResponse As String<\/span>, strPIN As String<\/span>\r\n Dim <\/span>strStartdate As String<\/span>, strEnddate As String<\/span>, strFunction As String<\/span>\r\n strFunction = \"StatementRequest\"\r\n strPIN = InputBox(\"PIN:\")\r\n strRequest = \" <ser:StatementRequestData>\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" <ser:ContactData>\" & strContactData & \"<\/ser:ContactData>\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" <ser:AccountId>\" & strAccountId & \"<\/ser:AccountId>\" & vbCrLf<\/span>\r\n If <\/span>datStart > 0 Then<\/span>\r\n strStartdate = Format(datStart, \"yyyy-mm-dd\")\r\n strRequest = strRequest & \" <ser:StartDate>\" & strStartdate & \"<\/ser:StartDate>\" & vbCrLf<\/span>\r\n End If<\/span>\r\n If <\/span>datEnde > 0 Then<\/span>\r\n strEnddate = Format(datEnde, \"yyyy-mm-dd\")\r\n strRequest = strRequest & \" <ser:EndDate>\" & strEnddate & \"<\/ser:EndDate>\" & vbCrLf<\/span>\r\n End If<\/span>\r\n strRequest = strRequest & \" <\/ser:StatementRequestData>\" & 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 strErrorCode = GetXMLElement(strResponse, \"\/\/\" & strFunction & \"Result\/Error\/ErrorCode\")\r\n strErrorText = GetXMLElement(strResponse, \"\/\/\" & strFunction & \"Result\/Error\/ErrorText\")\r\n StatementRequest = FormatXML(objXMLResponse.XML)\r\nEnd Function<\/span><\/pre>\n<soapenv:Envelope xmlns:soapenv=\"http:\/\/schemas.xmlsoap.org\/soap\/envelope\/\" xmlns:ser=\"http:\/\/service.ddbac.de\/\">\r\n <soapenv:Body>\r\n <ser:StatementRequest>\r\n <ser:StatementRequestData>\r\n <ser:ContactData>GgxGb1115NitZ...\r\n <\/ser:ContactData>\r\n <ser:AccountId>5E3A4E4882B730A...\r\n <\/ser:AccountId>\r\n <\/ser:StatementRequestData>\r\n <ser:Pin>12345<\/ser:Pin>\r\n <\/ser:StatementRequest>\r\n <\/soapenv:Body>\r\n<\/soapenv:Envelope><\/pre>\n
...\r\n<ser:StartDate>2015-01-01<\/ser:StartDate>\r\n<ser:EndDate>2015-05-31<\/ser:EndDate>\r\n...<\/pre>\n
<soap:Envelope ...>\r\n <soap:Body>\r\n <StatementRequestResponse xmlns=\"http:\/\/service.ddbac.de\/\">\r\n <StatementRequestResult>\r\n <Error>\r\n <ErrorType>BUSINESS<\/ErrorType>\r\n <ErrorCode>9800<\/ErrorCode>\r\n <ErrorText>Der Dialog wurde abgebrochen. Bitte melden Sie sich erneut an. (9800);...<\/ErrorText>\r\n <ErrorCustomerText>Der Dialog wurde abgebrochen. Bitte melden Sie sich erneut an. (9800); \r\n Ungültige Dialogkennung. Bitte melden Sie sich erneut an. (9010)...<\/ErrorCustomerText>\r\n <NoFurtherRequestsPreferred>false<\/NoFurtherRequestsPreferred>\r\n <\/Error>\r\n <\/StatementRequestResult>\r\n <\/StatementRequestResponse>\r\n <\/soap:Body>\r\n<\/soap:Envelope><\/pre>\n
Umsätze verarbeiten<\/h2>\n
Public Sub <\/span>UmsaetzeVerarbeiten(strXML As String<\/span>, strAccountnumber As String<\/span>)\r\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>objBACStatementLine As <\/span>MSXML2.IXMLDOMNode\r\n Dim <\/span>strBankCode As String<\/span>\r\n Dim <\/span>strCustomerID As String<\/span>\r\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument\r\n objXML.loadXML strXML\r\n strBankCode = objXML.selectSingleNode(\"\/\/CustomerData\/BankCode\").nodeTypedValue\r\n strCustomerID = objXML.selectSingleNode(\"\/\/CustomerData\/CustomerId\").nodeTypedValue\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblUmsaetze\", dbOpenDynaset)\r\n For Each objBACStatementLine In objXML.selectNodes(\"\/\/BACStatementLine\")\r\n rst.AddNew<\/span>\r\n rst!BankCode = strBankCode\r\n rst!AccountNumber = strAccountnumber\r\n rst!BusinessTransactionCode = objBACStatementLine.selectSingleNode(\"BusinessTransactionCode\").nodeTypedValue\r\n rst!HashValue = objBACStatementLine.selectSingleNode(\"HashValue\").nodeTypedValue\r\n rst!Amount = Eval(objBACStatementLine.selectSingleNode(\"Amount\").nodeTypedValue)\r\n rst!StatementNr = objBACStatementLine.selectSingleNode(\"StatementNr\").nodeTypedValue\r\n rst!BookingDate = DatumAusXML(objBACStatementLine.selectSingleNode(\"BookingDate\").nodeTypedValue)\r\n rst!Currency = objBACStatementLine.selectSingleNode(\"Currency\").nodeTypedValue\r\n rst!Valuta = DatumAusXML(objBACStatementLine.selectSingleNode(\"Valuta\").nodeTypedValue)\r\n rst!BookingRef = objBACStatementLine.selectSingleNode(\"BookingRef\").nodeTypedValue\r\n On Error Resume Next<\/span>\r\n rst!Purpose = objBACStatementLine.selectSingleNode(\"Purpose\").nodeTypedValue\r\n rst!RecBankId = objBACStatementLine.selectSingleNode(\"RecBankId\").nodeTypedValue\r\n rst!RecAccountNr = objBACStatementLine.selectSingleNode(\"RecAccountNr\").nodeTypedValue\r\n On Error GoTo<\/span> 0\r\n rst!RecName = objBACStatementLine.selectSingleNode(\"RecName\").nodeTypedValue\r\n On Error Resume Next<\/span>\r\n rst.Update\r\n Select Case Err.Number\r\n Case <\/span>0, 3022\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler \" & Err.Number & \", \" & Err.Description\r\n End Select<\/span>\r\n On Error GoTo<\/span> 0\r\n Next<\/span> objBACStatementLine\r\nEnd Sub<\/span><\/pre>\n<soap:Envelope ...\">\r\n <soap:Body>\r\n <StatementRequestResponse xmlns=\"http:\/\/service.ddbac.de\/\">\r\n <StatementRequestResult>\r\n <CustomerData>...<\/CustomerData>\r\n <ContactData>GgxGb1115Nit...<\/ContactData>\r\n <AccountId>C29990EF1F05175C1E952DF2005498CC79829427<\/AccountId>\r\n <StatementLines>\r\n <BACStatementLine>\r\n <BusinessTransactionCode>51<\/BusinessTransactionCode>\r\n <HashValue>62F619DF4221AD05958F6AF06957438D4E6816C8<\/HashValue>\r\n <Amount>1<\/Amount>\r\n <StatementNr>54<\/StatementNr>\r\n <BookingDate>2015-06-26T00:00:00<\/BookingDate>\r\n <Currency>EUR<\/Currency>\r\n <Valuta>2015-06-26T00:00:00<\/Valuta>\r\n <BookingRef>NONREF<\/BookingRef>\r\n <BookingText>überweisungseingang<\/BookingText>\r\n <Purpose>Testlastschrift<\/Purpose>\r\n <RecBankId>DDBADEMM002<\/RecBankId>\r\n <RecAccountNr>DE95700009972000735160<\/RecAccountNr>\r\n <RecName>USER 735160<\/RecName>\r\n <\/BACStatementLine>\r\n <\/StatementLines>\r\n <SuccessText>Die Nachricht wurde entgegengenommen. (0010); Der Auftrag wurde ausgeführt. (0020)\r\n <\/SuccessText>\r\n <\/StatementRequestResult>\r\n <\/StatementRequestResponse>\r\n <\/soap:Body>\r\n<\/soap:Envelope><\/pre>\n
2015-06-26T00:00:00<\/pre>\n
Public Function <\/span>DatumAusXML(strDatum As String<\/span>) As Date<\/span>\r\n DatumAusXML = DateSerial(Left<\/span>(strDatum, 4), _\r\n Mid<\/span>(strDatum, 6, 2), Mid<\/span>(strDatum, 9, 2))\r\nEnd Function<\/span><\/pre>\n![\"Beispiele](\"..\/fileadmin\/_temp_\/2015_04\/pic_994_003.png\")
<\/p>\n![\"Ein](\"..\/fileadmin\/_temp_\/2015_04\/pic_994_004.png\")
<\/p>\n=[cboKontakte].[Column](2)<\/pre>\n
=[cboKonten].[Volumn](2)<\/pre>\n
![\"Verknüpfung](\"..\/fileadmin\/_temp_\/2015_04\/pic_994_005.png\")
<\/p>\nVerknüpfen von: Bankcode;Accountnumber\r\nVerknüpfen nach: txtBankcode;txtAccountnumber<\/pre>\n
Private Sub <\/span>cboKonten_AfterUpdate()\r\n Me!txtKontostand = Nz(DLookup(\"LetzterKontostand\", _\r\n \"tblKonten\", \"KontoID = \" & Nz(Me!cboKonten, 0)), 0)\r\nEnd Sub<\/span><\/pre>\nüberweisungen per Webservice<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2015_04\/pic_994_006.png\")
<\/p>\nPrivate Sub <\/span>cboKontakte_AfterUpdate()\r\n ...\r\n If <\/span>IsNull(Me!cboKontakte) Then<\/span>\r\n ...\r\n Else<\/span>\r\n ...\r\n Me!cboSicherheitsverfahren.RowSource = \"SELECT * FROM tblSicherheitsverfahren WHERE KontaktID = \" _\r\n & Me!cboKontakte\r\n Me!cboSicherheitsverfahren = Me!cboSicherheitsverfahren.ItemData(0)\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nTestdaten einfach hinzufügen<\/h2>\n
\n
\n
Private Sub <\/span>cmdTestdaten_Click()\r\n Me!txtKontonummer = \"1000735161\"\r\n Me!txtBLZ = \"70000997\"\r\n Me!txtLaendercode = \"280\"\r\n Me!txtEmpfaenger = \"Testkonto\"\r\n Me!txtBetrag = \"1,00\"\r\n Me!txtVerwendungszweck = \"Testüberweisung\"\r\n Me!txtIBAN = \"DE43700009971000735160\"\r\n Me!txtBIC = \"DDBADEMM002\"\r\nEnd Sub<\/span><\/pre>\n![\"Formular](\"..\/fileadmin\/_temp_\/2015_04\/pic_994_007.png\")
<\/p>\nüberweisung starten<\/h2>\n
Private Sub <\/span>cmdUeberweisen_Click()\r\n Dim <\/span>strContactData As String<\/span>\r\n Dim <\/span>strAccountId As String<\/span>\r\n Dim <\/span>strXML 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 strContactData = DLookup(\"ContactData\", \"tblKontakte\", \"KontaktID = \" _\r\n & Me!cboKontakte) ''wegen Längenbeschränkung auf 255 Zeichen\r\n strAccountId = Me!cboKonten.Column(5)\r\n strXML = MoneyTransferRequest(strContactData, strAccountId, Nz(Me!txtEmpfaenger, \"\"), Nz(Me!txtIBAN, \"\"), _\r\n Nz(Me!txtBIC, \"\"), Nz(Me!txtKontonummer, \"\"), Nz(Me!txtLaendercode, \"280\"), Nz(Me!txtBLZ, \"\"), Me!txtBetrag, _\r\n Me!txtVerwendungszweck, Me!cboSicherheitsverfahren, strErrorType, strErrorText, strErrorCustomerText)\r\n If <\/span>Len<\/span>(strErrorType & strErrorText & strErrorCustomerText) = 0 Then<\/span>\r\n MsgBox<\/span> GetXMLElement(strXML, \"\/\/SuccessText\")\r\n Else<\/span>\r\n MsgBox<\/span> \"Fehler:\" & vbCrLf<\/span> & vbCrLf<\/span> & strErrorCustomerText\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDie Funktion MoneyTransferRequest<\/h2>\n
Public Function <\/span>MoneyTransferRequest(strContactData As String<\/span>, strAccountId As String<\/span>, strEmpfaenger As String<\/span>, _\r\n strIBANEmpfaenger As String<\/span>, strBICEmpfaenger As String<\/span>, strAccountNumberEmpfaenger As String<\/span>, _\r\n strCountryCodeEmpfaenger As String<\/span>, strBankCodeEmpfaenger As String<\/span>, curAmount As Currency<\/span>, strPurpose