SIG/Sistemas/PopUpSeleccionarEmpresa.aspx.vb

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
            'CType(Me.Master, BaseMasterPage).PopupWidth = HdnAncho.Value.ToEntero
            'RegistraScript("alertSize();")
            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
                LtlTotalRegistros.Text = Dt.Rows.Count.ToString.FormatoNumero(0)
                GV.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa")
                GVCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
            Else
                LtlTotalRegistros.Text = "0"
                GV.DataSource = Nothing
                Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
            End If
        End If

        GV.DataBind()
        GVCliente.DataBind()
        UPDatos.Update()

        TblBusqueda.Visible = True
    End Sub

    Protected Sub GV_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GV.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

    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
    Protected Sub gvUsuarios_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GVCliente.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 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()
        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 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




End Class