![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) hacienda.go.cr Recepción de comprobantes electrónicos y respuestas del receptor.Comprobantes Electrónicos API version v1 -- Recepción de comprobantes electrónicos y respuestas del receptor. Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://www.hacienda.go.cr/ATV/ComprobanteElectronico/docs/esquemas/2016/v4.1/comprobantes-electronicos-api.html#recepcion_post
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Handle hoHttp Handle hoBdSignedXml Variant vJson Handle hoJson Handle hoJsonToken Variant vResp Handle hoResp String sTemp1 Integer iTemp1 Move False To iSuccess // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End // Implements the following CURL command: // curl -X POST -H "Content-Type: application / json" \ // -H 'authorization: Bearer {access_token}' \ // -d '{ // "clave": "50601011600310112345600100010100000000011999999999", // "fecha": "2016-01-01T00:00:00-0600", // "emisor": { // "tipoIdentificacion": "02", // "numeroIdentificacion": "003101123456" // }, // "receptor": { // "tipoIdentificacion": "02", // "numeroIdentificacion": "003101123456" // }, // "comprobanteXml": "PD94..." // }' https://api.comprobanteselectronicos.go.cr/recepcion/v1/recepcion // Use the following online tool to generate HTTP code from a CURL command // Convert a cURL Command to HTTP Source Code // Use this online tool to generate code from sample JSON: // Generate Code to Create JSON // The following JSON is sent in the request body. // { // "clave": "50601011600310112345600100010100000000011999999999", // "fecha": "2016-01-01T00:00:00-0600", // "emisor": { // "tipoIdentificacion": "02", // "numeroIdentificacion": "003101123456" // }, // "receptor": { // "tipoIdentificacion": "02", // "numeroIdentificacion": "003101123456" // }, // "comprobanteXml": "PD94b..." // } // Load the previously signed XML. Get Create (RefClass(cComChilkatBinData)) To hoBdSignedXml If (Not(IsComObjectCreated(hoBdSignedXml))) Begin Send CreateComObject of hoBdSignedXml End Get ComLoadFile Of hoBdSignedXml "someDir/signed.xml" To iSuccess If (iSuccess = False) Begin Showln "Failed to load the XAdES signed XML." Procedure_Return End Get Create (RefClass(cComChilkatJsonObject)) To hoJson If (Not(IsComObjectCreated(hoJson))) Begin Send CreateComObject of hoJson End Get ComUpdateString Of hoJson "clave" "50601011600310112345600100010100000000011999999999" To iSuccess Get ComUpdateString Of hoJson "fecha" "2016-01-01T00:00:00-0600" To iSuccess Get ComUpdateString Of hoJson "emisor.tipoIdentificacion" "02" To iSuccess Get ComUpdateString Of hoJson "emisor.numeroIdentificacion" "003101123456" To iSuccess Get ComUpdateString Of hoJson "receptor.tipoIdentificacion" "02" To iSuccess Get ComUpdateString Of hoJson "receptor.numeroIdentificacion" "003101123456" To iSuccess // Add the base64 encoded representation of the signed XML. Get ComGetEncoded Of hoBdSignedXml "base64" To sTemp1 Get ComUpdateString Of hoJson "comprobanteXml" sTemp1 To iSuccess // Load our previously obtained OAuth2 access token. Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken If (Not(IsComObjectCreated(hoJsonToken))) Begin Send CreateComObject of hoJsonToken End Get ComLoadFile Of hoJsonToken "qa_data/tokens/hacienda_cr.json" To iSuccess If (iSuccess <> True) Begin Showln "Failed to load constantContact.json" Procedure_Return End // Adds the "Authorization: Bearer {access_token}" header. Get ComStringOf Of hoJsonToken "access_token" To sTemp1 Set ComAuthToken Of hoHttp To sTemp1 Send ComSetRequestHeader To hoHttp "Content-Type" "application / json" Get Create (RefClass(cComChilkatHttpResponse)) To hoResp If (Not(IsComObjectCreated(hoResp))) Begin Send CreateComObject of hoResp End Get pvComObject of hoJson to vJson Get pvComObject of hoResp to vResp Get ComHttpJson Of hoHttp "POST" "https://api.comprobanteselectronicos.go.cr/recepcion/v1/recepcion" vJson "application/json" vResp To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End // A 201 status code indicates success. Get ComStatusCode Of hoResp To iTemp1 Showln "Response status code: " iTemp1 Showln "Response body:" Get ComBodyStr Of hoResp To sTemp1 Showln sTemp1 End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.