SIG/Ashx/E141.ashx

<%@ WebHandler Language="VB" Class="E141" %>

Imports System
Imports System.Web
Imports System.Data
Imports System.Net.Http
Imports System.Net
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Imports Extensiones
Imports System.IO

Public Class E141 : Implements IHttpHandler

    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

    Private ReadOnly Property CveEmpresa As Integer = 141

    Public ReadOnly Property EsProduccion As Boolean
        Get
            If IsNothing(System.Configuration.ConfigurationManager.AppSettings("EsProduccion")) Then
                Return False
            Else
                Return (System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() = "1")
            End If
        End Get
    End Property
    Public ReadOnly Property UsuarioWSE141 As String
        Get
            If IsNothing(System.Configuration.ConfigurationManager.AppSettings("UsuarioWSE141")) Then
                Return ""
            Else
                Return System.Configuration.ConfigurationManager.AppSettings("UsuarioWSE141").ToString()
            End If
        End Get
    End Property
    Public ReadOnly Property PasswordWSE141 As String
        Get
            If IsNothing(System.Configuration.ConfigurationManager.AppSettings("PasswordWSE141")) Then
                Return ""
            Else
                Return System.Configuration.ConfigurationManager.AppSettings("PasswordWSE141").ToString()
            End If
        End Get
    End Property

    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        context.Response.ContentType = "application/json"
        Dim retorno As String = "no se encontro la variable"
        Try
            Dim Params = If(context.Request("P") = Nothing, "", context.Request("P").ToString())

            If Not String.IsNullOrEmpty(Params) Then
                Dim UrlParametros As Hashtable = Parametros(Decripta(Params))

                Dim File As String = UrlParametros("FILE").ToString()
                If Not String.IsNullOrEmpty(File) Then
                    ImprimirbytesPDF(context, DescargarFactura(File), File)
                End If

            End If

            Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())

            If Metodo = "CrearActualizarProductos" Then
                retorno = CrearActualizarProductos()
            End If

            If Metodo = "ActualizarPrecios" Then
                retorno = ActualizarPrecios()
            End If

            If Metodo = "ActualizarExistencias" Then
                retorno = ActualizarExistencias()
            End If

            If Metodo = "ActualizarVendedores" Then
                retorno = ActualizarVendedores()
            End If

            If Metodo = "GetExistencia" Then
                Dim Codigo = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString())
                retorno = GetExistencia(context, Codigo)
            End If

        Catch ex As Exception
            retorno = ex.ToString()
            ex.GuardaLog(ex.ToString())

        End Try

        context.Response.Write(retorno)
    End Sub

    Private Function GetExistencia(ByVal context As HttpContext, Codigo As String) As String
        Dim respuesta = New With {.isSuccess = False, .message = "", .products = New JArray}
        If String.IsNullOrEmpty(Codigo) OrElse Codigo = "-1" Then
            respuesta.message = "el parametro 'Sku' es invalido"
            respuesta.isSuccess = False

            Return JsonConvert.SerializeObject(respuesta)
        End If

        Dim unauthorized As Boolean = True

        Dim authHeader = context.Request.Headers("Authorization")
        If authHeader IsNot Nothing Then
            Dim basicAuth As String = authHeader.Replace("Basic ", "")

            Dim usernamePasswordArray = Encoding.UTF8.GetString(Convert.FromBase64String(basicAuth)).Split(":"c)

            Dim userName = usernamePasswordArray(0)
            Dim password = usernamePasswordArray(1)
            unauthorized = Not (userName = Me.UsuarioWSE141 AndAlso password = Me.PasswordWSE141)

        Else
            respuesta.message = "el usuario y/o contraseña son requeridos"
            respuesta.isSuccess = False
            'context.Response.StatusCode = 401

            Return JsonConvert.SerializeObject(respuesta)
        End If

        If unauthorized Then
            respuesta.message = "el usuario y/o contraseña no son validos"
            respuesta.isSuccess = False
            'context.Response.StatusCode = 401

            Return JsonConvert.SerializeObject(respuesta)
        End If

        Using ObjPS As New ClsProductosServicios()
            If ObjPS.GetExistenciasEmpresa(Codigo, CveEmpresa) Then
                Dim ArrayPS As New JArray
                For Each RowPS As DataRow In ObjPS.DtResultados.Rows
                    Dim producto As New JObject(
                        New JProperty("sku", RowPS("Codigo")),
                        New JProperty("stock", RowPS("Existencia"))
                    )
                    ArrayPS.Add(producto)
                Next

                respuesta.products = ArrayPS
                respuesta.isSuccess = True
                respuesta.message = "La existencia se obtuvo correctamente"
            Else
                respuesta.isSuccess = False
                respuesta.message = "Ocurrió un error al obtener la existencia"
            End If

        End Using

        Return JsonConvert.SerializeObject(respuesta)
    End Function

    Private Function EnviarInformacion(url As String, payload As String) As String
        Dim Retorno As String = "{}"
        Try
            Using httpClient = New HttpClient()
                Using request = New HttpRequestMessage(HttpMethod.Post, New Uri(url))
                    request.Headers.Add("token", "$2y$10$LGqtRWUloKQmAt.jcUldc.PmS5LJ6l.WU2w1G4PBOTLMVKZRNQFPS")

                    Using content = New StringContent(payload, Encoding.UTF8, "application/json")
                        request.Content = content

                        Dim response = httpClient.SendAsync(request, HttpCompletionOption.ResponseHeadersRead).Result

                        If response.StatusCode = Net.HttpStatusCode.OK Then
                            Retorno = response.Content.ReadAsStringAsync().Result
                        End If
                    End Using

                End Using

            End Using
        Catch ex As Exception
            Retorno = New JObject(New JProperty("Error", ex.ToString())).ToString()
            OnError("Ocurrió un error al enviar la informacion", ex)
        End Try
        Return Retorno
    End Function

    Private Function EnviarInformacion2(url As String, payload As String) As String
        Dim Retorno As String = "{}"
        Try
            Dim Request As WebRequest = WebRequest.Create(url)
            Request.Method = "post"
            Request.ContentType = "application/json"
            Request.Headers.Add("token", "$2y$10$LGqtRWUloKQmAt.jcUldc.PmS5LJ6l.WU2w1G4PBOTLMVKZRNQFPS")

            Dim byteArray As Byte() = Encoding.UTF8.GetBytes(payload)
            Request.ContentLength = byteArray.Length

            Using dataStream As Stream = Request.GetRequestStream()
                dataStream.Write(byteArray, 0, byteArray.Length)
                Using tResponse As WebResponse = Request.GetResponse()
                    Using dataStreamResponse As Stream = tResponse.GetResponseStream()
                        Using tReader As New StreamReader(dataStreamResponse)
                            Retorno = tReader.ReadToEnd()
                        End Using
                    End Using
                End Using
            End Using
        Catch ex As Exception
            Retorno = New JObject(New JProperty("Error", ex.ToString())).ToString()
            OnError("Ocurrió un error al enviar la informacion", ex)
        End Try
        Return Retorno
    End Function

    '        var httpWebRequest = (httpWebRequest)WebRequest.Create("http://url");
    'httpWebRequest.ContentType = "application/json";
    'httpWebRequest.Method = "POST";

    'Using (var streamWriter = New StreamWriter(httpWebRequest.GetRequestStream()))
    '{
    '    String json = "{\"user\":\"test\"," +
    '                  "\"password\":\"bla\"}";

    '    streamWriter.Write(json);
    '}

    'var httpResponse = (HttpWebResponse)httpWebRequest.GetResponse();
    'Using (var streamReader = New StreamReader(httpResponse.GetResponseStream()))
    '{
    '    var result = StreamReader.ReadToEnd();
    '}
