-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

Sistemas/UsuarioDetalle.aspx.vb

@@ -552,7 +552,7 @@ Partial Class Sistemas_UsuarioDetalle
     End Sub
 
     Public Sub CargaUsuarioResponsable()
-        DdlUsuarioResponsable.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario <> {CveUsuario}")
+        DdlUsuarioResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario <> {CveUsuario}")
         DdlUsuarioResponsable.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlUsuarioResponsable.DataBind()
     End Sub
@@ -712,7 +712,7 @@ Partial Class Sistemas_UsuarioDetalle
 
         'If CveSubProyecto > 0 Then
         '    If DdlSubProyectos.SelectedValue.ToEntero <> CveSubProyecto Then
-        '        DdlSubProyectos.Items.Insert(1, New ListItem(GlobalDTSubProyectos(-1, CveEmpresa:=DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {CveSubProyecto}"), CveSubProyecto.ToString))
+        '        DdlSubProyectos.Items.Insert(1, New ListItem(GlobalDTSubProyectos( DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {CveSubProyecto}"), CveSubProyecto.ToString))
         '    End If
         'End If
 
@@ -788,7 +788,7 @@ Partial Class Sistemas_UsuarioDetalle
 #End Region
 
     'Private Sub CargaSucursal()
-    '    DtSubProyectos2 = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyectos.SelectedValue.ToEntero)
+    '    DtSubProyectos2 = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyectos.SelectedValue.ToEntero)
     '    If DtSubProyectos2.Rows.Count > 0 Then
     '        Dim dr As DataRow
     '        dr = DtSubProyectos2(0)
@@ -1387,11 +1387,11 @@ Partial Class Sistemas_UsuarioDetalle
         'RECARGA GLOBAL EMPRESAS USUARIOS
         GlobalDTAlmacenUsuarios(-1, tCveEmpresa) = Nothing
         GlobalDTUsuarioResponsable(tCveEmpresa) = Nothing
-        GlobalDTUsuarios(CveEmpresa:=tCveEmpresa) = Nothing
-        GlobalDTUsuarios(CveEmpresa:=tCveEmpresa) = Nothing
+        GlobalDTUsuarios(-1, tCveEmpresa) = Nothing
+        GlobalDTUsuarios(-1, tCveEmpresa) = Nothing
 
         'si hay diferencia en la empresa asignada y la asociada.
-        If tCveEmpresa <> DdlEmpresa.SelectedValue.ToEntero Then GlobalDTUsuarios(CveEmpresa:=DdlEmpresa.SelectedValue.ToEntero) = Nothing
+        If tCveEmpresa <> DdlEmpresa.SelectedValue.ToEntero Then GlobalDTUsuarios(-1, DdlEmpresa.SelectedValue.ToEntero) = Nothing
 
         'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
         '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
@@ -1563,7 +1563,7 @@ Partial Class Sistemas_UsuarioDetalle
             If UsuarioControlado Then
                 DdlProyecto.DataSource = GetProyectosSinGV(DtSubProyectosControlado.FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}"))
             Else
-                DdlProyecto.DataSource = GetProyectosSinGV(GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero))
+                DdlProyecto.DataSource = GetProyectosSinGV(GlobalDTSubProyectos(DdlEmpresaAsignaciones.SelectedValue.ToEntero))
             End If
         End If
         DdlProyecto.DataBind()
@@ -1612,7 +1612,7 @@ Partial Class Sistemas_UsuarioDetalle
         If UsuarioControlado Then
             DdlSubProyecto.DataSource = DtSubProyectosControlado.FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}")
         Else
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
         End If
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -1654,7 +1654,7 @@ Partial Class Sistemas_UsuarioDetalle
 
             Else
                 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero)).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, ""))
-                DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero), CveEmpresa:=CveEmpresaRef).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, ""))
+                DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveEmpresaRef, CveProyecto:=If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero)).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, ""))
                 'NO SE PARA QUE SE USA - COMENTADO IPP 30 AGOSTO 2017
                 'If SubProyectosSinGV.Length > 0 Then
                 '    Dim SubProyectoFiltrado As DataTable = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero).FiltraParametros(SubProyectosSinGV)
