StripeXPlanDemo

SET PROCEDURE TO w:\vfp7com\prog\StripeX ADDITIVE 
SET CLASSLIB TO  w:\vfp7com\apps\libcurl\libcurl ADDITIVE 

local o 
o = NEWOBJECT("StripeX")
o.cAPIKey = "YourKeyGoesHere"	

IF !o.Authenticate()	&& Make sure Stripe working
	?"Auth", "Failed", o.cErrorMessage
		return
endif

LOCAL lCount
lCount = 0

* Get a list of all plans
lCount = o.PlanList()
?"# Plans found : " + TRANSFORM(lCount)
if lCount > 0
	LOCAL lCount
	lCOunt = 0
	
	SELECT CurStripePlan
	lCount = 0
	SCAN
		lCount = lCount + 1
		?"   Plan #" + TRANSFORM(lCount) + " ID: " +;
			 ALLTRIM(CurStripePlan.ID) 
	ENDSCAN
ENDIF

* Retrieve a plan
SELECT CurStripePlan
GO top
?"Retrieve Plan " + ALLTRIM(CurStripePlan.ID) + " : " + IIF(o.PlanRetrieve(CurStripePlan.ID), "Success", "Fail")
?"  ID : " + o.ObjectExtract("id", o.cData)
?"  Name : " + o.ObjectExtract("name", o.cData)
?"  Amount : " + TRANSFORM(o.ObjectExtract("amount", o.cData))