197 lines
12 KiB
Plaintext
197 lines
12 KiB
Plaintext
<%@ WebHandler Language="VB" Class="SIGPolizaVirtual" %>
|
|
|
|
Imports System
|
|
Imports System.Web
|
|
Imports System.Net.Http
|
|
Imports System.Web.Http
|
|
Imports System.Data
|
|
Imports Newtonsoft.Json
|
|
Imports Newtonsoft.Json.Linq
|
|
Imports Extensiones
|
|
Imports System.IO
|
|
|
|
Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
|
|
|
|
Protected ReadOnly Property User As String = "cslth.2809@jcilink.com"
|
|
Protected ReadOnly Property Password As String = "ff31580a95f36b51ad27f970428b77a5a9245076"
|
|
|
|
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
|
|
context.Response.ContentType = "application/json"
|
|
EnviarPolizaVentaWS(context)
|
|
EnviarPolizaVentaLTHWSD(context)
|
|
EnviarPolizaIndicadores(context)
|
|
End Sub
|
|
|
|
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
|
|
Get
|
|
Return False
|
|
End Get
|
|
End Property
|
|
|
|
Private Sub EnviarPolizaVentaLTHWSD(ByVal context As HttpContext)
|
|
Dim Retorno As String = "[]"
|
|
Try
|
|
Using wc As New HttpClient()
|
|
Dim Url = New Uri("http://polizavirtual.com.mx/lthwsd/api/Venta")
|
|
|
|
Dim Parametros = New List(Of KeyValuePair(Of String, String))
|
|
|
|
Parametros.Add(New KeyValuePair(Of String, String)("User", User))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("password", Password))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_name", "JOSE ENRIQUE VIZCARA RENDON"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", "Prueba"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", "Prueba"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_birthday", "1900-01-01 00:00:00"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_phone", "5417543010"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_email", "elunap@gmail.com"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", "02"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", "False"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_date", "2018-07-24 00:00:00"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_paidby", "01"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_type", "01"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", "01"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("product_code", "174200"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", "65047187"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", "01"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_product", "True"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_brand", "01"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_bci", "25"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_month", "1"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_year", "2015"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_sale_date", "2018-07-24 00:00:00"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_brand", "36"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_model", "741"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_year", "2015"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", "0"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_id", "32860"))
|
|
|
|
Dim content As New FormUrlEncodedContent(Parametros)
|
|
Dim response = wc.PostAsync(Url, content).Result
|
|
|
|
Retorno = response.Content.ReadAsStringAsync().Result
|
|
End Using
|
|
|
|
Catch ex As Exception
|
|
ex.GuardaLog(ex.Message)
|
|
End Try
|
|
|
|
context.Response.Write(Retorno)
|
|
End Sub
|
|
|
|
Private Sub EnviarPolizaVentaWS(ByVal context As HttpContext)
|
|
Dim Retorno As String = "[]"
|
|
Try
|
|
Using wc As New HttpClient()
|
|
Dim Url = New Uri("http://polizavirtual.com.mx/webservice/api/Venta")
|
|
|
|
Dim Parametros = New List(Of KeyValuePair(Of String, String))
|
|
|
|
Parametros.Add(New KeyValuePair(Of String, String)("User", User))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("password", Password))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_name", "JOSE ENRIQUE "))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", "VIZCARA"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", "RENDON"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_birthday", "1900-01-01 00:00:00"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_phone", "8186545256"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_email", "mail@mail.com"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", "02"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", "False"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_date", "2018-07-24 00:00:00"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_paidby", "01"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_type", "01"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", "01"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("product_code", "174925"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", "65047187"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", "01"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_total", "0"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_product", "True"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_brand", "01"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_bci", "25"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_month", "1"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_year", "2015"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("used_sale_date", "2018-07-24 00:00:00"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_brand", "36"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_model", "741"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("customer_car_year", "2015"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", "0"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("sale_id", "32860"))
|
|
|
|
Dim content As New FormUrlEncodedContent(Parametros)
|
|
Dim response = wc.PostAsync(Url, content).Result
|
|
|
|
Retorno = response.Content.ReadAsStringAsync().Result
|
|
End Using
|
|
|
|
Catch ex As Exception
|
|
ex.GuardaLog(ex.Message)
|
|
End Try
|
|
|
|
context.Response.Write(Retorno)
|
|
End Sub
|
|
|
|
Private Sub EnviarPolizaIndicadores(ByVal context As HttpContext)
|
|
Dim Retorno As String = "[]"
|
|
Try
|
|
Using wc As New HttpClient()
|
|
Dim Url = New Uri("http://polizavirtual.com.mx/webservice/api/Indicadores")
|
|
|
|
Dim Parametros = New List(Of KeyValuePair(Of String, String))
|
|
|
|
Parametros.Add(New KeyValuePair(Of String, String)("User", User))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("password", Password))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_optima", "1"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_fullpower", "2"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_hitec", "3"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_agm", "4"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_suv", "5"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_taxi", "6"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_america", "7"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_lth", "8"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_cronos", "9"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_diener", "10"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_b_heavyduty", "11"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_m_lth", "12"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_filtros", "13"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lub1", "14"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lubgalon", "15"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_lub5", "16"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_aa", "17"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("v_o_aaa", "18"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_optima", "19"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_fullpower", "20"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_hitec", "21"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_agm", "22"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_suv", "23"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_taxi", "24"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_america", "25"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_lth", "26"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_cronos", "27"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_diener", "28"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_b_heavyduty", "29"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("g_m_lth", "30"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_optima", "31"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_fullpower", "32"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_hitec", "33"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_agm", "34"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_suv", "35"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_taxi", "36"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_america", "37"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_lth", "38"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_cronos", "39"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_diener", "40"))
|
|
Parametros.Add(New KeyValuePair(Of String, String)("a_b_heavyduty", "41"))
|
|
|
|
Dim content As New FormUrlEncodedContent(Parametros)
|
|
Dim response = wc.PostAsync(Url, content).Result
|
|
|
|
Retorno = response.Content.ReadAsStringAsync().Result
|
|
End Using
|
|
|
|
Catch ex As Exception
|
|
ex.GuardaLog(ex.Message)
|
|
End Try
|
|
|
|
context.Response.Write(Retorno)
|
|
End Sub
|
|
|
|
End Class |