Hi,
Also check this: Found it in SDK Help Center.
Dim lErrCode As Long
Dim sErrMsg As String
Dim bRetVal As Boolean
Dim oItems As SAPbobsCOM.Items
Dim oItemPrice As SAPbobsCOM.Items_Prices
Dim i As Integer
'Retrieve Items object
oItems = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oItems)
'Retrieve specific item
bRetVal = oItems.GetByKey("X0004")
'Check errors
If Not bRetVal Then
oCompany.GetLastError(lErrCode, sErrMsg)
MsgBox("Failed to Retrieve the record " & lErrCode & " " & sErrMsg)
Exit Sub
End If
'get item price object
oItemPrice = oItems.PriceList
'print price lists names and prices
For i = 0 To oItemPrice.Count - 1
oItemPrice.SetCurrentLine(i)
'print price list name
Debug.WriteLine(oItemPrice.PriceListName())
'print the items price
Debug.WriteLine(oItemPrice.Price())
Next
'change the price of the item in the last price list
oItemPrice.Price = 600
'save changes
oItems.Update()
Hope it helps.
Thanks & Regards
Ankit Chauhan