@@ -1897,7 +1897,7 @@ Partial Class Sistemas_UsuarioDetalle
                 For Each item As ListItem In DdlSubProyecto.Items
                     Dim CveSubProyectoNuevo As String = item.Value
                     If CveSubProyectoNuevo.ToEntero > 0 Then
-                        Dim DrS As DataRow = GlobalDTSubProyectos(-1, item.Value.ToEntero)(0)
+                        Dim DrS As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=item.Value.ToEntero)(0)
                         Dim DtValida As DataTable = DtSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
                         If DtValida.Rows.Count > 0 Then
                             If DtValida.Rows(0)("Accion").ToString = "2" Then
@@ -1956,7 +1956,7 @@ Partial Class Sistemas_UsuarioDetalle
                 e.Row.FCDropDownList("DdlProyecto").DataBind()
                 e.Row.FCDropDownList("DdlProyecto").SelectedValue = e.Row.DBCampo("CveProyecto")
 
-                e.Row.FCDropDownList("DdlSubProyecto").DataSource = If(DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66, GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}), GlobalDTSubProyectos(e.Row.DBCampo("CveProyecto").ToEntero))
+                e.Row.FCDropDownList("DdlSubProyecto").DataSource = If(DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66, GlobalDTSubProyectos(DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}), GlobalDTSubProyectos(e.Row.DBCampo("CveProyecto").ToEntero))
                 e.Row.FCDropDownList("DdlSubProyecto").DataBind()
                 e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
             End If
@@ -2406,7 +2406,7 @@ Partial Class Sistemas_UsuarioDetalle
             sb.Append("0")
         End If
 
-        Dim TmpDtSubProyectos As DataTable = GlobalDTSubProyectos(-1, -1, ClaveEmpresa).FiltraParametros($"CveSubProyecto In ({sb.ToString})", "Proyecto", {"CveProyecto", "Proyecto", "CveSubProyecto", "SubProyecto"})
+        Dim TmpDtSubProyectos As DataTable = GlobalDTSubProyectos(ClaveEmpresa).FiltraParametros($"CveSubProyecto In ({sb.ToString})", "Proyecto", {"CveProyecto", "Proyecto", "CveSubProyecto", "SubProyecto"})
         If Tipo = "OC" Then
             GvEstatusUsuariosOC.DataSource = TmpDtSubProyectos
             GvEstatusUsuariosOC.DataBind()
@@ -2895,7 +2895,7 @@ Partial Class Sistemas_UsuarioDetalle
             sb.Append("0")
         End If
 
-        Dim TmpDtSubProyectos As DataTable = GlobalDTSubProyectos(-1, -1, ClaveEmpresa).FiltraParametros($"CveSubProyecto In ({sb.ToString})", "Proyecto", {"CveProyecto", "Proyecto", "CveSubProyecto", "SubProyecto"})
+        Dim TmpDtSubProyectos As DataTable = GlobalDTSubProyectos(ClaveEmpresa).FiltraParametros($"CveSubProyecto In ({sb.ToString})", "Proyecto", {"CveProyecto", "Proyecto", "CveSubProyecto", "SubProyecto"})
 
         GvOS.DataSource = TmpDtSubProyectos
         GvOS.DataBind()
@@ -4214,7 +4214,7 @@ Partial Class Sistemas_UsuarioDetalle
     Private Sub SoloSubProyectosAsignar()
         DdlProyecto.Visible = False
 
-        DdlSubProyectoAsignar.DataSource = GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignarPermiso.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+        DdlSubProyectoAsignar.DataSource = GlobalDTSubProyectos(DdlEmpresaAsignarPermiso.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
         DdlSubProyectoAsignar.DataBind()
         DdlSubProyectoAsignar.Items.Insert(0, New ListItem("Seleccione", "-1"))