

oReq = CREATEOBJECT( "Microsoft.XMLHTTP" )

cUrl = 'http://www.tecsicom.net/json/map.php'



&& MSXML2.XMLHTTP.3.0 : https://msdn.microsoft.com/en-us/library/ms535874%28v=vs.85%29.aspx

&& Cobro pre (solicitud)

oReq.open("POST", cUrl, .F.)
*oReq.setRequestHeader("Content-Type", "application/xml")
*oReq.setRequestHeader("Accept", "application/xml")

oReq.setRequestHeader("Content-Type", "text/xml")


nlat = TRANSFORM(-3.948668)
nLng = TRANSFORM(-79.2177212)

&& Envío:

*oApp.sqlexec('select * from customer where id=7','curCliMap')>0

TEXT TO lcNota NOSHOW TEXTMERGE
	Cliente: <b><<"Eddy")>></b><br>
	<<'Comercio: '>><br>
	<<'Dirección: '>><br>
	<<'Télefono: '>><br>
	<<'Codigo: '>><br>
	<<'Id: '>><br>
	LatLng(<<nLat>>,<<nLng>>)<br>
ENDTEXT

oReq.send('nota='+lcNota)

&& Respuesta:

&& Status 200: OK, 401: Problemas de autenticación
loStatus = oReq.status
&& XML de respuesta:
loResponse = oReq.responseText
MESSAGEBOX(STR(loStatus) + loResponse)
