(AutoIt) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; 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.
$oBdSignedXml = ObjCreate("Chilkat.BinData")
$bSuccess = $oBdSignedXml.LoadFile("someDir/signed.xml")
If ($bSuccess = False) Then
    ConsoleWrite("Failed to load the XAdES signed XML." & @CRLF)
    Exit
EndIf

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateString("clave","50601011600310112345600100010100000000011999999999")
$oJson.UpdateString("fecha","2016-01-01T00:00:00-0600")
$oJson.UpdateString("emisor.tipoIdentificacion","02")
$oJson.UpdateString("emisor.numeroIdentificacion","003101123456")
$oJson.UpdateString("receptor.tipoIdentificacion","02")
$oJson.UpdateString("receptor.numeroIdentificacion","003101123456")
; Add the base64 encoded representation of the signed XML.
$oJson.UpdateString("comprobanteXml",$oBdSignedXml.GetEncoded("base64"))

; Load our previously obtained OAuth2 access token.
$oJsonToken = ObjCreate("Chilkat.JsonObject")
Local $bSuccess = $oJsonToken.LoadFile("qa_data/tokens/hacienda_cr.json")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load constantContact.json" & @CRLF)
    Exit
EndIf

; Adds the "Authorization: Bearer {access_token}" header.
$oHttp.AuthToken = $oJsonToken.StringOf("access_token")

$oHttp.SetRequestHeader "Content-Type","application / json"

Local $oResp = $oHttp.PostJson3("https://api.comprobanteselectronicos.go.cr/recepcion/v1/recepcion","application/json",$oJson)
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

; A 201 status code indicates success.
ConsoleWrite("Response status code: " & $oResp.StatusCode & @CRLF)

ConsoleWrite("Response body:" & @CRLF)
ConsoleWrite($oResp.BodyStr & @CRLF)