Hola Thefull...
Funciono perfecto mil gracias por tu ayuda... dejo el codigo funcionando..
#include "fivewin.ch"
doc = CreateObject( "MSXML2.DOMDocument" )
ohttp = CreateObject( "MSXML2.XMLHTTP" )
ohttp:Open( "POST" ,"https://www.nubefact.com/api/beta/invoices",.F.)
oHttp:SetRequestHeader("cache-control", "no-cache")
ohttp:SetRequestHeader("content-type", "application/json" )
ohttp:SetRequestHeader("authorization", "Token token=14ea9eac34ba4y8bb3f94ae309c3a03a17180f747ead46029014eff1a453922d" )
Ctext:=MEMOREAD("dioni.json")
?ctext //ver lo que se envia
TRY
ohttp:Send( cText )
CATCH
msginfo("No Se Pudo Enviar Documento JSON","Intente Nuevamente")
return .t.
END
response:=ohttp:responseText
Memowrit( 'SendVentasCli_Res.json',Response)
Ctext1:=MEMOREAD("SendVentasCli_Res.json")
?ctext1 // ver respuesta del servidor .
↧