(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$http = chilkat::CkHttp->new();

# 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 = chilkat::CkBinData->new();
$success = $bdSignedXml->LoadFile("someDir/signed.xml");
if ($success == 0) {
    print "Failed to load the XAdES signed XML." . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$json->UpdateString("clave","50601011600310112345600100010100000000011999999999");
$json->UpdateString("fecha","2016-01-01T00:00:00-0600");
$json->UpdateString("emisor.tipoIdentificacion","02");
$json->UpdateString("emisor.numeroIdentificacion","003101123456");
$json->UpdateString("receptor.tipoIdentificacion","02");
$json->UpdateString("receptor.numeroIdentificacion","003101123456");
# Add the base64 encoded representation of the signed XML.
$json->UpdateString("comprobanteXml",$bdSignedXml->getEncoded("base64"));

# Load our previously obtained OAuth2 access token.
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/hacienda_cr.json");
if ($success != 1) {
    print "Failed to load constantContact.json" . "\r\n";
    exit;
}

# Adds the "Authorization: Bearer {access_token}" header.
$http->put_AuthToken($jsonToken->stringOf("access_token"));

$http->SetRequestHeader("Content-Type","application / json");

# resp is a HttpResponse
$resp = $http->PostJson3("https://api.comprobanteselectronicos.go.cr/recepcion/v1/recepcion","application/json",$json);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# A 201 status code indicates success.
print "Response status code: " . $resp->get_StatusCode() . "\r\n";

print "Response body:" . "\r\n";
print $resp->bodyStr() . "\r\n";