Visual FoxPro Stripe: List all Disputes

Back to Index

Returns a list of your disputes.

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

CURL Command

curl https://api.stripe.com/v1/disputes?limit=3 \
   -u STRIPE_SECRET_KEY: \
   -G

Visual FoxPro Example

LOCAL loRest
LOCAL lnSuccess
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL loSbResponseBody
LOCAL loJsonResponse
LOCAL lcObject
LOCAL lcUrl
LOCAL lnHas_more
LOCAL i
LOCAL lnCount_i
LOCAL lcId
LOCAL lnAmount
LOCAL lcBalance_transaction
LOCAL lcCharge
LOCAL lnCreated
LOCAL lcCurrency
LOCAL lnEvidenceAccess_activity_log
LOCAL lnEvidenceBilling_address
LOCAL lnEvidenceCancellation_policy
LOCAL lnEvidenceCancellation_policy_disclosure
LOCAL lnEvidenceCancellation_rebuttal
LOCAL lnEvidenceCustomer_communication
LOCAL lnEvidenceCustomer_email_address
LOCAL lnEvidenceCustomer_name
LOCAL lnEvidenceCustomer_purchase_ip
LOCAL lnEvidenceCustomer_signature
LOCAL lnEvidenceDuplicate_charge_documentation
LOCAL lnEvidenceDuplicate_charge_explanation
LOCAL lnEvidenceDuplicate_charge_id
LOCAL lnEvidenceProduct_description
LOCAL lnEvidenceReceipt
LOCAL lnEvidenceRefund_policy
LOCAL lnEvidenceRefund_policy_disclosure
LOCAL lnEvidenceRefund_refusal_explanation
LOCAL lnEvidenceService_date
LOCAL lnEvidenceService_documentation
LOCAL lnEvidenceShipping_address
LOCAL lnEvidenceShipping_carrier
LOCAL lnEvidenceShipping_date
LOCAL lnEvidenceShipping_documentation
LOCAL lnEvidenceShipping_tracking_number
LOCAL lnEvidenceUncategorized_file
LOCAL lnEvidenceUncategorized_text
LOCAL lnEvidence_detailsDue_by
LOCAL lnEvidence_detailsHas_evidence
LOCAL lnEvidence_detailsPast_due
LOCAL lnEvidence_detailsSubmission_count
LOCAL lnIs_charge_refundable
LOCAL lnLivemode
LOCAL lcReason
LOCAL lcStatus
LOCAL j
LOCAL lnCount_j

loRest = CreateObject('Chilkat_9_5_0.Rest')

