ExpressCheckout上的PayPal Order Total和Item Total问题

Question

我有一个有效的expressCheckout流程，一切正常，直到我尝试将金额乘以给定的汇率。

以下是2个版本（第1版，没有汇率的工作版本，第2版是非工作版本，实施汇率：

工作版

Imports PayPal.PayPalAPIInterfaceService.Model

导入PayPal.PayPalAPIInterfaceService 进口PayPal.Manager

部分班级paypalExpressCheckout     继承System.Web.UI.Page

Dim currentPreSale As New PreSale

Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

    If Not Session("ShoppingCartDT") Is Nothing Then

        currentPreSale = Session("currentPreSale")

        Dim request As New SetExpressCheckoutRequestType

        populateRequestObject(request)

        'Invoke the API
        Dim wrapper As New SetExpressCheckoutReq
        wrapper.SetExpressCheckoutRequest = request

        Dim service As New PayPalAPIInterfaceServiceService

        Dim setECResponse As SetExpressCheckoutResponseType = service.SetExpressCheckout(wrapper)

        'Check for API return status
        Dim CurrContext As HttpContext = HttpContext.Current

        CurrContext.Items.Add("paymentDetails", request.SetExpressCheckoutRequestDetails.PaymentDetails)

        setKeyResponseObjects(service, setECResponse)

    Else

    End If

End Sub

Private Sub SetShippingAddress(ByRef shippingAddress As AddressType)

    Dim selectedCountry As New Country
    Dim currentUser As User = Session("currentUser")

    selectedCountry.GetCountryDetails(currentPreSale.DeliveryCountryId.ToString())

    shippingAddress.Name = currentUser.FirstName & " " & currentUser.LastName
    shippingAddress.Street1 = currentPreSale.DeliveryAddress
    shippingAddress.Street2 = ""
    shippingAddress.CityName = ""
    shippingAddress.StateOrProvince = ""
    shippingAddress.Country = [Enum].Parse(GetType(CountryCodeType), selectedCountry.CountryCode)
    shippingAddress.Phone = currentUser.Phone & ""
    shippingAddress.PostalCode = ""

End Sub

