Visual Basic 6.0 Stripe: Close a Dispute

Back to Index

Closing the dispute for a charge indicates that you do not have any evidence to submit and are essentially ‘dismissing’ the dispute, acknowledging it as lost

Documentation: https://stripe.com/docs/api/curl#close_dispute

CURL Command

curl https://api.stripe.com/v1/disputes/dp_1BnETJGswQrCoh0Xefx4zP2a/close \
   -u STRIPE_SECRET_KEY: \
   -X POST

Visual Basic 6.0 Example

Dim rest As New ChilkatRest
Dim success As Long

'  URL: https://api.stripe.com/v1/disputes/dp_1BnETJGswQrCoh0Xefx4zP2a/close
Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("api.stripe.com",port,bTls,bAutoReconnect)
If (success <> 1) Then
    Debug.Print "ConnectFailReason: " & rest.ConnectFailReason
    Debug.Print rest.LastErrorText
    Exit Sub
End If

success = rest.SetAuthBasic("STRIPE_SECRET_KEY","")

Dim sbResponseBody As New ChilkatStringBuilder
success = rest.FullRequestNoBodySb("POST","/v1/disputes/dp_1BnETJGswQrCoh0Xefx4zP2a/close",sbResponseBody)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim jsonResponse As New ChilkatJsonObject
success = jsonResponse.LoadSb(sbResponseBody)

Dim id As String
Dim object As String
Dim amount As Long
Dim balance_transaction As String
Dim charge As String
Dim created As Long
Dim currency As String
Dim evidenceAccess_activity_log As Long
Dim evidenceBilling_address As Long
Dim evidenceCancellation_policy As Long
Dim evidenceCancellation_policy_disclosure As Long
Dim evidenceCancellation_rebuttal As Long
Dim evidenceCustomer_communication As Long
Dim evidenceCustomer_email_address As Long
Dim evidenceCustomer_name As Long
Dim evidenceCustomer_purchase_ip As Long
Dim evidenceCustomer_signature As Long
Dim evidenceDuplicate_charge_documentation As Long
Dim evidenceDuplicate_charge_explanation As Long
Dim evidenceDuplicate_charge_id As Long
Dim evidenceProduct_description As Long
Dim evidenceReceipt As Long
Dim evidenceRefund_policy As Long
Dim evidenceRefund_policy_disclosure As Long
Dim evidenceRefund_refusal_explanation As Long
Dim evidenceService_date As Long
Dim evidenceService_documentation As Long
Dim evidenceShipping_address As Long
Dim evidenceShipping_carrier As Long
Dim evidenceShipping_date As Long
Dim evidenceShipping_documentation As Long
Dim evidenceShipping_tracking_number As Long
Dim evidenceUncategorized_file As Long
Dim evidenceUncategorized_text As Long
Dim evidence_detailsDue_by As Long
Dim evidence_detailsHas_evidence As Long
Dim evidence_detailsPast_due As Long
Dim evidence_detailsSubmission_count As Long
Dim is_charge_refundable As Long
Dim livemode As Long
Dim reason As String
Dim status As String
Dim i As Long
Dim count_i As Long

