Dim params As SAPbobsCOM.ItemPriceParams
Dim rtnParams As SAPbobsCOM.ItemPriceReturnParams
Try
params = vCmp.GetCompanyService.GetDataInterface(CompanyServiceDataInterfaces.csdiItemPriceParams)
params.CardCode = "C001"
params.ItemCode = "I002"
params.UoMEntry = 1
params.UoMQuantity = 2
params.InventoryQuantity=6
params.Currency = "EUR"
params.Date = "01.13.2013"
params.PriceList = 1
params.BlanketAgreementNumber = 2
params.BlanketAgreementLine = 1
rtnParams = vCmp.GetCompanyService.GetDataInterface(CompanyServiceDataInterfaces.csdiItemPriceReturnParams)
rtnParams = vCmp.GetCompanyService().GetItemPrice(params)
RCurrency = rtnParams.Currency
RPrice = rtnParams.Price
RDiscount = rtnParams.Discount
Catch ex As System.Exception
...
End Try
|
|