diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx
index 7b5ce4727..4f55c1a69 100644
--- a/Sistemas/CatSesiones.aspx
+++ b/Sistemas/CatSesiones.aspx
@@ -14,6 +14,7 @@
     <asp:DropDownList ID="DdlVariable" runat="server" AutoPostBack="True" Width="300px" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me">
         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
         <asp:ListItem Text="Usuarios" Value="GlobalDTUsuarios"></asp:ListItem>
+        <asp:ListItem Text="UsuarioResponsable" Value="GlobalDTUsuarioResponsable"></asp:ListItem>
         <asp:ListItem Text="Empresas" Value="GlobalDTEmpresas"></asp:ListItem>
         <asp:ListItem Text="Roles" Value="GlobalDTRoles"></asp:ListItem>
         <asp:ListItem Text="Clientes" Value="GlobalDTCliente"></asp:ListItem>
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 9e6d1ed9b..e06cf9d67 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -7,7 +7,9 @@ Partial Class Sistemas_CatSesiones
 
     Protected Sub BtnCargar_Click(sender As Object, e As EventArgs) Handles BtnCargar.Click
         If DdlVariable.SelectedItem.Value = "GlobalDTUsuarios" Then
-            CargaUsuarios()
+            CargaUsuarios()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTUsuarioResponsable" Then
+            CargaUsuariosResponsable()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAlmacenUsuarios" Then
             CargaAlmacenUsuarios()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTCliente" Then
@@ -287,6 +289,19 @@ Partial Class Sistemas_CatSesiones
         'Fin Carga Usuarios
     End Sub
 
+    Private Sub CargaUsuariosResponsable()
+        'Carga Usuarios
+        Dim ObjUsuarios As New ClsSisUsuarios
+        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+            Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
+            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
+        Else
+            Application("GlobalDTUsuarioResponsable") = Nothing
+        End If
+        ObjUsuarios.Dispose()
+        'Fin Carga Usuarios
+    End Sub
+
 
     Private Sub CargaEmpresas()
         'Carga Empresas