#Region "C R E A C I Ó N / A C T U A L I Z A C I Ó N  -  P R O D U C T O S"
    Private Function CrearActualizarProductos() As String
        Return EnviarInformacion("https://services.fidelityapps.mx/api/services/products/import", GetProductosModificados())
    End Function

    Private Function GetProductosModificados() As String
        Dim Retorno As String = "{}"

        Dim DtPS As DataTable = Nothing
        Using ObjPS As New ClsProductosServicios
            'OBTERNER PRECIOS DE PUBLICO GENERAL
            If ObjPS.GetProductosModificados(CveEmpresa, 44) Then
                DtPS = ObjPS.DtResultados.Copy()
            End If
        End Using

        If DtPS IsNot Nothing Then

            Dim ArrayPS As New JArray
            For Each RowPS As DataRow In DtPS.Rows

                Dim PSData As String() = RowPS("PS").ToString().Split(" ".ToCharArray())

                Dim Measurement As String = "", Size As String = "", alt_code As String = ""

                If PSData.Length > 0 Then
                    Measurement = PSData(0)
                End If

                If PSData.Length > 1 Then
                    Size = PSData(1)
                End If

                alt_code = String.Concat(Measurement, Size)

                Dim producto As New JObject(
                    New JProperty("clasificacion", RowPS("Clasificacion")),
                    New JProperty("category", "Prod"),
                    New JProperty("pza", RowPS("Unidad")),
                    New JProperty("sku", RowPS("Codigo")),
                    New JProperty("name", RowPS("PS")),
                    New JProperty("measurement", Measurement),
                    New JProperty("size", Size),
                    New JProperty("brand", RowPS("Marca")),
                    New JProperty("price", RowPS("Precio")),
                    New JProperty("active", RowPS("Estado")),
                    New JProperty("user", RowPS("UsuarioModifico")),
                    New JProperty("alt_code", alt_code),
                    New JProperty("short_description", ""),
                    New JProperty("description", ""),
                    New JProperty("currency", 1),
                    New JProperty("promo_price", RowPS("PrecioPromocion"))
                )

                ArrayPS.Add(producto)
            Next
            Retorno = New JObject(New JProperty("products", ArrayPS)).ToString()
        End If

        Return Retorno
    End Function
