1

我的公司经营很多农场零件，其中许多人已经为该州填写了免税表格，只要产品符合条件，他们就不必纳税。问题是，为了免税，我们必须在我们的记录中保存他们的免税表。我的问题是，如果可能的话，我如何在贝宝中处理这个问题？我正在使用贝宝结帐，客户被重定向到贝宝的网站进行结帐，然后在交易后返回我的网站。客户需要有某种选项来检查复选框或其他东西来说明他们是免税的，然后我还必须用我们的记录检查客户，以确保我们有他的文件。如果他们想申请免税，他们必须填写表格并将其发送给我们。

我在想一种解决方法可能是，在单击“添加到购物车”按钮后，系统会提示客户他们是否免税。如果他们说是，我们将取消该产品的销售税，然后他们将通过贝宝进行结帐。交易完成后，我会检查以确认我们确实有该客户的记录，如果没有，我们会通过电子邮件通知他们我们没有记录，并且将添加销售税。

有人可以在这里给我一些建议吗，我找不到任何与贝宝和这种性质的免税相关的东西，我只是想知道他们是否可以通过贝宝来处理这个问题，或者我的解决方法是否可以做到诡计？这是添加到购物车按钮单击的代码

  Dim ppHref As StringBuilder = New StringBuilder()
    ppHref.Append("https://www.sandbox.paypal.com/cgi-bin/webscr?cmd=_cart")
    ppHref.Append("&business=" + business)
    ppHref.Append("&item_name=" + itemName)
    ppHref.Append("&item_number=" + itemNumber)
    ppHref.Append("&amount=" + itemAmount)
    ppHref.Append("&currency_code=" + currencyCode)
    ppHref.Append("&add=" + addItem.ToString("#0"))
    Response.Redirect(ppHref.ToString(), True)
    Dim ReturnQaunity As String = itemAmount
    GetRouteUrl("/v1/payments/orders/<Order-Id>")

这是我试图开始从交易中获取详细信息的代码

  Dim strSandbox As String = "https://www.sandbox.paypal.com/cgi-bin/webscr"
    Dim strLive As String = "https://www.paypal.com/cgi-bin/webscr"
    Dim req As HttpWebRequest = CType(WebRequest.Create(strSandbox), HttpWebRequest)

    'Dim Param() As Byte = Request.BinaryRead(HttpContext.Current.Request.ContentLength)
    'Dim strRequest2 As String = Encoding.ASCII.GetString(Param)
    'strRequest2 = strRequest2 + "&cmd=_notify-validate&"
    'Dim req1 As HttpWebRequest = CType(WebRequest.Create(strSandbox), HttpWebRequest)


    'Set values for the request back
    req.Method = "POST"
    req.ContentType = "application/x-www-form-urlencoded"
    req.ContentLength = strRequest.Length

    'Send the request to PayPal and get the response
    Dim streamOut As StreamWriter = New StreamWriter(req.GetRequestStream(), Encoding.ASCII)
    streamOut.Write(strRequest)
    streamOut.Close()
    Dim streamIn As StreamReader = New StreamReader(req.GetResponse().GetResponseStream())
    Dim strResponse As String = streamIn.ReadToEnd()
    streamIn.Close()

    If Not String.IsNullOrEmpty(strResponse) Then
        Dim results As New Dictionary(Of String, String)
        Dim reader As New StringReader(strResponse)
        Dim line As String = reader.ReadLine()
        If line = "Success" Then
            While True
                Dim aLine As String
                aLine = reader.ReadLine
                If aLine IsNot Nothing Then
                    Dim strArr() As String
                    strArr = aLine.Split("=")
                    results.Add(strArr(0), strArr(1))
                Else
                    Exit While
                End If
            End While

此代码适用于所有 PDT 变量，但是我也坚持如何进行 api 调用，我可以在其中接收 PayerID 和 paypal 中列出的所有 api 变量。你能帮我解决这个问题吗？如何在 vb.net 中对 paypal 进行 API 调用？或者至少我需要什么才能进行 api 调用？

4

0 回答 0