WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Software (http://www.wcm.at/forum/forumdisplay.php?f=5)
-   -   MS-Money und Bank Austria / CA --->Keine Onlinedaten (http://www.wcm.at/forum/showthread.php?t=77724)

MUCH 20.11.2002 08:04
MS-Money und Bank Austria / CA --->Keine Onlinedaten
 
Liebe Gemeinde,


MS-Money bzw. der Support dazu wurde von MS eingestellt, weshalb auch die BA-CA seit 1.1.2002 keine Online-Daten zur Verfügung stellt. :mad: (offizielle Auskunft meines Beraters)
Dieser Berater sagte mir aber auch, dass alleine in seiner BA-Filiale weitere 7 Kunden genau "meine Probleme" berichteten - also müssten ja österreichweit hochgerechnet mindestens einige 100 Kunden auch dieses Problem haben - soviel zum Thema Kundendienst! :mad2:

Also hab' ich mir Ende letzten Jahres das "Businessline" einreden lassen und dies nun wieder storniert, da es zwar für jemanden mit separatem Buchhaltungsprogramm möglicherweise toll ist, für mich aber der reinste Mist war und auch noch €3/Monat kostete. (konnte vieles was ich nicht brauchte, dafür das meiste nicht, was eben in Money "all-in-one" für mich perfekt war...)


Nun zu meinen Fragen:

1. Gibt es jemanden, der eine Online-Schnittstelle zur Datenübernahme der BA-CA-Onlinekonten nach MS-Money vielleicht schon selbst programmiert hat, bzw. gibt es sowas irgendwo zu kaufen???

Ich wäre schon mit der Übernahme der Kontozeilen zufrieden - Überweisungen könnte ich ja notfalls weiterhin "händisch" via Internet-Banking machen...
Ich stelle mir das in einer vereinfachten Variante so vor, dass ich sogar händisch die Kontozeilen im Internet markiere und in eine .TXT-Datei kopiere, welche dann dieses hier erwähnte Modul aufbereitet und an Money übergibt.
(Für so eine Schnittstelle wäre ich durchaus bereit, einiges Geld auszugeben...)

oder
2. Wer hat/kennt alternative Produkte zu MS-Money, die mit BA-CA funktionieren und in etwa den Leistungsbereich von Money abdecken?


Danke!!!

Dr. Mabuse 20.11.2002 09:33
Ich bin bei Raiffeisen, und dort kannst du deine Buchungszeilen im OFC, CSV oder TXT Format downloaden. Dazu habe ich ein "Quick and Dirty" Konvertierprogramm geschrieben, welches mir Quicken QIF Dateien erzeugt, welche ich importieren kann.

Gibt's bei der roten Wiener Stadtsparkasse eine Exportdatei zum downloaden ?

https://banking.raiffeisen.at/html10...inpin_demo.jsp

Dr. Mabuse 20.11.2002 09:37
Ich kenne keine alternativen Produkte zu Money, welche mich zufriedenstellen, und ich habe Quicken und WISO-Mein Geld in allen Varianten ausprobiert. Ich kenne nur alternative Banken zur BA-CA, wenn sie dir das gewünschte Service nicht bieten können wechsle die Bank, bist ja ned verheiratet mit denen.

MUCH 20.11.2002 09:40
verheiratet nicht - stimmt!

...aber meine langjährige und mir bestens gestimmte Hausbank bzw. eben meinen mir immer zur Verfügung stehenden Betreuer wechsle ich nicht wegen dieses Problems!!!

MUCH 20.11.2002 09:46
zu deinem "Quick & Dirty":
Wie muss da deine TXT-Datei aussehen, um die Daten konvertieren zu können?

Hier eine Buchungszeile aus meinem Internet-banking:
Buchungsdatum: 18.11.2002 Valutadatum: 18.11.2002 Betrag: -78,00 EUR
Buchungstext: SB-Auftrag vom 18.11.
Empfänger: Landesmusikschule
Kontonummer: 00000011111 BLZ: 11111
Schulgeld Ensemble

Kommt dein Konverter mit sowas zurecht?

UND: Hast Du bitte Infos über das QIF-Format?

danke!

Dr. Mabuse 20.11.2002 10:02
QIF sieht so aus, probiere zu importieren:

!Type:Bank
^
D06/08/2001
T1500.00
PELBA-Auftrag EI04H229
MStorno Umbuchung
^
D06/08/2001
T1500.00
PELBA-Auftrag EI04H229
MFam. Mustermann, Umbuchung Familienkonto
^
D05/08/2001
T2010.00
PSonderzlg. Weihnachtsremuneration
MFirma Fleissig und Erfolgreich AG
^
D01/08/2001
T2572.80
PLohn/Gehalt
MFirma Fleissig und Erfolgreich AG
^
D22/07/2001
T830.50
PBetriebskosten 2. Quartal 2001
MBetriebskosten 2. Quartal 2001
^
D19/07/2001
T182.15
PSB-Überweisung
MPOST und TELECOM Austria
^
D16/07/2001
T56.59
PMiete Juli 2001
MWohnungsgenossenschaft Linz
^
D15/07/2001
T289.95
PRechnung 12345, Winterreifen
MFa. Reifenhandel & CO
^
D12/07/2001
T99.99
PSteuer-Rückvergütung
MSteuer-Rückvergütung

http://www.respmech.com/mym2qifw/qif_new.htm

MUCH 20.11.2002 10:24
...danke - das hilft schon mal seeeehr!!!

sag - in welcher Sprache hast du das geschrieben - (ich habe früher viel im DOS-Turbo-Pascal programmiert - was nimmt man denn jetzt für solche Sachen???)

Dr. Mabuse 20.11.2002 10:39
Wischerl-Basic oder WinBatch

MUCH 20.11.2002 11:43
...kann es sein, dass du
"P" - Payee und
"M" - Memo

bei deinem QIF-File verwechselt hast???

Dr. Mabuse 20.11.2002 15:44
Das ist ein Demo File von Raiffeisen Banking, ausserdem is es so, daß gerade die zutreffendste Beschreibung einmal bei den Buchungszeilen im Payee und ein anderes Mal im Memofeld steht, je nach Absender.

MUCH 20.11.2002 16:40
ho capito! ;)

Dr. Mabuse 21.11.2002 10:22
WinBatch Quick & Dirty Style, ungetestet:

Code:

old = FileOpen("C:\DATEN\input.asc", "READ")
new = FileOpen("C:\DATEN\output.qif", "WRITE")

newline = "!Type:Bank"
FileWrite(new, newline)

WHILE @TRUE           
  oldline = FileRead(old)
  IF oldline == "*EOF*" THEN BREAK
  IF StrSub(oldline,27,11) == "Valutadatum" THEN
      newline = "^"
      FileWrite(new, newline)
      newline = strcat("D",StrSub(oldline, 40, 2),"/",StrSub(oldline, 43, 2),"/",StrSub(oldline, 46, 4))
      FileWrite(new, newline)
  ENDIF
  IF StrSub(oldline,51,6) == "Betrag" THEN
      newline = strcat("T",StrSub(oldline,58,-1))
      newline = strreplace(newline,"EUR","")
      newline = strreplace(newline," ","")
      newline = strreplace(newline,".","")
      newline = strreplace(newline,",",".")
      FileWrite(new, newline)
  ENDIF
  IF StrSub(oldline,1,12) == "Buchungstext" THEN
      newline = strcat("P",StrSub(oldline,15,-1))
      FileWrite(new, newline)
  ENDIF
ENDWHILE
FileClose(new)
FileClose(old)

Dr. Mabuse 21.11.2002 10:37
* Plonked *

MUCH 21.11.2002 11:55
@Dr.M:

DANKE!!!

Schíck' mir bitte via mail deine KontoNr. & BLZ ---> Donation kommt ;)

Dr. Mabuse 21.11.2002 12:28
* na wirkli ned *

MUCH 21.11.2002 12:44
dann sage ich nochmals danke - es wäre mir aber wirklich eine "Anerkennung" wert!!!

Du hast mir einige Zeit gespart UND VOR ALLEM MIR DAS MS-MONEY "WIEDERBELEBT", indem Du mich auf die Idee mit der QIF-Importdatei gebracht hast!!! :) :) :)