#End Region

#Region "A C T U A L I Z A R - P R E C I O S"

    Private Function ActualizarPrecios() As String
        Return EnviarInformacion("https://services.fidelityapps.mx/api/services/products/price-import", GetPreciosModificados())
    End Function

    Private Function GetPreciosModificados() As String
        Dim Retorno As String = "{}"

        Dim DtPS As DataTable = Nothing
        Using ObjPS As New ClsProductosServicios
            'OBTERNER PRECIOS DE PUBLICO GENERAL
            If ObjPS.GetPreciosModificados(CveEmpresa, 44) Then
                DtPS = ObjPS.DtResultados.Copy()
            End If
        End Using

        If DtPS IsNot Nothing Then

            Dim ArrayPS As New JArray
            For Each RowPS As DataRow In DtPS.Rows

                Dim producto As New JObject(
                    New JProperty("sku", RowPS("Codigo")),
                    New JProperty("price", RowPS("Precio")),
                    New JProperty("promo_price", RowPS("PrecioPromocion"))
                )

                ArrayPS.Add(producto)
            Next
            Retorno = New JObject(New JProperty("products", ArrayPS)).ToString()
        End If

        Return Retorno
    End Function
#End Region

#Region "A C T U A L I Z A R - E X I S T E N C I A S"

    Private Function ActualizarExistencias() As String
        Return EnviarInformacion("https://services.fidelityapps.mx/api/services/products/stock", GetPSExistencias())
    End Function

    Private Function GetPSExistencias() As String
        Dim Retorno As String = "{}"

        Dim DtPS As DataTable = Nothing
        Using ObjPS As New ClsProductosServicios
            'OBTERNER PRECIOS DE PUBLICO GENERAL
            If ObjPS.GetExistenciasEmpresa("-1", CveEmpresa) Then
                DtPS = ObjPS.DtResultados.Copy()
            End If
        End Using

        If DtPS IsNot Nothing Then

            Dim ArrayPS As New JArray
            For Each RowPS As DataRow In DtPS.Rows

                Dim producto As New JObject(
                    New JProperty("sku", RowPS("Codigo")),
                    New JProperty("branch_office_code", "01"),
                    New JProperty("stock", RowPS("Existencia"))
                )

                ArrayPS.Add(producto)
            Next
            Retorno = New JObject(New JProperty("stock", ArrayPS)).ToString()
        End If

        Return Retorno
    End Function
#End Region


