Dim baseURL As String = "http://db:7047/DynamicsNAV/WS/" Dim systemService As New SystemServiceRef.SystemService() systemService.Url = baseURL + "SystemService" systemService.UseDefaultCredentials = True Dim companies() As String = systemService.Companies() Dim cur As String = companies(0) Dim ProdPartPageURL As String = baseURL + Uri.EscapeDataString(cur) + "/Page/ProdPart" Console.WriteLine(vbCrLf + "URL of Customer Page: " + ProdPartPageURL) Dim prodpartService As New ProdPartPage.ProdPart_Service() prodpartService.Url = ProdPartPageURL prodpartService.UseDefaultCredentials = True Dim fRoutingStatus As New ProdPartPage.ProdPart_Filter() fRoutingStatus.Field = ProdPartPage.ProdPart_Fields.Routing_Status fRoutingStatus.Criteria = "In Progress" Dim fWorkCenterNo As New ProdPartPage.ProdPart_Filter() fWorkCenterNo.Field = ProdPartPage.ProdPart_Fields.Work_Center_No fWorkCenterNo.Criteria = "04" Try Dim filters() As ProdPartPage.ProdPart_Filter = New ProdPartPage.ProdPart_Filter(1) {fRoutingStatus, fWorkCenterNo} Dim prodparts() As ProdPartPage.ProdPart = prodpartService.ReadMultiple(filters, Nothing, 0) Dim i As Integer = prodparts.Count For Each prodpart As ProdPartPage.ProdPart In prodparts System.Diagnostics.Debug.WriteLine(prodpart.Order_No) Next Catch ex As Exception Dim err As String = ex.ToString End Try