oDT = SPs.FP_PM00200EXT_INSSEL(m.ManufactName, New Guid(m.ManufactID)).getTable
Dim strVendorID As String = oDT.Rows(0)("VendorID")
'create/update the item class
'create the objects that we'll need
Dim oeConnectType As New Microsoft.Dynamics.GP.eConnect.Serialization.eConnectType
Dim oIVCreateIVItemClassType As New Microsoft.Dynamics.GP.eConnect.Serialization.IVCreateIVItemClassType
Dim otaCreateIVItemClass As New Microsoft.Dynamics.GP.eConnect.Serialization.taCreateIVItemClass
'this is our common eConnect class, it can be found on the KB menu under eConnect
Dim oeConnectFunctions As New eConnectFunctions(strServer, strDatabase)
With otaCreateIVItemClass
.ITMCLSCD = strVendorID
.ITMCLSDC = Left(m.ManufactName, 30)
End With
oIVCreateIVItemClassType.taCreateIVItemClass = otaCreateIVItemClass
ReDim Preserve oeConnectType.IVCreateIVItemClassType(0)
oeConnectType.IVCreateIVItemClassType(0) = oIVCreateIVItemClassType
bSuccess = oeConnectFunctions.CreateEntity(oeConnectType)