*!*	Autor: ALLAN RAUL ACUŅA
*!*	Alias: NicaFox
*!*	Pagina: www.NicEasySoft.org
*!*	Email: allan@NicEasySoft.org
*!*	Skype: NicEasySoft

Public loSoapClient, loSoapClientUrl, lcResult
 
ldFecha = Date()
*!* Creando web Service
loSoapClient   = Createobject("MSSOAP.SoapClient30")
loSoapClientUrl  = [https://servicios.bcn.gob.ni/Tc_Servicio/ServicioTC.asmx?WSDL]

If Vartype(loSoapClient)=='O'
	loSoapClient.MSSoapInit(loSoapClientUrl)
	lcResult = loSoapClient.RecuperaTC_Mes(Year(ldFecha), Month(ldFecha))

	=Strtofile(lcResult.context.XML, "miArchivo.xml")
	Create Cursor crsTASA (fecha d(8), valor N(10,4))
	=ReadXML(Locfile('miArchivo.xml'))
Endif

Set Date Dmy
Select crsTASA
Browse