DVD900 integriertes Fahrtenbuch

[Doriat]

Hallo Zusammen,

beim einspielen von POIs bin ich doch glatt über die Funktion Fahrtenbuch gestolpert.

Hat jemand Erfahrung damit? Ich konnts heute morgen nur kurz ausprobieren, er fragt wohl privat oder dienstlich und kann eine

Datei exportieren in der dann die Koordinaten drin sind.

Wie verlässlich ist das neue Feature und wie bringt man die Daten in ein verwertbares Format ?

Gruß

D

Edit: Ok die Funktion ist auch gut im Handbuch beschrieben. Jede Fahrt wird protokolliert mit Schluessel einstecken (Anfang der Route) - auswählen Privat / dienstlich - Schluessel abziehen (Ende der Route)

Format das er dann erzeugt:

Laufende Nummer, Start Koordinaten, Abfahrtsdatum/Zeiut, Kilometerstand, Ende Koordinaten, Ankunftszeit, Kilometerstand Ziel, Art der Fahrt, Freitext.

Jetzt ergibt sich die Frage gibt es einen Dienst der automatisiert die Koordinaten in Echtdaten (Ort/Straße) umsetzt. Die Datei unterteilt die Einträge mit Semikolons also recht gut in Excel einlesbar.

[Doriat]

Ok :) geb ich mir mal selbst die Antwort.

Hab mir ein vbs Script geschrieben, dass die erzeugte Opel Fahrtenbuch Datei - Koordinationsdaten ausliest, gegen Googles API schickt und

die Adresse zurueckwirft und mir danach ein Excel mit den Einträgen erzeugt.

Sozusagen mit ein wenig Umstand ist das Fahrtenbuch wirklich nutzbar und für mich vollkommen ausreichend um meinen Nachweis

zu pflegen. Wäre schöner gewesen Opel oder der Hersteller des Navis hätte noch einen Schritt weiter gedacht - trotzdem Danke :)

mir ist so schon immens geholfen. Nie mehr händisch Fahrtenbuch schreiben !

[Feivel88]

Danke für deine eigene Antwort, aber den Insignia neues Modelljahr haben hier noch nicht so viele. Das DVD800 kann sowas nicht und genau sowas würde ich brauchen.. aber wegen einem Fahrtenbuch gleich einen neuen obwohl er so gut läuft... und auch nach 15.000 KM noch nach "Neuwagen" riecht?

Übrigens... ein guter Bekannter hat jetzt mit dem 160 PS Diesel schon 70.000 km hinter sich. Ergebnis: 1 Satz Reifen, 1 Satz Bremsen. Sonst keine Probleme. Mal schauen, der Fährt mit einem Auto in 3 Jahren bis zu 300.000 KM! Das Ergebnis werd ich euch mitteilen!

[Doriat]

Ich hab das unsagbare Glück :( alle 4-8 Monate tauschen zu müssen. Also immer Auto leer räumen und wieder den daemlichen Neuwagenduft ertragen. Einziger Vorteil ich kenne extrem selten die Werkstaetten von innen :) und kann mich bei allen

Fahrezeugen auch nicht wirklich über Fehler beschweren.

Das Fahrtenbuch war für mich ein wirklich nette Neuerung - die echt hilfreich ist.

[Beatboy]

Was machst du mit diesen Daten nach deiner Excelauswertung? Das Finanzamt erkennt diese Art Fahrtenbuch nicht an, wie ich glesen habe.

[Felyxorez]

Nein tut es definitv nicht.

Du kannst aber die Exceltabelle ausdrucken und dann für ein bischen Taschengeld das von Grundschulkindern handschriftlich abschreiben lassen.

Dann kannst du es dem FA geben ;)

[Doriat]

Ich benötige es eigentlich nur gegenüber meinem Arbeitgeber und der akzeptiert das. (geht dabei nur um die Abrechnung der Dienstkilometer)

Komischerweise handelt das jedes Finanzamt unterschiedlich. unser Finanzamt akzeptiert keine Excel. Ausgedruckt und handschriftlich die Änderungen dokumentiert akzeptieren sie es. Verstehen muss man das wohl nicht. Allerdings fragt er mich jedesmal wieder wie ich es erstelle und ich erklaer ihm immer wieder das ich es aufs Diktiergerät spreche und dann die Sekretärin es runter tippt ;-)

Zum Glück hab ich das hinter mir und die Firma kann sich mit denen rumärgern.

[OPAopelaussucher]

Ich habe seit 10 Jahren das Fahrtenbuch von Compilot. Den Anschluss Bekomme ich auch ende des Monats in meinen Insignia eingesetzt. Eines der wenigen elektronischen Fahrtenbücher die anerkannt werden.

[Turboschlumpf40637]

Hallo,

ich bin jetzt seit einer Woche stolzer Besitzer eines Insignia Sports Tourer und vollends zufrieden.

