HMGforum.com

Code: Select all

* #########################################################
* #### INTEGRACIÓN FÁCIL ####
* +++++++++++++++++++++++++++++++++++++++++++++++++++++++
* # ESTE CÓDIGO FUNCIONA PARA LA VERSIÓN ONLINE Y OFFLINE
* # Visita www.nubefact.com/integracion para más información
* +++++++++++++++++++++++++++++++++++++++++++++++++++++++

* #########################################################
* #### FORMA DE TRABAJO ####
* +++++++++++++++++++++++++++++++++++++++++++++++++++++++
* # PASO 1: Conseguir una RUTA y un TOKEN para trabajar con NUBEFACT (Regístrate o ingresa a tu cuenta en www.nubefact.com).
* # PASO 2: Generar un archivo en formato .JSON o .TXT con una estructura que se detalla en este documento.
* # PASO 3: Enviar el archivo generado a nuestra WEB SERVICE ONLINE u OFFLINE según corresponda usando la RUTA y el TOKEN.
* # PASO 4: Generamos el archivo XML y PDF (Según especificaciones de la SUNAT) y te devolveremos INSTANTÁNEAMENTE los datos del documento generado.
* # Para ver el documento generado ingresa a www.nubefact.com/login con tus datos de acceso, y luego a la opción "Ver Facturas, Boletas y Notas"
* # IMPORTANTE: Enviaremos el XML generado a la SUNAT y lo almacenaremos junto con el PDF, XML y CDR en la NUBE para que tu cliente pueda consultarlo en cualquier momento, si así lo desea.
* +++++++++++++++++++++++++++++++++++++++++++++++++++++++


* #########################################################
* #### PASO 1: CONSEGUIR LA RUTA Y TOKEN ####
* +++++++++++++++++++++++++++++++++++++++++++++++++++++++
* # CUENTA DEMO PARA HACER PRUEBAS
* # Puedes usar la siguiente cuenta para hacer pruebas:
* #  - LINK: https://demo.nubefact.com/login
* #  - USUARIO: demo@nubefact.com
* #  - PASSWORD: demo@nubefact.com
* # Una vez que ingreses a esta cuenta ve a la opción API (Integración) para ver la RUTA y el TOKEN los cuales son:
* #  - RUTA: https://demo.nubefact.com/api/v1/03989d1a-6c8c-4b71-b1cd-7d37001deaa0
* #  - TOKEN: d0a80b88cde446d092025465bdb4673e103a0d881ca6479ebbab10664dbc5677
* # También puedes crear una cuenta propia para hacer pruebas más precisas.
* #
* # CREAR UNA CUENTA PROPIA
* #  - Regístrate gratis en www.nubefact.com/register
* #  - Ir la opción API (Integración).
* # IMPORTANTE: Para que la opción API (Integración) de tu cuenta propia esté activada necesitas escribirnos a soporte@nubefact.com o llámanos al teléfono: 01 468 3535 (opción 2) o celular (WhatsApp) 955 598762.
* +++++++++++++++++++++++++++++++++++++++++++++++++++++++

# RUTA para enviar documentos
ruta = "https://demo.nubefact.com/api/v1/03989d1a-6c8c-4b71-b1cd-7d37001deaa0"

# TOKEN para enviar documentos
token = "d0a80b88cde446d092025465bdb4673e103a0d881ca6479ebbab10664dbc5677"


#########################################################
#### PASO 2: GENERAR EL ARCHIVO PARA ENVIAR A NUBEFACT ####
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
# - MANUAL para archivo JSON en el link: https://goo.gl/WHMmSb
# - MANUAL para archivo TXT en el link: https://goo.gl/Lz7hAq
+++++++++++++++++++++++++++++++++++++++++++++++++++++++

* CONSTRUIMOS EL TXT

TipoComprobante = 1
Serie = FFF1
Nummero = 1
Fecha = "09-05-2017"

