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.
Now is the time to ask your NetSuite-savvy friends and colleagues to join the NetSuite Support Community! Refer now! Click here to watch and learn more!
Update your Profile with your Support type to get your Support Type badge.
Don't miss out on our Question of the Week! You only have until tomorrow, November 6, 2025, 2PM ET to comment your answers and earn rewards! Click here for more details.
Uncover the power of data with the Analytics Hub —your ultimate guide to mastering NetSuite Saved Searches and Reports. Simplify the complex and unlock your organization's true potential. Dive into the Analytics Hub now and soar to new heights!
To help you get the most out of your 2025.2 Release Preview account, review the topics outlined in the 2025.2 Release Preview Guide.
Nominate Your Peers for NetSuite Support Community's Choice of the Quarter! Submit your nomination today.
Intelligent Payment Automation version 1.0.3 is now available in the SuiteApp Marketplace. The SuiteApp, powered by BILL, lets you automate payments, manage vendor details, and bank account information within NetSuite. Learn more
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