(Delphi DLL) 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.

For more information, see https://www.hacienda.go.cr/ATV/ComprobanteElectronico/docs/esquemas/2016/v4.1/comprobantes-electronicos-api.html#recepcion_post

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, BinData, HttpResponse, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
bdSignedXml: HCkBinData;
json: HCkJsonObject;
jsonToken: HCkJsonObject;
success: Boolean;
resp: HCkHttpResponse;

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

http := CkHttp_Create();

// 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.
bdSignedXml := CkBinData_Create();
success := CkBinData_LoadFile(bdSignedXml,'someDir/signed.xml');
if (success = False) then
  begin
    Memo1.Lines.Add('Failed to load the XAdES signed XML.');
    Exit;
  end;

json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'clave','50601011600310112345600100010100000000011999999999');
CkJsonObject_UpdateString(json,'fecha','2016-01-01T00:00:00-0600');
CkJsonObject_UpdateString(json,'emisor.tipoIdentificacion','02');
CkJsonObject_UpdateString(json,'emisor.numeroIdentificacion','003101123456');
CkJsonObject_UpdateString(json,'receptor.tipoIdentificacion','02');
CkJsonObject_UpdateString(json,'receptor.numeroIdentificacion','003101123456');
// Add the base64 encoded representation of the signed XML.
CkJsonObject_UpdateString(json,'comprobanteXml',CkBinData__getEncoded(bdSignedXml,'base64'));

// Load our previously obtained OAuth2 access token.
jsonToken := CkJsonObject_Create();
success := CkJsonObject_LoadFile(jsonToken,'qa_data/tokens/hacienda_cr.json');
if (success <> True) then
  begin
    Memo1.Lines.Add('Failed to load constantContact.json');
    Exit;
  end;

// Adds the "Authorization: Bearer {access_token}" header.
CkHttp_putAuthToken(http,CkJsonObject__stringOf(jsonToken,'access_token'));

CkHttp_SetRequestHeader(http,'Content-Type','application / json');

resp := CkHttp_PostJson3(http,'https://api.comprobanteselectronicos.go.cr/recepcion/v1/recepcion','application/json',json);
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

// A 201 status code indicates success.
Memo1.Lines.Add('Response status code: ' + IntToStr(CkHttpResponse_getStatusCode(resp)));

Memo1.Lines.Add('Response body:');
Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));

CkHttpResponse_Dispose(resp);

CkHttp_Dispose(http);
CkBinData_Dispose(bdSignedXml);
CkJsonObject_Dispose(json);
CkJsonObject_Dispose(jsonToken);

end;