*# CAPTURAR VARIABLES DESDE UN FORMULARIO PODRÍA USAR LO SIGUIENTE:
* TipoComprobante=thisform.cbodocumento.DisplayValue
* Serie=thisform.cboserie.DisplayValue
* Nummero=thisform.txtnum.Value
* Fecha=thisform.cbodia.DisplayValue+"-"+thisform.cbomes.DisplayValue+"-"+thisform.cboan.DisplayValue
* thisform.Rpta.Caption =  Cliente+" "+TipoComprobante+" "+Serie+" "+Num+" "+Fecha

* CUIDADO! "TEXT TO" no funciona en versiones anteriores a VF8


TEXT TO txt_para_envio NOSHOW TEXT PRETEXT 7
operacion|generar_comprobante|
tipo_de_comprobante|<<TipoComprobante>>|
serie|<<Serie>>|
numero|<<Num>>|
sunat_transaction|1|
cliente_tipo_de_documento|6|
cliente_numero_de_documento|20600695771|
cliente_denominacion|NUBEFACTSA|
cliente_direccion|CALLE LIBERTAD 116 MIRAFLORES - LIMA - PERU|
cliente_email||
cliente_email_1||
cliente_email_2||
fecha_de_emision|<<Fecha>>|
fecha_de_vencimiento||
moneda|1|
tipo_de_cambio||
porcentaje_de_igv|18|
descuento_global||
total_descuento||
total_anticipo||
total_gravada|600|
total_inafecta||
total_exonerada||
total_igv|108|
total_gratuita||
total_otros_cargos||
total|708|
percepcion_tipo||
percepcion_base_imponible||
total_percepcion||
total_incluido_percepcion||
detraccion|false|
observaciones||
documento_que_se_modifica_tipo||
documento_que_se_modifica_serie||
documento_que_se_modifica_numero||
tipo_de_nota_de_credito||
tipo_de_nota_de_debito||
enviar_automaticamente_a_la_sunat|true|
enviar_automaticamente_al_cliente|false|
codigo_unico||
condiciones_de_pago||
medio_de_pago||
placa_vehiculo||
orden_compra_servicio||
tabla_personalizada_codigo||
formato_de_pdf||
item|NIU|001|DETALLE DEL PRODUCTO|1|500|590||500|1|90|590|false|||
item|ZZ|001|DETALLE DEL SERVICIO|5|20|23.60||100|1|18|118|false|||
ENDTEXT

* #########################################################
* #### PASO 3: ENVIAR EL ARCHIVO A NUBEFACT ####
* +++++++++++++++++++++++++++++++++++++++++++++++++++++++
* # SI ESTÁS TRABAJANDO CON ARCHIVO JSON
* # - Debes enviar en el HEADER de tu solicitud la siguiente lo siguiente:
* # Authorization = Token token="8d19d8c7c1f6402687720eab85cd57a54f5a7a3fa163476bbcf381ee2b5e0c69"
* # Content-Type = application/json
* # - Adjuntar en el CUERPO o BODY el archivo JSON o TXT
* # SI ESTÁS TRABAJANDO CON ARCHIVO TXT
* # - Debes enviar en el HEADER de tu solicitud la siguiente lo siguiente:
* # Authorization = Token token="8d19d8c7c1f6402687720eab85cd57a54f5a7a3fa163476bbcf381ee2b5e0c69"
* # Content-Type = text/plain
* # - Adjuntar en el CUERPO o BODY el archivo JSON o TXT
* +++++++++++++++++++++++++++++++++++++++++++++++++++++++

post_connect = CreateObject("MSXML2.ServerXMLHTTP")
* Para algunas versiones de XMLHTTP, usar:
*     post_connect = CreateObject("Microsoft.XMLHTTP")
*     post_connect = CreateObject("MSXML2.XMLHTTP")
post_connect.Open("POST", ruta, .F.)
post_connect.setRequestHeader("Content-Type", "text/plain")
post_connect.setRequestHeader("Authorization", "Token token=" + token)
post_connect.Send(txt_para_envio)
txt_respuesta = post_connect.responsetext

