Después de mucho tiempo de no publicar un Demo, vamos a compartir un pedido de una persona que necesitaba ingresar a la pagina de la SUNAT diariamente y copiar el tipo de cambio para ingresarlo en su sistema, lo ideal seria tener un Servicio Web de uso libre, pero ante la falta de este o si existe necesitaríamos las credenciales, les dejo esta solución.
Requerimiento
Obtener diariamente en forma automática el tipo de cambio de la SUNAT publicado en la siguiente dirección: http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias
Solución
Vamos a crear una aplicación Windows en C# .NET que use la clase HttpClient para hacer una llamada asíncrona a la dirección de la pagina, bajarla a memoria, crear una cadena con el contenido y extraer la parte que corresponde al tipo de cambio del ultimo día: las 3 ultimas celdas de la ultima fila de la segunda tabla de la página.
Restricción
La aplicación podría fallar en un futuro si la SUNAT cambia su contenido agregando o quitando tablas y habría que hacer los ajustes respectivos al código, pero aun así es una ayuda por mientras.
Crear una Aplicación Windows Forms en C#
Abrir Visual Studio y crear una aplicación Windows Forms en C# llamada "TipoCambioSUNAT", cambiarle de nombre al formulario por "frmSUNAT" y realizar el diseño similar a la figura mostrada:
Hacer una referencia a la librería: "System.Net.Http.dll" y escribir el siguiente código en el formulario:
using System;
using System.Collections.Generic; //List
using System.Text; //Encoding
using System.Windows.Forms;
using System.Net.Http; //HttpClient, HttpResponseMessage
using System.IO; //File, MemoryStream
namespace TipoCambioSUNAT
{
public partial class frmSUNAT : Form
{
public frmSUNAT()
{
InitializeComponent();
}
private void btnConsultar_Click(object sender, EventArgs e)
{
HttpClient cliente = new HttpClient();
cliente.BaseAddress = new Uri("http://www.sunat.gob.pe/");
HttpResponseMessage rpta = cliente.GetAsync("cl-at-ittipcam/tcS01Alias").Result;
if (rpta != null&&rpta.IsSuccessStatusCode)
{
string contenido = "";
using(MemoryStream ms= (MemoryStream)
rpta.Content.ReadAsStreamAsync().Result)
{
byte[] buffer = ms.ToArray();
contenido = Encoding.UTF8.GetString(buffer);
contenido = contenido.ToLower();
}
if (contenido.Length > 0)
{
File.WriteAllText("Sunat.txt", contenido);
int posInicioT1= contenido.IndexOf("<table");
int posFinT1 = contenido.IndexOf("</table");
if (posInicioT1 > -1&&posFinT1>-1)
{
int posInicioT2 = contenido.IndexOf("<table",posInicioT1+1);
int posFinT2 = contenido.IndexOf("</table", posFinT1 + 1);
string tabla = contenido.Substring(posInicioT2, posFinT2 - posInicioT2 + 8);
File.WriteAllText("Tabla.txt", tabla);
posInicioT1 = 0;
tabla = tabla.Replace("</strong>", "");
List<string> valores = new List<string>();
for (int i = 1; i < 4; i++)
{
posInicioT1 = tabla.LastIndexOf("</td");
if (posInicioT1 > -1)
{
tabla = tabla.Substring(0,posInicioT1).Trim();
posFinT1 = tabla.LastIndexOf(">");
if (posFinT1 > -1)
{
valores.Add(tabla.Substring(posFinT1 + 1,
tabla.Length - posFinT1 -1).Trim());
}
}
}
if (valores.Count > 0)
{
txtVenta.Text = valores[0];
txtCompra.Text = valores[1];
txtFecha.Text = valores[2];
}
}
}
}
}
}
}
Ejecutar y Probar la Aplicación Windows Forms
Grabar la aplicación y pulsar F5 para ejecutarla, luego clic al botón "Consultar" y se mostrarán los datos del último día, el tipo de cambio compra y el tipo de cambio venta, tal como se muestra en la siguiente figura:
Comentarios
Muchas veces queremos obtener un cierto dato de una pagina y tenemos que entrar manualmente, en este post hemos visto como usando el método "GetAsync" de la clase "HttpClient" del Namespace "System.Net.Http" podemos hacerlo vía código.
En este caso lo hemos aplicado a la pagina de la SUNAT, la cual se analizó su HTML y se observó que tiene varias tablas, la segunda corresponde a la tabla con los datos de los tipos de cambios de la última semana, para lo cual se obtuvo la última fila y de esta las 3 últimas celdas.
No se hizo mediante XML porque el HTML estaba mal formado y no generaría bien el XML DOM, es por eso que trabajamos con texto puro y substrings.
Este Demo lo terminamos en colaboración con mis alumnos del Taller de los Domingos a los cuales les doy las gracias por estar siempre pendientes de aprender y querer mejorar.
Si alguien de ustedes tiene alguna URL de algún Servicio Web que consideren útil compartir por ejemplo el del Tipo de Cambio o Consulta de RUC de la SUNAT, DNI de la RENIEC, ONPE, etc. seria bueno hacer otro post pero ya usando Servicios.
Descarga del Código
DemoDia_TipoCambioSUNAT
