Welcome to MapForums!

Register, sign in, or use Facebook Connect above to join in and participate in the forum.

When you are signed in, this message, the ads in this row, and the red-underlined link ads all go away.

Subscribe to receive our newsletter.
Subscribe Unsubscribe
Results 1 to 2 of 2

Pickups and deliveries

This is a discussion on Pickups and deliveries within the MapPoint Desktop Discussion forums, part of the Map Forums category; I have a specialized application that I need to develop and was wondering if anyone has seen anything close to ...

  1. #1
    MagiCat is offline Junior Member White Belt
    Join Date
    May 2006

    Pickups and deliveries

    I have a specialized application that I need to develop and was wondering if anyone has seen anything close to it already created.

    One of our drivers has to do pickups and deliveries of garbage containers, 3 yard, 5 yard, 6 yard, and 8 yard sizes.

    Generally the driver will leave in the morning with a certain mix of containers which is his best guess as to what will get him the furthest during the day without having to come back. His route ends up being a mix of looking at a Streets and Trips printout as well as his own judgement with improvisation throughout the day.

    What I'm trying to do is come up with an optimal route which lets him complete his route in the least amount of time, factoring in trips back to the yard to either pick up more containers or drop off extraneous containers.

    As for quantity, on an average day we're talking about 35 dropoffs and about 25 pickups in a given day though it could be as high as 100 total.

    Anyone have any ideas on how to go about this, I've programmed in Excel, Word, Access and have crossed programmed small applications using multiple programs, just wondering if this is something that sounds doable with MapPoint 2006.

  2. #2
    nmilne is offline Junior Member White Belt
    Join Date
    Jan 2006

    this might help

    i have done a job delivery program in msaccess
    this bit of code will help you get started in ms access
    Option Compare Database

    Private objMap As MAPPOINT.MappointControl
    Private objRoute As MAPPOINT.Route
    Private objSA As MAPPOINT.StreetAddress
    Private objPush As Pushpin
    'Private objway As Waypoints
    Private oLoc As Object

    Private Sub cmdPlot_Click()
    If txtAddress <> "" Then
    End If
    End Sub

    Private Sub Form_Load()
    Set objMap = Mapctl.Object
    objMap.NEWMAP geoMapEurope
    End Sub

    Public Function ApplyPoint()

    If objMap Is Nothing Then Set objMap = Me!Mapctl.Object
    Set objSA = objMap.ActiveMap.ParseStreetAddress(PICKUPADDRESS & " , " & PICKUPTOWN & " , " & PICKUPCOUNTY & " , " & PICKUPPOSTCODE)
    Set oLoc = objMap.ActiveMap.FindAddressResults(objSA.Street, objSA.City _
    , , objSA.Region, objSA.PostalCode)

    If Not oLoc Is Nothing And oLoc.ResultsQuality <> geoNoResults Then

    Set objPush = objMap.ActiveMap.AddPushpin(oLoc(1).Location, Me.PICKUPCUSTOMER)
    objPush.BalloonState = geoDisplayName
    objMap.ActiveMap.ActiveRoute.Waypoints.Add oLoc(1) 'Adds Awaypoint to map
    Set objPush = Nothing
    Set oLoc = Nothing
    End If

    End Function

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36