Discussions
Stay up-to-date with the latest news from NetSuite. You’ll be in the know about how to connect with peers and take your business to new heights at our virtual, in-person, on demand events, and much more.
New AI Community Guidelines. Please review and follow them to ensure AI use stays safe, accurate, and compliant.
Please note that on Saturday, April 18, 2026, at 8:00 PM Pacific Time, our Case Management System will undergo a scheduled maintenance for approximately 15 minutes. During this time, case creation via SuiteAnswers will be unavailable and inbound calls will be routed to Customer Service.
populating itemVendorList?
I'm trying to populate ItemVendorList for an InventoryItem. But, I'm having issues with getting data into itemVendor. Here's my code:
'Create VendorList Dim itemVendorList As NetsuiteService.com.netsuite.webservices.ItemVendorList = New NetsuiteService.com.netsuite.webservices.ItemVendorList Dim itemVendor As NetsuiteService.com.netsuite.webservices.ItemVendor() = New NetsuiteService.com.netsuite.webservices.ItemVendor(1) {} Dim itemVendorCount As Integer = 0 strSQL = "select SupplierName, IsNull(NetsuiteInternalID,0) as NetsuiteInternalID, SKU, Cost from itk_supplier, itk_supplier_product where itk_supplier.externalID = itk_supplier_product.supplierID and itk_supplier_product.partNumber = '" + PartNumber + "'" lcmd.CommandText = strSQL reader = lcmd.ExecuteReader() If reader.HasRows Then Do While reader.Read() Dim vendor As NetsuiteService.com.netsuite.webservices.RecordRef = New NetsuiteService.com.netsuite.webservices.RecordRef vendor.internalId = reader.Item("NetsuiteInternalID") vendor.type = com.netsuite.webservices.RecordType.vendor vendor.typeSpecified = True itemVendor(itemVendorCount).vendor = vendor itemVendor(itemVendorCount).vendorCode = reader.Item("SKU") itemVendor(itemVendorCount).purchasePrice = reader.Item("Cost") itemVendorCount = itemVendorCount + 1 Loop Else 'No Supplier Found - Add without Supplier End 0