* #########################################################
* #### PASO 4: LEER RESPUESTA DE NUBEFACT ####
* +++++++++++++++++++++++++++++++++++++++++++++++++++++++
* # Recibirás una respuesta de NUBEFACT inmediatamente lo cual se debe leer, verificando que no haya errores.
* # Debes guardar en la base de datos la respuesta que te devolveremos.
* # Escríbenos a soporte@nubefact.com o llámanos al teléfono: 01 468 3535 (opción 2) o celular (WhatsApp) 955 598762
* # Puedes imprimir el PDF que nosotros generamos como también generar tu propia representación impresa previa coordinación con nosotros.
* # La impresión del documento seguirá haciéndose desde tu sistema. Enviaremos el documento por email a tu cliente si así lo indicas en el archivo JSON o TXT.
* +++++++++++++++++++++++++++++++++++++++++++++++++++++++

* LEEMOS LA RESPUESTA contenido en txt_respuesta, cada FILA de la respuesta debe ser leido.

MESSAGEBOX(txt_respuesta)

Code: Select all

post_connect = CreateObject("MSXML2.ServerXMLHTTP")
* Para algunas versiones de XMLHTTP, usar:
*     post_connect = CreateObject("Microsoft.XMLHTTP")
*     post_connect = CreateObject("MSXML2.XMLHTTP")
post_connect.Open("POST", ruta, .F.)
post_connect.setRequestHeader("Content-Type", "text/plain")
post_connect.setRequestHeader("Authorization", "Token token=" + token)
post_connect.Send(txt_para_envio)
txt_respuesta = post_connect.responsetext

Code: Select all

TEXT TO txt_para_envio NOSHOW TEXT PRETEXT 7
operacion|generar_comprobante|
tipo_de_comprobante|<<TipoComprobante>>|
serie|<<Serie>>|
numero|<<Num>>|
sunat_transaction|1|
cliente_tipo_de_documento|6|
cliente_numero_de_documento|20600695771|
cliente_denominacion|NUBEFACTSA|
cliente_direccion|CALLE LIBERTAD 116 MIRAFLORES - LIMA - PERU|
cliente_email||
cliente_email_1||
cliente_email_2||
fecha_de_emision|<<Fecha>>|
fecha_de_vencimiento||
moneda|1|
tipo_de_cambio||
porcentaje_de_igv|18|
descuento_global||
total_descuento||
total_anticipo||
total_gravada|600|
total_inafecta||
total_exonerada||
total_igv|108|
total_gratuita||
total_otros_cargos||
total|708|
percepcion_tipo||
percepcion_base_imponible||
total_percepcion||
total_incluido_percepcion||
detraccion|false|
observaciones||
documento_que_se_modifica_tipo||
documento_que_se_modifica_serie||
documento_que_se_modifica_numero||
tipo_de_nota_de_credito||
tipo_de_nota_de_debito||
enviar_automaticamente_a_la_sunat|true|
enviar_automaticamente_al_cliente|false|
codigo_unico||
condiciones_de_pago||
medio_de_pago||
placa_vehiculo||
orden_compra_servicio||
tabla_personalizada_codigo||
formato_de_pdf||
item|NIU|001|DETALLE DEL PRODUCTO|1|500|590||500|1|90|590|false|||
item|ZZ|001|DETALLE DEL SERVICIO|5|20|23.60||100|1|18|118|false|||
ENDTEXT

Code: Select all

MEMVAR _HMG_SYSDATA
#include "hmg.ch"
#include "hblang.ch"

REQUEST HB_LANG_ESWIN
request HB_CODEPAGE_ESWIN

REQUEST HB_LANG_ES
request HB_CODEPAGE_ES850

*----------------------------------------------------------------------------------*
Function Main

Local cUrl := "https://www.nubefact.com/api/v1/48239908-7ae7-071765d4"		//"https://demo.nubefact.com/api/v1/03989d1a-6c8c-4b71-b1cd-7d37001deaa0"
Local cToken := "8d19d8c7c1f6402687720eab85cd57a54f5a7a3fa163476bbcf381ee2b5e0c69"		//"d0a80b88cde446d092025465bdb4673e103a0d881ca6479ebbab10664dbc5677"
Local nTimeOut := 20  //seconds
Local oRestApi, cResp
Local hFactura, hItem, hGuias, hVenta_al_credito