MUCH 22.11.2002 09:26
Es läuft nun alles perfekt!!!
 
Liebe Gemeinde,

mein Problem ist nun bestmöglich gelöst (besser ginge es nur wenn unsere BA-CA den "Datenhahn" für Money wieder aufmachen würde - machen sie aber nicht!!!)
  • Vorgangsweise zum Datenimport
  • Im Internet ins Onlinebanking einsteigen
  • Details zum gewünschten Auszug auswählen (wichtig!!!)
  • Gewünschte Daten markieren und mit STRG-C in die Zwischenablage kopieren
  • Lokale TXT-Datei (bei mir a.txt) öffnen und Zwischenablage einfügen ->speichern
  • Nun kommt der Code zum Zug ---> Konvertierung zum .QIF
  • es wird nun automatisch Money gestartet (da im code die .QIF aufgerufen wird) ->Konto bestätigen - fertig!

Dies mag zwar auf den ersten Blick wirr aussehen, ist aber die einzig machbare Variante, um die Onlinedaten zu importieren.

Ich habe den code von Dr. Mabuse noch ein bisserl verfeinert - es wird nun zwischen Empfängernamen & Beschreibungen unterschieden und richtig zugeordnet - hilft nicht unwesentlich ;)

Einen kleinen Bug hat die Sache noch:
Ich muss an die .TXT-Datei beim Kopieren der Zwischenablage noch zusätzlich drei Leerzeilen anhängen, sonst kommt es zu einem Fehler, da das *EOF* erreicht wäre - sonst passt's aber - vielleicht hat ja unser Dr. Mabuse noch eine Idee dazu...


