-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

Sistemas/CatContrasenia.aspx.vb

@@ -26,7 +26,7 @@ Partial Class CatContrasenia
                     'redirecciona, cuando es el primer cambio de contraseña
                     UsuarioActual.Contraseña = TxtContrasenia1.Text
                     Usuario.Commit()
-                    GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+                    GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
                 Else
                     Usuario.RollBack()
                     Alert("Contraseña Incorrecta.", TipoMensaje.MsgAdvertencia)

Sistemas/CatIndicadoresUsuarios.aspx.vb

@@ -43,7 +43,7 @@ Partial Class Sistemas_CatIndicadoresUsuarios
     Private Sub CargaCombos()
         Dim ObjIndicador As New ClsIndicadores
         DdlRol.DataSource = GlobalDTRoles(UsuarioActual.CveEmpresa)
-        DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         If ObjIndicador.GetIndicadoresUsuariosEmpresa(UsuarioActual.CveEmpresa) Then
             DdlIndicador.DataSource = ObjIndicador.DtResultados
             DdlIndicadorUsuario.DataSource = ObjIndicador.DtResultados

Sistemas/CatSesiones.aspx.vb

@@ -433,7 +433,7 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaSubProyectos()
         'Carga SubProyectos
-        GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
         Dim ObjSubProyectos As New ClsSubProyectos
         'If ObjSubProyectos.GetSubProyectos Then
         '    Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados
@@ -544,9 +544,10 @@ Partial Class Sistemas_CatSesiones
     End Sub
 
     Private Sub CargaBancosCuentas()
-        Dim Banc As New ClsBancos
-        If Banc.GetBancosCuentasUsuarios(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTBancosCuentas") = Banc.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
-        Banc.Dispose()
+        GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        'Dim Banc As New ClsBancos
+        'If Banc.GetBancosCuentasUsuarios(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTBancosCuentas") = Banc.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
+        'Banc.Dispose()
     End Sub
 
     Private Sub CargaOCEstatus()

Sistemas/Empresa.aspx

@@ -184,9 +184,7 @@
                                                         <tr>
                                                             <td>CURP:</td>
                                                             <td>
-                                                                <asp:TextBox ID="TxtCURP" runat="server" MaxLength="18" Width="350px"></asp:TextBox>
-                                                                <asp:RequiredFieldValidator ID="RFVCurp" runat="server" ControlToValidate="TxtCURP" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''CURP'</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RFVCurp" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                                <asp:TextBox ID="TxtCURP" runat="server" MaxLength="18" Width="350px"></asp:TextBox>                                                                
                                                             </td>
                                                         </tr>
                                                         <tr>

Sistemas/PopUpAddUsuario.aspx.vb

@@ -132,7 +132,7 @@ Partial Class Sistemas_PopUpAddUsuario
                     BtnDefaultPWD.Visible = True
 
                 End If
-                Dim Dt As Data.DataTable = GlobalDTUsuarios(CveUsuario)
+                Dim Dt As Data.DataTable = GlobalDTUsuarios(CveUsuario, UsuarioActual.CveEmpresa)
                 Dim empresas As New StringBuilder()
                 If Dt.FiltraParametros("CvePlataforma = 3").Rows.Count > 0 Then
                     empresas.Append($"<div class='text-center'><h3>Empresas</h3></div>")

Sistemas/PopUpPerfil.aspx.vb

@@ -57,7 +57,7 @@ Partial Class Sistemas_PopUpPerfil
         Dim Nombre As String = TxtNombre.Text.Trim
         Dim Correo As String = TxtEmail.Text.Trim
         'VALIDA NO ALTERAR DATOS DE OTRO USUARIO
-        Dim DtUsuarios As DataTable = GlobalDTUsuarios.FiltraParametros($"CveUsuario <> {UsuarioActual.CveUsuario}")
+        Dim DtUsuarios As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario <> {UsuarioActual.CveUsuario}")
 
         Dim UsuariosExistentes As Integer = DtUsuarios.COUNT("CveUsuario", $"Usuario IN ('{TxtNombre.Text.Trim}','{TxtEmail.Text.Trim}') OR Correo = '{TxtEmail.Text.Trim}'")
 

Sistemas/PopUpSeleccionarEmpresa.aspx.vb

@@ -14,8 +14,8 @@ Partial Class PopUpSeleccionarEmpresa
     End Sub
 
     Private Sub GetEmpresas()
-        GlobalDTUsuarios(-1, -1) = Nothing
-        Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+        GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         If Dt IsNot Nothing Then
             If Dt.Rows.Count > 0 Then
@@ -115,7 +115,7 @@ Partial Class PopUpSeleccionarEmpresa
                 'ObjUsuario.Dispose()
 
                 If Usuario IsNot Nothing Then
-                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
 
                     Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
                     Usuario.ModoSimulacion = ModoSimulacion
@@ -160,7 +160,7 @@ Partial Class PopUpSeleccionarEmpresa
                 'ObjUsuario.Dispose()
 
                 If Usuario IsNot Nothing Then
-                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
 
                     Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
                     Usuario.ModoSimulacion = ModoSimulacion

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"))
 

Sistemas/Usuarios.aspx.vb

@@ -61,8 +61,6 @@ Partial Class Sistemas_Usuarios
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-
-
             ViewState("Orden") = ""
             ViewState("CveRol") = -1
             CargarEmpresa()
@@ -102,7 +100,7 @@ Partial Class Sistemas_Usuarios
     End Sub
 
     Private Sub CargarEmpresa()
-        Dim ClsUsuarios As New ClsSisUsuarios
+        Dim ClsUsuarios As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
         Dim DtEmpresas As DataTable
 
         'Se cargan las empresas que tenga acceso el Usuario Actual, que son las que el puede dar acceso o no.
@@ -117,8 +115,8 @@ Partial Class Sistemas_Usuarios
         ClsUsuarios.Dispose()
 
         DdlEmpresa.DataSource = DtEmpresas
-        DdlEmpresa.SelectedValue = UsuarioActual.CveEmpresa.ToString
         DdlEmpresa.DataBind()
+        DdlEmpresa.SelectedValueExist(UsuarioActual.CveEmpresa.ToString)
 
     End Sub