Hi Pedro,
I've got the solution. I just put loop inside the pricelist.
Dim oItem As SAPbobsCOM.Items oItem = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oItems) With oItem If .GetByKey(dtCOLUMNS.GetValue(0, i)) Then If .PriceList.Count > 0 Then .PriceList.SetCurrentLine(5) For oUOM As Integer = 0 To dtCOLUMNS.Rows.Count - 1 If dtCOLUMNS.GetValue(2, oUOM) = 1 Then .PriceList.Price = dtCOLUMNS.GetValue(9, oUOM) Else oQuery = "SELECT * FROM ITM9 WHERE ItemCode = '" & dtCOLUMNS.GetValue(0, i) & "' AND PriceList = '" & .PriceList.PriceList & "' AND UomEntry = '" & dtCOLUMNS.GetValue(2, oUOM) & "' " oRec.DoQuery(oQuery) If oRec.RecordCount > 0 Then .PriceList.UoMPrices.SetCurrentLine(oUOM - 1) .PriceList.UoMPrices.UoMEntry = dtCOLUMNS.GetValue(2, oUOM) .PriceList.UoMPrices.Price = dtCOLUMNS.GetValue(9, oUOM) Else ''If the UomEntry is not existing .PriceList.UoMPrices.SetCurrentLine(.PriceList.UoMPrices.Count - 1) .PriceList.UoMPrices.UoMEntry = dtCOLUMNS.GetValue(2, oUOM) .PriceList.UoMPrices.Price = dtCOLUMNS.GetValue(9, oUOM) .PriceList.UoMPrices.Add() End If End If Next End If End If If Not .Update() = 0 Then SAP_APP.SetMessage(oCompany.GetLastErrorDescription) End If End With