-2
我是新來VB.net使用braintree時,它工作正常,現在我需要傳遞付款請求的送貨細節。我該怎麼辦呢Braintree傳遞送貨地址與請求
If Request.Form("payment_method_nonce") <> "" Then
Dim strStatus As String = ""
Dim gateway As New Braintree.BraintreeGateway
With gateway
.Environment = Braintree.Environment.SANDBOX
.PublicKey = "*********"
.PrivateKey = "*************"
.MerchantId = "*************"
End With
Dim transactionRequest As New Braintree.TransactionRequest
With transactionRequest
.Amount = 100
.PaymentMethodNonce = Request.Form("payment_method_nonce")
End With
Dim result As Braintree.Result(Of Braintree.Transaction) = gateway.Transaction.Sale(transactionRequest)
If result.Errors Is Nothing Then
If result.Target.Status.ToString = Braintree.TransactionStatus.AUTHORIZED.ToString Then
strStatus = "Payment is " & result.Target.Status.ToString
Dim result1 As Braintree.Result(Of Braintree.Transaction) = gateway.Transaction.SubmitForSettlement(result.Target.Id)
strStatus = strStatus & " And Now its " & result1.Target.Status.ToString
Label1.Text = "Paid"
Else
strStatus = result.Target.Status.ToString
End If
Else
strStatus = result.Message.ToString
Label1.Text = "Not Paid"
End If
status.Text = strStatus
End If