Sub getSalesInvoiceByKey()
'================================================================
'common code
'================================================================
Dim companyKey As CompanyKey
Dim context As Context
' 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)
'================================================================
'sales invoice code
'================================================================
Dim salesInvoiceKey As SalesDocumentKey
Dim SalesInvoice As SalesInvoice
' Create a sales document key
salesInvoiceKey = New SalesDocumentKey()
salesInvoiceKey.Id = "STDINV2255"
' Retrieve the sales invoice
SalesInvoice = wsDynamicsGP.GetSalesInvoiceByKey(salesInvoiceKey, context)
' Display the sales invoice customer name
MessageBox.Show("Customer name: " + SalesInvoice.CustomerName)
End Sub