Private Sub populateRequestObject(ByRef request As SetExpressCheckoutRequestType)

    Dim deliveryAddress As New Address
    Dim currentUser As User = Session("currentUser")
    Dim selectedCurrency As New Currency

    selectedCurrency.GetCurrencyDetails(currentPreSale.CurrencyId.ToString())

    'Dim userDetails As New UserDetails
    Dim currency As CurrencyCodeType = selectedCurrency.PayPalCurrencyCode
    Dim ecDetails As New SetExpressCheckoutRequestDetailsType
    Dim paymentDetails As New PaymentDetailsType
    Dim orderTotal As Double = 0
    Dim itemTotal As Double = 0
    Dim shippingValue As Double = currentPreSale.ShippingTotal
    Dim HandlingTotal As Double = 0
    Dim TaxTotal As Double = 0
    Dim shipAddress As New AddressType
    Dim dataTableCarrinho As DataTable
    Dim dataRowCarrinho As DataRow


    If currentPreSale.ShippingTotal > 0 Then

        SetShippingAddress(shipAddress)

    End If

    'userDetails.Get_ItemDetails(Session("userId").ToString())

    ecDetails.ReturnURL = ConfigurationManager.AppSettings("appURL") & "doExpressCheckoutPayment.aspx"
    ecDetails.CancelURL = ConfigurationManager.AppSettings("appCurrentServer") & Page.GetRouteUrl("paypalCancel" & UCase(Left(Session("language"), 2)), New With {.lang = Left(Session("language"), 2)})
    ecDetails.BuyerEmail = currentUser.Email
    ecDetails.ReqConfirmShipping = 0
    ecDetails.AddressOverride = 0
    If CDec(currentPreSale.ShippingTotal) > 0 Then
        ecDetails.NoShipping = 0
    Else
        ecDetails.NoShipping = 1
    End If

    'Payment Details
    If (shippingValue > 0) Then
        paymentDetails.ShippingTotal = New BasicAmountType(currency, currentPreSale.ShippingTotal)
    End If

    paymentDetails.OrderDescription = "KTB Order"
    paymentDetails.PaymentAction = PaymentActionCodeType.SALE

    orderTotal += shippingValue

    'Lista de Items - GUY preencher
    dataTableCarrinho = Session("ShoppingCartDT")

    For Each dataRowCarrinho In dataTableCarrinho.Rows

        Dim currentProduct As New Product

        currentProduct.GetProductDetails(dataRowCarrinho("ProductId").ToString(), Session("LanguageId").ToString())

        Dim itemDetails As New PaymentDetailsItemType
        itemDetails.Name = currentProduct.Title
        'itemDetails.Amount = New BasicAmountType(currency, dataRowCarrinho("Price").ToString())
        itemDetails.Amount = New BasicAmountType(currency, CDec(dataRowCarrinho("Price")))
        itemDetails.Quantity = CInt(dataRowCarrinho("Quantity"))
        itemDetails.Tax = New BasicAmountType(currency, 0)
        itemDetails.Description = ""
        itemDetails.ItemCategory = ItemCategoryType.PHYSICAL

        paymentDetails.PaymentDetailsItem.Add(itemDetails)

        orderTotal += CDec(dataRowCarrinho("Price")) * CInt(dataRowCarrinho("Quantity"))
        itemTotal += CDec(dataRowCarrinho("Price")) * CInt(dataRowCarrinho("Quantity"))


    Next

    'ExceptionUtility.LogInfo("orderTotal = " & orderTotal)
    'ExceptionUtility.LogInfo("itemTotal = " & itemTotal)
    'ExceptionUtility.LogInfo("shippingTotal = " & (currentPreSale.ShippingTotal * currentPreSale.ExchangeRate))

    'paymentDetails.ItemTotal = New BasicAmountType(currency, CDec(currentPreSale.ProductTotal * currentPreSale.ExchangeRate))
    'paymentDetails.OrderTotal = New BasicAmountType(currency, CDec((currentPreSale.ProductTotal + currentPreSale.ShippingTotal) * currentPreSale.ExchangeRate))
    paymentDetails.ItemTotal = New BasicAmountType(currency, itemTotal)
    paymentDetails.OrderTotal = New BasicAmountType(currency, orderTotal)

    ecDetails.PaymentDetails.Add(paymentDetails)
    ecDetails.PaymentDetails(0).ShipToAddress = shipAddress

    request.SetExpressCheckoutRequestDetails = ecDetails

End Sub

Private Sub setKeyResponseObjects(ByVal service As PayPalAPIInterfaceServiceService, ByVal setECResponse As SetExpressCheckoutResponseType)

    Dim keyResponseParameters As New Dictionary(Of String, String)

    keyResponseParameters.Add("API Status", setECResponse.Ack.ToString())

    Dim CurrContext As HttpContext = HttpContext.Current

    If (setECResponse.Ack.Equals(AckCodeType.FAILURE) Or ((Not IsNothing(setECResponse.Errors)) And setECResponse.Errors.Count > 0)) Then

        ExceptionUtility.LogInfo(setECResponse.Errors.Item(0).LongMessage)

        CurrContext.Items.Add("Response_error", setECResponse.Errors)
        CurrContext.Items.Add("Response_redirectURL", Nothing)
    Else
        CurrContext.Items.Add("Response_error", Nothing)
        keyResponseParameters.Add("EC token", setECResponse.Token)

        Dim paypalUrl As String = ConfigManager.Instance.GetProperty("paypalUrl").ToString()

        CurrContext.Items.Add("Response_redirectURL", paypalUrl + "_express-checkout&token=" + setECResponse.Token)
    End If

    CurrContext.Items.Add("Response_keyResponseObject", keyResponseParameters)
    CurrContext.Items.Add("Response_apiName", "SetExpressCheckout")
    CurrContext.Items.Add("Response_requestPayload", service.getLastRequest())
    CurrContext.Items.Add("Response_responsePayload", service.getLastResponse())

    Response.Redirect(CurrContext.Items.Item("Response_redirectURL"))
    'Server.Transfer("APIResponse.aspx")

    Dim a As String = ""
End Sub

结束班

非工作版

