Thema "Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken" in Betriebliches Rechnungswesen

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Wed, 22 Feb 2017 15:06:15 GMT

Hallo Leute,

heute habe ich zum ersten Mal erfolgreich ein PayPal-Konto über das Bankenmodul importieren können.

Folgendes Szenario liegt vor:

Ich bekomme vom Mandanten ein PayPal-Export als CSV-Datei. Diese Datei hat aber als Feldtrenner ein Komma (,) und nicht das Semikolon (;). Das ist natürlich für Excel ein GAU, da hier die erste Spalte als Text erkannt wird und eine manuelle Trennung erfolgen muss.

Des Weiteren ist die Exportdatei im UTF-Zeichencode, was dazu führt, dass z. B. Sonderzeichen (Ü, Ä, Ü usw. ) nicht richtig erkannt werden.

Voraussetzung:

Einrichtung einer Dummy-Bank PayPa
- Ich habe im Bankenstamm mir ein PayPal-Konto mit BLZ 899 999 99 (BIC PPXXXXX) eingerichtet.
- Danach wurde für den Mandanten in den Stammdaten ein PayPal-Kto. mit Kto.Nr. 123456 eingerichtet. Als Quelle Kontoumsätze sind folgende Angaben zu machen:

a) Einstellung für: Nicht aufgeführtes Programm
Pfad und Dateiname: […]\Banken.csv
Dateiformat: ASCII (Weiterverarbeitung)

b) Optionen Kontoumsätze
Geben Sie den ersten Tag für den Import und den Banksaldo vom ersten Tag ein.

Damit sind die Vorarbeiten abgeschlossen.
Vom Mandanten erhalte ich jetzt den PayPal-Export mit folgendem Inhalt (Muster):
"Datum","Uhrzeit","Zeitzone","Beschreibung","Währung","Brutto","Gebühr","Netto","Guthaben","Transaktionscode","Absender E-Mail-Adresse","Name","Name der Bank","Bankkonto","Versand- und Bearbeitungsgebühr","Umsatzsteuer","Rechnungsnummer","Zugehöriger Transaktionscode"
"01.01.2017","18:30:06","Europe/Berlin","PayPal Express-Zahlung","EUR","109,00","-2,42","106,58","4.039,19","9GJ66310R8********","************","**********","","","0,00","0,00","*********",""
Hinweis: ******* Löschung Text wg. Datenschutz
Vorgehensweise:
a) Das Script speichern und Pfade im Script bitte anpassen.
b) Die Originaldatei vom Mandanten speichern und per Drag&Drop auf das VBSript fallen lassen.

c) Arbeitsweise vom Script
Die Originaldatei wird in Zeichencode ANSI konvertiert, so dass auch Sonderzeichen gelesen werden können. Danach wird die CSV-Datei wieder eingelesen und in eine Exceldatei geparst. Diese Exceldatei kann man, wenn man es möchte, speichern oder weiterverarbeiten.

Aus der Exceldatei werden jetzt die Inhalte, die mir wichtig erschienen, in die Feldvariablen colBank(34) (s. Schnittstellenbeschreibung) gespeichert und in die DATEV-Importdatei geschrieben (Banken.csv). Diese CSV wird jetzt über das Programmmodul Auswertung -> Finanzbuchführung -> Bankkontoumsätze -> Einstellung Bankkontoumsätze eingelesen.

Die PayPal-Gebühren werden sowohl als letzte Zeile (sind ja Kosten) als auch als Detailinformation in der Bankbewegung unter Gebühren aufgeführt. Im Verwendungszweck1 und Verwendungszweck2 sind der Transaktionscode und Absendername aufgenommen. Das könnte man noch erweitern.

Das Script hat bei mir funktioniert. Ich habe jetzt das gesamte PayPal-Konto in den Banken enthalten und kann mit dem Modul 'Buchungsvorschläge bearbeiten' die Bankdaten in die FiBu importieren.

Und hier das vollständige VBScript:
Bitte noch die BLZ, Kto und Pfade anpassen.

Option Explicit

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("\\server01\home\66\Documents\DATEV\DATEN\RWDAT\Export\Banken.csv") Then
objFSO.DeleteFile("\\server01\home\66\Documents\DATEV\DATEN\RWDAT\Export\Banken.csv")
End If

On Error Resume Next

'############### Step 1 -> CSV in ANSI konvertieren

Private Const adReadAll = -1
Private Const adSaveCreateOverWrite = 2
Private Const adTypeBinary = 1
Private Const adTypeText = 2
Private Const adWriteChar = 0

UTF8toANSI WScript.Arguments(0), WScript.Arguments(0)

'############### Step 2 -> Über Excel in Spalten konvertieren

Dim objExcel
Dim objWkb
Dim objWks
Set objExcel = GetObject(,"Excel.Application")

If err.number<>0 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Add
End if

Set objWks = objExcel.Workbooks(1).Sheets(1)
objExcel.Visible = True

Dim objReadFile
Set objReadFile =objFSO.OpenTextFile(WScript.Arguments(0), 1)

Dim colBank(34) 'Spaltendefinition siehe DATEV-Schnittstelle (Feld 1 - 34)
Dim curGeb
Dim sTemp
Dim MyResult
Dim i, lCol, lRow
Do Until objReadFile.AtEndOfStream

sTemp=objReadFile.Readline
sTemp = Replace (sTemp,""",""",";")
sTemp = Replace (sTemp,"""","")
MyResult = Split(sTemp,";")
lRow=lRow+1
For i = 0 To UBound(MyResult)-1
lCol=i+1

Select Case lCol
Case 6,7,8,9,15,16
'WScript.Echo MyResult(i)
If IsNumeric(MyResult(i))=False Then
objWks.cells(lRow,lCol).Value=MyResult(i)
Else
objWks.cells(lRow,lCol).Value=CCur(MyResult(i))
End If
Case Else
objWks.cells(lRow,lCol).Value=MyResult(i)
End Select
Next
Loop

objWks.columns("J:J").Insert, -4152
lRow = 1
Const sQuote = """"

With objWks 'Spaltenüberschriften der neuen Excel-Datei
.cells(lRow,1).value="BelegDatum"
.cells(lRow,6).value="Betrag"
.cells(lRow,10).value="Buchungstext"
End With

Dim MyFile
Set MyFile = objFSO.OpenTextFile("\\server01\home\66\Documents\DATEV\DATEN\RWDAT\Export\Banken.csv", 2, True)

Const xlCellTypeLastCell=11

For i = 2 To objWks.usedrange.specialcells(xlCellTypeLastCell).row

lRow=lRow+1

If objWks.cells(lRow,5).value ="EUR" Then 'nur EUR-Beträge werden berücksichtigt
If objWks.cells(lRow,13).value<>"" Then 'Buchungstext mit/ohne Transaktionscode (nur für den Fall 'das der Bankenimport nicht
'richtig funktioniert) = redundant
objWks.cells(lRow,10).value = objWks.cells(lRow,11).value & " / " & objWks.cells(lRow,13).value
Else
objWks.cells(lRow,10).value = objWks.cells(lRow,11).value
End If

curGeb = curGeb + CCur(objWks.cells(lRow,7)) 'Aufsummierung PayPal-Gebühren

colBank(1) = sQuote & "89999999" & sQuote 'Blz
colBank(2) = sQuote & "123456" & sQuote 'KtoNr
colBank(5) = objWks.cells(lRow,1) 'Datum Valuta
colBank(6) = objWks.cells(lRow,1) 'Buchungsdatum
colBank(7) = FormatNumber(objWks.cells(lRow,6),2) 'Umsatz
colBank(8) = objWks.cells(lRow,13) 'Auftraggebername 1
colBank(12) = objWks.cells(lRow,11) 'Verwendungszweck 1 (Transaktionscode)
colBank(13) = objWks.cells(lRow,12) 'Verwendungszweck 2 (EMail)
colBank(29) = FormatNumber(objWks.cells(lRow,7),2) 'Gebühren

sTemp=""

For lCol=1 To UBound(colBank)
sTemp = sTemp & colBank(lCol) & ";"
Next

sTemp = Left(sTemp,Len(sTemp)-1) 'letztes Semikolon löschen (überschüssig)

MyFile.Writeline sTemp
End If

Next

'zuletzt noch als letzte Bankbewegung die summierten PayPal-Gebühren
sTemp=""

sTemp = sTemp & sQuote & "89999999" & sQuote & ";" 'Blz
sTemp = sTemp & sQuote & "123456" & sQuote & ";" 'KtoNr
sTemp = sTemp & ";" 'Auszug
sTemp = sTemp & ";" 'Datum Auszug
sTemp = sTemp & DateSerial(Year(objWks.cells(lRow,1)),Month(objWks.cells(lRow,1))+1,0) & ";" 'Datum Valuta
sTemp = sTemp & DateSerial(Year(objWks.cells(lRow,1)),Month(objWks.cells(lRow,1))+1,0) & ";" 'Datum Buchung
sTemp = sTemp & FormatNumber(curGeb,2) & ";" 'Umsatz
sTemp = sTemp & "PayPal" & ";" 'Auftraggebername 1
sTemp = sTemp & "" & ";" 'Auftraggebername 2
sTemp = sTemp & "" & ";" 'BLZ Auftraggeber
sTemp = sTemp & "" & ";" 'Kto Auftraggeber
sTemp = sTemp & "PayPal-Gebühren" & ";" 'Verwendungszweck 1
sTemp = sTemp & "" & ";" 'Verwendungszweck 2

MyFile.Writeline sTemp

MyFile.Close

MsgBox "PayPal-Buchungen können jetzt importiert werden.",,"Export PayPal"

Private Sub UTF8toANSI(ByVal UTF8FName, ByVal ANSIFName)
Dim strText

With CreateObject("ADODB.Stream")
.Open
.Type = adTypeBinary
.LoadFromFile UTF8FName
.Type = adTypeText
.Charset = "utf-8"
strText = .ReadText()
.Position = 0
.SetEOS
.Charset = "x-ansi" 'Use current ANSI codepage.
.WriteText strText, adWriteChar
.SaveToFile ANSIFName, adSaveCreateOverWrite
.Close
End With
End Sub

Sollten es Probleme oder Fragen geben, dann einfach hier melden.

Wie immer gilt:
Ich übernehme keine Verantwortung für irgendwelche Schäden. Das Tool ist von mir getestet und es traten bei mir keine Probleme auf. Anspruch auf Support besteht nicht. Bin aber gerne bereit zu helfen.

Viel Spaß.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Wed, 21 Jun 2017 13:26:31 GMT

Hallo Leute,

ich wurde inzwischen von einigen kontaktiert die auch Interesse an meinem PayPal-Tool haben, aber unsicher sind, wie die Einrichtung erfolgen muss.

Hier nun eine kleine Bildershow :

1. Einrichtung der Bank in den Kanzleistammdaten:

2. Einrichtung der Bank in den Mandantenstammdaten:

=> Anfangsbestand bitte hier eingeben!

Zu dem PayPal-Konto:

1. Es handelt sich um eine Exportdatei aus dem PayPal-Online Konto.

2. Diese Exportdatei braucht man einfach nur per Drag&Drop auf das VBSript fallen zu lassen und es wird die Konvertierung und der Export in die Datei 'Banken.csv' vorgenommen.

Es werden nur Euro-Beträge konvertiert. Die Fremdwährungssachverhalte (bei mir am Ende der CSV-Datei) werden ignoriert.

Bitte die Pfade an eigene Bedürfnisse anpassen!

3. Diese Banken.csv wird von DATEV automatisch eingelesen. Man braucht nichts zu machen. Alle Buchungen stehen dann unter dem Menü Auswertungen -> Finanzbuchführung -> Bankkontoumsätze zur Ansicht bereit.

Ich glaube, damit sollte man jetzt zurecht kommen.

Wie immer gilt:

Ich helfe gerne bei der Einrichtung und Fehlerbeseitung. Anspruch auf Support besteht aber nicht.

Für Programmfehler übernehme ich keine Haftung und alles geschieht auf eigene Gefahr. Das Tool ist getestet und bei mir ohne Probleme im Gebrauch. Es werden keine Änderung am System vorgenommen.

Hier kann man sich auch das fertige Script heruntergeladen werden:

www.amtools.de/Privat/Export_PayPal.zip

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

hmischlich — Wed, 21 Jun 2017 14:35:21 GMT

Hallo,

vielen Dank für die "Roadshow" - das hilft unheimlich.

Ich habe trotzdem noch keinen Erfolg gehabt.

Die Pfade habe ich im Skript angepasst:

Wenn ich nun die csv-Datei meines Mandanten auf dem Skript fallen lasse, dann öffnet sich eine Excel-Datei und ich erhalte die Mitteilung:

Die Datei speichere ich jetzt unter dem obigen Pfad und versuche in ReWe die Daten einzuspielen:

Leider passiert nicht und im Protokoll kommt der "Fehler Nr. 1"

Tut mir leid - bin IT-Legastheniker

Grüße H. Mischlich

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

peter — Thu, 22 Jun 2017 04:45:04 GMT

Hallo,

Die Pfade habe ich im Skript angepasst:

nur um sicher zu gehen: Der Pfad muss auch noch weiter unten im Code angepasst werden, nicht nur an der Stelle die Sie gepostet haben.

Vielleicht reicht das schon, ansonsten kann ich Ihnen an dieser Stelle mangels VBA-Kenntnisse leider nicht weiterhelfen.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Thu, 22 Jun 2017 05:33:31 GMT

Hallo,
Die Pfade habe ich im Skript angepasst:
nur um sicher zu gehen: Der Pfad muss auch noch weiter unten im Code angepasst werden, nicht nur an der Stelle die Sie gepostet haben.

Folgender Pfad ist ebenfalls anzupassen:

Dim MyFile
Set MyFile = objFSO.OpenTextFile("\\server01\home\66\Documents\DATEV\DATEN\RWDAT\Export\Banken.csv", 2, True)

Ferner ist IMO Ihre Pfadkorrektur fehlerhaft.

In Ihrem Beispiel müsste doch der Pfad wie folgt lauten:

[...]
If objFSO.FileExists("C:\Users\Public\Documents\Banken.csv") Then
objFSO.DeleteFile("C:\Users\Public\Documents\Banken.csv")
End If
[...]
Set MyFile = objFSO.OpenTextFile("C:\Users\Public\Documents\Banken.csv", 2, True)
[...]

Info:

\\ steht für UNC-Pfade (Netzwerk). Da Sie aber einen lokalen Pfad angeben, sind die \\ unnötig, ggf. auch schädlich.

Gruß A. Martens

----

Leider ist das Forum immer noch komplett schwachsinnig und verkrüppelt aufgebaut, quasi wie Notepad, dass ich keine sinnvolle Hervorhebungen vornehmen kann. UND DAFÜR ZAHLT DIE DATEV AUCH NOCH GELD!! Ich könnt mich wegschmeißen.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Thu, 22 Jun 2017 05:49:16 GMT

Ich wurde gestern noch nach folgendem gefragt:

Ich habe eine Frage zum PayPal Tool. Könnte ich einmal eine Primanoten ansicht bekommen?
Desweiteren würde mich interessieren wie lange die Arbeit des Tools braucht, da mein PayPal Mandant ca. 1200 Transaktionen pro Monat generiert, würde ein entsprechend schnelles Tool hier enorm viel Zeit einsparen.

zu 1)