set( _SET_CODEPAGE, "ES850" )
hb_LangSelect( 'ES')


//prepare json

hFactura := { => }

hFactura ["operacion"] := "generar_comprobante"
hFactura ["tipo_de_comprobante"] := 1         
hFactura ["serie"] := "FFF1"
hFactura ["numero"] := 1
hFactura ["sunat_transaction"] := 1
hFactura ["cliente_tipo_de_documento"] := 6
hFactura ["cliente_numero_de_documento"] := "20600695771"
hFactura ["cliente_denominacion"] := Utf8("NUBEFACT SA")
hFactura ["cliente_direccion"] := Utf8("CALLE LIBERTAD 116 MIRAFLORES - LIMA - PERU")
hFactura ["cliente_email"] := "tucliente@gmail.com"
hFactura ["cliente_email_1"] := ""
hFactura ["cliente_email_2"] := ""
hFactura ["fecha_de_emision"] := hb_DtoC ( hb_Date(), "DD-MM-YYYY" )
hFactura ["fecha_de_vencimiento"] := ""
hFactura ["moneda"] := 1
hFactura ["tipo_de_cambio"] := ""
hFactura ["porcentaje_de_igv"] := 18.00
hFactura ["descuento_global"] := ""
hFactura ["total_descuento"] := ""
hFactura ["total_anticipo"] := ""
hFactura ["total_gravada"] := 600
hFactura ["total_inafecta"] := ""
hFactura ["total_exonerada"] := ""
hFactura ["total_igv"] := 108
hFactura ["total_gratuita"] := ""
hFactura ["total_otros_cargos"] := ""
hFactura ["total"] := 708
hFactura ["total_otros_cargos"] := ""
hFactura ["percepcion_tipo"] := ""
hFactura ["percepcion_base_imponible"] := ""
hFactura ["total_percepcion"] := ""
hFactura ["total_incluido_percepcion"] := ""
hFactura ["total_impuestos_bolsas"] := ""
hFactura ["detraccion"] := .F.
hFactura ["observaciones"] := ""
hFactura ["documento_que_se_modifica_tipo"] := ""
hFactura ["documento_que_se_modifica_serie"] := ""
hFactura ["documento_que_se_modifica_numero"] := ""
hFactura ["tipo_de_nota_de_credito"] := ""
hFactura ["tipo_de_nota_de_debito"] := ""
hFactura ["enviar_automaticamente_a_la_sunat"] := .T.
hFactura ["enviar_automaticamente_al_cliente"] := .F.
hFactura ["condiciones_de_pago"] := ""
hFactura ["medio_de_pago"] := ""
hFactura ["placa_vehiculo"] := ""
hFactura ["orden_compra_servicio"] := ""
hFactura ["formato_de_pdf"] := ""
hFactura ["generado_por_contingencia"] := ""
hFactura ["bienes_region_selva"] := ""
hFactura ["servicios_region_selva"] := ""

//items

aItems := {}

//First item #1
hItem := { => }
hItem ["unidad_de_medida"] := "NIU"
hItem ["codigo"] := "001"
hItem ["codigo_producto_sunat"] := "10000000"
hItem ["descripcion"] := Utf8("DETALLE DEL PRODUCTO")
hItem ["cantidad"] := 1
hItem ["valor_unitario"] := 500
hItem ["precio_unitario"] := 590
hItem ["descuento"] := ""
hItem ["subtotal"] := 500
hItem ["tipo_de_igv"] := 1
hItem ["igv"] := 90
hItem ["total"] := 590
hItem ["anticipo_regularizacion"] := .F.
hItem ["anticipo_documento_serie"] := ""
hItem ["anticipo_documento_numero"] := ""

//add hItem to aItems array
AADD ( aItems , hItem )

