function Xbasic module

[bob9145]

Re: function Xbasic module

Figured it out variable_exists("response.error")

[Davidk]

Re: function Xbasic module

Sorry... I always get that function wrong. The variable you're testing for must be quoted. It's a bug in Alpha... in that it works until it doesn't. The test should be...

	if variable_exists("response.error") then
		'we know we have an error
		dim errType as c = response.error.type
		dim errMsg as c = response.error.message
	else
		'all good		
	end if

[bob9145]

Re: function Xbasic module

Gave up for now on creating an xbasics module called from an xbasics function in the ux. I simplified things by putting the script in the dialog validate event of a ux. I handle the three possibilities of a curl call to the stripe API.
using an ifelse statement. Curl using the genie has given me hope that I can reach the the stripe summit! But for now headed back down to base camp to weather tomorrow's storm. Thanks for your help. If anyone wants a copy of the component message me.

function dialogValidate as p (e as p)
'debug(1)
dim cf_1 as extension::CurlFile
dim flag_1 as l
dim ce as extension::Curl

dim concate_posted_fields as c
dim posted_fields as c

concate_posted_fields = "amount=" + e.dataSubmitted.amount + "&interval=" + e.dataSubmitted.interval + "&product[name]=" + e.dataSubmitted.product_name + "&currency=" + e.dataSubmitted.currency + "&id=" + e.dataSubmitted.product_id
ce = extension::Curl.Init()
ce.setOpt("URL","https://api.stripe.com/v1/plans")
ce.setOpt("NOPROGRESS",1)
ce.setOpt("USERPWD","sk_test_your._key:")
posted_fields = concate_posted_fields '("amount=40000&interval=month&product[name]=seven&currency=usd&id=seven")
ce.setOpt("POSTFIELDS",posted_fields)
ce.setOpt("POSTFIELDSIZE_LARGE", len(posted_fields) )
ce.setOpt("USERAGENT","curl/7.34.0")
ce.setOpt("MAXREDIRS",50)
ce.setOpt("CAINFO",a5.Get_Exe_Path()+"\caroot\ca-cert.pem")
ce.setOpt("CAPATH",a5.Get_Exe_Path()+"\caroot")
'ce.setOpt("SSH_KNOWNHOSTS","C:\Users\Robert Senski\AppData\Roaming/_ssh/known_hosts")
ce.setOpt("TCP_KEEPALIVE",1)
ce.SetOpt("FILE",cf_1)
flag_1 = ce.Exec()
'if flag_1 then (commented out)

dim headers as c
dim contents as c
dim response as p

'headers = cf_1.GetHeaders()
contents = cf_1.GetContent()
response = json_parse(contents)
if variable_exists("response.error") then

e.control.type = response.error.type
e.control.message = response.error.message
elseif variable_exists("response.id") then

e.control.Amount_Confirmed = response.amount
e.control.Date_Created = response.created
e.control.Currency_Type = response.currency
e.control.Plan_ID = response.id
e.control.Interval_Frequency = response.interval
e.control.Mode = response.livemode
e.control.Product_Type = response.object
e.control.Product_GUID = response.product
e.control.Trial_length = response.trial_period_days
else
dim errors as c
error = ce.error()
e.control.error = "Houston We Have A Problem: " + error
end if
ce.close()

dialogValidate.hasError = .f.
dialogValidate.errorText = ""

end function

[Davidk]

Re: function Xbasic module

Calling an XBasic Module works without issues. Your error checking logic is not done well... but... up to you.