<\/p>\n
Wer regelmäßig Geldeingänge für Rechnungen und\/oder Bestellungen kontrollieren musste, konnte sich unter Access beispielsweise mit den in älteren Ausgaben von Access im Unternehmen vorgestellten HBCI-Lösungen behelfen. Nun hat sich mittlerweile PayPal als Bezahlmittel speziell für den Internethandel herauskristallisiert. Zeit, sich einmal um diesen Dienst zu kümmern: Wir stellen Ihnen in diesem Beitrag eine Möglichkeit vor, ein- und ausgehende Zahlungen von Access aus zu kontrollieren und somit in Ihren Workflow zu integrieren.<\/b><\/p>\n
Eine PayPal-Bezahlung ist äußerst schnell erledigt. Sie brauchen dazu noch nicht einmal mehr Ihre Bankverbindung zu kennen, sondern nur die E-Mail-Adresse, unter der Sie bei PayPal angemeldet sind sowie ein entsprechendes Kennwort. Sie benötigen auch keine Pin- und Tan-Codes aus einer Liste herauszusuchen. Grundsätzlich sind in diesem Zusammenhang folgende Techniken interessant:<\/p>\n
Die ersten beiden Möglichkeiten sind aus Access-Anwendersicht nur bedingt interessant: Eine Bezahlung auf einer Webseite lässt sich kaum automatisieren und das Anbieten von Bezahlmöglichkeiten via PayPal erfolgt über entsprechende serverbasierte Webdienste, die man zur eigenen Internetseite hinzufügt.<\/p>\n
Interessant ist hingegen das Prüfen der via PayPal erfolgten Eingänge: Wer etwa einen Webshop betreibt oder andere Dienstleistungen via Internet anbietet, die der Kunde mit PayPal bezahlen kann, will vielleicht automatisch prüfen, welche Eingänge erfolgt sind.<\/p>\n
Daher widmen wir uns in diesem Beitrag zunächst dem Prüfen des PayPal-Kontostandes und der Umsätze – das Beleuchten weiterer Techniken in späteren Ausgaben ist aber nicht ausgeschlossen.<\/p>\n
Webservice<\/b><\/p>\n
Die Voraussetzung für ein Abfragen via Access ist der Zugriff über eine beliebig geartete Webschnittstelle. Natürlich bietet auch PayPal solch eine Möglichkeit. Den Einstieg finden Sie unter www.x.com<\/b>.<\/p>\n
Sandbox<\/b><\/p>\n
Wie andere Anbieter von Dienstleistungen rund um sensible Daten bietet auch PayPal eine Sandbox an, auf der man seine Eigenentwicklungen zunächst testen kann.<\/p>\n
Unter developer.PayPal.com <\/b>landen Sie auf der Sandbox-Startseite. Hier legen Sie am besten gleich einen Testaccount an. Beachten Sie, dass Sie dafür eine E-Mail-Adresse vorhalten, die nicht mit Ihrer bei PayPal angegebenen E-Mail-Adresse übereinstimmt. Nach dem Ausfüllen des Anmeldeformulars erhalten Sie eine E-Mail, die Sie noch bestätigen müssen. Danach melden Sie sich mit E-Mail-Adresse und Kennwort bei der Sandbox an.<\/p>\n
Nun benötigen Sie einen Testbenutzer. Diesen legen Sie über den in Bild 1 markierten Link an. Theoretisch könnten Sie nun mit diesem loslegen – in der Praxis konnten wir zum Zeitpunkt der Erstellung dieses Beitrags jedoch nicht erfolgreich mit diesem Zugang arbeiten, um etwa einige Testzahlungen vorzunehmen.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_06\/Paypal-web-images\/pic001.png\")
<\/p>\n
Bild 1: Anlegen eines Testaccounts<\/span><\/b><\/p>\n Dies ist aber nicht das primäre Ziel dieses Beitrags – wir wollen vielmehr zeigen, wie Sie über die API auf verschiedene Informationen Ihres eigenen PayPal-Kontos zugreifen können.<\/p>\n Wenn Ihnen der direkte Zugriff auf die echte API wie in den folgenden Abschnitten beschrieben für Testzwecke zu riskant ist, können Sie die Beispiele mit den Testzugriffsdaten aus der Dokumentation namens PayPal Name-Value Pair API Developer Guide <\/b>vornehmen (https:\/\/www.x.com\/docs\/DOC-1242<\/b>). Diese finden Sie im genannten Dokument im Abschnitt Basic Steps|Get API Credentials<\/b> (s. Bild 2).<\/p>\n Bild 2: Hier finden Sie Anmeldedaten für Testzugriffe auf die PayPal-API.<\/span><\/b><\/p>\n Die nachfolgend beschriebenen Anfragen schicken Sie im Testbetrieb an folgende Adresse ab:<\/p>\n Sollten Sie den Live-Betrieb bevorzugen, verwenden Sie diesen Link als Basis:<\/p>\n Alle nachfolgend vorgestellten Anfragen können Sie sowohl an die Test- als auch an die Liveumgebung absenden.<\/p>\n Vorbereitung des Zugriffs auf die echte API<\/b><\/p>\n Da wir nur Umsätze abfragen möchten, gehen wir direkt in den echten Betrieb über.<\/p>\n Dazu benötigen Sie einen Geschäftskunden-Account, der jedoch nicht teurer als ein normaler Account ist. Kostenpflichtig wird dieser Account erst, wenn Sie darüber Zahlungen empfangen.<\/p>\n Für den Zugriff über die Internet-API von PayPal benötigen Sie einige über Ihre herkömmlichen Anmeldungsdaten hinausgehenden Informationen.<\/p>\n Diese erhalten Sie, wenn Sie sich mit Ihren Geschäftskundendaten bei PayPal angemeldet haben und dann erst den Menüeintrag Mein Profil|Mehr… <\/b>auswählen und im folgenden Dialog auf API-Zugriff <\/b>klicken (s. Bild 3).<\/p>\n Bild 3: Einrichten des API-Zugriffs<\/span><\/b><\/p>\n Im folgenden Dialog wählen Sie die zweite Option aus, bevor Sie schließlich zur Seite mit drei wichtigen Informationen gelangen: dem Benutzernamen, dem Kennwort sowie zur Signatur für zukünftige Zugriffe auf Ihr PayPal-Konto.<\/p>\n Bild 4: Wählen Sie diese Option, um auf die eigenen Kontodaten zuzugreifen<\/span><\/b><\/p>\n Kontostand abfragen per Browser<\/b><\/p>\n Damit führen Sie gleich einen ersten Test durch. Dieser soll schlicht den Kontostand Ihres PayPal-Kontos abrufen. <\/p>\n Die Kommunikation mit dem PayPal-Server erfolgt im einfachsten Fall durch das Versenden eines entsprechend zusammengesetzten Links über den Internetbrowser und liefert eine Reihe von Name-Wert-Paaren zurück.<\/p>\n Die Anfrage beginnt stets mit einer der oben genannten URLs, also beispielsweise mit https:\/\/api-3t.sandbox.PayPal.com\/nvp <\/b>für die Sandbox. Daran hängen wir einige Parameter, die ebenfalls als Name-Wert-Paare übergeben werden und die wie die üblichen Parameter für den Aufruf von Webseiten aussehen.<\/p>\n Das bedeutet, dass das erste Name-Wert-Paar durch ein Fragezeichen von der Basisadresse getrennt wird. Die folgenden Name-Wert-Paare werden jeweils durch ein Kaufmanns-Und voneinander getrennt. Name und Wert werden durch ein Gleichheitszeichen getrennt.<\/p>\n Ein Beispielaufruf zum Abfragen des Kontostandes sieht etwa so aus, wobei Sie <Username><\/b>, <Password> <\/b>und <Signature> <\/b>durch die entsprechenden Werte ersetzen müssen:<\/p>\n Neben diesen drei Informationen übergeben Sie noch die Version und die gewünschte Methode, in diesem Fall GetBalance <\/b>für das Abfragen des Kontostandes.<\/p>\n Wichtig ist, dass Sie die Parameterwerte mit der in der Beispieldatenbank enthaltenen Funktion URLEncode <\/b>behandeln, um ungültige Sonderzeichen zu ersetzen.<\/p>\n Die Antwort kommt ebenfalls in Form von Name-Wert-Paaren und sieht beispielsweise wie folgt aus:<\/p>\n Nach der Behandlung mit der Funktion URLDecode <\/b>sieht die Antwort so aus:<\/p>\n Diese Antwort erhalten Sie am einfachsten, wenn Sie die Anfrage in die Adresszeile Ihres Browsers eintragen und diese absenden. Der Antworttext erscheint dann im Browserfenster (s. Bild 5).<\/p>\n Bild 4: Wählen Sie diese Option, um auf die eigenen Kontodaten zuzugreifen<\/span><\/b><\/p>\n Bild 5: Absenden einer API-Anfrage per Webbrowser<\/span><\/b><\/p>\n <\/p>\n PayPal-Anfrage per VBA<\/b><\/p>\n Um dies zu erreichen, brauchen wir natürlich keine Access-Datenbank. Wenn Sie hingegen ein- oder mehrmals täglich automatisch auf Ihren PayPal-Kontostand zugreifen und die Eingänge mit Bestellungen et cetera abgleichen wollen, brauchen wir einige Zeilen VBA.<\/p>\n Als erstes müssen wir darauf hinweisen, dass Sie Ihre Zugangsdaten sorgfältig unter Verschluss halten sollten.<\/p>\n Eine Möglichkeit dazu wäre es, eine MDE-Datenbank zu erstellen, die schlicht und einfach die sensiblen Daten und eine einzige VBA-Funktion enthält. Diese Funktion erwartet die Parameter der Anfrage an PayPal außer den Zugangsdaten, fügt diese zur Anfrage zusammen, sendet diese ab und liefert als Rückgabewert die Antwort von PayPal.<\/p>\n Wir arbeiten aber zunächst mit offenen Karten und kümmern uns um eine VBA-Funktion, die schlicht eine komplette Abfrage abschickt und das Ergebnis des PayPal-Servers zurückliefert.<\/p>\n Diese bedient sich der Bibliothek Microsoft XML, vX.0<\/b>, die Sie per Verweis wie in Bild 6 in das VBA-Projekt einbinden. Die Anfrage an PayPal erledigen Sie anschließend ganz einfach mit der folgenden Funktion:<\/p>\n Bild 6: Verweis auf die XML-Bibliothek<\/span><\/b><\/p>\n Dieser Funktion übergeben Sie schlicht die gleiche Zeichenkette, die Sie auch im Webbrowser eintragen. Sie liefert die Zeichenkette zurück, die als Antwort im Browserfenster erscheint.<\/p>\n Die Sleep<\/b>-Funktion, die innerhalb einer Do While<\/b>-Schleife so oft aufgerufen wird, bis das Ergebnis der Anfrage vorliegt, deklarieren Sie noch im Kopf eines Standardmoduls:<\/p>\n Kontostand abfragen per VBA<\/b><\/p>\n Die Abfrage zum Ermitteln des Kontostands setzt die Funktion aus Listing 1<\/a><\/span> zusammen.<\/p>\n Listing 1: Zusammensetzen der Anfrage für den Kontostand<\/p>\n Auch hier müssen Sie wieder die Platzhalter <Username><\/b>, <Password><\/b> und <Signature><\/b> durch Ihre eigenen Daten oder die Testdaten ersetzen.<\/p>\n Wenn Sie nun im Direktfenster die Funktion HTTP-Request <\/b>mit der Funktion GetBalance <\/b>als Parameter aufrufen, erhalten Sie den aktuellen Kontostand (s. Bild 7).<\/p>\n Bild 7: Abfrage des Kontostands per Direktfenster<\/span><\/b><\/p>\n Ergebnis auswerten<\/b><\/p>\n Bevor wir uns größeren Aufgaben wie dem Auslesen der Umsätze zuwenden, wollen wir zunächst einmal eine besser lesbare Variante der Antwort auf die Beine stellen. Dazu verwenden wir die folgende einfache Funktion, welche die Gleichheitszeichen durch Tabulatoren und die Und-Zeichen durch Zeilenumbrüche ersetzt:<\/p>\n Wenn Sie diese Funktion auf die Antwort der Funktion GetBalance <\/b>anwenden, sieht dies im Direktfenster etwa so aus:<\/p>\n Hier können Sie leicht erkennen, dass der aktuelle Kontostand EUR 10,98 beträgt. Wichtig für die weitere Verarbeitung ist beispielsweise der Parameter ACK<\/b>, der Informationen über Erfolg oder Fehlschlag der Anfrage liefert.<\/p>\n Umsätze finden<\/b><\/p>\n Als nächstes schauen wir uns die Umsätze an. Hierzu gibt es eine API-Funktion namens Get-TransactionDetails<\/b>, die jedoch eine Transaktionsnummer als Parameter erwartet.<\/p>\n Um diese zu erhalten, müssen wir erst die Transaktionen nach dem gewünschten Exemplar durchsuchen, und zwar mit der API-Funktion TransactionSearch<\/b>. Diese erwartet mindestens die folgenden Parameter:<\/p>\n Die grundlegende Prozedur zum Durchstöbern von Transaktionen anhand des einzigen Parameters STARTDATE<\/b> sieht wie in Listing 2<\/a><\/span> aus.<\/p>\n Listing 2: Transaktionen durchsuchen<\/p>\n Wichtig ist, dass Sie diesen Parameter zwar im UCT\/GMT-Format formatieren, diesen aber nicht mit der UrlEncode<\/b>-Funktion behandeln – dies erzeugt einen Fehler. Das Ergebnis sieht etwa wie folgt aus:<\/p>\n Wenn im genannten Zeitraum nicht nur eine, sondern gleich mehrere Transaktionen stattfanden, liefert die Anfrage alle in einem einzigen String zurück.<\/p>\n In diesem werden die Namen der Parameter, die hier auf das Zeichen 0<\/b> enden, mit durchlaufenden Nummern versehen. In Zeiten von XML-Responses, wie sie etwa von eBay, Amazon und Co. zurückgeliefert werden, mutet dies beinahe mittelalterlich an.<\/p>\n Heißt das, wir müssen wirklich haufenweise Parameter der Art Email0<\/b>, Email1 <\/b>und so weiter parsen Nein: Wir ziehen zunächst nur die TransactionID<\/b>s aus der Antwort der API-Funktion TransactionSearch <\/b>und fahren dann mit einer weiteren Methode namens GetTransactionDetails <\/b>fort.<\/p>\n Wie auch immer: An dieser Stelle ist der Zeitpunkt gekommen, an dem wir eine Tabelle zum Speichern der Transaktionen aufbauen.<\/p>\n Diese soll zunächst Felder für alle zurückgelieferten Felder enthalten und sieht im Entwurf entsprechend wie in Bild 8 aus. Das einzige Feld, das wir neben dem Primärschlüsselfeld im ersten Schritt füllen, wird jedoch das Feld PayPalTransactionID <\/b>sein. Dieses definieren Sie dementsprechend als Feld mit einem eindeutigen Index.<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2010_06\/Paypal-web-images\/pic003.png\")
<\/p>\nhttps:\/\/api-3t.sandbox.PayPal.com\/nvp<\/pre>\n
https:\/\/api-3t.PayPal.com\/nvp<\/pre>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2010_06\/Paypal-web-images\/pic002.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_06\/Paypal-web-images\/pic004.png\")
<\/p>\nhttps:\/\/api-3t.PayPal.com\/nvp\r\nUSER=<Username>\r\n&PWD=<Password>\r\n&SIGNATURE=<Signature>\r\n&VERSION=56.0\r\n&METHOD=GetBalance<\/pre>\n
L_AMT0=10%2e98\r\n&L_CURRENCYCODE0=EUR\r\n&TIMESTAMP=2010%2d11%2d02T10%3a24%3a16Z\r\n&CORRELATIONID=d2e02fb773c6f\r\n&ACK=Success\r\n&VERSION=56%2e0\r\n&BUILD=1553277<\/pre>\n
L_AMT0=10.98\r\n&L_CURRENCYCODE0=EUR\r\n&TIMESTAMP=2010-11-02T10:24:16Z\r\n&CORRELATIONID=d2e02fb773c6f\r\n&ACK=Success\r\n&VERSION=56.0\r\n&BUILD=1553277<\/pre>\n
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2010_06\/Paypal-web-images\/pic005.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2010_06\/Paypal-web-images\/pic006.png\")
<\/p>\nPublic Function HTTPRequest(strRequest As String) As String\r\n DoCmd.Hourglass True\r\n Dim objXMLHTTP As MSXML2.XMLHTTP\r\n Set objXMLHTTP = New MSXML2.XMLHTTP\r\n With objXMLHTTP\r\n .Open "GET", strRequest, True\r\n .send\r\n Do While Not .ReadyState = 4\r\n Sleep 100\r\n DoEvents\r\n Loop\r\n HTTPRequest = URLDecode(.responseText)\r\n End With\r\n DoCmd.Hourglass False\r\nEnd Function<\/pre>\n
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)<\/pre>\n
Public Function GetBalance() As String\r\n Dim strRequest As String\r\n Dim strBaseURL As String\r\n Dim strUsername As String\r\n Dim strPassword As String\r\n Dim strSignature As String\r\n Dim strVersion As String\r\n Dim strMethod As String\r\n strUsername = "<Username>"\r\n strPassword = "<Password>"\r\n strSignature = "<Signature>"\r\n strVersion = "56.0"\r\n strMethod = "GetBalance"\r\n strBaseURL = "https:\/\/api-3t.paypal.com\/nvp"\r\n strRequest = strBaseURL\r\n strRequest = strRequest & "USER=" & URLEncode(strUsername)\r\n strRequest = strRequest & "&PWD=" & URLEncode(strPassword)\r\n strRequest = strRequest & "&SIGNATURE=" & URLEncode(strSignature)\r\n strRequest = strRequest & "&VERSION=" & URLEncode(strVersion)\r\n strRequest = strRequest & "&METHOD=" & URLEncode(strMethod)\r\n CreateRequest = HTTPRequest(strRequest)\r\nEnd Function<\/pre>\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2010_06\/Paypal-web-images\/pic007.png\")
<\/p>\nPublic Function ResponseAusgeben(strResponse As String) As String\r\n strResponse = URLDecode(strResponse)\r\n strResponse = Replace(strResponse, "=", vbTab)\r\n strResponse = Replace(strResponse, "&", vbCrLf)\r\n ResponseAusgeben = strResponse\r\nEnd Function<\/pre>\n
ResponseAusgeben(GetBalance)\r\n L_AMT0 10.98\r\n L_CURRENCYCODE0 EUR\r\n TIMESTAMP 2010-11-02T11:29:07Z\r\n CORRELATIONID 6f9efb8e378b8\r\n ACK Success\r\n VERSION 56.0\r\n BUILD 1553277<\/pre>\n
\n
Public Function TransactionSearch(datStart As Date, Optional datEnde As Date) As String\r\n Dim strRequest As String\r\n Dim strBaseURL As String\r\n Dim strUsername As String\r\n Dim strPassword As String\r\n Dim strSignature As String\r\n Dim strVersion As String\r\n Dim strMethod As String\r\n Dim strStartdate As String\r\n Dim strEnddate As String\r\n strUsername = "info_api1.access-im-unternehmen.de"\r\n strPassword = "XXXXXXXXXXXX"\r\n strSignature = "XXXXXXXXXXXX"\r\n strVersion = "56.0"\r\n strMethod = "TransactionSearch"\r\n strBaseURL = "https:\/\/api-3t.paypal.com\/nvp"\r\n strStartdate = Format(datStart, "YYYY-MM-DDTHH:MM:SS.00Z")\r\n strRequest = strBaseURL\r\n strRequest = strRequest & "USER=" & URLEncode(strUsername)\r\n strRequest = strRequest & "&PWD=" & URLEncode(strPassword)\r\n strRequest = strRequest & "&SIGNATURE=" & URLEncode(strSignature)\r\n strRequest = strRequest & "&VERSION=" & URLEncode(strVersion)\r\n strRequest = strRequest & "&METHOD=" & URLEncode(strMethod)\r\n strRequest = strRequest & "&STARTDATE=" & strStartdate\r\n If Not datEnde = 0 Then\r\n strEnddate = Format(datEnde, "YYYY-MM-DDTHH:MM:SS.00Z")\r\n strRequest = strRequest & "&ENDDATE=" & strEnddate\r\n End If\r\n TransactionSearch = HTTPRequest(strRequest)\r\nEnd Function<\/pre>\n
ResponseAusgeben (TransactionSearch)\r\n L_TIMESTAMP0 2010-10-15T11:11:24Z\r\n L_TIMEZONE0 GMT\r\n L_TYPE0 Payment\r\n L_EMAIL0 test@gmx.de\r\n L_NAME0 Gert Test\r\n L_TRANSACTIONID0 12338704SW8055442\r\n L_STATUS0 Completed\r\n L_AMT0 5.95\r\n L_CURRENCYCODE0 EUR\r\n L_FEEAMT0 -0.46\r\n L_NETAMT0 5.49\r\n TIMESTAMP 2010-11-02T15:28:17Z\r\n CORRELATIONID 599be0ba2c84a\r\n ACK Success\r\n VERSION 56.0\r\n BUILD 1553277<\/pre>\n
![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2010_06\/Paypal-web-images\/pic008.png\")
<\/p>\n
![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2010_06\/Paypal-web-images\/pic009.png\")
<\/p>\n