Returns a list of your coupons.
curl https://api.stripe.com/v1/coupons?limit=3 \
-u STRIPE_SECRET_KEY: \
-G
CREATE PROCEDURE ChilkatSample
AS
BEGIN
DECLARE @hr int
DECLARE @iTmp0 int
DECLARE @sTmp0 nvarchar(4000)
DECLARE @rest int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Rest', @rest OUT
IF @hr <> 0
BEGIN
PRINT 'Failed to create ActiveX component'
RETURN
END
DECLARE @success int
-- URL: https://api.stripe.com/v1/coupons?limit=3
DECLARE @bTls int
SELECT @bTls = 1
DECLARE @port int
SELECT @port = 443
DECLARE @bAutoReconnect int
SELECT @bAutoReconnect = 1
EXEC sp_OAMethod @rest, 'Connect', @success OUT, 'api.stripe.com', STR(@port), STR(@bTls), STR(@bAutoReconnect)
IF STR(@success) <> 1
BEGIN
EXEC sp_OAGetProperty @rest, 'ConnectFailReason', @iTmp0 OUT
PRINT 'ConnectFailReason: ' + @iTmp0
EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @rest
RETURN
END
EXEC sp_OAMethod @rest, 'SetAuthBasic', @success OUT, 'STRIPE_SECRET_KEY', ''
DECLARE @sbResponseBody int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sbResponseBody OUT
EXEC sp_OAMethod @rest, 'FullRequestNoBodySb', @success OUT, 'GET', '/v1/coupons?limit=3', STR(@sbResponseBody)
IF STR(@success) <> 1
BEGIN
EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @sbResponseBody
RETURN
END
DECLARE @jsonResponse int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @jsonResponse OUT
EXEC sp_OAMethod @jsonResponse, 'LoadSb', @success OUT, STR(@sbResponseBody)
DECLARE @object nvarchar(4000)
DECLARE @url nvarchar(4000)
DECLARE @has_more int
DECLARE @i int
DECLARE @count_i int
DECLARE @id nvarchar(4000)
DECLARE @amount_off int
DECLARE @created int
DECLARE @currency int
DECLARE @duration nvarchar(4000)
DECLARE @duration_in_months int
DECLARE @livemode int
DECLARE @max_redemptions int
DECLARE @percent_off int
DECLARE @redeem_by int
DECLARE @times_redeemed int
DECLARE @valid int
EXEC sp_OAMethod @jsonResponse, 'StringOf', @object OUT, 'object'
EXEC sp_OAMethod @jsonResponse, 'StringOf', @url OUT, 'url'
EXEC sp_OAMethod @jsonResponse, 'BoolOf', @has_more OUT, 'has_more'
SELECT @i = 0
EXEC sp_OAMethod @jsonResponse, 'SizeOfArray', @count_i OUT, 'data'
WHILE STR(@i) < STR(@count_i)
BEGIN
EXEC sp_OASetProperty @jsonResponse, 'I', STR(@i)
EXEC sp_OAMethod @jsonResponse, 'StringOf', @id OUT, 'data[i].id'
EXEC sp_OAMethod @jsonResponse, 'StringOf', @object OUT, 'data[i].object'
EXEC sp_OAMethod @jsonResponse, 'IsNullOf', @amount_off OUT, 'data[i].amount_off'
EXEC sp_OAMethod @jsonResponse, 'IntOf', @created OUT, 'data[i].created'
EXEC sp_OAMethod @jsonResponse, 'IsNullOf', @currency OUT, 'data[i].currency'
EXEC sp_OAMethod @jsonResponse, 'StringOf', @duration OUT, 'data[i].duration'
EXEC sp_OAMethod @jsonResponse, 'IntOf', @duration_in_months OUT, 'data[i].duration_in_months'
EXEC sp_OAMethod @jsonResponse, 'BoolOf', @livemode OUT, 'data[i].livemode'
EXEC sp_OAMethod @jsonResponse, 'IsNullOf', @max_redemptions OUT, 'data[i].max_redemptions'
EXEC sp_OAMethod @jsonResponse, 'IntOf', @percent_off OUT, 'data[i].percent_off'
EXEC sp_OAMethod @jsonResponse, 'IsNullOf', @redeem_by OUT, 'data[i].redeem_by'
EXEC sp_OAMethod @jsonResponse, 'IntOf', @times_redeemed OUT, 'data[i].times_redeemed'
EXEC sp_OAMethod @jsonResponse, 'BoolOf', @valid OUT, 'data[i].valid'
SELECT @i = STR(@i) + 1
END
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @sbResponseBody
EXEC @hr = sp_OADestroy @jsonResponse
END
GO
{
"object": "list",
"url": "/v1/coupons",
"has_more": false,
"data": [
{
"id": "25OFF",
"object": "coupon",
"amount_off": null,
"created": 1516662783,
"currency": null,
"duration": "repeating",
"duration_in_months": 3,
"livemode": false,
"max_redemptions": null,
"metadata": {},
"percent_off": 25,
"redeem_by": null,
"times_redeemed": 0,
"valid": true
}
]
}