265 lines
12 KiB
VB.net
265 lines
12 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System
|
|
Imports System.Linq
|
|
Imports System.Web.UI.WebControls
|
|
Imports Extensiones
|
|
|
|
Partial Class PopUpSeleccionarEmpresa
|
|
Inherits ClsPaginas
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
CType(Me.Master, BaseMasterPage).EsPopup = True
|
|
GetEmpresas()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GetEmpresas()
|
|
Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
|
|
|
|
If Dt IsNot Nothing Then
|
|
If Dt.Rows.Count > 0 Then
|
|
Dim NumRegistros As Integer = 0
|
|
GvEmpresas.DataSource = Dt.FiltraParametros("(CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)) AND CvePlataformaUsuario NOT IN (6,7)", "Empresa")
|
|
NumRegistros += DirectCast(GvEmpresas.DataSource, System.Data.DataTable).Rows.Count
|
|
|
|
GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
|
|
NumRegistros += DirectCast(GvPortalRastreo.DataSource, System.Data.DataTable).Rows.Count
|
|
|
|
GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa")
|
|
NumRegistros += DirectCast(GvPortalCliente.DataSource, System.Data.DataTable).Rows.Count
|
|
|
|
GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa")
|
|
NumRegistros += DirectCast(GvPortalProveedor.DataSource, System.Data.DataTable).Rows.Count
|
|
|
|
LtlTotalRegistros.Text = NumRegistros.ToString().FormatoNumero(0)
|
|
Else
|
|
LtlTotalRegistros.Text = "0"
|
|
GvEmpresas.DataSource = Nothing
|
|
GvPortalRastreo.DataSource = Nothing
|
|
GvPortalCliente.DataSource = Nothing
|
|
GvPortalProveedor.DataSource = Nothing
|
|
Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
|
|
GvEmpresas.DataBind()
|
|
GvPortalRastreo.DataBind()
|
|
GvPortalCliente.DataBind()
|
|
GvPortalProveedor.DataBind()
|
|
|
|
UPDatos.Update()
|
|
|
|
TblBusqueda.Visible = True
|
|
End Sub
|
|
|
|
Protected Sub GvEmpresas_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvEmpresas.RowCommand
|
|
If e.CommandName = "Cambia" Then
|
|
|
|
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
|
|
|
|
If gvr IsNot Nothing Then
|
|
|
|
Dim ObjUsuario As New ClsSisUsuarios
|
|
Dim Usuario As Usuario = Nothing
|
|
Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), IMEI, gvr.DataKey("CveEmpresa").ToEntero)
|
|
ObjUsuario.Dispose()
|
|
|
|
If Usuario IsNot Nothing Then
|
|
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
|
|
|
|
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
|
|
Usuario.ModoSimulacion = ModoSimulacion
|
|
ADSSession.ADSSessionConfig.sessionUser = Usuario
|
|
ADSSession.ADSSessionConfig.sessionDpage = False
|
|
|
|
If dt IsNot Nothing Then
|
|
If dt.Rows.Count >= 1 Then
|
|
Dim CveEmpresa = e.CommandArgument.ToString().ToEntero()
|
|
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
|
|
Usuario.CvePlataforma = 1
|
|
Usuario.CveEmpresa = CveEmpresa
|
|
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, CveEmpresa)
|
|
CreaObjetoEmpresa(Usuario)
|
|
RegistraScript("Ir3();")
|
|
End If
|
|
End If
|
|
dt.Dispose()
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
Protected Sub GvPortalRastreo_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalRastreo.RowCommand
|
|
If e.CommandName = "Cambia" Then
|
|
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
|
|
|
|
If gvr IsNot Nothing Then
|
|
|
|
Dim ObjUsuario As New ClsSisUsuarios
|
|
Dim Usuario As Usuario = Nothing
|
|
Usuario = ObjUsuario.ValidaUsuarioGPS2(gvr.DataKey("CveCliente"), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
|
|
ObjUsuario.Dispose()
|
|
|
|
If Usuario IsNot Nothing Then
|
|
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
|
|
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
|
|
Usuario.ModoSimulacion = ModoSimulacion
|
|
ADSSession.ADSSessionConfig.sessionUser = Usuario
|
|
ADSSession.ADSSessionConfig.sessionDpage = False
|
|
|
|
If dt IsNot Nothing Then
|
|
If dt.Rows.Count >= 1 Then
|
|
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
|
|
Usuario.CvePlataforma = 3
|
|
CreaObjetoEmpresa(Usuario)
|
|
'si la contraseña es la prederminada, pide la nueva contraseña
|
|
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
|
|
RegistraScript("Ir2();")
|
|
End If
|
|
End If
|
|
dt.Dispose()
|
|
End If
|
|
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand
|
|
If e.CommandName = "Cambia" Then
|
|
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
|
|
|
|
If gvr IsNot Nothing Then
|
|
|
|
Dim ObjUsuario As New ClsSisUsuarios
|
|
Dim Usuario As Usuario = Nothing
|
|
Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
|
|
|
|
ObjUsuario.Dispose()
|
|
|
|
If Usuario IsNot Nothing Then
|
|
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
|
|
|
|
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
|
|
Usuario.ModoSimulacion = ModoSimulacion
|
|
ADSSession.ADSSessionConfig.sessionUser = Usuario
|
|
ADSSession.ADSSessionConfig.sessionDpage = False
|
|
|
|
If dt IsNot Nothing Then
|
|
If dt.Rows.Count >= 1 Then
|
|
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
|
|
Usuario.CvePlataforma = 6
|
|
UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
|
|
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
|
|
CreaObjetoEmpresa(Usuario)
|
|
'si la contraseña es la prederminada, pide la nueva contraseña
|
|
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
|
|
RegistraScript("Ir4();")
|
|
End If
|
|
End If
|
|
dt.Dispose()
|
|
End If
|
|
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
Protected Sub GvPortalProveedor_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalProveedor.RowCommand
|
|
If e.CommandName = "Cambia" Then
|
|
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
|
|
|
|
If gvr IsNot Nothing Then
|
|
|
|
Dim ObjUsuario As New ClsSisUsuarios
|
|
Dim Usuario As Usuario = Nothing
|
|
Usuario = ObjUsuario.ValidaUsuarioPortalProveedor(gvr.DataKey("CveProveedor").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
|
|
|
|
ObjUsuario.Dispose()
|
|
|
|
If Usuario IsNot Nothing Then
|
|
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
|
|
|
|
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
|
|
Usuario.ModoSimulacion = ModoSimulacion
|
|
ADSSession.ADSSessionConfig.sessionUser = Usuario
|
|
ADSSession.ADSSessionConfig.sessionDpage = False
|
|
|
|
If dt IsNot Nothing Then
|
|
If dt.Rows.Count >= 1 Then
|
|
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
|
|
Usuario.CvePlataforma = 7
|
|
UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
|
|
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
|
|
CreaObjetoEmpresa(Usuario)
|
|
'si la contraseña es la prederminada, pide la nueva contraseña
|
|
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
|
|
RegistraScript("Ir5();")
|
|
End If
|
|
End If
|
|
dt.Dispose()
|
|
End If
|
|
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
#Region "F U N C I O N E S"
|
|
Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click
|
|
RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30))
|
|
End Sub
|
|
|
|
Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
|
|
|
|
Dim ObjEmpresa As New ClsSisEmpresas()
|
|
If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
'Session("Empresa") = ObjEmpresa
|
|
If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
|
|
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
|
|
|
|
Dim EmpresasFuncionalidades As New HybridDictionary
|
|
For Each Row As Data.DataRow In dttmp.Rows
|
|
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
|
|
Next
|
|
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
|
|
End If
|
|
|
|
UsuarioActual.Empresa = ObjEmpresa.Empresa
|
|
Else
|
|
Session("Empresa") = Nothing
|
|
End If
|
|
ObjEmpresa.Dispose()
|
|
End Sub
|
|
Private Sub GuardaLogR(Mensaje As String)
|
|
Dim ArchivoW As IO.StreamWriter
|
|
Dim MensajeLog As String = ""
|
|
Dim continuar As Boolean = True
|
|
Try
|
|
If Not IsNothing(System.Web.HttpContext.Current) Then
|
|
If Not IsNothing(System.Web.HttpContext.Current.Request) Then
|
|
|
|
MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}"
|
|
End If
|
|
End If
|
|
Catch
|
|
End Try
|
|
MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
|
|
|
|
Try
|
|
ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
|
|
Catch
|
|
Exit Sub
|
|
End Try
|
|
Try
|
|
ArchivoW.Write(MensajeLog)
|
|
Catch
|
|
End Try
|
|
ArchivoW.Close()
|
|
ArchivoW.Dispose()
|
|
End Sub
|
|
#End Region
|
|
|
|
End Class |