Option Explicit On

Imports [Shared].ControlJs
Imports [Shared].Rut
Imports [Shared].Ip
Imports [Shared].Criptografia
Imports SGICli.Mod
Imports SGICli.FlowCon
Imports Interfaces
Imports Servicios

Partial Class WebIngreso
    Inherits Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.Lbl_Error.Text = String.Empty
        Me.Txt_Rut.Focus()

        If Not Page.IsPostBack Then
            Me.lnk_CambioPass.Attributes("Href") = "JavaScript:OnClickWindowOpen('WebCambioContrasena.aspx','OlvidoSuPassword','460','300','not','not','200','130')"
            Me.lnk_sol_contra.Attributes("Href") = "JavaScript:OnClickWindowOpen('WebObtencionContrasena.aspx','Obtenercontrasena','460','460','not','not','200','130')"
            'Me.lnk_CambioPass.Attributes("Href") = "WebCambioContrasena.aspx"
            Me.Txt_Rut.Attributes("OnKeyPress") = OnKeyPressRut()
            Me.Txt_Contraseña.Attributes("OnKeyPress") = OnKeyPressPass()
        End If
    End Sub

    Protected Sub Btn_Ingresar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Btn_Ingresar.Click
        Dim usuarioitem As New ModUsuario
        Dim usuario As FlowUsuario = New FlowUsuario

        usuarioitem.RutCliente = CInt(RutUnFormat(Me.Txt_Rut.Text))
        usuarioitem.Digito = Dv(Me.Txt_Rut.Text)
        usuarioitem.Mail = Me.Txt_Mail.Text.ToString.ToLower
        usuarioitem.Contraseña = encryptPablo(Me.Txt_Mail.Text.Trim.ToString.ToLower, Me.Txt_Contraseña.Text.Trim.ToString.ToLower)
        usuarioitem.Ip = GetIp()

        Try
            usuario.FlowUsuarioLogin_Read(usuarioitem)
        Catch ex As Exception
            Me.Lbl_Error.Text = ex.Message
            Exit Try
            Exit Sub
            Exit Sub
        Finally
            If Not usuario Is Nothing Then
                usuario = Nothing
            End If
        End Try

        If usuarioitem.Found = False Then
            Me.Lbl_Error.Text = "La información ingresada no corresponde. </br>Intente nuevamente"
            Me.Lbl_Error.Visible = True
            Me.Txt_Rut.Text = ""
            Me.Txt_Mail.Text = ""
            Me.Txt_Contraseña.Text = ""

            'Dim Context As HttpContext
            'Context = HttpContext.Current
            'Context.Items.Add("Msj", "El acceso para cuenta no esta permitido, contactese con su administrador")
            'Server.Transfer("WebSalir.aspx")
        Else
            Me.Lbl_Error.Text = ""
            Me.Lbl_Error.Visible = False

            Session("SGICliId") = usuarioitem.Id
            Session("SGIIdContacto") = usuarioitem.IdContacto
            Session("SGICliMail") = Me.Txt_Mail.Text
            Session("SGICliNombre") = usuarioitem.NombreCompleto
            Session("SGICliPass") = Me.Txt_Contraseña.Text
            Session("SGICliRut") = RutUnFormat(Me.Txt_Rut.Text)
            Session("SGICliDig") = Dv(Me.Txt_Rut.Text)
            Session("SGICliRazonSocial") = usuarioitem.RazonSocial
            Session("SGICliCambioPass") = 0 'Sesion para validar si fue redirigido de esta pagina (cero = NO, otro valor = SI)
            Session("SGICliClientede") = usuarioitem.Clientede
            Session("RutFactUsuario")=usuarioitem.RutFact
            'Dim cliente As Integer = Usuarioitem.Clientede

            Dim p As FlowUsuario = New FlowUsuario
            If p.FlowUsuarioValidaPassword_PLR(Me.Txt_Contraseña.Text) Then
                CargarToken()
                Response.Redirect("WebMenuCliente.aspx")
            Else
                Dim numeroRandom As New Random()
                Session("SGICliMail") = Me.Txt_Mail.Text
                Session("SGICliNombre") = usuarioitem.NombreCompleto
                Session("SGICliRut") = RutUnFormat(Me.Txt_Rut.Text)
                Session("SGICliDig") = Dv(Me.Txt_Rut.Text)
                Session("SGICliPass") = Me.Txt_Contraseña.Text
                Session("SGICliCambioPass") = numeroRandom.Next + 1 ' Se le asigna valor
                Response.Redirect("actualizaPass.aspx")
            End If
        End If
    End Sub


    Private Sub CargarToken()

        If Session.Item("token") Is Nothing Then

        Dim  usuarioPortal as string = ConfigurationManager.AppSettings.Get("UsuarioPortal").ToString()
            Dim contacto As New Contacto(usuarioPortal, Session("SGICliPass").ToString(), CStr(Session("SGICliRut")) + "-" + CStr(Session("SGICliDig")), CStr(Session("SGICliMail")),  ConfigurationManager.AppSettings.Get("RolPortal"))
            Dim envio As String = String.Format("grant_type=password&username={0}&password={1}&rol={2}&CorreoContacto={3}&rut={4}&passwordContacto={5}", contacto.Usuario, ConfigurationManager.AppSettings.Get("PasswordPortal"), contacto.Rol, contacto.CorreoContacto, contacto.Rut, contacto.Password)

            Dim servicioPost As IServicioApi = New ServicioPost(envio)
            servicioPost.AgregarCabecera("Content-Type", "application/x-www-form-urlencoded")

            Dim servicioToken As ServicioToken = New ServicioToken(servicioPost)

            Session("token") = servicioToken.Obtener()
        End If
    End Sub
    Protected Sub lnk_sol_contra_Click(sender As Object, e As EventArgs) Handles lnk_sol_contra.Click

    End Sub
End Class