Vantage E9 物料表的简单数据导入

hjw100

'Create instance of Adapter
  Dim adapterPart As PartAdapter = New PartAdapter(oTrans)
  adapterPart.BOConnect()

  'Call Adapter method
  Dim result As Boolean = adapterPart.GetNewPart
        If (result) Then
          adapterPart.PartData.Part.Rows(0).BeginEdit()
          adapterPart.PartData.Part.Rows(0)("Company") = "HJW"
          adapterPart.PartData.Part.Rows(0)("PartNum") = "ImportData0"
          adapterPart.PartData.Part.Rows(0)("PartDescription")="TestData0"
          adapterPart.PartData.Part.Rows(0)("TypeCode")="M"
          adapterPart.PartData.Part.Rows(0)("ProdCode")="A20"
          adapterPart.PartData.Part.Rows(0)("ClassID")="A01"
          adapterPart.PartData.Part.Rows(0)("UnitPrice")=0
          adapterPart.PartData.Part.Rows(0)("InternalUnitPrice")=0
          adapterPart.PartData.Part.Rows(0)("IUM")="EA"
          adapterPart.PartData.Part.Rows(0)("PUM")="EA"
          adapterPart.PartData.Part.Rows(0)("PurchasingFactor")=1
          adapterPart.PartData.Part.Rows(0)("PurchasingFactorDirection")="D"
          adapterPart.PartData.Part.Rows(0)("SalesUM")="EA"
          adapterPart.PartData.Part.Rows(0)("SellingFactor")=1
          adapterPart.PartData.Part.Rows(0)("SellingFactorDirection")="D"         
          adapterPart.PartData.Part.Rows(0)("OnHold")=False
          'adapterPart.PartData.Part.Rows(0)("OnHoldDate")=
          adapterPart.PartData.Part.Rows(0)("OnHoldReasonCode")=""
          adapterPart.PartData.Part.Rows(0)("UsePartRev")=True
          adapterPart.PartData.Part.Rows(0)("RunOut")=False
          adapterPart.PartData.Part.Rows(0)("Constrained")=False
          adapterPart.PartData.Part.Rows(0).EndEdit()
          adapterPart.Update()
        End If
        
        
  'Cleanup Adapter Reference
  adapterPart.Dispose()
  adapterPart = Nothing