//next item #2
hItem := { => }
hItem ["unidad_de_medida"] := "ZZ"
hItem ["codigo"] := "001"
hItem ["codigo_producto_sunat"] := "20000000"
hItem ["descripcion"] := Utf8("DETALLE DEL SERVICIO")
hItem ["cantidad"] := 5
hItem ["valor_unitario"] := 20
hItem ["precio_unitario"] := 23.60
hItem ["descuento"] := ""
hItem ["subtotal"] := 100
hItem ["tipo_de_igv"] := 1
hItem ["igv"] := 18
hItem ["total"] := 118
hItem ["anticipo_regularizacion"] := .F.
hItem ["anticipo_documento_serie"] := ""
hItem ["anticipo_documento_numero"] := ""

//add hItem to aItems array
AADD ( aItems , hItem )

//add aItems to json
hFactura ["items"] := aItems



//guias

aGuias := {}

//First Guias #1
hGuias := { => }
hGuias ["guia_tipo"] := 1
hGuias ["guia_serie_numero"] := "0001-23"

//add hGuias to aGuias array
AADD ( aGuias , hGuias )

//add aGuias to json
hFactura ["guias"] := aGuias


//venta_al_credito

aVenta_al_credito := {}

//First Venta_al_credito #1
hVenta_al_credito := { => }
hVenta_al_credito ["cuota"] := 1
hVenta_al_credito ["fecha_de_pago"] := "11-03-2021"  //some date: hb_DtoC ( dSomeDate , "DD-MM-YYYY" )
hVenta_al_credito ["importe"] := 600

//add hVenta_al_credito to aVenta_al_credito array
AADD ( aVenta_al_credito , hVenta_al_credito )

//Next Venta_al_credito #2
hVenta_al_credito := { => }
hVenta_al_credito ["cuota"] := 2
hVenta_al_credito ["fecha_de_pago"] := "11-04-2021"  //some date: hb_DtoC ( dSomeDate , "DD-MM-YYYY" )
hVenta_al_credito ["importe"] := 200

//add hVenta_al_credito to aVenta_al_credito array
AADD ( aVenta_al_credito , hVenta_al_credito )

//Next Venta_al_credito #3
hVenta_al_credito := { => }
hVenta_al_credito ["cuota"] := 3
hVenta_al_credito ["fecha_de_pago"] := "11-05-2021"  //some date: hb_DtoC ( dSomeDate , "DD-MM-YYYY" )
hVenta_al_credito ["importe"] := 8

//add hVenta_al_credito to aVenta_al_credito array
AADD ( aVenta_al_credito , hVenta_al_credito )

//add aVenta_al_credito to json
hFactura ["venta_al_credito"] := aVenta_al_credito

strfile (hb_jsonEncode( hFactura , .T. ), 'Factura_json.txt')

//Init
BEGIN SEQUENCE WITH {|o| break(o)}
	oRestApi := Win_OleCreateObject( "MSXML2.ServerXMLHTTP" )
	oRestApi:setTimeouts(nTimeout * 1000 /* nResolve */ , nTimeout * 1000 /* nConnect*/ , nTimeout * 1000 /* nSend */, nTimeout * 1000 /* nReceive */ )

RECOVER
     MsgStop( "Microsoft XML Core Services (MSXML) 6.0 is not installed."+CRLF+;
          "Download and install MSXML 6.0 from http://msdn.microsoft.com/xml"+CRLF+;
          "before continuing.")
     oRestApi:=""

END SEQUENCE

IF EMPTY(oRestApi)
	MsgStop("Error while initialize")
	RETURN Nil
ENDIF


cResp := SendRestApi( cUrl, hb_jsonEncode( hFactura , .F. ), oRestApi, cToken )
Msgdebug (cResp)

hFactura := Nil
hItem :=  Nil
hGuias := Nil
hVenta_al_credito :=  Nil

RETURN

****************************************************************
FUNCTION utf8( cText )
RETURN hb_StrToUtf8( AllTrim(cText) )
*****************************************************************
Function SendRestApi( cUrl, cBody, oRestApi, cToken, cMethod )
Local cReturn

Default cMethod := "POST"