Die Fahrtenbuch-Funktion ist mir auch gleich aufgefallen. Das Exportieren der Daten funktioniert auch ohne Probleme. Leider sind die Logbook-Daten nicht verwertbar.

Jetzt habe ich gelesen, dass du ein Skript geschrieben hast.

Besteht die Möglichkeit, eine Kopie davon downzuloaden oder zugeschickt zu bekommen?

Vielen Dank für deine Antwort

nutella_king

[Kurvenräuber40148]

Zitat:

Original geschrieben von nutella_king

Besteht die Möglichkeit, eine Kopie davon downzuloaden oder zugeschickt zu bekommen?

Ich will ja nicht unhöflich sein, aber wie wär's mit einer Internetrecherche?

[edelpacker]

Hi downgrader

Deine Antwort war nicht sehr nett! Du kennst doch den Fragesteller und seine Kompetenz nicht, oder?

Ich behaupte, fit in der Googlesuche zu sein ... und finde auch nur ein zusammenhangloses Script von "Scheltowski", mit dem ich nicht viel anfangen kann, da mir das Wissen um dessen Einbindung in Exel (?) fehlt.

Daher erneut die Frage: Hat jemand das Script und kann es der Comunity zur Verfügung stellen?

[PS-Schnecke21969]

Hallo,

ich möchte das Thema noch einmal hoch holen, da es mich auch interessiert.

Ich hab seit kurzen einen Zafira Tourer mit der Navi900 und würde gerne diese Fahrtenbuchdaten nutzen.

Gibt es den inzwischen eine Lösung oder eine Anleitung wie man das hinbekommt. Ich bin leider auch nicht der geborene Scripter und würde mich über eine genauere Anleitung freuen.

Gruß Heiko

[edelpacker]

Hallo Heiko

Hier ist das Script, das für private Zwecke genutzt werden darf.

Erstelle eine Datei (script.vbs) und kopiere die folgenden Zeilen rein. Anschließend im Windows Explorer die Logbuchdatei des Navis mit der Maus auf die Script-Datei ziehen und fallen lassen. Je nachdem, wie umfangreich deine Navi-Datei ist, dauert es etwas, bis dir die fertigen Daten angzeigt werden. Diese kannst du dann in eine Excel-Datei kopieren und weiter bearbeiten.

 

'Quelle: http://scheltowski.de/2012/06/opel-navi-900-integriertes-fahrtenbuch/

Dim strCurrentDirectory

Dim strCurrentDate

Dim strOutputFileName

Dim objFSO

Call Main

Sub Main

' Prüfung, ob Daten übergeben wurden

If WScript.Arguments.Count < 1 Then

WScript.StdErr.Writeline("Missing Parameter")

WScript.Quit

End If

' Ausgabedatei erstellen

Set objFSO = CreateObject("Scripting.FileSystemObject")

strCurrentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(Len(WScript.ScriptName)))

strCurrentDate = Replace(Date(), ".", "") & "_" & Replace(Time(), ":", "")

strCurrentDate = Left(strCurrentDate, Len(strCurrentDate)-2)

strOutputFileName = strCurrentDirectory & "\Logbook_" & strCurrentDate & ".csv"

Set objOutputFile = objFSO.CreateTextFile(strOutputFileName)

' Write table header

objOutputFile.WriteLine "Nr.;Startadresse;Abfahrtsdatum;Abfahrtszeit;KM Stand Abfahrt;Zieladresse;Ankuftsdatum;Ankunftszeit;KM Stand Ankunft;gefahrene KM;Zweck der Fahrt;Bemerkung"

' Daten aus dem Logbuch auslesen

strInputFile = WScript.Arguments(0)

Set objFile = objFSO.OpenTextFile(strInputFile, 1)

Do Until objFile.AtEndOfStream

strInputLine = objFile.ReadLine

arrInput = Split(strInputLine, " ; ")

 

' Umwandlung der Daten aus dem Logbuch

strStartLat = CoordsConvert(arrInput(1))

strStartLon = CoordsConvert(arrInput(2))

strEndLat = CoordsConvert(arrInput(6))

strEndLon = CoordsConvert(arrInput(7))

'Adressen aus der Google API beziehen

HTTPDownload "http://maps.googleapis.com/maps/api/geocode/xml?latlng=" & strStartLat & "," & strStartLon & "&sensor=false", strCurrentDirectory & "\~response.xml"

 

' Looking for address in the downloaded file

strStartAddress = FormattedAddress

'gmaps API Call

HTTPDownload "http://maps.googleapis.com/maps/api/geocode/xml?latlng=" & strEndLat & "," & strEndLon & "&sensor=false", strCurrentDirectory & "\~response.xml"

' Looking for address in the downloaded file

strEndAddress = FormattedAddress

' Geschäftlich und Privat unterscheiden

