GetOptimization.vb

Imports Route4MeSDKLibrary.Route4MeSDK
Imports Route4MeSDKLibrary.Route4MeSDK.DataTypes
Imports Route4MeSDKLibrary.Route4MeSDK.QueryTypes

Namespace Route4MeSDKTest.Examples
    Partial Public NotInheritable Class Route4MeExamples
        ''' <summary>
        ''' Get an optimization problem by ID.
        ''' </summary>
        ''' <param name="optimizationProblemID">Optimization problem ID</param>
        Public Sub GetOptimization(Optional optimizationProblemID As String = Nothing)
            ' Create the manager with the api key
            Dim route4Me = New Route4MeManager(ActualApiKey)

            Dim isInnerExample As Boolean = If(optimizationProblemID Is Nothing, True, False)

            If isInnerExample Then
                RunOptimizationSingleDriverRoute10Stops()
                optimizationProblemID = SD10Stops_optimization_problem_id
                OptimizationsToRemove = New List(Of String)()
                OptimizationsToRemove.Add(optimizationProblemID)
            End If

            Dim optimizationParameters = New OptimizationParameters() With {
                .OptimizationProblemID = optimizationProblemID
            }

            Dim errorString As String = Nothing
            Dim dataObject As DataObject = route4Me.GetOptimization(
                optimizationParameters,
                errorString)

            PrintExampleOptimizationResult(dataObject, errorString)

            If isInnerExample Then RemoveTestOptimizations()
        End Sub
    End Class
End Namespace