isaacg
My feedback
3 results found
-
121 votes
What if any appointment that had a location specified we could calculate the road-miles from your office to there, and put that in a report?
A little simpler than doing real vehicle/person tracking, still gets you pretty good data – and would be more realistic for us to quickly build.
Let me know in the comments..
An error occurred while saving the comment -
1 voteisaacg
shared this idea
·
-
1 voteisaacg
shared this idea
·
Here's the kludge I worked up for tracking mileage:
Go to https://<yourrepairshoprwebsite>/ticket_types
If you don't already have one, create a Ticket Custom Field Type ("Standard" as suggested is fine).
Go to Manage Fields > New Field and call it Mileage (or whatever you want).
Now when you to create a ticket you'll have the option to input your mileage. Getting a report of that is the hard part. Maybe RepairShopr could add reports for custom fields. in the mean time:
Go to Admin > Reports > Tickets > Export to CSV and save it somewhere you can find it.
Now we need to strip the numbers out of the custom fields column and total them.
Open the CSV, press ALT + F11 to open VBA.
From the menu Insert > Module and paste in the script between the lines below. This is just a compilation of scripts I found online, there's probably much more efficient ways to do it, but it works.
=============================================================
Option Explicit
Sub GetMileageTotal()
Dim uColumn As String
' if your data is in a different column then change L to some other letter(s)
uColumn = "L"
Dim i As Long, j As Long, r As Range
For i = 1 To Range(uColumn & Rows.Count).End(xlUp).Row
Set r = Range(uColumn & i)
Dim tmpStr As String
tmpStr = vbNullString
For j = 1 To Len(r)
If IsNumeric(Right(Left(r, j), 1)) Then tmpStr = tmpStr & Right(Left(r, j), 1)
Next j
r.NumberFormat = "0"
r = tmpStr
Next i
' Total 10,000 rows in L column and insert result in O2
Range("O1").Value = "Total Mileage"
Range("O2").Value = WorksheetFunction.Sum(Range("L2:L10000"))
End Sub
=============================================================
Press F5 to execute the script. Go back to the spreadsheet and you should have a total in the upper right of the sheet. To save the script for future use you can switch back to the VBA window go to File > Export File and save it somewhere. Then in the future you can just ALT + F11 > File > Import File > F5 and you're done.