DO EVENTS

BEGIN SEQUENCE WITH {|o| break(o)}

	set( _SET_CODEPAGE, 'UTF8' )

	oRestApi:Open( cMethod, cUrl, .F. )
	oRestApi:setRequestHeader("Content-Type", "application/json;charset=utf-8")
	oRestApi:setRequestHeader("Authorization", cToken)
	oRestApi:Send( cBody )

	set( _SET_CODEPAGE, "ES850" )

	IF oRestApi:Status <> 200
		BREAK "HTTP status: " + hb_NToS(oRestApi:status) + " "  +oRestApi:statusText 
	ENDIF

	cReturn := oRestApi:ResponseBody()
	//or cReturn := oRestApi:ResponseText()

RECOVER USING oErr
	set( _SET_CODEPAGE, "ES850" )
	cReturn := "!ERROR!" + CRLF + HB_TRANSLATE( IF (ValType(oErr) = 'O', oErr:Description, oErr ), 'ESWIN')
 
END SEQUENCE
set( _SET_CODEPAGE, "ES850" )
 	
RETURN cReturn
*****************************************************************************************

Code: Select all

#include "hmg.ch"

*----------------------------------------------------------------------------------*
Function Main


Local hHash, aArray, hHashArray, i


//declare hash
hHash := { => }

//add key "string" to hHash
hHash ["string"] := "any string"

//add key "number" to hHash
hHash ["number"] := 123.45

//add key "logic" to hHash
hHash ["logic"] := .T.

//add key "date" to hHash (date will be encoded as string in DD-MM-YYYY format)
hHash ["date"] := hb_DtoC ( hb_Date(), "DD-MM-YYYY" )

//add key "array" to hHash
//key "array" is an array of hHashArray

//first - prepare empty array
aArray := {}
FOR i=1 TO 5	//array will have 5 elements of hHashArray

	//prepare empty hHashArray for i-th elements
	hHashArray := { => }

	//add 1st key "id" to hHashArray
	hHashArray["id"] := i
	
	//add 2nd key "name" to hHashArray
	hHashArray["name"] := "Any name # " + AllTrim( Str ( i ) )

	//hHashArray have 2 keys -> add this hHashArray to aArray
	AADD( aArray, hHashArray )

NEXT i

//aArray have 5 elements, each element consists of a Hash array containing the "id" and "name" keys
//we assign the value of aArray to the "array" key
hHash ["array"] := aArray

//we already have a hash consisting of the following keys and their data
/* 
  "string": "any string",
  "number": 123.45,
  "logic": true,
  "date": "19-03-2021",
  "array": [ {"id": 1, "name": "Any name # 1"}, {"id": 2, "name": "Any name # 2"}, {"id": 3, "name": "Any name # 3"}, {"id": 4, "name": "Any name # 4"}, {"id": 5,"name": "Any name # 5"} ]
*/

//let's code our hash to json format and save it to the hHash_json.txt file
StrFile (hb_jsonEncode( hHash , .T. ), "hHash_json.txt")

MsgInfo (FileStr ( "hHash_json.txt") )


RETURN
*****************************************************************************************

Code: Select all

#include "hmg.ch"

*----------------------------------------------------------------------------------*
Function Main

Local cUrl := "https://rcrf.trezor.gov.rs"		//test url: https://crfrtest.trezor.gov.rs
Local cApiFunction
Local nTimeOut := 20  //seconds
Local oRestApi, cResp, hResp
Local hAtributi, aFaktura
Local cCreationTime, cAccessToken, cRefreshToken

//Init
BEGIN SEQUENCE WITH {|o| break(o)}
	oRestApi := Win_OleCreateObject( "MSXML2.ServerXMLHTTP" )
	oRestApi:setTimeouts(nTimeout * 1000 /* nResolve */ , nTimeout * 1000 /* nConnect*/ , nTimeout * 1000 /* nSend */, nTimeout * 1000 /* nReceive */ )

