Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
44 lines (27 sloc) 1.49 KB
Imports System.Data
Imports Microsoft.VisualBasic
Partial Class _Default
Inherits cBase
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.txtUsuario.Focus()
End Sub
Protected Sub btnEntrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEntrar.Click
Dim eEntidad As New Login
Dim cControl As New cLogin
Dim dsDatos As New DataSet
eEntidad.usuario = Me.txtUsuario.Text
eEntidad.clave = Me.EncriptarContrasena(Me.txtContrasena.Text)
dsDatos = cControl.IngresaralSistema(eEntidad)
If dsDatos.Tables(0).Rows.Count > 0 Then
Me.Session.Item("IdUsuario") = dsDatos.Tables(0).Rows(0).Item("IdUsuario")
Me.Session.Item("NombreUsuario") = dsDatos.Tables(0).Rows(0).Item("Usuario")
Me.Session.Item("IdCargo") = dsDatos.Tables(0).Rows(0).Item("Cargo_idCargo")
Me.Session.Item("PuntoTransferencia") = dsDatos.Tables(0).Rows(0).Item("NombrePuntoTransferencia")
Me.Session.Item("idPuntoTransferencia") = dsDatos.Tables(0).Rows(0).Item("idPuntoTransferencia")
Me.Session("activa") = "Si"
Response.Redirect("MainFrame.aspx")
Else
Me.MsgBox1.ShowAlert("Usuario o Contraseña incorrectos, Verifique sus datos", "", Cooperator.Framework.Web.Controls.AlertOption.NoAction, Cooperator.Framework.Web.Controls.AlertType.Information)
End If
End Sub
End Class