Commit inicial Ventas Productivo

GPS/UsuariosRastreo.aspx.vb

@@ -0,0 +1,69 @@
+Option Strict On
+Imports Extensiones
+Imports System.Data
+
+Partial Class GPS_UsuariosRastreo
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaUsuarios()
+            LnkAddUsuario.Attributes.Add("onclick", $"javascript:AbrirVentana('/Sistemas/PopUpAddUsuario.aspx?CveCliente={UsuarioActual.CveCliente}', 801, 700);")
+        End If
+    End Sub
+
+    Private Sub CargaUsuarios()
+        Dim DtUsuarios As DataTable = Nothing
+
+        If UsuarioActual.CveCliente > 0 AndAlso UsuarioActual.CvePlataforma = 3 Then
+
+            If UsuarioActual.CveRol = 1198 Then
+                LnkAddUsuario.Visible = True
+                DtUsuarios = GlobalDTUsuarios(CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND CveRol = 1200 AND Estatus = 1")
+            ElseIf UsuarioActual.CveRol = 1200 Then
+                If UsuarioActual.TienePermisoProceso(214) Then
+                    LnkAddUsuario.Visible = True
+                    DtUsuarios = GlobalDTUsuarios(CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND Estatus = 1 AND (CveUsuario = {UsuarioActual.CveUsuario} OR CveUsuarioIng = {UsuarioActual.CveUsuario})")
+                Else
+                    DtUsuarios = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.CveCliente, -1).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente}")
+                End If
+            End If
+
+        End If
+        If DtUsuarios IsNot Nothing Then
+            DtUsuarios = DtUsuarios.FiltraParametros("", "", {"CveUsuario", "Usuario", "Nombre", "FechaUltimoAcceso", "Estatus"})
+        End If
+        GvUsuarios.DataSource = DtUsuarios
+        GvUsuarios.DataBind()
+
+        UpGvUsuarios.Update()
+    End Sub
+
+    Protected Sub GvUsuarios_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting
+        Dim ObjUsuarios As New ClsSisUsuarios
+        Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero
+        If ObjUsuarios.DeleteClienteUsuario(CveUsuario, UsuarioActual.CveCliente) Then
+            Alert("El Usuario se eliminó correctamente", TipoMensaje.MsgInformacion)
+        End If
+        ObjUsuarios.Dispose()
+        CargaGlobal()
+        CargaUsuarios()
+    End Sub
+
+    Public Sub CargaGlobal()
+        Dim ObjUsuarios As New ClsSisUsuarios
+        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+            GlobalDTUsuarios(-1) = ObjUsuarios.DtResultados
+        Else
+            GlobalDTUsuarios() = Nothing
+        End If
+        ObjUsuarios.Dispose()
+    End Sub
+
+    Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/Sistemas/PopUpAddUsuario.aspx?CveUsuario={e.Row.DBCampo("CveUsuario").ToString}&CveCliente={UsuarioActual.CveCliente}', 801, 701);")
+        End If
+    End Sub
+
+End Class