RECOVER
     MsgStop( "Microsoft XML Core Services (MSXML) 6.0 is not installed."+CRLF+;
          "Download and install MSXML 6.0 from http://msdn.microsoft.com/xml"+CRLF+;
          "before continuing.")
     oRestApi:=""

END SEQUENCE

IF EMPTY(oRestApi)
	MsgStop("Error while initialize")
	RETURN Nil
ENDIF


//login
cApiFunction :=  "/api/login"

//prepare json
hAtributi := { => }

hAtributi ["login"] := "foo"
hAtributi ["password"] := "bar"

strfile (hb_jsonEncode( hAtributi , .F. ), 'login_json.txt')

cResp := SendRestApi( cUrl + cApiFunction, hb_jsonEncode( hAtributi , .F. ), oRestApi )

IF cResp = "!ERROR!"
	MsgStop (cResp)
	oRestApi := Nil
	Quit
ENDIF

IF oRestApi:Status <> 200
	MsgStop ( "HTTP status: " + hb_NToS(oRestApi:status) + " "  +oRestApi:statusText + CRLF + CRLF + "Response: " + cResp )
ENDIF

hResp := hb_jsonDecode( cResp )
cCreationTime := hb_HGetDef( hResp  , "creationTime", "" )
cAccessToken  := hb_HGetDef( hResp  , "accessToken", "" )
cRefreshToken := hb_HGetDef( hResp  , "refreshToken", "" )

IF Empty ( cAccessToken )
	MsgStop ("No accessToken, no authorization !!!")
ENDIF

// register
cApiFunction :=  "/api/invoice/register"

//prepare json
aFaktura := {}

//1st invoice
hAtributi := { => }
hAtributi ["DebtorCompanyNumber"] := "10523"
hAtributi ["InvoiceNumber"]       := "Racun 18/01"
hAtributi ["Amount"]              := 1001
hAtributi ["IssueDate"]           := "2018-02-28"
hAtributi ["Comments"]            := "Komentar 1"

//Add 1st invoice to array
AADD (aFaktura, hAtributi )

//2nd invoice
hAtributi := { => }
hAtributi ["DebtorCompanyNumber"] := "10523"
hAtributi ["InvoiceNumber"]       := "Racun 18/02"
hAtributi ["Amount"]              := 1002.33
hAtributi ["IssueDate"]           := "2018-02-28"
hAtributi ["Comments"]            := "Komentar 2"
hAtributi ["Lifetime"]            := 88

//Add 2nd invoice to array
AADD (aFaktura, hAtributi )

strfile (hb_jsonEncode( aFaktura , .F. ), 'register_json.txt')

cResp := SendRestApi( cUrl + cApiFunction, hb_jsonEncode( hAtributi , .F. ), oRestApi, cAccessToken )

IF cResp = "!ERROR!"
	MsgStop (cResp)
	oRestApi := Nil
	Quit
ENDIF

IF oRestApi:Status <> 200
	MsgStop ( "HTTP status: " + hb_NToS(oRestApi:status) + " "  +oRestApi:statusText + CRLF + CRLF + "Response: " + cResp )
ENDIF

hResp := hb_jsonDecode( cResp )

msgdebug ( hResp )

oRestApi := Nil

RETURN

*****************************************************************
Function SendRestApi( cUrl, cBody, oRestApi, cAuth, cMethod )
Local cReturn

Default cAuth   := ""
Default cMethod := "POST"

DO EVENTS

BEGIN SEQUENCE WITH {|o| break(o)}

	oRestApi:Open( cMethod, cUrl, .F. )
	oRestApi:setRequestHeader("Accept", "*/*")
	oRestApi:setRequestHeader("Content-Type", "application/json")

	IF !Empty ( cAuth )
		oRestApi:setRequestHeader("Authorization", "Bearer " + cAuth)
	ENDIF

	oRestApi:Send( cBody )

	cReturn := oRestApi:ResponseBody()

RECOVER USING oErr

	cReturn := "!ERROR!" + CRLF + IF (ValType(oErr) = 'O', oErr:Description, oErr )
 
END SEQUENCE
 	
RETURN cReturn
*****************************************************************************************