/
MarkAddressAsDetectedAsVisited.vb
36 lines (30 loc) · 1.43 KB
/
MarkAddressAsDetectedAsVisited.vb
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
Imports Route4MeSDKLibrary.Route4MeSDK
Imports Route4MeSDKLibrary.Route4MeSDK.DataTypes
Imports Route4MeSDKLibrary.Route4MeSDK.QueryTypes
Namespace Route4MeSDKTest.Examples
Partial Public NotInheritable Class Route4MeExamples
''' <summary>
''' Mark Address as Marked as Visited
''' </summary>
''' <param name="aParams">Address parameters</param>
Public Sub MarkAddressAsMarkedAsVisited(ByVal Optional aParams As AddressParameters = Nothing)
Dim route4Me = New Route4MeManager(ActualApiKey)
Dim isInnerExample As Boolean = If(aParams Is Nothing, True, False)
If isInnerExample Then
RunOptimizationSingleDriverRoute10Stops()
OptimizationsToRemove = New List(Of String)() From {
SD10Stops_optimization_problem_id
}
aParams = New AddressParameters With {
.RouteId = SD10Stops_route_id,
.RouteDestinationId = CInt(SD10Stops_route.Addresses(2).RouteDestinationId),
.IsVisited = True
}
End If
Dim errorString As String = Nothing
Dim resultAddress As Address = route4Me.MarkAddressAsMarkedAsVisited(aParams, errorString)
PrintExampleDestination(resultAddress, errorString)
If isInnerExample Then RemoveTestOptimizations()
End Sub
End Class
End Namespace