Die Originaldatei hat folgendes Aussehen:

Man kann hier sehr schön erkennen, dass es sich um ein Web-Export handelt und eine falsche Schriftcodierung verwendet wurde. Diese falsche Schriftcodierung wird im ersten Schritt korrigiert.

Hier kann man die Währungssachverhalte erkennen. Die Fremdwährungspositionen werden am Ende ausgewiesen und beim Export nicht berücksichtigt.

zu 2)

Der Export geht rasent schnell. In meinem Fall sind es ca. 300 Datensätze und das dauert nur wenige Sekunden.

Gruß A. Martens

----

Bitte alle Fragen zum PayPal-Tool hier im Forum stellen, damit alle etwas davon haben.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

hmischlich — Thu, 22 Jun 2017 05:52:24 GMT

@Peter

Vielen Dank für den Hinweis. Ich hatte in meinem Post nur die ersten beiden Pfade exemplarisch aufgezeigt.

@Martens

Vielen Dank für den Hinweis. Tatsächlich hat die Änderung des Pfades den gewünschten (Teil-)Erfolg gebracht. Es wird nun die csv.-Datei im betreffenden Pfad erzeugt. Leider hat diese keinen Inhalt:

Daher kommt in Rewe nichts an. In der Excel-Datei sind hingegen alle Daten vorhanden.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Thu, 22 Jun 2017 05:55:10 GMT

Hat Ihre PayPal-Datei den gleichen Aufbau wie in meinem Beispiel?

Bitte einmal ein Screenshot der PayPal-Datei einstellen. Dann kommt man vielleicht dem Problem auf die Spur.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

hmischlich — Thu, 22 Jun 2017 05:59:23 GMT

Gerne:

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

mkolberg — Thu, 22 Jun 2017 06:12:22 GMT

Der Screenshot ist identisch mit hier funktionierenden Daten.

Es gibt zwei denkbare Möglichkeiten:

Der Mandant hat die Datei nicht mittels "speichern unter", gespeichert, sondern mit seinem Excel geöffnet und aus Excel heraus gespeichert -> Datei ist defekt.
Das Script setzt einen Firmen. Account von PayPal voraus. (Das läßt sich kostenlos und ohne erkennbare Nebenwirkungen aktivieren)

PS. Superdankeschön für das Script

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Thu, 22 Jun 2017 06:14:48 GMT

Ich wäre natürlich an Rückmeldungen interessiert, bei dem es klappt und nicht nur bei denen Probleme auftauchen.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

mkolberg — Thu, 22 Jun 2017 06:18:54 GMT

Vielen Dank für das Script.

Wir haben einige Anpassungen betreffs der Belegfelder vorgenommen:

_____________________________

Option Explicit

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("N:\DATEN\Mandant\#####\Paypal\Paypal.csv") Then
objFSO.DeleteFile("N:\DATEN\Mandant\#####\Paypal\Paypal.csv")
End If

On Error Resume Next

'############### Step 1 -> CSV in ANSI konvertieren

Private Const adReadAll = -1
Private Const adSaveCreateOverWrite = 2
Private Const adTypeBinary = 1
Private Const adTypeText = 2
Private Const adWriteChar = 0

UTF8toANSI WScript.Arguments(0), WScript.Arguments(0)

'############### Step 2 -> Über Excel in Spalten konvertieren

Dim objExcel
Dim objWkb
Dim objWks
Set objExcel = GetObject(,"Excel.Application")

If err.number<>0 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Add
End if

Set objWks = objExcel.Workbooks(1).Sheets(1)
objExcel.Visible = True

Dim objReadFile
Set objReadFile =objFSO.OpenTextFile(WScript.Arguments(0), 1)

Dim colBank(34) 'Spaltendefinition siehe DATEV-Schnittstelle (Feld 1 - 34)
Dim curGeb
Dim sTemp
Dim MyResult
Dim i, lCol, lRow
Do Until objReadFile.AtEndOfStream

sTemp=objReadFile.Readline
sTemp = Replace (sTemp,""",""",";")
sTemp = Replace (sTemp,"""","")
MyResult = Split(sTemp,";")
lRow=lRow+1
For i = 0 To UBound(MyResult)-1
lCol=i+1

Select Case lCol
Case 6,7,8,9,15,16
'WScript.Echo MyResult(i)
If IsNumeric(MyResult(i))=False Then
objWks.cells(lRow,lCol).Value=MyResult(i)
Else
objWks.cells(lRow,lCol).Value=CCur(MyResult(i))
End If
Case Else
objWks.cells(lRow,lCol).Value=MyResult(i)
End Select
Next
Loop

objWks.columns("J:J").Insert, -4152
lRow = 1
Const sQuote = """"

With objWks 'Spaltenüberschriften der neuen Excel-Datei
.cells(lRow,1).value="BelegDatum"
.cells(lRow,6).value="Betrag"
.cells(lRow,10).value="Buchungstext"
End With

Dim MyFile
Set MyFile = objFSO.OpenTextFile("N:\DATEN\Mandant\#####\Paypal\Paypal.csv", 2, True)

Const xlCellTypeLastCell=11

For i = 2 To objWks.usedrange.specialcells(xlCellTypeLastCell).row

lRow=lRow+1

If objWks.cells(lRow,5).value ="EUR" Then 'nur EUR-Beträge werden berücksichtigt
If objWks.cells(lRow,13).value<>"" Then 'Buchungstext mit/ohne Transaktionscode (nur für den Fall 'das der Bankenimport nicht

'richtig funktioniert) = redundant
objWks.cells(lRow,10).value = objWks.cells(lRow,11).value & " / " & objWks.cells(lRow,13).value
Else
objWks.cells(lRow,10).value = objWks.cells(lRow,11).value
End If

curGeb = curGeb + CCur(objWks.cells(lRow,7)) 'Aufsummierung PayPal-Gebühren

colBank(1) = sQuote & "89999999"    & sQuote                    'Blz
colBank(2) = sQuote & "123456"    & sQuote                        'KtoNr
colBank(5) = objWks.cells(lRow,1)                               'Datum Valuta
colBank(6) = objWks.cells(lRow,1)                               'Buchungsdatum
colBank(7) = FormatNumber(objWks.cells(lRow,6),2)               'Umsatz
colBank(8) = objWks.cells(lRow,13)                                'Auftraggebername 1 (Name)
colBank(12) = objWks.cells(lRow,11)                               'Verwendungszweck 1 (Transaktionscode)
colBank(13) = objWks.cells(lRow,18)                               'Verwendungszweck 2 (Rechnungsnummer)
colBank(14) = objWks.cells(lRow,12)                               'Verwendungszweck 3 (EMail)
colBank(17) = "EUR"                                               'Währung
colBank(18) = objWks.cells(lRow,4)                                'Buchungstext       (Beschreibung)
colBank(19) = objWks.cells(lRow,14)                               'Verwendungszweck 6 (Bank)
colBank(29) = FormatNumber(objWks.cells(lRow,7),2)                'Gebühren

sTemp=""

For lCol=1 To UBound(colBank)
sTemp = sTemp & colBank(lCol) & ";"
Next

sTemp = Left(sTemp,Len(sTemp)-1) 'letztes Semikolon löschen (überschüssig)

MyFile.Writeline sTemp
End If

'zuletzt noch als letzte Bankbewegung die summierten PayPal-Gebühren
sTemp=""

sTemp = sTemp & sQuote & "89999999"    & sQuote & ";"                                                    'Blz
sTemp = sTemp & sQuote & "123456"    & sQuote & ";"                                                    'KtoNr
sTemp = sTemp & ";"                                                                                    'Auszug
sTemp = sTemp & ";"                                                                                    'Datum Auszug
sTemp = sTemp & DateSerial(Year(objWks.cells(lRow,1)),Month(objWks.cells(lRow,1))+1,0) & ";"        'Datum Valuta
sTemp = sTemp & DateSerial(Year(objWks.cells(lRow,1)),Month(objWks.cells(lRow,1))+1,0) & ";"        'Datum Buchung
sTemp = sTemp & FormatNumber(curGeb,2) & ";"                                                        'Umsatz
sTemp = sTemp & "PayPal" & ";"                                                                        'Auftraggebername 1
sTemp = sTemp & "" & ";"                                                                            'Auftraggebername 2
sTemp = sTemp & "" & ";"                                                                            'BLZ Auftraggeber
sTemp = sTemp & "" & ";"                                                                            'Kto Auftraggeber
sTemp = sTemp & "PayPal-Gebühren" & ";"                                                                'Verwendungszweck 1
sTemp = sTemp & "" & ";"                                                                            'Verwendungszweck 2

MyFile.Writeline sTemp

MyFile.Close

MsgBox "PayPal-Buchungen können jetzt importiert werden.",,"Export PayPal"

Private Sub UTF8toANSI(ByVal UTF8FName, ByVal ANSIFName)
Dim strText

With CreateObject("ADODB.Stream")
.Open
.Type = adTypeBinary
.LoadFromFile UTF8FName
.Type = adTypeText
.Charset = "utf-8"
strText = .ReadText()
.Position = 0
.SetEOS
.Charset = "x-ansi" 'Use current ANSI codepage.
.WriteText strText, adWriteChar
.SaveToFile ANSIFName, adSaveCreateOverWrite
.Close
End With
End Sub

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

mkolberg — Thu, 22 Jun 2017 06:25:33 GMT

Das Script läßt sich kinderleicht auch für die anderen Währungen anpassen, so daß wir nur noch auf die Fremdwährungsmöglichkeit von Rewe bei den Bankkontoumsätzen warten, welche für die Herbst- DVD angekündigt sind....

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Thu, 22 Jun 2017 06:26:59 GMT

Ja, ja, wenn man erst einmal Blut geleckt hat.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

hmischlich — Thu, 22 Jun 2017 07:47:30 GMT

Hallo Herr Kolberg,

herzlichen Dank für den Tipp. Der Mandant hat tatsächlich die Datei erst in Excel geöffnet und danach gespeichert.

ES KLAPPT! Vielen Herzlichen Dank für die Unterstützung und natürlich auch an den kompetenten Programmierer!

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

p4ge — Thu, 22 Jun 2017 08:22:39 GMT

Nur zur Klärung:

1. Mein Mandant muss einen Firmenkunden PayPal Account besitzen?

2. Könnten Sie mir den genauen Download"ort" des Exportes nennen? Damit ich meinen Mandanten besser leiten kann.

3. Wie verhält sich das Script bei verschiedenen Währungen?

Beispiel: Mein Mandant erhält sowohl EUR als auch GBP, jedoch wir letzteres nur ab einen Betrag ab 1000,- GBP in EUR getauscht.

Pflicht ist, dass das Script bis auf Belegfeld 1 und PP Gebühren, die buchungen erstellt. Deshalb ja meine Bitte eine produzierte Primanota zu veröffentlichen.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Thu, 22 Jun 2017 08:27:33 GMT

zu 3) Es werden nur EUR-Beträge berücksichtigt. Die GBP werden in EUR umgerechnet und der GBP-Währungsbetrag am Ende ausgewiesen, zumindest ist es bei meinem Mandanten.

