SQL Server

hacienda.go.cr Obtener Token

See more hacienda.go.cr Examples

Gets an access token using the Resource Owner Password Credential Grant for the Recepción de Comprobantes Electrónicos del Ministerio de Hacienda (Costa Rica) SQL Server

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    -- This example assumes the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @http int
    EXEC @hr = sp_OACreate 'Chilkat.Http', @http OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Implements the following CURL command:

    -- curl -X "POST" "https://idp.comprobanteselectronicos.go.cr/auth/realms/rut-stag/protocol/openid-connect/token" \
    -- -H "Content-Type: application/x-www-form-urlencoded; charset=utf-8" \
    -- --data-urlencode "client_id=api-stag" \
    -- --data-urlencode "username=cpj-3-101-261506@stag.comprobanteselectronicos.go.cr" \
    -- --data-urlencode "password=my_password" \
    -- --data-urlencode "grant_type=password"

    -- Use the following online tool to generate HTTP code from a CURL command
    -- Convert a cURL Command to HTTP Source Code

    DECLARE @req int
    EXEC @hr = sp_OACreate 'Chilkat.HttpRequest', @req OUT

    EXEC sp_OASetProperty @req, 'HttpVerb', 'POST'
    EXEC sp_OASetProperty @req, 'Path', '/auth/realms/rut-stag/protocol/openid-connect/token'
    EXEC sp_OASetProperty @req, 'ContentType', 'application/x-www-form-urlencoded'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'client_id', 'api-stag'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'username', 'cpj-3-101-261506@stag.comprobanteselectronicos.go.cr'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'password', 'my_password'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'grant_type', 'password'

    DECLARE @resp int
    EXEC @hr = sp_OACreate 'Chilkat.HttpResponse', @resp OUT

    EXEC sp_OAMethod @http, 'HttpReq', @success OUT, 'https://idp.comprobanteselectronicos.go.cr/auth/realms/rut-stag/protocol/openid-connect/token', @req, @resp
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @req
        EXEC @hr = sp_OADestroy @resp
        RETURN
      END

    DECLARE @sbResponseBody int
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbResponseBody OUT

    EXEC sp_OAMethod @resp, 'GetBodySb', @success OUT, @sbResponseBody
    DECLARE @jResp int
    EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @jResp OUT

    EXEC sp_OAMethod @jResp, 'LoadSb', @success OUT, @sbResponseBody
    EXEC sp_OASetProperty @jResp, 'EmitCompact', 0


    PRINT 'Response Body:'
    EXEC sp_OAMethod @jResp, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    DECLARE @respStatusCode int
    EXEC sp_OAGetProperty @resp, 'StatusCode', @respStatusCode OUT

    PRINT 'Response Status Code = ' + @respStatusCode
    IF @respStatusCode >= 400
      BEGIN

        PRINT 'Response Header:'
        EXEC sp_OAGetProperty @resp, 'Header', @sTmp0 OUT
        PRINT @sTmp0

        PRINT 'Failed.'
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @req
        EXEC @hr = sp_OADestroy @resp
        EXEC @hr = sp_OADestroy @sbResponseBody
        EXEC @hr = sp_OADestroy @jResp
        RETURN
      END

    -- Sample JSON response:
    -- (Sample code for parsing the JSON response is shown below)

    -- {
    --   "access_token": "ey....",
    --   "expires_in": 300,
    --   "id_token": "ey....",
    --   "not-before-policy": 0,
    --   "refresh_expires_in": 1800,
    --   "refresh_token": "ey...",
    --   "session_state": "...",
    --   "token_type": "bearer"
    -- }

    -- Sample code for parsing the JSON response...
    -- Use the following online tool to generate parsing code from sample JSON:
    -- Generate Parsing Code from JSON

    DECLARE @access_token nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @access_token OUT, 'access_token'
    DECLARE @expires_in int
    EXEC sp_OAMethod @jResp, 'IntOf', @expires_in OUT, 'expires_in'
    DECLARE @id_token nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @id_token OUT, 'id_token'
    DECLARE @not_before_policy int
    EXEC sp_OAMethod @jResp, 'IntOf', @not_before_policy OUT, 'not-before-policy'
    DECLARE @refresh_expires_in int
    EXEC sp_OAMethod @jResp, 'IntOf', @refresh_expires_in OUT, 'refresh_expires_in'
    DECLARE @refresh_token nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @refresh_token OUT, 'refresh_token'
    DECLARE @session_state nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @session_state OUT, 'session_state'
    DECLARE @token_type nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @token_type OUT, 'token_type'

    -- Save the JSON to a file for future requests.
    DECLARE @fac int
    EXEC @hr = sp_OACreate 'Chilkat.FileAccess', @fac OUT

    EXEC sp_OAMethod @jResp, 'Emit', @sTmp0 OUT
    EXEC sp_OAMethod @fac, 'WriteEntireTextFile', @success OUT, 'qa_data/tokens/hacienda_cr.json', @sTmp0, 'utf-8', 0

    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @req
    EXEC @hr = sp_OADestroy @resp
    EXEC @hr = sp_OADestroy @sbResponseBody
    EXEC @hr = sp_OADestroy @jResp
    EXEC @hr = sp_OADestroy @fac


END
GO