If arrInput(11) = 1 Then

strPurpose = "Gesch" & Chr(228) & "ftlich"

ElseIf arrInput(11) = 0 Then

strPurpose = "Privat"

End If

' In die Ausgabedatei schreiben

objOutputFile.WriteLine arrInput(0) & ";" & strStartAddress & ";" & arrInput(3) & ";" & arrInput(4) & ";" & arrInput(5) & ";" & strEndAddress & ";" & _

arrInput(8) & ";" & arrInput(9) & ";" & arrInput(10) & ";" & cLng(arrInput(10)) - cLng(arrInput(5)) & ";" & strPurpose & ";" & arrInput(12) & ";"

Loop

' Ausgabedatei schließen

objOutputFile.Close

' Ausgabedatei in Excel öffnen

Set objShell = WScript.CreateObject ("WScript.shell")

objShell.Run "excel " & """" & strOutputFileName & """"

Set objFSO = Nothing

Set objShell = Nothing

' HTTP Proxy settings

strProxyAddress = "" ' Proxy address ip or FQDN.

strProxyPort = "" ' Proxy port

End Sub

Function CoordsConvert(strInCoords)

' Replace all non numerical characters

strOutCoord = Replace(Replace(Replace(Replace(Replace(Replace(Replace(strInCoords, "S ", ""), "N ", ""), Chr(176), ""), "'", ""), """", ""),"W ", ""), "E ", "") 'Chr(176) = °

' Convert degrees, minutes ans seconds into dezimal coordinates

strOutCoords = Split(strOutCoord, " ")

CoordsConvert = Round(strOutCoords(0)+(strOutCoords(1)/60)+(strOutCoords(2)/3600), 6)

CoordsConvert = Replace(CoordsConvert, ",", ".")

End Function

Function FormattedAddress

Dim xmlDoc, Root

Set xmlDoc = CreateObject("Microsoft.XMLDOM")

xmlDoc.Async = "False"

xmlDoc.Load(strCurrentDirectory & "\~response.xml")

Set Root = xmlDoc.documentElement

strQuery = "/GeocodeResponse/status"

Set colItem = Root.selectSingleNode(strQuery)

If colItem.Text = "OK" Then

strAddrQuery = "/GeocodeResponse/result/formatted_address"

Set colItemAddr = xmlDoc.documentElement.selectSingleNode(strAddrQuery)

FormattedAddress = colItemAddr.Text

Else FormattedAddress = colItem.Text

End If

 

' Close and delete temp file

objFSO.DeleteFile strCurrentDirectory & "\~response.xml"

End Function

Sub HTTPDownload( myURL, myPath )

' This Sub downloads the FILE specified in myURL to the path specified in myPath.

'

' myURL must always end with a file name

' myPath may be a directory or a file name; in either case the directory must exist

'

' Written by Rob van der Woude

' http://www.robvanderwoude.com

' Standard housekeeping

Dim i, objFile, objFSO, objHTTP, strFile, strMsg

Const ForReading = 1, ForWriting = 2, ForAppending = 8, TriStateTrue = -1

 

' Create a File System Object

Set objFSO = CreateObject( "Scripting.FileSystemObject" )

 

' Check if the specified target file or folder exists,

' and build the fully qualified path of the target file

If objFSO.FolderExists( myPath ) Then

strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) )

ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then

strFile = myPath

Else

WScript.Echo "ERROR: Target folder not found."

Exit Sub

End If

 

' Create or open the target file

Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True, 0 )

 

' Create an HTTP object

Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )

 

' Download the specified URL

objHTTP.Open "GET", myURL, False

' Answers in german, please

objHTTP.SetRequestHeader "Accept-Language", "de-DE"

' Proxy

If Len(strProxyAddress) > 0 Then

objHTTP.SetProxy 2, "http://" & strProxyAddress & ":" &strProxyPort

End If

objHTTP.Send

 

' Write the downloaded byte stream to the target file

For i = 1 To LenB( objHTTP.ResponseBody )

objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )

Next

 

' Close the target file

objFile.Close( )

End Sub

 

Ich habe es für meine Bedürfnisse noch etwas angepasst. Außerdem habe ich mir in Excel ein Makro geschrieben, dass die Daten noch "hübsch" macht :-)

[PS-Schnecke21969]

Hallo Michael,

danke für deine Hilfe. Hat auf Anhieb funktioniert.;)

Und ich hab mir hier die letzten beiden Tage den Kopf heiß gemacht.:rolleyes:

Muß jetzt auch mal schaun was ich da dann noch optimieren kann. Die Adressen können etwas eingekürzt werden.

Gruß Heiko

[Fensterheber41421]

Unter der angegebenen Quelle wurde anscheinend Script aktualisiert, bei mir klappte es.

http://scheltowski.de/2012/06/opel-navi-900-integriertes-fahrtenbuch/