*  URL: https://api.stripe.com/v1/disputes?limit=3
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("api.stripe.com",lnPort,lnBTls,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? "ConnectFailReason: " + STR(loRest.ConnectFailReason)
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

loRest.SetAuthBasic("STRIPE_SECRET_KEY","")

loSbResponseBody = CreateObject('Chilkat_9_5_0.StringBuilder')
lnSuccess = loRest.FullRequestNoBodySb("GET","/v1/disputes?limit=3",loSbResponseBody)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loSbResponseBody
    CANCEL
ENDIF

loJsonResponse = CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResponse.LoadSb(loSbResponseBody)

lcObject = loJsonResponse.StringOf("object")
lcUrl = loJsonResponse.StringOf("url")
lnHas_more = loJsonResponse.BoolOf("has_more")
i = 0
lnCount_i = loJsonResponse.SizeOfArray("data")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcId = loJsonResponse.StringOf("data[i].id")
    lcObject = loJsonResponse.StringOf("data[i].object")
    lnAmount = loJsonResponse.IntOf("data[i].amount")
    lcBalance_transaction = loJsonResponse.StringOf("data[i].balance_transaction")
    lcCharge = loJsonResponse.StringOf("data[i].charge")
    lnCreated = loJsonResponse.IntOf("data[i].created")
    lcCurrency = loJsonResponse.StringOf("data[i].currency")
    lnEvidenceAccess_activity_log = loJsonResponse.IsNullOf("data[i].evidence.access_activity_log")
    lnEvidenceBilling_address = loJsonResponse.IsNullOf("data[i].evidence.billing_address")
    lnEvidenceCancellation_policy = loJsonResponse.IsNullOf("data[i].evidence.cancellation_policy")
    lnEvidenceCancellation_policy_disclosure = loJsonResponse.IsNullOf("data[i].evidence.cancellation_policy_disclosure")
    lnEvidenceCancellation_rebuttal = loJsonResponse.IsNullOf("data[i].evidence.cancellation_rebuttal")
    lnEvidenceCustomer_communication = loJsonResponse.IsNullOf("data[i].evidence.customer_communication")
    lnEvidenceCustomer_email_address = loJsonResponse.IsNullOf("data[i].evidence.customer_email_address")
    lnEvidenceCustomer_name = loJsonResponse.IsNullOf("data[i].evidence.customer_name")
    lnEvidenceCustomer_purchase_ip = loJsonResponse.IsNullOf("data[i].evidence.customer_purchase_ip")
    lnEvidenceCustomer_signature = loJsonResponse.IsNullOf("data[i].evidence.customer_signature")
    lnEvidenceDuplicate_charge_documentation = loJsonResponse.IsNullOf("data[i].evidence.duplicate_charge_documentation")
    lnEvidenceDuplicate_charge_explanation = loJsonResponse.IsNullOf("data[i].evidence.duplicate_charge_explanation")
    lnEvidenceDuplicate_charge_id = loJsonResponse.IsNullOf("data[i].evidence.duplicate_charge_id")
    lnEvidenceProduct_description = loJsonResponse.IsNullOf("data[i].evidence.product_description")
    lnEvidenceReceipt = loJsonResponse.IsNullOf("data[i].evidence.receipt")
    lnEvidenceRefund_policy = loJsonResponse.IsNullOf("data[i].evidence.refund_policy")
    lnEvidenceRefund_policy_disclosure = loJsonResponse.IsNullOf("data[i].evidence.refund_policy_disclosure")
    lnEvidenceRefund_refusal_explanation = loJsonResponse.IsNullOf("data[i].evidence.refund_refusal_explanation")
    lnEvidenceService_date = loJsonResponse.IsNullOf("data[i].evidence.service_date")
    lnEvidenceService_documentation = loJsonResponse.IsNullOf("data[i].evidence.service_documentation")
    lnEvidenceShipping_address = loJsonResponse.IsNullOf("data[i].evidence.shipping_address")
    lnEvidenceShipping_carrier = loJsonResponse.IsNullOf("data[i].evidence.shipping_carrier")
    lnEvidenceShipping_date = loJsonResponse.IsNullOf("data[i].evidence.shipping_date")
    lnEvidenceShipping_documentation = loJsonResponse.IsNullOf("data[i].evidence.shipping_documentation")
    lnEvidenceShipping_tracking_number = loJsonResponse.IsNullOf("data[i].evidence.shipping_tracking_number")
    lnEvidenceUncategorized_file = loJsonResponse.IsNullOf("data[i].evidence.uncategorized_file")
    lnEvidenceUncategorized_text = loJsonResponse.IsNullOf("data[i].evidence.uncategorized_text")
    lnEvidence_detailsDue_by = loJsonResponse.IntOf("data[i].evidence_details.due_by")
    lnEvidence_detailsHas_evidence = loJsonResponse.BoolOf("data[i].evidence_details.has_evidence")
    lnEvidence_detailsPast_due = loJsonResponse.BoolOf("data[i].evidence_details.past_due")
    lnEvidence_detailsSubmission_count = loJsonResponse.IntOf("data[i].evidence_details.submission_count")
    lnIs_charge_refundable = loJsonResponse.BoolOf("data[i].is_charge_refundable")
    lnLivemode = loJsonResponse.BoolOf("data[i].livemode")
    lcReason = loJsonResponse.StringOf("data[i].reason")
    lcStatus = loJsonResponse.StringOf("data[i].status")
    j = 0
    lnCount_j = loJsonResponse.SizeOfArray("data[i].balance_transactions")
    DO WHILE j < lnCount_j
        loJsonResponse.J = j
        j = j + 1
    ENDDO
    i = i + 1
ENDDO

RELEASE loRest
RELEASE loSbResponseBody
RELEASE loJsonResponse

Sample JSON Response Body

{
  "object": "list",
  "url": "/v1/disputes",
  "has_more": false,
  "data": [
    {
      "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": "needs_response"
    }
  ]
}