Imports PayPal.PayPalAPIInterfaceService.Model

导入PayPal.PayPalAPIInterfaceService 进口PayPal.Manager

部分班级paypalExpressCheckout     继承System.Web.UI.Page

Dim currentPreSale As New PreSale

Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

    If Not Session("ShoppingCartDT") Is Nothing Then

        currentPreSale = Session("currentPreSale")

        Dim request As New SetExpressCheckoutRequestType

        populateRequestObject(request)

        'Invoke the API
        Dim wrapper As New SetExpressCheckoutReq
        wrapper.SetExpressCheckoutRequest = request

        Dim service As New PayPalAPIInterfaceServiceService

        Dim setECResponse As SetExpressCheckoutResponseType = service.SetExpressCheckout(wrapper)

        'Check for API return status
        Dim CurrContext As HttpContext = HttpContext.Current

        CurrContext.Items.Add("paymentDetails", request.SetExpressCheckoutRequestDetails.PaymentDetails)

        setKeyResponseObjects(service, setECResponse)

    Else

    End If

End Sub

Private Sub SetShippingAddress(ByRef shippingAddress As AddressType)

    Dim selectedCountry As New Country
    Dim currentUser As User = Session("currentUser")

    selectedCountry.GetCountryDetails(currentPreSale.DeliveryCountryId.ToString())

    shippingAddress.Name = currentUser.FirstName & " " & currentUser.LastName
    shippingAddress.Street1 = currentPreSale.DeliveryAddress
    shippingAddress.Street2 = ""
    shippingAddress.CityName = ""
    shippingAddress.StateOrProvince = ""
    shippingAddress.Country = [Enum].Parse(GetType(CountryCodeType), selectedCountry.CountryCode)
    shippingAddress.Phone = currentUser.Phone & ""
    shippingAddress.PostalCode = ""

End Sub