Ich hoffe, dass dies auch für jemanden anderen nützlich ist - auf Wunsch werde ich diesen Code gerne als .EXE (mit angepassten Pfaden) compilieren, sofern kein WINBATCH vorhanden ist!




Code:
old = FileOpen("H:\temp\a.txt", "READ")
new = FileOpen("H:\temp\output.qif", "WRITE")

newline = "!Type:Bank"
FileWrite(new, newline)

WHILE @TRUE           
  oldline = FileRead(old)
  IF oldline == "*EOF*" THEN BREAK
  IF StrSub(oldline,27,11) == "Valutadatum" THEN
      newline = strcat("D",StrSub(oldline, 40, 10))
      FileWrite(new, newline)
  ENDIF
  IF StrSub(oldline,51,6) == "Betrag" THEN
      newline = strcat("T",StrSub(oldline,58,-1))
      newline = strreplace(newline,"EUR","")
      newline = strreplace(newline," ","")
      newline = strreplace(newline,".","")
      newline = strreplace(newline,",",".")
      FileWrite(new, newline)
  ENDIF

      flag=0
      new1=""
    IF StrSub(oldline,1,12) == "Buchungstext" THEN
      new1 = strcat("M",StrSub(oldline,16,-1))
    IF StrSub(oldline,16,18) == "EZE-Lastschrift a/" THEN   
      new1 = strreplace(oldline,"Buchungstext:  EZE-Lastschrift a/","")
      flag=1
      new1=strcat("P",new1)
    ENDIF
    IF StrSub(oldline,16,13) == "Gutschrift a/" THEN   
      new1 = strreplace(oldline,"Buchungstext:  Gutschrift a/","")
      flag=1
      new1=strcat("P",new1)
    ENDIF
    IF StrSub(oldline,16,14) == "Lastschrift a/" THEN   
      new1 = strreplace(oldline,"Buchungstext:  Lastschrift a/","")
      flag=1
      new1=strcat("P",new1)
    ENDIF
    oldline = FileRead(old)
    IF StrSub(oldline,1,9) == "Empfänger" THEN
      new2 = strcat("P",StrSub(oldline,12,-1))
      FileWrite(new, new2)
      new2 =""
      else
      new2 = oldline
      ENDIF
     
      oldline = FileRead(old)
      new3 = oldline
      oldline = FileRead(old)
      new4 = oldline
      IF flag==0 then
        newline = strcat (new1, new2, new3, new4)
        FileWrite(new, newline)
      else
      FileWrite(new, new1)
      newline = strcat ("M", new2, new3, new4)
      FileWrite(new, newline)
      ENDIF
      newline = "^"
      FileWrite(new, newline)
    ENDIF

ENDWHILE
FileClose(new)
FileClose(old)

run ("H:\temp\output.qif","")

MUCH 22.11.2002 14:24
Auch das "Leerzelenproblem gelöst...
 
Nun habe ich auch noch das Problem mit den Leerzeilen gelöst:

einfach folgenden code ganz oben im listing hinzufügen (vor der ersten Zeile)

Code:
old = FileOpen("H:\temp\a.txt", "APPEND")
oldline=""
filewrite (old,oldline)
filewrite (old,oldline)
filewrite (old,oldline)
FileClose(old)


Alle Zeitangaben in WEZ +2. Es ist jetzt 15:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag