Imports WebServicesGP2010.ServiceReference1
Imports System.ServiceModel
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim companyKey As CompanyKey
Dim context As Context
Dim salesOrderKey As SalesDocumentKey
Dim salesOrder As SalesOrder
Dim salesOrderUpdatePolicy As Policy
' Create an instance of the service
Dim wsDynamicsGP As DynamicsGPClient = New DynamicsGPClient
' Create a context with which to call the service
context = New Context
' Specify which company to use (sample company)
companyKey = New CompanyKey
companyKey.Id = -1
' Set up the context object
context.OrganizationKey = CType(companyKey, OrganizationKey)
salesOrderKey = New SalesDocumentKey
salesOrderKey.Id = "ORDST2227"
' Retrieve the sales order
salesOrder = wsDynamicsGP.GetSalesOrderByKey(salesOrderKey, context)
' Retrieve the update policy for sales orders
salesOrderUpdatePolicy = wsDynamicsGP.GetPolicyByOperation("UpdateSalesOrder", context)
For Each salesOrderLine As SalesOrderLine In salesOrder.Lines
salesOrderLine.WarehouseKey.Id = "NORTH"
salesOrder.WarehouseKey.Id = "NORTH"
Next
' Update the sales order object UpdateSalesDocument:
Try
wsDynamicsGP.UpdateSalesOrder(salesOrder, context, salesOrderUpdatePolicy)
' Close the service
If wsDynamicsGP.State <> CommunicationState.Faulted Then
wsDynamicsGP.Close()
End If
Catch ex As Exception
MsgBox(ex)
End Try
End Sub