#Region "A C T U A L I Z A R - E X I S T E N C I A S"

    Private Function ActualizarVendedores() As String
        Return EnviarInformacion("https://services.fidelityapps.mx/api/v1/sellers/import", GetVendedores())
    End Function

    Private Function GetVendedores() As String
        Dim Retorno As String = "{}"

        Dim DtVendedores As DataTable = Nothing
        Using ObjPS As New ClsProductosServicios
            'OBTERNER PRECIOS DE PUBLICO GENERAL
            If ObjPS.GetVendedoresModificados(CveEmpresa) Then
                DtVendedores = ObjPS.DtResultados.Copy()
            End If
        End Using

        If DtVendedores IsNot Nothing Then

            Dim ArrayVendedores As New JArray
            For Each RowVendedor As DataRow In DtVendedores.Rows

                Dim VendedorData As String() = RowVendedor("Vendedor").ToString().Split(" ".ToCharArray())

                Dim Nombre As String = "", Apellido As String = ""

                Select Case VendedorData.Length
                    Case 1
                        Nombre = VendedorData(0)
                    Case 2
                        Nombre = VendedorData(1)
                        Apellido = VendedorData(0)
                    Case 3
                        Nombre = VendedorData(2)
                        Apellido = String.Concat(VendedorData(0), " ", VendedorData(1))
                    Case 4
                        Nombre = String.Concat(VendedorData(2), " ", VendedorData(3))
                        Apellido = String.Concat(VendedorData(0), " ", VendedorData(1))
                End Select

                Dim vendedor As New JObject(
                    New JProperty("email", RowVendedor("Correo")),
                    New JProperty("password", RowVendedor("Correo")),
                    New JProperty("name", Nombre),
                    New JProperty("last_name", Apellido),
                    New JProperty("type_seller", "Administrador"),
                    New JProperty("state", RowVendedor("Estado")),
                    New JProperty("city", RowVendedor("Municipio")),
                    New JProperty("age", 0),
                    New JProperty("gender", 0),
                    New JProperty("address", ""),
                    New JProperty("code", "")
                )

                ArrayVendedores.Add(vendedor)
            Next
            Retorno = New JObject(New JProperty("sellers", ArrayVendedores)).ToString()
        End If

        Return Retorno
    End Function
#End Region

#Region "D E S C A R G A  - P  D F"

    Private Function DescargarFactura(FilePDF As String) As Byte()
        Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?TipoDocto=Ing&File={1}&TipoArchivo=PDF", "http://localhost/", FilePDF))
        Dim File As Byte() = Nothing
        Try
            Using httpClient = New HttpClient()
                httpClient.Timeout = New TimeSpan(0, 1, 0)
                Using request = New HttpRequestMessage(HttpMethod.Get, Url)
                    request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CVEUSUARIO=100", CveEmpresa, DateTime.UtcNow.Ticks)))
                    Dim response = httpClient.SendAsync(request).Result
                    If response.StatusCode = Net.HttpStatusCode.OK Then
                        File = response.Content.ReadAsByteArrayAsync().Result
                    End If
                End Using
            End Using
        Catch ex As Exception
            File = Nothing
            OnError("Ocurrió un error al descargar la factura", ex)
        End Try

        Return File
    End Function

    Public Sub ImprimirbytesPDF(ByVal context As HttpContext, bytes As Byte(), NombreArchivo As String)
        'limpio ReportViwer   
        Dim mimeType As String = Nothing
        Dim extension As String = Nothing

        Try

            bytes = bytes
            context.Response.Buffer = True
            context.Response.Clear()
            context.Response.ContentType = mimeType
            context.Response.AddHeader("content-disposition", String.Format("attachment; filename={0}", NombreArchivo))
            context.Response.BinaryWrite(bytes) ' create the file
            context.Response.Flush() ' send it to the client to download
            context.Response.SuppressContent = True
            context.ApplicationInstance.CompleteRequest()
            context.Response.End()

        Catch ex As Exception
        End Try
    End Sub

#End Region

    Private Function Parametros(Cadena As String) As Hashtable
        Dim P1() As String = Cadena.Split("&"c)
        Dim Tmp As String
        Dim P2() As String

        Dim URLParametros As New Hashtable

        For Each Tmp In P1
            P2 = Tmp.Replace("%26%", "&").Split("="c)
            URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
        Next
        Return URLParametros
    End Function

End Class