Private Sub populateRequestObject(ByRef request As SetExpressCheckoutRequestType)

    Dim deliveryAddress As New Address
    Dim currentUser As User = Session("currentUser")
    Dim selectedCurrency As New Currency

    selectedCurrency.GetCurrencyDetails(currentPreSale.CurrencyId.ToString())

    'Dim userDetails As New UserDetails
    Dim currency As CurrencyCodeType = selectedCurrency.PayPalCurrencyCode
    Dim ecDetails As New SetExpressCheckoutRequestDetailsType
    Dim paymentDetails As New PaymentDetailsType
    Dim orderTotal As Double = 0
    Dim itemTotal As Double = 0
    Dim shippingValue As Double = currentPreSale.ShippingTotal
    Dim HandlingTotal As Double = 0
    Dim TaxTotal As Double = 0
    Dim shipAddress As New AddressType
    Dim dataTableCarrinho As DataTable
    Dim dataRowCarrinho As DataRow


    If currentPreSale.ShippingTotal > 0 Then

        SetShippingAddress(shipAddress)

    End If

    'userDetails.Get_ItemDetails(Session("userId").ToString())

    ecDetails.ReturnURL = ConfigurationManager.AppSettings("appURL") & "doExpressCheckoutPayment.aspx"
    ecDetails.CancelURL = ConfigurationManager.AppSettings("appCurrentServer") & Page.GetRouteUrl("paypalCancel" & UCase(Left(Session("language"), 2)), New With {.lang = Left(Session("language"), 2)})
    ecDetails.BuyerEmail = currentUser.Email
    ecDetails.ReqConfirmShipping = 0
    ecDetails.AddressOverride = 0
    If CDec(currentPreSale.ShippingTotal) > 0 Then
        ecDetails.NoShipping = 0
    Else
        ecDetails.NoShipping = 1
    End If

    'Payment Details
    If (shippingValue > 0) Then
        paymentDetails.ShippingTotal = New BasicAmountType(currency, currentPreSale.ShippingTotal * currentPreSale.ExchangeRate)
    End If

    paymentDetails.OrderDescription = "KTB Order"
    paymentDetails.PaymentAction = PaymentActionCodeType.SALE

    orderTotal += shippingValue * currentPreSale.ExchangeRate

    'Lista de Items - GUY preencher
    dataTableCarrinho = Session("ShoppingCartDT")

    For Each dataRowCarrinho In dataTableCarrinho.Rows

        Dim currentProduct As New Product

        currentProduct.GetProductDetails(dataRowCarrinho("ProductId").ToString(), Session("LanguageId").ToString())

        Dim itemDetails As New PaymentDetailsItemType
        itemDetails.Name = currentProduct.Title
        'itemDetails.Amount = New BasicAmountType(currency, dataRowCarrinho("Price").ToString())
        itemDetails.Amount = New BasicAmountType(currency, CDec(dataRowCarrinho("Price") * currentPreSale.ExchangeRate))
        itemDetails.Quantity = CInt(dataRowCarrinho("Quantity"))
        itemDetails.Tax = New BasicAmountType(currency, 0)
        itemDetails.Description = ""
        itemDetails.ItemCategory = ItemCategoryType.PHYSICAL

        paymentDetails.PaymentDetailsItem.Add(itemDetails)

        orderTotal += CDec(dataRowCarrinho("Price")) * CInt(dataRowCarrinho("Quantity") * currentPreSale.ExchangeRate)
        itemTotal += CDec(dataRowCarrinho("Price")) * CInt(dataRowCarrinho("Quantity") * currentPreSale.ExchangeRate)


    Next

    'ExceptionUtility.LogInfo("orderTotal = " & orderTotal)
    'ExceptionUtility.LogInfo("itemTotal = " & itemTotal)
    'ExceptionUtility.LogInfo("shippingTotal = " & (currentPreSale.ShippingTotal * currentPreSale.ExchangeRate))

    'paymentDetails.ItemTotal = New BasicAmountType(currency, CDec(currentPreSale.ProductTotal * currentPreSale.ExchangeRate))
    'paymentDetails.OrderTotal = New BasicAmountType(currency, CDec((currentPreSale.ProductTotal + currentPreSale.ShippingTotal) * currentPreSale.ExchangeRate))
    paymentDetails.ItemTotal = New BasicAmountType(currency, itemTotal)
    paymentDetails.OrderTotal = New BasicAmountType(currency, orderTotal)

    ecDetails.PaymentDetails.Add(paymentDetails)
    ecDetails.PaymentDetails(0).ShipToAddress = shipAddress

    request.SetExpressCheckoutRequestDetails = ecDetails

End Sub

Private Sub setKeyResponseObjects(ByVal service As PayPalAPIInterfaceServiceService, ByVal setECResponse As SetExpressCheckoutResponseType)

    Dim keyResponseParameters As New Dictionary(Of String, String)

    keyResponseParameters.Add("API Status", setECResponse.Ack.ToString())

    Dim CurrContext As HttpContext = HttpContext.Current

    If (setECResponse.Ack.Equals(AckCodeType.FAILURE) Or ((Not IsNothing(setECResponse.Errors)) And setECResponse.Errors.Count > 0)) Then

        ExceptionUtility.LogInfo(setECResponse.Errors.Item(0).LongMessage)

        CurrContext.Items.Add("Response_error", setECResponse.Errors)
        CurrContext.Items.Add("Response_redirectURL", Nothing)
    Else
        CurrContext.Items.Add("Response_error", Nothing)
        keyResponseParameters.Add("EC token", setECResponse.Token)

        Dim paypalUrl As String = ConfigManager.Instance.GetProperty("paypalUrl").ToString()

        CurrContext.Items.Add("Response_redirectURL", paypalUrl + "_express-checkout&token=" + setECResponse.Token)
    End If

    CurrContext.Items.Add("Response_keyResponseObject", keyResponseParameters)
    CurrContext.Items.Add("Response_apiName", "SetExpressCheckout")
    CurrContext.Items.Add("Response_requestPayload", service.getLastRequest())
    CurrContext.Items.Add("Response_responsePayload", service.getLastResponse())

    Response.Redirect(CurrContext.Items.Item("Response_redirectURL"))
    'Server.Transfer("APIResponse.aspx")

    Dim a As String = ""
End Sub

结束班

它不断向我发出以下错误：

项目金额无效。

任何人都知道发生了什么以及如何解决这个问题？

THX