zu 4) Die PayPal-Gebühren werden in einer Summe am Ende ausgeben. Die Gebühren werden in der Bank-Datei in einer separten Spalte gespeichert.

Lassen Sie doch einmal das Tool laufen und schauen sich das Ergebnis an. Das ist doch die einfachste Methode.

Zu den Nr. 1 u. 2 kann ich nichts sagen, da ich meine Datei fix und fertig vom Mandanten erhalte. Darum will ich mich auch nicht kümmern.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

p4ge — Thu, 22 Jun 2017 10:49:45 GMT

Ich werde mich am Wochenende einmal im Büro die Zeit nehmen und mir das ganze genau ansehen.

Gibt es evtl. noch die Möglichkeit die Gebühren vielleicht an bestimmten Punkten auszugeben, als nur einmal am Ende?

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Thu, 22 Jun 2017 11:03:33 GMT

Sie können die Gebühren jederzeit, also sofort für jeden Vorgang ausgeben. Aber wo ist da der Sinn?

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

p4ge — Thu, 22 Jun 2017 13:26:00 GMT

Ich gehe nur von dem mir vorliegenden Fällen aus.

Ich habe hier häufig Transaktionen, welche laut Auszug normalen gelaufen sind, bei denen aber 5 Zeilen später der Saldo wieder reduziert wird.

Derzeit buche ich jede Zeile normal und Paypal Gebühren 1x pro DinA4 Seite. Sollte das Script perfekt laufen und diese Vorgänge kommen erst gar nicht mit, wäre meine Frage überflüssig. Sollte allerdings besagter Fehler auftauchen, könnte man die Gebühren alle 100 Zeilen ausgeben und könnte so den Saldo besser nachvollziehen.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

p4ge — Fri, 07 Jul 2017 11:30:02 GMT

So habe nun endlich Datei und Ordner (als Gegenprüfung) bekommen. Script habe ich an den besagten 3 Stellen schon angepasst, bekomme aber folgenden Fehler:

In besagter Zeile steht : " Set oFile = oFS.OpenTextFile( cNameScript ) "

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Fri, 07 Jul 2017 12:04:07 GMT

Naja, die Lösung steht doch schon in der Fehlermeldung:

Pfad nicht gefunden

Bitte die Verzeichnisse prüfen.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

mkolberg — Sat, 08 Jul 2017 06:48:50 GMT

Sehe ich da ein Leerzeichen im Dateinamen?

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Sat, 08 Jul 2017 09:20:49 GMT

Ich vermute eher, dass hier der Fehler liegt:

" Set oFile = oFS.OpenTextFile( cNameScript ) "

cNameScript ist wohl eine Variable, daher müsste es dann wie folgt heißen:

Set oFile = oFS.OpenTextFile(cNameScript)

Ansonsten benötige ich einfach ein paar mehr Informationen, um wirklich helfen zu können.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

alho — Thu, 21 Sep 2017 20:05:48 GMT

Hallo Herr Martens.

Funktioniert das Import Tool auch bei Datev Unternehmen online?

Da gibt es nämlich ein ähnliches Problem mit Paypal.

Sehen Sie auch eine Möglichkeit, das Tool so umzubauen, dass es mit Kreditkarten auch funktioniert?

Grüße Alain Hoffs

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Fri, 22 Sep 2017 16:10:01 GMT

Hallo Herr Martens.
Funktioniert das Import Tool auch bei Datev Unternehmen online?
Da gibt es nämlich ein ähnliches Problem mit Paypal.
Sehen Sie auch eine Möglichkeit, das Tool so umzubauen, dass es mit Kreditkarten auch funktioniert?
Grüße Alain Hoffs

Hallo Hr. Hoffs,

das kann ich nicht mit Bestimmheit sagen. Prinzipiell sollte es funktionieren, dazu müsste man die Schnittstellenbeschreibung sehen.

Die Frage ist aber, nutzt Unternehmen Online eine andere Schnittstelle?

Und zu den Kreditkarten:

Natürlich kann es auch grundsätzlich für Kreditkarten verwendet werden.

Einfach ein Quasi-Bankkonto für die Kreditkarte einrichten und die Exportdatei mit den Kreditkarteninfo in das passende Format konvertieren.

Wie das funktioniert, können Sie auch aus dem Tool entnehmen.

Bei Fragen melden Sie sich hier einfach.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

tdw — Mon, 23 Oct 2017 06:23:10 GMT

Hallo Herr Martens und Hallo Herr Kolberg,

vielen Dank für die Bereitstellung des Scriptes und die Verfeinerung. Die Datei wird ohne Probleme erstellt.

Hat jemand einen Tipp für mich, warum im anschließenden Import, obwohl 01.01.16 bis 31.12.16 als Stapel und auch als Import Zeitraum angegeben ist, nur Vorgänge ab dem 30.09.16 bis 31.12.16 ausgegeben werden?

Im ersten Schritt wurde sogar nur die Paypalgebühr am 30.09.16 eingelesen. Als ich anschließend das Datum auf den 31.12.16 geändert habe wurden 30 weitere Buchungen (aber nur ab dem 30.09.16) importiert. Insgesamt müssten es 44 Buchungen sein.

Besten Grüße und vielen Dank

tdw

CSV Datei, die durch das Script erstellt wurde:

Einstellungen beim Import:

Protokoll nach dem Import:

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 23 Oct 2017 06:35:19 GMT

Hallo Hr. Junge,

also noch einmal zu Klarstellung:

Sie erhalten eine PayPal-Datei die den Zeitraum 01.01.16 - 31.12.2016 enthält.
Diese Datei wird von meinem Script einwandfrei eingelesen und konvertiert. Das bedeutet, dass sich jetzt alle Daten für den Zeitraum 01.01.16 - 31.12.2016 in der Banken.csv befinden.
Beim anschließenden Import der Banken.csv wird aber nur ein bestimmter Teil vom DATEV-Bankenmodul eingelesen?

Wenn das so ist, dann kann ich mir das nicht erklären. Ich erhalte aber auch immer nur eine PayPal-Datei für einen Monat und nicht für ein ganzes Jahr.

Sollte ich aber das Problem falsch verstanden haben, dann benötige ich etwas mehr Informationen, in welcher Datei sich nicht alle Daten befinden.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

mkolberg — Mon, 23 Oct 2017 06:50:14 GMT

Schuld ist die letzte Zeile in Ihrer Datei.
Das Datum 30.9.16 kann von DATEV nicht einsortiert werden.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 23 Oct 2017 06:54:30 GMT

Hallo Hr. Kolberg,

muss denn die Importdatei (Banken.csv) in chronologischer Reihenfolge sein, damit das Bankenmodul auch alles importiert?

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

tdw — Mon, 23 Oct 2017 07:06:14 GMT

Hallo Herr Martens,

vielen Dank für die schnelle Antwort.

Mein Zeitraum ist zwar 29.05. bis 31.12.16 aber prinzipiell haben Sie das Problem richtig verstanden.

1. In der Ursprungsdatei sind 43 Vorgänge plus USD Vorgänge.

2. In der Banken.csv sind anschließend 43 Vorgänge plus die Gebühren, also 44 Vorgänge.

mkolberg Daran habe ich auch gedacht, aber auch nach der Anpassung des Datums und der Sortierung nach Datum bleibt es bei dem Ergebnis. Könnte es daran liegen, dass die Daten bereits eingelesen wurden? Kann man bei "Buchungsvorschläge verarbeiten" etwas ändern, damit er eine Neue Datei einliest und nicht nur eine "Wiederholung im angegebenen Zeitraum" durchführt?

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 23 Oct 2017 07:13:29 GMT

Dann ist die Banken.csv in der Tat alles richtig. Die USD-Vorgänge werden nicht berücksichtigt, soweit so gut. Und in Zeile 44 werden die kumulierten PayPal-Gebühren ausgewiesen.

Es werden IMO immer nur die neuen Bankbewegungen importiert. Die Frage ist aber, warum aber beim ersten Mal nicht alle eingelesen wurden. Deshalb vermute ich, dass Herr Kolberg insofern recht hat, als dass es an der Sortierung liegt.

Testen können Sie es, wenn Sie einmal die gesamten Bankdaten über das Rewe-Modul 'Auswertungen -> Bankdaten' löschen und den gesamten Vorgang noch einmal wiederholen. Dabei sollte der Mandant aber geschlossen sein und die exportierte Banken.csv einmal manuell sortieren. Dann den Mandanten öffnen und sehen, ob jetzt auch alle Bewegungen importiert werden.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

tdw — Mon, 23 Oct 2017 09:24:44 GMT

Super, das hat funktioniert.

Also müsste bei einem "Jahreskontoauszug" von Paypal noch eine Sortierung nach Datum erfolgen um die richtigen und vollständigen Werte angezeigt zu bekommen.

Vielen Dank für die schnelle Hilfe!

Beste Grüße

tdw

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 23 Oct 2017 10:16:45 GMT

Danke für die Info.

Ich glaube der Fall ist so selten, dass es sich nicht lohnen würde, die Sortierung über das Skript durchzuführen, da ggf. damit andere Probleme entstehen können. Man muss halt diesen Zwischenschritt (Sortierung) dann halt manuell machen.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

mkolberg — Mon, 23 Oct 2017 11:02:56 GMT

Wegen eines verkehrten Datums (Ausführungsdatum kleiner Buchungsdatum) hatte ich mir einmal "den Wolf" gesucht, da der Import ohne jede Meldung an dieser Stelle abbrach.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 23 Oct 2017 11:08:19 GMT