id = jsonResponse.StringOf("id")
object = jsonResponse.StringOf("object")
amount = jsonResponse.IntOf("amount")
balance_transaction = jsonResponse.StringOf("balance_transaction")
charge = jsonResponse.StringOf("charge")
created = jsonResponse.IntOf("created")
currency = jsonResponse.StringOf("currency")
evidenceAccess_activity_log = jsonResponse.IsNullOf("evidence.access_activity_log")
evidenceBilling_address = jsonResponse.IsNullOf("evidence.billing_address")
evidenceCancellation_policy = jsonResponse.IsNullOf("evidence.cancellation_policy")
evidenceCancellation_policy_disclosure = jsonResponse.IsNullOf("evidence.cancellation_policy_disclosure")
evidenceCancellation_rebuttal = jsonResponse.IsNullOf("evidence.cancellation_rebuttal")
evidenceCustomer_communication = jsonResponse.IsNullOf("evidence.customer_communication")
evidenceCustomer_email_address = jsonResponse.IsNullOf("evidence.customer_email_address")
evidenceCustomer_name = jsonResponse.IsNullOf("evidence.customer_name")
evidenceCustomer_purchase_ip = jsonResponse.IsNullOf("evidence.customer_purchase_ip")
evidenceCustomer_signature = jsonResponse.IsNullOf("evidence.customer_signature")
evidenceDuplicate_charge_documentation = jsonResponse.IsNullOf("evidence.duplicate_charge_documentation")
evidenceDuplicate_charge_explanation = jsonResponse.IsNullOf("evidence.duplicate_charge_explanation")
evidenceDuplicate_charge_id = jsonResponse.IsNullOf("evidence.duplicate_charge_id")
evidenceProduct_description = jsonResponse.IsNullOf("evidence.product_description")
evidenceReceipt = jsonResponse.IsNullOf("evidence.receipt")
evidenceRefund_policy = jsonResponse.IsNullOf("evidence.refund_policy")
evidenceRefund_policy_disclosure = jsonResponse.IsNullOf("evidence.refund_policy_disclosure")
evidenceRefund_refusal_explanation = jsonResponse.IsNullOf("evidence.refund_refusal_explanation")
evidenceService_date = jsonResponse.IsNullOf("evidence.service_date")
evidenceService_documentation = jsonResponse.IsNullOf("evidence.service_documentation")
evidenceShipping_address = jsonResponse.IsNullOf("evidence.shipping_address")
evidenceShipping_carrier = jsonResponse.IsNullOf("evidence.shipping_carrier")
evidenceShipping_date = jsonResponse.IsNullOf("evidence.shipping_date")
evidenceShipping_documentation = jsonResponse.IsNullOf("evidence.shipping_documentation")
evidenceShipping_tracking_number = jsonResponse.IsNullOf("evidence.shipping_tracking_number")
evidenceUncategorized_file = jsonResponse.IsNullOf("evidence.uncategorized_file")
evidenceUncategorized_text = jsonResponse.IsNullOf("evidence.uncategorized_text")
evidence_detailsDue_by = jsonResponse.IntOf("evidence_details.due_by")
evidence_detailsHas_evidence = jsonResponse.BoolOf("evidence_details.has_evidence")
evidence_detailsPast_due = jsonResponse.BoolOf("evidence_details.past_due")
evidence_detailsSubmission_count = jsonResponse.IntOf("evidence_details.submission_count")
is_charge_refundable = jsonResponse.BoolOf("is_charge_refundable")
livemode = jsonResponse.BoolOf("livemode")
reason = jsonResponse.StringOf("reason")
status = jsonResponse.StringOf("status")
i = 0
count_i = jsonResponse.SizeOfArray("balance_transactions")
Do While i < count_i
    jsonResponse.I = i
    i = i + 1
Loop

Sample JSON Response Body

{
  "id": "dp_1BnETJGswQrCoh0Xefx4zP2a",
  "object": "dispute",
  "amount": 1000,
  "balance_transaction": "txn_1BnETJGswQrCoh0XPNBs9uW2",
  "balance_transactions": [
  ],
  "charge": "ch_1BnETJGswQrCoh0XlANDK278",
  "created": 1516662781,
  "currency": "usd",
  "evidence": {
    "access_activity_log": null,
    "billing_address": null,
    "cancellation_policy": null,
    "cancellation_policy_disclosure": null,
    "cancellation_rebuttal": null,
    "customer_communication": null,
    "customer_email_address": null,
    "customer_name": null,
    "customer_purchase_ip": null,
    "customer_signature": null,
    "duplicate_charge_documentation": null,
    "duplicate_charge_explanation": null,
    "duplicate_charge_id": null,
    "product_description": null,
    "receipt": null,
    "refund_policy": null,
    "refund_policy_disclosure": null,
    "refund_refusal_explanation": null,
    "service_date": null,
    "service_documentation": null,
    "shipping_address": null,
    "shipping_carrier": null,
    "shipping_date": null,
    "shipping_documentation": null,
    "shipping_tracking_number": null,
    "uncategorized_file": null,
    "uncategorized_text": null
  },
  "evidence_details": {
    "due_by": 1518307199,
    "has_evidence": false,
    "past_due": false,
    "submission_count": 0
  },
  "is_charge_refundable": false,
  "livemode": false,
  "metadata": {},
  "reason": "general",
  "status": "lost"
}