当用户从我的网站转到贝宝页面时,订单会出现:
quantity 2
price 20$
Total 40$
而在交易详情中的贝宝账户中,出现的是:
quantity 1
price 40$
total 40$
我如何解决这个问题以在贝宝帐户中有数量 2?我正在使用 Paypal api 设置快速结帐:
Dim caller As New CallerServices
Dim profile As IAPIProfile = ProfileFactory.createSignatureAPIProfile()
'
' WARNING: Do not embed plaintext credentials in your application code.
' Doing so is insecure and against best practices.
' Your API credentials must be handled securely. Please consider
' encrypting them for use in any production environment, and ensure
' that only authorized individuals may view or modify them.
'
' Set up your API credentials, PayPal end point, and API version.
profile.APIUsername = AppSettings("APIUsername")
profile.APIPassword = AppSettings("APIPassword")
profile.APISignature = AppSettings("APISignature")
profile.Environment = AppSettings("Environment")
caller.APIProfile = profile
' Create the request object.
Dim pp_request As New SetExpressCheckoutRequestType()
pp_request.Version = AppSettings("APIVersion")
' Add request-specific fields to the request.
' Create the request details object.
pp_request.SetExpressCheckoutRequestDetails = New SetExpressCheckoutRequestDetailsType()
pp_request.SetExpressCheckoutRequestDetails.PaymentAction = paymentAction
pp_request.SetExpressCheckoutRequestDetails.PageStyle = color
'Enum for PaymentAction is PaymentActionCodeType.Sale
pp_request.SetExpressCheckoutRequestDetails.PaymentActionSpecified = True
pp_request.SetExpressCheckoutRequestDetails.OrderDescription = type
pp_request.SetExpressCheckoutRequestDetails.PaymentDetails = New PaymentDetailsType()
pp_request.SetExpressCheckoutRequestDetails.PaymentDetails.Custom = DateTime.Now.ToLongTimeString
Dim items(1) As PaymentDetailsItemType
Dim item1 As PaymentDetailsItemType = New PaymentDetailsItemType
item1.Name = dealName
item1.Number = OfferID
item1.Amount = New BasicAmountType()
item1.Amount.Value = price
item1.Amount.currencyID = currencyCodeType
item1.Quantity = qnt
items(0) = item1
pp_request.SetExpressCheckoutRequestDetails.PaymentDetails.PaymentDetailsItem = items
pp_request.SetExpressCheckoutRequestDetails.OrderTotal = New BasicAmountType()
pp_request.SetExpressCheckoutRequestDetails.OrderTotal.currencyID = currencyCodeType
'Enum for currency code is CurrencyCodeType.USD
pp_request.SetExpressCheckoutRequestDetails.OrderTotal.Value = paymentAmount
pp_request.SetExpressCheckoutRequestDetails.CancelURL = cancelURL
pp_request.SetExpressCheckoutRequestDetails.ReturnURL = returnURL
'' Execute the API operation and obtain the response.
Dim pp_response As New SetExpressCheckoutResponseType()
pp_response = DirectCast(caller.[Call]("SetExpressCheckout", pp_request), SetExpressCheckoutResponseType)
token = pp_response.Token
resp = pp_response
Return pp_response.Ack
End Function