Ich werde das mit dem Skript dann doch wohl einmal prüfen.

Ich komme nur im Augenblick nicht dazu. Sobald ich eine Lösung habe, melde ich mich dan wieder.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 23 Oct 2017 14:34:56 GMT

Hallo Leute,

ich habe das PayPal-VBScript noch einmal mit einer Sortierroutine versehen.

Damit sollte es jetzt klappen. (Pfade bitte anpassen: \\server01\home\66\...)

'###################################
'#                                                                  #
'#            PayPal2DATEV                             #
'#                                                                   #
'###################################
Option Explicit
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("\\server01\home\66\Documents\DATEV\DATEN\RWDAT\Export\Banken.csv") Then
objFSO.DeleteFile("\\server01\home\66\Documents\DATEV\DATEN\RWDAT\Export\Banken.csv")
End If
On Error Resume Next
'############### Step 1 -> CSV in ANSI konvertieren
Private Const adReadAll = -1
Private Const adSaveCreateOverWrite = 2
Private Const adTypeBinary = 1
Private Const adTypeText = 2
Private Const adWriteChar = 0
UTF8toANSI WScript.Arguments(0), WScript.Arguments(0)
'############### Step 2 -> Über Excel in Spalten konvertieren
Dim objExcel
Dim objWkb
Dim objWks
Set objExcel = GetObject(,"Excel.Application")
If err.number<>0 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Add
End if
Set objWks = objExcel.Workbooks(1).Sheets(1)
objExcel.Visible = True
Dim objReadFile
Set objReadFile =objFSO.OpenTextFile(WScript.Arguments(0), 1)
Dim colBank(34) 'Spaltendefinition siehe DATEV-Schnittstelle (Feld 1 - 34)
Dim curGeb
Dim sTemp
Dim MyResult
Dim i, lCol, lRow
Do Until objReadFile.AtEndOfStream
    sTemp=objReadFile.Readline
    sTemp = Replace (sTemp,""",""",";")
    sTemp = Replace (sTemp,"""","")
    MyResult = Split(sTemp,";")
    lRow=lRow+1
    For i = 0 To UBound(MyResult)-1
        lCol=i+1

        Select Case lCol
            Case 6,7,8,9,15,16
            'WScript.Echo MyResult(i)
            If IsNumeric(MyResult(i))=False Then
                objWks.cells(lRow,lCol).Value=MyResult(i)
            Else
                objWks.cells(lRow,lCol).Value=CCur(MyResult(i))
            End If
            Case Else
                objWks.cells(lRow,lCol).Value=MyResult(i)
        End Select
    Next
Loop
objWks.columns("J:J").Insert, -4152
Const sQuote = """"
With objWks 'Spaltenüberschriften der neuen Excel-Datei
    .cells(lRow,1).value="BelegDatum"
    .cells(lRow,6).value="Betrag"
    .cells(lRow,10).value="Buchungstext"
End With
Dim MyFile
Set MyFile = objFSO.OpenTextFile("\\server01\home\66\Documents\DATEV\DATEN\RWDAT\Export\Banken.csv", 2, True)
Const xlCellTypeLastCell=11
lRow=objWks.usedrange.specialcells(xlCellTypeLastCell).row
lCol=objWks.usedrange.specialcells(xlCellTypeLastCell).Column
Dim sBereich 'Sortierung neu
sBereich= GetExcelCol(1,false) & 1 & ":" & GetExcelCol(lCol,False) & lRow
objWks.Range(sBereich).Sort objWks.Range("A1"), 1,,,,,,1, 1, 1, 1, , 0
'Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
lRow = 1
For i = 2 To objWks.usedrange.specialcells(xlCellTypeLastCell).row
    lRow=lRow+1

If objWks.cells(lRow,5).value    ="EUR" Then   'nur EUR-Beträge
     If objWks.cells(lRow,13).value<>"" Then
       objWks.cells(lRow,10).value = objWks.cells(lRow,11).value & " / " & _
                                                        objWks.cells(lRow,13).value
        Else
            objWks.cells(lRow,10).value = objWks.cells(lRow,11).value
        End If

        curGeb = curGeb + CCur(objWks.cells(lRow,7)) 'Summe PayPal-Gebühren

    colBank(1) = sQuote & "89999999" & sQuote 'Blz
    colBank(2) = sQuote & "123456" & sQuote 'KtoNr
    colBank(5) = objWks.cells(lRow,1) 'Datum Valuta
    colBank(6) = objWks.cells(lRow,1) 'Buchungsdatum
    colBank(7) = FormatNumber(objWks.cells(lRow,6),2) 'Umsatz
    colBank(8) = objWks.cells(lRow,13) 'Auftraggebername 1
    colBank(12) = objWks.cells(lRow,11) 'Verwendungszweck 1(Transaktionscode)
    colBank(13)   = objWks.cells(lRow,12) 'Verwendungszweck 2 (EMail)
    colBank(29) = FormatNumber(objWks.cells(lRow,7),2) 'Gebühren

        sTemp=""

        For lCol=1 To UBound(colBank)
        sTemp = sTemp & colBank(lCol) & ";"
        Next

        sTemp = Left(sTemp,Len(sTemp)-1) 'letztes Semikolon löschen (überschüssig)

        MyFile.Writeline sTemp
    End If
Next
'zuletzt noch als letzte Bankbewegung die summierten PayPal-Gebühren
sTemp=""
sTemp = sTemp & sQuote & "89999999" & sQuote & ";" 'Blz
sTemp = sTemp & sQuote & "123456" & sQuote & ";" 'KtoNr
sTemp = sTemp & ";" 'Auszug
sTemp = sTemp & ";" 'Datum Auszug
sTemp = sTemp & DateSerial(Year(objWks.cells(lRow,1)),Month(objWks.cells(lRow,1))+1,0) & ";" 'Datum Valuta
sTemp = sTemp & DateSerial(Year(objWks.cells(lRow,1)),Month(objWks.cells(lRow,1))+1,0) & ";" 'Datum Buchung
sTemp = sTemp & FormatNumber(curGeb,2) & ";" 'Umsatz
sTemp = sTemp & "PayPal" & ";" 'Auftraggebername 1
sTemp = sTemp & "" & ";" 'Auftraggebername 2
sTemp = sTemp & "" & ";" 'BLZ Auftraggeber
sTemp = sTemp & "" & ";" 'Kto Auftraggeber
sTemp = sTemp & "PayPal-Gebühren" & ";" 'Verwendungszweck 1
sTemp = sTemp & "" & ";" 'Verwendungszweck 2
MyFile.Writeline sTemp
MyFile.Close
MsgBox "PayPal-Buchungen können jetzt importiert werden.",,"Export PayPal"
Private Sub UTF8toANSI(ByVal UTF8FName, ByVal ANSIFName)
Dim strText
With CreateObject("ADODB.Stream")
    .Open
    .Type = adTypeBinary
    .LoadFromFile UTF8FName
    .Type = adTypeText
    .Charset = "utf-8"
    strText = .ReadText()
    .Position = 0
    .SetEOS
    .Charset = "x-ansi"        'Use current ANSI codepage.
    .WriteText strText, adWriteChar
    .SaveToFile ANSIFName, adSaveCreateOverWrite
    .Close
End With
End Sub
' bInitialCall gibt an, ob die Zählung bei 0 (False)
' oder bei 1 erfolgen soll (bInitialCall = True)
' GetExcelCol(1,False) => A
Public Function GetExcelCol(lIdx, bInitialCall)
     If (bInitialCall) Then lIdx = lIdx + 1
     If (lIdx = 0) Then Exit Function
    GetExcelCol = GetExcelCol((lIdx - 1) \ 26, False) + Chr(65 + (lIdx - 1) Mod 26)
End Function
'WScript.Echo GetIndexOfExcelCol("AX", 0,False)
Public Function GetIndexOfExcelCol(ByVal strCol, ByVal slevel, ByVal bInitialCall)
   Dim tInitialCall
   If (CInt(slevel) = Len(strCol)) Then Exit Function

   If CBool(bInitialCall)    = True Then
               tInitialCall=-1
       Else
               tInitialCall=0
   End if
   GetIndexOfExcelCol = GetIndexOfExcelCol(strCol,CInt(slevel) + 1, False) + _
((Asc(Mid(strCol, Len(strCol) - CInt(slevel), 1)) - 65) + 1) * _
26 ^ CInt(slevel) + CLng(tInitialCall)
End Function

Sollten sich in der neuen Version Fehler eingeschlichen haben, dann bitte melden.

Gruß A. Martens

P.S.

Wie immer gilt:

Ich übernehme keine Verantwortung für irgendwelche Schäden. Das Tool ist von mir getestet und es traten bei mir keine Probleme auf. Anspruch auf Support besteht nicht. Bin aber gerne bereit zu helfen.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 24 Oct 2017 07:41:47 GMT

Guten Morgen,

ich habe es auch gerade eingesetzt. Musste noch ein wenig rumexperimentieren, aber es hat super geklappt.

Vielen herzlichen Dank für das Tool und die ganze Vorarbeit, natürlich an alle die mit gemacht haben!

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 24 Oct 2017 11:51:03 GMT

Hallo Zusammen,

ich habe noch versucht die Beschreibung in den Verwendungszweck zu bekommen. Da wir bei unserem Mandanten auch Einkäufe über das PayPal Konto abwickeln. Hat leider nicht geklappt. Kann mir hier jemand helfen?

Wie ist das eigentlich mit den Umsatzsteuerangaben? Die liefert PayPal nicht mit oder habe ich das falsch?

Viele Grüße und vielen Dank vorab!

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 24 Oct 2017 12:07:47 GMT

Bitte beachten Sie, dass der Verwendungszweck max. 27 Zeichen aufnehmen kann.

Laut Schnittstellenbeschreibung kennt DATEV 4 Verwendungszwecke.

Diese können Sie in der colBank(12) - colBank(15) verwenden. In dem PayPal-Tool verwende ich nur die Verwendungszwecke 1+2 (colBank(12) + colBank(13). Sie haben also noch genügend Platz um weitere Informationen aufzunehmen.

Ergänzen Sie einfach das VBScript wie folgt:

colBank(14) = objWks.cells(lRow,??) 'Verwendungszweck 3

z.B. ?? <> 13 Excel-Spalte (A=1, B=2 [...] M=13)

oder über die Hilfsformel: GetIndexOfExcelCol("M", 0,False)

colBank(14) = objWks.cells(lRow,GetIndexOfExcelCol("M", 0,False)) 'VZ 3

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

hilverkus — Tue, 14 Nov 2017 10:09:36 GMT

Guten Tag,

ich bin Mitarbeiter der INS Systems GmbH. Wir sind angehender Datev-Systempartner. Wir haben in Sachen PayPal sehr gute Erfahrungen mit unserem Partner HeeroSoft gemacht. HeeroSoft hat seit Jahren eine gut funktionierende Schnittstelle für Paypal im Einsatz, die auch ständig gepflegt wird. Vlt. wäre das eine Alternative.

VG Frank Hilverkus

INS Systems GmbH

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 14 Nov 2017 10:41:47 GMT

Nachtrag Verwendungszweck:

In einem anderen Fall bekomme ich von einem Mandanten einmal im Jahr einen Export der Bankdaten aus S-Firm. Hier hatte ich das Problem mit dem Buchungstext bei Bankgebühren gehabt, die ja extrem lange sein können.

Bei extrem langen Buchungstexte kann man diese auf die 4 Verwendungszwecke wie folgt verteilen:

Dim sVerwendungszweck(3)
sVerwendungszweck(0)=left(sTemp,27) 'max. 27 Stellen (z.B. KtoGeb.)
sVerwendungszweck(1)=Mid(sTemp, 28,27)'max. 27 Stellen
sVerwendungszweck(2)=Mid(sTemp, 55,27)'max. 27 Stellen
sVerwendungszweck(3)=Mid(sTemp, 82,27)'max. 27 Stellen

colBank(12)=sVerwendungszweck(0)
colBank(13)=sVerwendungszweck(1)
colBank(14)=sVerwendungszweck(2)
colBank(15)=sVerwendungszweck(3)

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

heikowiedenfeld — Tue, 09 Jan 2018 11:44:02 GMT

Vielleicht bin ich einfach nur blind oder ich verstehe da was nicht. Aber woher bekomme ich die Banken.csv?

Ansonsten scheint alles zu funktionieren bei mir

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 09 Jan 2018 13:31:14 GMT

Die Pfade in dem VBSript sind an die eigenen Gegebenheiten anzupassen.

z. B. hier:

Dim MyFile

Set MyFile = objFSO.OpenTextFile("\\server01\home\66\Documents\DATEV\DATEN\RWDAT\Export\Banken.csv", 2, True)

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

heikowiedenfeld — Wed, 10 Jan 2018 06:55:29 GMT

Danke für die schnelle Antwort. Jetzt hat das geklappt.

Jetzt habe ich aber das gleiche Problem wie Herr Mischlich hatte. Es sind in der Banken.csv keine Daten. Nur in der Excel-Datei.

Die CSV-Datei habe ich selber von Paypal runtergeladen. Habe sie vorher nicht als Excel-Datei geöffnet und gespeichert.

Auch ist bei Paypal ein Geschäftskonto eingerichtet.

Was könnte hier noch für ein Problem vorliegen?

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

w_paul — Tue, 23 Jan 2018 14:04:26 GMT

Bei mir öffnet sich die Datei in Excel

Die letzte Zeile:

BelegDatum 18:21:40 MEZ Bankkonto (Lastschrift) Einzahlung ...

Es scheint, dass das tatsächliche mit dem Wort BelegDatum überschrieben worden ist.

In der Spalte mit Abschlossen steht das Wort Betrag.

In der Spalte nach dem tatsächlichen Betrag (leere Spalte) steht das Wort Buchungstext.

und in banken.csv steht der Text

89999999 123456 0 paypal

Wie kann der Export tatsächlich in banken.csv gespeichert werden?

Oder welcher Teil im Code könnte bei mir falsch sein?

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 23 Jan 2018 15:58:17 GMT

[Zitat von Herr Kolberg]
Der Screenshot ist identisch mit hier funktionierenden Daten.

Es gibt zwei denkbare Möglichkeiten:
Der Mandant hat die Datei nicht mittels "speichern unter", gespeichert, sondern mit seinem Excel geöffnet und aus Excel heraus gespeichert -> Datei ist defekt.
Das Script setzt einen Firmen. Account von PayPal voraus. (Das läßt sich kostenlos und ohne erkennbare Nebenwirkungen aktivieren)
PS. Superdankeschön für das Script

Geändert am 22.06.17 um 08:15 Uhr

Ich habe hier genau das gleiche Problem. Bin aber einfach noch nicht dazu gekommen, mich darum zu kümmern, warum und wie man diesen Fehler beheben kann.

Einfach noch mal versuchen und den Hinweis von Herrn Kolberg beachten und die beiden Hinweise beachten.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

w_paul — Tue, 23 Jan 2018 16:20:40 GMT

Okay. Ich habe es mit meinem eigenen Account versucht. Vielleicht liegt es tatsächlich am Firmenaccount. Demnächst bekomme ich eine Datei von einem Mandanten, dann teste ich das Script nochmal.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Fri, 23 Feb 2018 08:56:03 GMT

Hallo Leute,

in der letzten Version vom PayPal hatte sich ein kleiner Fehler eingeschlichen.

Hier nun die bereinigte und verbesserte (endgültige ?) Version:

a) folgender Fehler wurde behoben:

Zum Ende der Banken-Datei wurde in den Bewegungsdaten leider Kopfzeilenwerte eingetragen, da ein Zähler nicht zurücksetzt wurde.

objWks.columns("J:J").Insert, -4152
lRow=1
Const sQuote = """"

b) folgende Verbesserung/Änderungen wurden aufgenommen:

1. Die PayPal-Spalte 'Währungskennzeichen' wird jetzt dynamisch ermittelt. Das war wohl auch der Fehler, warum bei einigen die Konvertierung erfolgte, aber kein Bankexport.

Dim lColWKZ
Do While lColWKZ = 0
i=i+1
If objWks.cells(lRow,i).Value="Währung" Then
lColWKZ = i
End If
Loop

2. Der Exportpfad ist nur noch einmal im Kopf anzupassen. Damit wird die Pflege einfacher. 🙂

Option Explicit
Dim objFSO
Dim sPathExport
sPathExport="C:\Users\ama\Documents\Tools"

3. Bei PayPal sind anscheinend die Spaltendefinitionen nicht immer einheitlich. Deshalb kam es ja auch zu Problemen mit dem Währungskennzeichen. Bitte beachtet das und passt ggf. die Verwendungszwecke selber noch einmal an. Dazu muss man lediglich das Tool laufen lassen und am Ende die gewünschten Textspalten aus der Excel-Datei auslesen und im Code übernehmen.

Eine weitere PP-Spalte könnte auch noch interessant für den Verwendungszweck sein, nämlich die Spalte 'Beschreibung'. Diese wurde jetzt auch mit aufgenommen.

colBank(14) = Left(objWks.cells(lRow,4),27) 'VWZ 3 (PayPal Beschreibung)

(Beispielhaft mit der 27-Zeichen Limitierung)

Hier nun das neue Script:

(Zeilenumbrüche bitte ggf. selber berichtigen, da das DATEV-Forum nicht in der Lage ist, vernünftigen Text zu schreiben)

'###################################
'# #
'# PayPal2DATEV #
'# (V. 2.0) #
'###################################

Option Explicit

Dim objFSO
Dim sPathExport
sPathExport="C:\Users\ama\Documents\Tools"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(sPathExport & "\Banken.csv") Then
objFSO.DeleteFile(sPathExport & "\Banken.csv")
End If

On Error Resume Next

'############### Step 1 -> CSV in ANSI konvertieren

Private Const adReadAll = -1
Private Const adSaveCreateOverWrite = 2
Private Const adTypeBinary = 1
Private Const adTypeText = 2
Private Const adWriteChar = 0

UTF8toANSI WScript.Arguments(0), WScript.Arguments(0)

'############### Step 2 -> Über Excel in Spalten konvertieren

Dim objExcel
Dim objWkb
Dim objWks

Set objExcel = GetObject(,"Excel.Application")

If err.number<>0 Then
Err.Clear

Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Add
End if

Set objWks = objExcel.Workbooks(1).Sheets(1)
objExcel.Visible = True

Dim objReadFile
Set objReadFile =objFSO.OpenTextFile(WScript.Arguments(0), 1)

Dim colBank(34) 'Spaltendefinition siehe DATEV-Schnittstelle (Feld 1 - 34)
Dim curGeb
Dim sTemp
Dim MyResult
Dim i, lCol, lRow

Do Until objReadFile.AtEndOfStream
sTemp=objReadFile.Readline
sTemp = Replace (sTemp,""",""",";")
sTemp = Replace (sTemp,"""","")
MyResult = Split(sTemp,";")
lRow=lRow+1

For i = 0 To UBound(MyResult)-1
lCol=i+1

Select Case lCol
Case 6,7,8,9,15,16
If IsNumeric(MyResult(i))=False Then
objWks.cells(lRow,lCol).Value=MyResult(i)
Else
objWks.cells(lRow,lCol).Value=CCur(MyResult(i))
End If

Case Else

objWks.cells(lRow,lCol).Value=MyResult(i)
End Select
Next
Loop

objWks.columns("J:J").Insert, -4152

lRow=1
Const sQuote = """"

With objWks 'Spaltenüberschriften der neuen Excel-Datei
.cells(lRow,1).value="BelegDatum"
.cells(lRow,6).value="Betrag"
.cells(lRow,10).value="Buchungstext"
End With

Dim MyFile
Set MyFile = objFSO.OpenTextFile(sPathExport & "\Banken.csv", 2, True)

Const xlCellTypeLastCell=11

lRow=objWks.usedrange.specialcells(xlCellTypeLastCell).row
lCol=objWks.usedrange.specialcells(xlCellTypeLastCell).Column

Dim sBereich 'Sortierung neu
sBereich= GetExcelCol(1,false) & 1 & ":" & GetExcelCol(lCol,False) & lRow
objWks.Range(sBereich).Sort objWks.Range("A1"), 1,,,,,,1, 1, 1, 1, , 0

lRow = 1

Dim lColWKZ 'Währungskennzeichen
Do While lColWKZ = 0
i=i+1
If objWks.cells(lRow,i).Value="Währung" Then
lColWKZ = i
End If
Loop

For i = 2 To objWks.usedrange.specialcells(xlCellTypeLastCell).row
lRow=lRow+1

If objWks.cells(lRow,lColWKZ).value="EUR" Then 'nur EUR-Beträge
If objWks.cells(lRow,13).value<>"" Then
objWks.cells(lRow,10).value = objWks.cells(lRow,11).value & " / " & _
objWks.cells(lRow,13).value
Else
objWks.cells(lRow,10).value = objWks.cells(lRow,11).value
End If

curGeb = curGeb + CCur(objWks.cells(lRow,7)) 'Summe PayPal-Gebühren
colBank(1) = sQuote & "89999999" & sQuote 'Blz
colBank(2) = sQuote & "123456" & sQuote 'KtoNr
colBank(5) = objWks.cells(lRow,1) 'Datum Valuta
colBank(6) = objWks.cells(lRow,1) 'Buchungsdatum
colBank(7) = FormatNumber(objWks.cells(lRow,6),2) 'Umsatz
colBank(8) = objWks.cells(lRow,13) 'Auftraggebername 1
colBank(12) = objWks.cells(lRow,11) 'Verwendungszweck 1(Transaktionscode)
colBank(13) = objWks.cells(lRow,12) 'Verwendungszweck 2 (EMail)
colBank(14) = objWks.cells(lRow,3) 'Verwendungszweck 3 (Beschreibung)
colBank(29) = FormatNumber(objWks.cells(lRow,7),2) 'Gebühren

sTemp=""

For lCol=1 To UBound(colBank)
sTemp = sTemp & colBank(lCol) & ";"
Next

sTemp = Left(sTemp,Len(sTemp)-1) 'letztes Semikolon löschen

MyFile.Writeline sTemp
End If
Next

'zuletzt noch als letzte Bankbewegung die summierten PayPal-Gebühren
sTemp=""

sTemp = sTemp & sQuote & "89999999" & sQuote & ";" 'Blz
sTemp = sTemp & sQuote & "123456" & sQuote & ";" 'KtoNr
sTemp = sTemp & ";" 'Auszug
sTemp = sTemp & ";" 'Datum Auszug
sTemp = sTemp & DateSerial(Year(objWks.cells(lRow,1)),Month(objWks.cells(lRow,1))+1,0) & ";" 'Datum Valuta
sTemp = sTemp & DateSerial(Year(objWks.cells(lRow,1)),Month(objWks.cells(lRow,1))+1,0) & ";" 'Datum Buchung
sTemp = sTemp & FormatNumber(curGeb,2) & ";" 'Umsatz
sTemp = sTemp & "PayPal" & ";" 'Auftraggebername 1
sTemp = sTemp & "" & ";" 'Auftraggebername 2
sTemp = sTemp & "" & ";" 'BLZ Auftraggeber
sTemp = sTemp & "" & ";" 'Kto Auftraggeber
sTemp = sTemp & "PayPal-Gebühren" & ";" 'Verwendungszweck 1
sTemp = sTemp & "" & ";" 'Verwendungszweck 2

MyFile.Writeline sTemp
MyFile.Close

MsgBox "PayPal-Buchungen können jetzt importiert werden.",,"Export PayPal"

Private Sub UTF8toANSI(ByVal UTF8FName, ByVal ANSIFName)
Dim strText

With CreateObject("ADODB.Stream")
.Open
.Type = adTypeBinary
.LoadFromFile UTF8FName
.Type = adTypeText
.Charset = "utf-8"
strText = .ReadText()
.Position = 0
.SetEOS
.Charset = "x-ansi" 'Use current ANSI codepage.
.WriteText strText, adWriteChar
.SaveToFile ANSIFName, adSaveCreateOverWrite
.Close
End With

End Sub

' bInitialCall gibt an, ob die ZÃ¤hlung bei 0 (False)
' oder bei 1 erfolgen soll (bInitialCall = True)
' GetExcelCol(1,False) => A

Public Function GetExcelCol(lIdx, bInitialCall)
If (bInitialCall) Then lIdx = lIdx + 1
If (lIdx = 0) Then Exit Function
GetExcelCol = GetExcelCol((lIdx - 1) \ 26, False) + Chr(65 + (lIdx - 1) Mod 26)
End Function

'WScript.Echo GetIndexOfExcelCol("AX", 0,False)
Public Function GetIndexOfExcelCol(ByVal strCol, ByVal slevel, ByVal bInitialCall)

Dim tInitialCall
If (CInt(slevel) = Len(strCol)) Then Exit Function
If CBool(bInitialCall) = True Then
tInitialCall=-1
Else
tInitialCall=0
End if
GetIndexOfExcelCol = GetIndexOfExcelCol(strCol,CInt(slevel) + 1, False) + _
((Asc(Mid(strCol, Len(strCol) - CInt(slevel), 1)) - 65) + 1) * _
26 ^ CInt(slevel) + CLng(tInitialCall)
End Function

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

willimüller — Fri, 23 Feb 2018 09:27:54 GMT

Als Neuerung hat die Datev mit der DVD 12.0 geplant:

Mit der neuen PayPal-Schnittstelle und entsprechenden Verarbeitungsmechanismen im
Rechnungswesen bieten wir eine deutlich erhöhte Datenqualität zur bisherigen
Schnittstelle. Im Rechnungswesen wurde das elektronische Bankbuchen so
erweitert, dass nun ein PayPal-Konto analog einem Bankkonto angelegt werden
kann und über die Mechanismen des elektronischen Bankbuchens die Umsätze des
PayPal-Kontos nun effizient und automatisiert verarbeitet werden können. Die
Verknüpfung von Rechnung und Zahlung findet über die Order-ID im Feld
Auftragsnummer statt.

Was halten Sie davon?

Schöne Grüße

Willi Müller

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Fri, 23 Feb 2018 09:53:55 GMT

Erstens bin ich immer Skeptisch, wenn DATEV etwas verbessert.

Außerdem, mit meinem Tool habe ich ja schon eine Bankendatei und dennoch ist noch viel Handarbeit nötig, da es DATEV bis heute das Belegefeld2 nicht berücksichtigt.

Es nützt einem also gar nichts, wenn ich bei der Einbuchung der Ausgangsrechnung keine vernünftige Belegnummern erfassen kann. Ich muss mich immer für eine Variante entscheiden, also

a) Belegfeld1 = Rechnungsnummer oder

b) Belegeld1 = Order-ID

Belegefeld2 ist ja für die Fälligkeiten vergewaltigt worden.

[An DATEV]

WANN BEGREIFT IHR ENDLICH, DASS DAS BELEGFELD2 NICHT FÜR ABWEICHENDE FÄLLIGKEITEN ZU VERWENDEN IST, SONDERN FÜR EINEN ZWEITE BELEGNUMMER!]

Und zum anderen, bin ich nicht bereit, für diese Schnittstelle auch noch Geld zu bezahlen. Denn vermutlich lässt sich DATEV das teuer bezahlen. Umsonst machen die nämlich gar nichts.

Sollten sich das Tool bei den anderen aber wirklich bewähren, dann kann ich ja umschwenken. Aber bis dahin, bin ich lieber Herr im eigenen Hause und möchte mich nicht abhängig von anderen machen.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

aschreiber — Fri, 23 Feb 2018 15:58:16 GMT

Hallo Herr Martens,

bei der DATEV-Lösung muss das Buchen mit Anzahlungen aktiviert werden. Der Ausgleich erfolgt dann über die Auftragsnummer (=Transaktionscode von PayPal).

Freundliche Grüße

Alexander Schreiber

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Fri, 23 Feb 2018 16:11:04 GMT

ich will ja nicht immer meckern, aber

Belegefeld2 ist ja für die Fälligkeiten vergewaltigt worden.

muss echt nicht sein...

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Fri, 23 Feb 2018 18:50:45 GMT

Der Transaktionscode ist doch etwas ganz anderes und wird von PayPal generiert. Was soll mir das bei den Ausgangsrechnungen helfen?

Ich habe einem Mandanten im Internethandel und da wird meistens vorschüßig gezahlt.

Sobald die Kunden eine Bestellung abschließen, zahlen diese auf eine Order-ID. Ist das Geld eingegangen, erhalten die Kunden eine Rechnung mit ordentlicher Rechnungsnummer.

In meiner Buchhaltung stehe ich jetzt also vor der Gretchenfrage:

Nehme ich im Belegfeld1 die Rechnungsnummer oder die Order-ID. DATEV vergleicht nur den Buchungstext mit dem Belegfeld1, ich würde aber beide Nummern benötigen!

Das Problem würde sich nicht stellen, wenn DATEV das Belegfeld2 freigeben würde und es nicht zweckentfremden (vergewaltigen*). Das Belegfeld2 ist wie Belegfeld1 eine Belegnummer und auch als solche zu gebrauchen. Nur DATEV hat es seit DOS-Zeiten nicht hinbekommen, dass man für eine abweichende Fälligkeit auch ein eigenes Feld zu verwenden hat. Das Feld Belegfeld2 heißt eben nicht "Abweichende Fälligkeit" und daher erwarte ich von so einem Softwarehaus auch eine vernünftige Software. Und dieser Mißstand wird leider immer nerviger. DATEV hat jetzt mind. 20 Jahre Zeit gehabt endlich einmal die Programme umzurüsten, das sollte nun wirklich ausreichend sein, für die Fälligkeiten ein separates Feld zu spendieren.

Gruß A. Martens

----

* Duden: niederkämpfen, niederringen, unter seine Herrschaft bringen, unterwerfen; (gehoben) niederwerfen, niederzwingen, sich untertan machen

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

w_paul — Fri, 23 Feb 2018 22:47:54 GMT

Ich hab das Script gerade bei meinem eigenen Account probiert. Es wird Excel geöffnet, die Füllung der Zeilen kann mit angesehen werden. Weiter passiert nichts. Nach Schließen der Mappe1 kommt die msgbox. Die banken.csv beinhaltet keine Daten.

Nachtrag:

Jetzt hat es wohl funktioniert.

Entweder muss man lange warten oder es liegt daran, dass ich die banken.csv geöffnet habe (sie war leer) während die Excel-Datei noch offen war. Danach kam die msgbox und die banken.csv war gefüllt.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Fri, 23 Feb 2018 23:07:58 GMT

Ja, das Script braucht eine gewisse Zeit und ist nicht das schnellste.

Eventuell werde ich das einmal komplett nach VBNet portieren und eine echten Assistenten für die Spaltenbelegung programmieren.

Auf jeden Fall muss das VBSript in Ruhe seine Sache machen lassen und abwarten bis die Meldung kommt. Man kann ja in der Zwischenzeit ja auch noch weiterarbeiten.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

w_paul — Mon, 26 Feb 2018 11:59:49 GMT

Ich habe das Script gerade ausprobiert.

Bei der Übernahme über Buchungsvorschläge werden nur die letzten 9 von 183 Bewegungen angezeigt. Wobei keine Verarbeitung stattfindet. Die 9 Umsätze sind alle auf 0,00 €.

Die Spalte A ist nicht chronologisch nach das Datum sortiert.

Was könnte mein Problem sein?

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 26 Feb 2018 13:07:37 GMT

Also ich habe eben das Tool hier aus dem Forum V. 2.0 getestet und es hat bei mir funktioniert.

Bitte folgendes prüfen:

1. Excel im Hintergrund noch geöffnet?

2. Excel vielleicht vorher öffnen und dann die Konvertierung starten.

3. Pfade angepasst?

4. Das Tool ist nicht das schnellste, das gebe ich zu. Einfach in Ruhe arbeiten lassen.

Es müsste in Excel sichtbar die Konvertierung ablaufen. Als letztes kommt die Meldung, dass PayPal erstellt wurde.

5. Können Sie mir vielleicht eine Testdatei zusenden?

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

w_paul — Mon, 26 Feb 2018 17:15:56 GMT

Werde ich morgen mal testen.

Das Tool läuft durch.

Die Msgbox erscheint.

Die banken.csv ist am richtigen Platz und gefüllt.

Excel ist noch offen und wird per Hand ohne zu speichern geschlossen.

Beim importieren über Buchungsvorschläge werden Sätze nicht verarbeitet.

Vielleicht liegt es am Privatkonto also nicht Geschäftskonto.

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 26 Feb 2018 19:13:38 GMT

Dann wurden bereits die Bankdaten einmal eingelesen.

DATEV ist so intelligent, dass immer nur neue Bankdaten importiert werden, auch wenn die Bankendatei ältere Daten enthält. Löschen Sie bitte die alten Bankdaten und starten Sie den Mandanten neu. Dann sollten auch die vollständigen Bankdaten importiert werden.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

gbruhns — Mon, 18 Jun 2018 11:11:36 GMT

Ich habe das Tool getestet und nach ein paar kleinen Anpassungen/Änderungen hat es hervorragend funktioniert. Nur jetzt stehe ich vor einem Problem: wenn auf dem Paypalkonto meines Mandanten ein Guthaben steht, wird dieses auf sein Bankkonto überwiesen. Diese Überweisung steht einmal mit "allgemeine Abbuchung" und "ausstehend" und einmal mit "allgemeine Abbuchung" und "abgeschlossen" in der Datei. Somit habe ich zweimal die gleiche Summe, die auf das Bankkonto überwiesen wird. Gibt es eine Möglichkeit, im Script eine "Löschaktion" für alle ausstehenden Buchungszeilen zu hinterlegen?

Viele Grüße

G. Bruhns

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 19 Jun 2018 08:43:52 GMT

Es handelt sich doch um Geldtransitbewegungen oder?

Bitte stellen Sie einmal anonymisiert die betroffenen Zeilen ein.

Ohne Beispiele kann mich mir da kein Bild machen, da ich keine Probleme habe.

Gruß A. Martens

P.S.

Eventuell können Sie mir ja auch eine Datei per P.N. zusenden?

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

gbruhns — Tue, 19 Jun 2018 10:28:09 GMT

Hallo Herr Martens,

die Datei sieht folgendermaßen aus:

Ich hoffe, man kann es lesen - es betrifft die beiden letzten Zeilen. PN? Anscheinend bin ich blind, ich kann Ihnen antworten, aber keine Datei anhängen

Und eine Frage hab ich noch gleich dazu: Der Kontostand des fiktiven PayPal-Kontos wird nicht richtig aktualisiert, obwohl ich den Anfangsbestand eingegeben habe. Es wird die Gesamtsumme aller Bewegungen angegeben, dabei komme ich auf einen Kontostand von -9600,00 € statt 7,17 € Guthaben (als Beispiel), das sieht in der BWA natürlich nicht so schön aus. Übersehe ich da was?

Gruß G. Bruhns

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 19 Jun 2018 10:34:31 GMT

Hallo Frau Bruhns,

wieso Saldo in der BWA oder meinten Sie die SuSa?

Ich senden Ihnen einmal per PN meine Emailadresse zu. Dann können Sie mir direkt die Probedatei zusenden.

Auf die Schnelle würde ich vermuten, dass man in Ihrem Fall ganz einfach nach dem Feld "Memo" prüfen kann und diese Zeile dann einfach überspringen. Bin mir da aber wie gesagt nicht ganz sicher, da ich so einen Fall bisher nicht kenne.

Zu dem Anfangsbestand:

Der wird immer rechnerisch ermittelt. Prüfen Sie bitte, ob Sie auch den richtigen Anfangsbestand vorgegeben haben.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 19 Jun 2018 12:27:51 GMT

Für andere Mitstreiter!

Das Problem von Frau Bruhns konnte ich wie folgt lösen:

Problemstellung:

In der Paypal-Zahlungsdatei, waren Werte enthalten, die nicht importiert werden durften. Sollte jemand mit einem ähnlichen Problem zu tun haben, der geht wie folgt vor:

Lösung:

Zählen Sie die Spalte mit dem Selektionskriterium aus, welches die Info für den zu ignorierenden Datensatz enthält und passen das Skript wie folgt an.

If objWks.cells(lRow,lColWKZ).value="EUR" Then 'nur EUR-Beträge
If objWks.cells(lRow,6) <> "Ausstehend" Then 'Spalte Status
[...]
sTemp = Left(sTemp,Len(sTemp)-1) 'letztes Semikolon löschen

MyFile.Writeline sTemp
End If
End If

Ansonsten einfach hier melden.

Gruß A. Martens

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

gbruhns — Tue, 19 Jun 2018 13:10:36 GMT

Das hat wirklich klasse geklappt! Nochmals vielen Dank.

Auch mein Kontostandproblem hat sich erledigt. Man muss nach jeder einzelnen Änderung der Bankkontoumsätze den Mandanten bzw. die Buchführung komplett schließen und dann neu öffnen

Gruß G. Bruhns

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Daniel_HSK — Tue, 23 Jun 2020 18:06:25 GMT

Hallo,

danke erstmal für das bereitstellen.

Jedoch habe ich Probleme damit:

Was hab ich vergessen oder falsch gemacht?

Hab mich genau an das von Ihnen beschriebene vorgehen gehalten:

https://www.datev-community.de/t5/Betriebliches-Rechnungswesen/Paypal-import/m-p/153814

Um Ihr Unterstützung würde ich mich sehr freuen

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

martinkolberg — Wed, 24 Jun 2020 04:30:34 GMT

Vorher wurde die Variable definiert und Sie nutzen diese später nicht.

Außerdem fehlen bei Ihnen Anführungszeichen zu Beginn des Textpfades.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Daniel_HSK — Wed, 24 Jun 2020 07:44:53 GMT

Danke für die Antwort, aber so schlau werde ich nicht ganz.

Das mit den "" hab ich nun geändert.

Aber egal welche Variante ich aus den folgenden Bildern nutze, es erscheint noch immer die selbe Fehlermeldung.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

martinkolberg — Wed, 24 Jun 2020 07:56:51 GMT

Der "SpathExport" muß natürlich als Ordner existieren, damit das Programm auf die Datei Banken.csv zugreifen kann.

Dann stellt sich die Frage, warum Sie nicht ein Verzeichnis: "C:\Daten\MdNR\Paypal_Import" anlegen und nutzen.

Vielleicht kommt Ihr System nicht mit "Users" klar und möchte "Benutzer"...

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Daniel_HSK — Wed, 24 Jun 2020 11:14:01 GMT

Der Ordner ist vorhanden und leider hilft auch die Idee mit einen Ordner direkt unter C: anzulegen nichts. Immer noch die selbe Fehlermeldung 😞

Ich weiß einfach nicht woran es liegen kann

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

martinkolberg — Wed, 24 Jun 2020 17:47:29 GMT

Bitte einen einfachen Pfad anlegen, die VBS anpassen und laufen lassen.
Bitte die Zeilen der VBS und die Fehlermeldung hier nochmals einkopieren.

Hier sieht das Script folgendermaßen aus: (alte Fassung)

Option Explicit

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("N:\DATEN\Mandant\12345\Paypal\Paypal.csv") Then
objFSO.DeleteFile("N:\DATEN\Mandant\12345\Paypal\Paypal.csv")
End If

On Error Resume Next

'############### Step 1 -> CSV in ANSI konvertieren

With objWks 'Spaltenüberschriften der neuen Excel-Datei
.cells(lRow,1).value="BelegDatum"
.cells(lRow,6).value="Betrag"
.cells(lRow,10).value="Buchungstext"
End With

Dim MyFile
Set MyFile = objFSO.OpenTextFile("N:\DATEN\Mandant\12345\Paypal\Paypal.csv", 2, True)

Const xlCellTypeLastCell=11

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

vogtsburger — Fri, 26 Jun 2020 10:54:55 GMT

@Gelöschter Nutzer , @martinkolberg ,

... ohne den gesamten Thread gelesen zu haben (mangels Bedarf und bisher fehlender Anwendungsmöglichkeit), nur mal kurz eine Verständnisfrage :

Ist dieses Script noch nützlich und erforderlich, obwohl es inzwischen ja den PayPal-Zahlungsdatenservice gibt ?

Ich dachte eigentlich, dass die selbstentwickelten Scripte und Workflows für die Verbuchung der PayPal-Umsätze inzwischen überflüssig (geworden) sind.

... oder bin ich hier 'auf dem Holzweg' ?

Gibt es noch Probleme beim Importieren der Buchungsstapel ? 🤔😗

Ich bin nämlich gerade dabei, den "PayPal-Zahlungsdatenservice" erstmals einzurichten

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Sun, 28 Jun 2020 06:41:10 GMT

Hallo Hr. @vogtsburger,

ich nutze weiterhin mein PayPal-Tool in Verbindung mit einer Dummy-Bank, da ich hier viele Vorteile gegenüber der DATEV-Variante sehe. Außerdem ist meine Vorgehensweise kostenfrei.

Ich muss aber auch sagen, dass ich mein PayPal-Tool noch viel mehr erweitert habe und auf meine persönlichen Bedürfnisse angepasst habe (Datenbankabfragen mit integriert für Transferticketnummer <> OrderID/RgNr-Suche). Diese Erweiterung ist höchstpersönlich, so dass ich hierfür keine Lösung online stellen will.

Es klappt weiterhin alles einwandfrei und ich bin höchstzufrieden. Zumal ich eine vollständige Recherche in dem Bankenmodul habe.

Gruß Achilleus

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

vogtsburger — Sun, 28 Jun 2020 12:36:29 GMT

... inzwischen habe ich mir den Thread doch noch im Schnelldurchgang 'reingezogen'.

Wow ! Respekt ! Darin steckt eine Menge Hirnschmalz und Zeitaufwand. Danke !

Ich werde auch mal kurz testen, ob Ihr Script nach einigen erforderlichen Anpassungen (Pfade etc.) freiwillig läuft und zu einem Ergebnis führt.

Aber falls nein, will ich doch nochmal kurz nachfragen:

Hat sich der "Datev Paypal-Zahlungsdatenservice" mittlerweile in der Buchungspraxis auch bewährt oder hat man dort diverse Haken und Ösen, um die PayPal-Umsätze in's REWE 'schaufeln' zu können ?

Die monatliche Gebühr für den "Datev Paypal-Zahlungsdatenservice" erscheint mir jedenfalls nicht gerade als existenzgefährdend.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Sun, 28 Jun 2020 17:32:28 GMT

Hallo @Daniel_HSK,

ich würde die Dateien auch nicht auf dem Desktop erstellen lassen, da hier oftmals Adminrechte benötigt werden.

Aber lt. Fehlermeldung ist der Fehler in Zeile 7 in Zeichen 7, das wäre nach meinem Verständnis folgende Zeile:

Option Explicit

und zwar genau nach dem Wort Option. Ich würde also einfach die gesamte Zeile löschen und noch einmal von Hand eingeben. Eventuell hat sich da ein unsichtbares Z

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

martinkolberg — Mon, 29 Jun 2020 03:51:44 GMT

Ist dieses Script noch nützlich und erforderlich, obwohl es inzwischen ja den PayPal-Zahlungsdatenservice gibt ?

Das das DATEV- Paypal zeitnah ist, Fremdwährungen kann und die digitalen Infos besser darstellt, ist DATEV zwischenzeitlich definitiv besser.

Ich nutze das Script nur noch für Kleinstmandate und dafür, die Bankontoumsätze als Kontoauszug zum Abstimmen und Suchen zu erhalten.

Alle Versandhändler wurden auf das DATEV- Paypal umgestellt und das reduzierte die BH- Zeit, da einfach alles ohne manuellem Eingriff funktioniert.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

vogtsburger — Thu, 09 Jul 2020 05:40:41 GMT

@martinkolberg ,

die Ersteinrichtung des PayPal-Zahlungsdatenservices hat funktioniert, der erste Monat ist bereits gebucht.

... vermutlich werden die PayPal-Umsätze als Text-Datei (z.B. csv oder mt940) irgendwo zwischengespeichert, um die Buchungsvorschläge bei "Mandant ergänzen" generieren zu können.

... haben Sie eine Idee, wo diese Datei zwischengespeichert sein könnte ?

Mich würde das Format bzw. der Satzaufbau interessieren.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Katharina_Schoenweiss — Mon, 13 Jul 2020 10:55:59 GMT

Hallo @vogtsburger ,

die Daten werden direkt per Schnittstelle in die Datenbank im DATEV-Rechenzentrum geschrieben.

Es findet hier also kein Austausch in einem gängigen Dateiformat wie CSV oder MT940 statt. Auch werden diese Daten an keinem Ort zwischengespeichert.

Mit freundlichen Grüßen

K. Schönweiß
Service Rechnungswesen (FIBU)
DATEV eG

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

bil_yldz — Mon, 01 Feb 2021 15:54:49 GMT

Hallo,

ich kann leider auf die Zip Datei nicht zugreifen.

Kann mir da jemand weiterhelfen?

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

vogtsburger — Mon, 01 Feb 2021 16:23:54 GMT

... das ist ja kein 'offizielles' Datev-Tool, sondern eine Eigenentwicklung von @Gelöschter Nutzer .

... Niemand außer ihm kann hier etwas dazu sagen 😉

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

bil_yldz — Mon, 01 Feb 2021 16:58:42 GMT

Hallo,

hat sich erledigt, habe nun das Skript per copy paste erstellt.

Dankkeee 🙂

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 01 Feb 2021 17:13:11 GMT

Hallo @bil_yldz,

das war meine private Domain für meine Freeware-Tools rund um die PDF-Verwaltung und Erstellung. Diese Domain gibt es zwischenzeitlich nicht mehr, da das Tool sich im Laufe der Zeit erledigt hatte, da das Basisprogramm (Fremdprogramm) nicht mehr gibt.

Wenn Sie bedarf haben, dann einfach eine PN an mich. Der hier gepostete Quellcode sollte aber einwandfrei funktionieren.

Gruß Achilleus

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

bil_yldz — Mon, 01 Feb 2021 17:47:06 GMT

Vielen Dank der Code funktioniert prima 🙂

Gibt es auch ein solches Skript für Amazon oder Ebay Umsätze?

VG

Re: VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 01 Feb 2021 18:15:23 GMT

Von mir noch nicht, da ich (noch) kein Bedarf habe.

Das Prinzip sollte aber ähnlich sein. Vielleicht bekommen Sie es ja von alleine hin, ansonsten bräuchte ich Demo-Daten.

Gruß Achilleus

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Annitante — Mon, 15 Mar 2021 17:19:18 GMT

Hallo,

danke zunächst für dieses Tool. Ich hab - als absoluter Laie - ein paar Verständnisfragen:

Ist die Datei "Banken.csv" einfach eine leere csv-Datei, die ich an einem Ort meiner Wahl ablege?
Wenn ich die Paypal-Datei des Mandanten auf das Script ziehe, öffnet sich ein Excel "Mappe 1". Wenn ich alles richtig gemacht habe, werden die Kontoumsätze dann automatisch in "Banken.csv" überführt? Ich hatte die Beiträge hier so verstanden, dass ich diese "Mappe 1" nur schließen und nicht speichern muss.
Ich schließe Rewe für den Mandanten, öffne ihn wieder und über Buchungsvorschläge (Belege automatisch holen) sollten nun die Umsätze sichtbar sein, richtig?

Danke für eine Rückmeldung.

Mich würde interessieren, wie Sie die Zuordnung von Transactionscode zur Rechnungsnummer vornehmen? Das hier beschriebene Problem (Kunde zahlt Vorkasse, Mandant schreibt Rechnung im Nachgang) habe ich auch und nehme aktuell die Zuordnungen mühsam manuell vor.

Schönen Abend noch!

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Mon, 15 Mar 2021 17:29:42 GMT

Hallo Hr. @Annitante,

das Procedere ist wie folgt:

Sie/Mandant lädt sich den PayPal-Kontoauszug als CSV-Datei herunter.
Per Drag&Drop lassen Sie diese CSV-Datei auf das Script fallen.
Es wird eine Banken.csv erstellt, die in einem Verzeichnis gespeichert wird. Dieses Verzeichnis müssen natürlich im Script und DATEV übereinstimmen angeben.
In DATEV haben Sie eine Dummy-Bank eingerichtet und legen Datenpfad zu der Banken.csv fest. Diese Banken.csv wird von DATEV dann immer automatisch eingelesen.
Bitte achten Sie auch darauf, dass in dem Script die BLZ und KtoNr. richtig angegeben wurde, nur dann erkennt DATEV auch die Datei.

Bitte die letzte Version vom Script verwenden. Da sollten alle Fehler bereinigt sein.

Ob sich der Aufwand für Sie lohnt, kann ich nicht beurteilen. DATEV hat ja jetzt eine eigene Schnittstelle geschaffen. Nachteil ist allerdings, dass es keinen Kontoauszug gibt. Das wiederum ist mein Vorteil.

Gruß Achilleus

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Annitante — Tue, 16 Mar 2021 13:55:41 GMT

Danke für die zügige Rückmeldung. Diesmal (alles auf Anfang) hat es geklappt - ich weiß nicht, was ich anders gemacht habe. Ein Problem bleibt (wie gesagt - ich bin da Laie):

In Buchungsvorschläge erzeugen gehe ich unter Belege manuell importieren auf ASCII-Daten importieren, richtig?
In der Importvorschau wird nun die Banken.csv auch in der Importvorschau angezeigt, aber die Zuordnung passt nicht. Wie kann ich das korrigieren? In der Ursprungsdatei stimmen Zeilenbeschriftung und -inhalt aber überein. Anbei zwei Screenshots:

Ganz großes Dankeschön!

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 16 Mar 2021 14:50:24 GMT

Nein, nein, nein!

Die Banken.csv wird in das Bankenmodul in KAREWE von DATEV automatisch eingelesen.

Sie müssen lediglich die Buchungsvorschläge in der Buchungserfassung öffnen und den Stapel für die PayPal-Bank auswählen.

Das ist ja das schöne. Für DATEV ist PayPal jetzt eine Bank mit allem Komfort für die automatische Verbuchung und Lerndatei. 😀

Gruß Achilleus

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Annitante — Tue, 16 Mar 2021 14:58:50 GMT

Dann hab ich bestimmt doch etwas falsch gemacht, oder?

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

guenther — Tue, 16 Mar 2021 15:15:20 GMT

Hier sollte der Fehler liegen

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Tue, 16 Mar 2021 15:26:58 GMT

Als Ergänzung:

siehe auch Einrichtung (Seite 1):

Einrichtung PayPal-Bank

Gruß Achilleus

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Annitante — Wed, 17 Mar 2021 09:14:59 GMT

Ich hatte die Dummybank genauso eingerichtet. Nun bin ich mal auf "Eingaben prüfen" gegangen und bekomme diesen Fehlerhinweis.

Verstehe ich aber nicht, denn wenn ich die csv-Datei öffne, enthält diese Daten.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Gelöschter Nutzer — Wed, 17 Mar 2021 11:53:56 GMT

Ist nicht eventuell die DATEV-Schnittstelle für Sie besser geeignet?

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

SvenJanning — Wed, 26 May 2021 07:12:33 GMT

Hallo zusammen,

ich setze das ganze auch mit einer Dummy Bank um mit meinen Amazon-Umsätzen. Bei den AR steht im Belegfeld 1 die Re.-Nr. / im Feld Auftragsnr. steht die Transaktionsnummer. Ich bekomme von Amazon die die Transaktionsnummer, welche ich im Verwendungszweck speichere. Allerdings wirft er mir teilweise den OPOS Abgleich durcheinander. Hat jemand eine Idee, woran das liegt, bzw. wie ich es optimieren kann?

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

guenther — Wed, 26 May 2021 07:44:17 GMT

@Gelöschter Nutzer ist hier nicht mehr dabei...

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

theo — Wed, 26 May 2021 07:50:40 GMT

Der wüsste auf jeden Fall die Antwort. Der Mann wird schwer zu ersetzen sein.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

vogtsburger — Wed, 26 May 2021 08:44:03 GMT

... mal eine kurze Verständnisfrage:

Könnte man (als Kanzlei) evtl. auch für einen per DUO (REWE-)vorerfassenden Mandanten irgendwie den PayPal-Zahlungsdatenservice nutzen ... ?

... z.B. wenn der Mandant mit irgendwelchen 'Kunstgriffen' die Paypal Transaktionsnummern in seinem Buchungsstapel erfasst ?

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

andreashofmeister — Wed, 26 May 2021 09:33:54 GMT

@vogtsburger schrieb:

... mal eine kurze Verständnisfrage:

Könnte man (als Kanzlei) evtl. auch für einen per DUO (REWE-)vorerfassenden Mandanten irgendwie den PayPal-Zahlungsdatenservice nutzen ... ?

... z.B. wenn der Mandant mit irgendwelchen 'Kunstgriffen' die Paypal Transaktionsnummern in seinem Buchungsstapel erfasst ?

Ihr Ernst? Erfassung von Transaktions-IDs? Sie meinen damit die "händische Erfassung von Transaktions-IDs"?

Wie wollen Sie das denn plausibel einem Mandanten "verkaufen" ?

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

vogtsburger — Wed, 26 May 2021 09:07:37 GMT

... ich habe nicht von "händisch" gesprochen.

Am liebsten wäre mir eine konkreter Hinweis, ob der PayPal-Zahlungsdatenservice auch zusammen mit 'nur' einem Datev-Buchungsstapel eingesetzt werden kann und nicht die Sinn-(Gegen-)Frage nach der Erfassung von Transaktionsnummern.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

andreashofmeister — Wed, 26 May 2021 09:09:01 GMT

"Könnte man (als Kanzlei) evtl. auch für einen per DUO (REWE-)vorerfassenden Mandanten irgendwie den PayPal-Zahlungsdatenservice nutzen ... ?

... z.B. wenn der Mandant mit irgendwelchen 'Kunstgriffen' die Paypal Transaktionsnummern in seinem Buchungsstapel erfasst ?"

@vogtsburger , das war Ihre Frage. Und ich fragte nach, wie sie das nun wohl genau meinen. Mehr nicht.....

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Natalie_Schöll — Tue, 01 Jun 2021 15:06:49 GMT

Hallo @SvenJanning,

Sie hatten beschrieben, dass Sie die Amazon-Umsätze über eine Dummy-Bank übernehmen. Gleichzeitig steht bei Ihnen die Transaktionsnummer von Amazon bei den Ausgangsrechnungen im Feld Auftragsnummer.

Beim elektronischen Bankbuchen wird bei der Zuordnung der Zahlungen zum offenen Posten nur das Belegfeld 1, nicht jedoch das Feld Auftragsnummer durchsucht. Das bedeutet, dass die Transaktionsnummer von Amazon in Belegfeld 1 stehen müsste, damit die Amazon-Umsätze in Ihrem Fall korrekt dem offenen Posten zugeordnet werden können. So könnte ich mir Ihre Schwierigkeiten beim OPOS-Ausgleich erklären.

Vielleicht hilft Ihnen auch folgende Information: Voraussichtlich mit den DATEV-Programmen V.15.0 (Herbst 2021) wird es möglich sein, die Zahlungsdaten von Amazon über den Zahlungsdatenservice Amazon abrufen zu können. Analog zu PayPal können dann Amazon-Konten im DATEV-Rechnungswesen-Programm angelegt und mit einem hohen Automatisierungsgrad gebucht werden. Ebenfalls werden Sie hier in den Einstellungen hinterlegen können, ob der OPOS-Ausgleich über das Feld Auftragsnummer und / oder Belegfeld 1 erfolgen soll.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

Natalie_Schöll — Wed, 02 Jun 2021 09:06:56 GMT

Hallo @vogtsburger,

beim Zahlungsdatenservice PayPal können Sie in den Einstellungen hinterlegen, ob der OPOS-Ausgleich über das Feld Auftragsnummer, über Belegfeld 1 und / oder über den Geschäftspartner erfolgen soll. Bei der Rechnungsbuchung müsste also die Transaktionsnummer von PayPal entweder im Feld Auftragsnummer oder im Belegfeld 1 enthalten sein, damit der PayPal-Umsatz dem jeweiligen offenen Posten zugeordnet werden kann.

Leider gibt es jedoch aktuell keine Möglichkeit, bestimmte Informationen / Felder aus Belege online in das Feld Auftragsnummer im DATEV-Rechnungswesen-Programm zu übernehmen. Das Feld Auftragsnummer wird aktuell nur über Schnittstellen bestückt, die strukturierte Rechnungsdaten verarbeiten. Beispiele hierfür wären: Rechnungsdatenservice 1.0, Rechnungsdatenservice 2.0, Buchungsdatenservice oder die Importschnittstellen DATEV-Format und ASCII-Format.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

vogtsburger — Wed, 02 Jun 2021 10:23:16 GMT

Danke Frau @Natalie_Schöll ,

ich glaube, das hilft mir weiter.

Wenn also (nur) die Belegnummer/Rechnungsnummer in "Belegfeld 1" und die PayPal-Transaktionsnummer im Datenfeld "Auftragsnummer" und als 'Leckerli' der Text "SR" im Datenfeld "Buchungstyp" steht, könnte/sollte der/die/das Buchhalter/Buchhalterin/Buchhaltende glücklich sein.

... so habe ich das jetzt verstanden ...

... und wenn alle glücklich sind, bin ich es auch 😊

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

gabipaw — Tue, 27 Jul 2021 10:20:27 GMT

Hallo, bei mir scheitert es schon an der Anlage der Dummy-Bank. Hier bekomme ich den Fehlerhinweis, dass das Land nicht zum Länderkürzel passt. Aufgrund dessen wird die Dummy-Bank nicht gespeichert. Gibt es eine Abhilfe?

Gruß

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

martinkolberg — Tue, 27 Jul 2021 14:03:37 GMT

Ich würde unbedingt die DATEV- Lösung nutzen, da dann alle Fremdwährungen einfach nur funktionieren und die kompletten PayPal- Daten per einzel- Buchungszeile übergeben werden.

ein entsprechendes VSB- Script würden wir jetzt für Ebay- Umsätze benötigen.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

m_brunzendorf — Tue, 27 Jul 2021 14:23:15 GMT

@martinkolberg schrieb:
Ich würde unbedingt die DATEV- Lösung nutzen, da dann alle Fremdwährungen einfach nur funktionieren und die kompletten PayPal- Daten per einzel- Buchungszeile übergeben werden.

Und ich würde noch erwähnen, dass der Script-Ersteller hier nicht mehr aktiv ist und deshalb keine "helfende Hand" für das Tool mehr vorhanden ist.

VBSript-Tool für Übernahme PayPal-Bank in Rewe Banken

vogtsburger — Tue, 27 Jul 2021 15:35:05 GMT

@gabipaw ,

die Neuanlage der Dummy-Bank hat mit dem Script noch nichts zu tun.

Hier muss einfach nur eine funktionierende deutsche IBAN 'erfunden' werden.

... die beiden Ziffern nach dem DE sind Prüfziffern, die aus der BLZ und der Kontonummer errechnet werden können, auch mit Excel, falls man Spaß an ziemlich 'wilden' Excel-Formeln hat😉