- distinct proyecto

-- option explicit

Sistemas/UsuarioDetalle.aspx.vb

@@ -621,7 +621,7 @@ Partial Class Sistemas_UsuarioDetalle
         If CveUsuario < 0 Then Exit Sub
 
         If DtAsignacionesMultiEmpresa IsNot Nothing AndAlso DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", DdlEmpresaAsignaciones.SelectedValue.ToEntero)).Rows.Count > 0 Then
-            Dim dr = DtAsignacionesMultiEmpresa.Select(String.Format("CveEmpresa = {0}", DdlEmpresaAsignaciones.SelectedValue.ToEntero))
+            Dim dr As DataRow() = DtAsignacionesMultiEmpresa.Select(String.Format("CveEmpresa = {0}", DdlEmpresaAsignaciones.SelectedValue.ToEntero))
             ViewState("CveSubProyecto") = dr(0)("CveSucursal")
             ViewState("CveAlmacenAsignado") = dr(0)("CveAlmacen")
             ViewState("CveVendedorAsignado") = dr(0)("CveVendedor")
@@ -650,7 +650,7 @@ Partial Class Sistemas_UsuarioDetalle
         DdlRol.Items.Clear()
 
         If UsuarioActual.CveRol <> 1 Then
-            Dim CveEmpresaselected = DdlEmpresa.SelectedValue.ToEntero
+            Dim CveEmpresaselected As Integer = DdlEmpresa.SelectedValue.ToEntero
             If CveEmpresaselected > 0 Then
                 If UsuarioControlado Then
                     DdlRol.DataSource = DTRolesControlado.FiltraParametros($"CveRol NOT IN (1) AND CveEmpresa = {CveEmpresaselected}")
@@ -683,7 +683,7 @@ Partial Class Sistemas_UsuarioDetalle
     End Sub
     Public Sub CargarEmpresa()
         Dim ClsUsuarios As New ClsSisUsuarios
-        Dim Tipo = If(UsuarioActual.CveRol = 1, -1, UsuarioActual.CveUsuario)
+        Dim Tipo As Integer = If(UsuarioActual.CveRol = 1, -1, UsuarioActual.CveUsuario)
         If ClsUsuarios.GetEmpresasAcceso(Tipo, CveUsuario) Then
             DtEmpresasUsuario = ClsUsuarios.DtResultados
             DtEmpresasUsuario.Columns.Add("Accion", GetType(Integer))
@@ -830,7 +830,7 @@ Partial Class Sistemas_UsuarioDetalle
             'Cargo la ultima empresa consultada en asignaciones
             Dim DtValida As DataTable = DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
             If DtValida.Rows.Count > 0 Then
-                Dim dr As DataRow = DtAsignacionesMultiEmpresa.Select(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
+                Dim dr As DataRow() = DtAsignacionesMultiEmpresa.Select(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
                 dr(0)("CveEmpresa") = CveEmpresaAnterior
                 dr(0)("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
                 dr(0)("CveVendedor") = DdlVendedor.SelectedValue.ToEntero
@@ -1490,7 +1490,7 @@ Partial Class Sistemas_UsuarioDetalle
 
         Dim DtValida As DataTable = DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
         If DtValida.Rows.Count > 0 Then
-            Dim dr As DataRow = DtAsignacionesMultiEmpresa.Select(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
+            Dim dr As DataRow() = DtAsignacionesMultiEmpresa.Select(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
             dr(0)("CveEmpresa") = CveEmpresaAnterior
             dr(0)("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
             dr(0)("CveVendedor") = DdlVendedor.SelectedValue.ToEntero
@@ -1556,7 +1556,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(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"}))
             End If
         End If
         DdlProyecto.DataBind()
@@ -1686,18 +1686,18 @@ Partial Class Sistemas_UsuarioDetalle
         Dim DtValida As DataTable = DtSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue))
         If DtValida.Rows.Count > 0 Then
             If DtValida.Rows(0)("Accion").ToString = "2" Then
-                Dim dr As DataRow = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue))
+                Dim dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue))
                 dr(0)("Accion") = 0
                 dr(0).AcceptChanges()
             ElseIf DtValida.Rows(0)("Accion").ToString = "3" Then
-                Dim dr = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue))
+                Dim dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue))
                 dr(0)("Accion") = 1
                 dr(0).AcceptChanges()
             Else
                 Alert("El SubProyecto ya se encuentra agregado.", TipoMensaje.MsgAdvertencia)
             End If
         Else
-            Dim dr = DtSubProyectos.NewRow
+            Dim dr As DataRow = DtSubProyectos.NewRow
 
             dr("CveProyecto") = If(DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66, "-1", DdlProyecto.SelectedValue)
             dr("Proyecto") = If(DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66, "-1", DdlProyecto.SelectedItem.Text)
@@ -2665,7 +2665,7 @@ Partial Class Sistemas_UsuarioDetalle
                     End If
                     'VALIDA LOS ESTATUS QUE TIENE EL USUARIO
                     If DTEstatusOCAsignar IsNot Nothing AndAlso DTEstatusOCAsignar.Rows.Count > 0 Then
-                        Dim dtReq = DTEstatusOCAsignar.FiltraParametros("Tipo='Req'")
+                        Dim dtReq As DataTable = DTEstatusOCAsignar.FiltraParametros("Tipo='Req'")
                         Dim DtValida As DataTable = dtReq.FiltraParametros($"CveEstatus={CveEstatus}")
                         Dim Habilitado As Boolean = (DtValida IsNot Nothing AndAlso DtValida.Rows.Count = 1)
                         chkEstatus.Enabled = Habilitado
@@ -2805,7 +2805,7 @@ Partial Class Sistemas_UsuarioDetalle
 
                     'VALIDA LOS ESTATUS QUE TIENE EL USUARIO
                     If DTEstatusOCAsignar IsNot Nothing AndAlso DTEstatusOCAsignar.Rows.Count > 0 Then
-                        Dim dtOC = DTEstatusOCAsignar.FiltraParametros("Tipo='OC'")
+                        Dim dtOC As DataTable = DTEstatusOCAsignar.FiltraParametros("Tipo='OC'")
                         Dim DtValida As DataTable = dtOC.FiltraParametros($"CveEstatus={CveEstatus}")
                         Dim Habilitado As Boolean = (DtValida IsNot Nothing AndAlso DtValida.Rows.Count = 1)
                         chkEstatus.Enabled = Habilitado
@@ -2956,7 +2956,7 @@ Partial Class Sistemas_UsuarioDetalle
             Dim CveSubProyecto As Integer = Row.DataKey("CveSubProyecto").ToEntero
             Dim CveProyecto As Integer = Row.DataKey("CveProyecto").ToEntero
             Dim r As Integer = 1
-            For i = 0 To Row.Cells.Count - 1
+            For i As Integer = 0 To Row.Cells.Count - 1
                 Dim CveEstatus As Integer = If(IsNumeric(GvOS.Columns(i).FooterText), GvOS.Columns(i).FooterText.ToEntero, 0)
                 If CveEstatus > 0 Then
                     If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then
@@ -3334,9 +3334,9 @@ Partial Class Sistemas_UsuarioDetalle
         ObjUsuario.Dispose()
     End Sub
     Protected Sub ChkPermitirEmpresa_CheckedChanged(sender As Object, e As EventArgs)
-        Dim check = CType(sender, CheckBox)
+        Dim check As CheckBox = CType(sender, CheckBox)
-        Dim pCveEmpresa = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnCveEmpresa").Value
+        Dim pCveEmpresa As String = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnCveEmpresa").Value
-        Dim pEmpresa = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnEmpresa").Value
+        Dim pEmpresa As String = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnEmpresa").Value
 
         If check.Checked Then
             If DtEmpresasUsuario.FiltraParametros(String.Format("CveEmpresa = {0}", pCveEmpresa)).Rows.Count > 0 Then
@@ -3570,7 +3570,7 @@ Partial Class Sistemas_UsuarioDetalle
         Row("IP") = TxtIP.Text.Trim
         Row("MAC") = TxtMAC.Text.Trim
 
-        Dim HI1 = "", HF1 = "", HI2 = "", HF2 = "", HI3 = "", HF3 = "", HI4 = "", HF4 = "", HI5 = "", HF5 = "", HI6 = "", HF6 = "", HI7 = "", HF7 = ""
+        Dim HI1 As String = "", HF1 As String = "", HI2 As String = "", HF2 As String = "", HI3 As String = "", HF3 As String = "", HI4 As String = "", HF4 As String = "", HI5 As String = "", HF5 As String = "", HI6 As String = "", HF6 As String = "", HI7 As String = "", HF7 As String = ""
 
         If ChkAplicaRestriccion.Checked Then
             Row("AplicaRestriccion") = 1
@@ -3798,7 +3798,7 @@ Partial Class Sistemas_UsuarioDetalle
             Dim ObjUsuarios As New ClsSisUsuarios
 
             If ObjUsuarios.ClonarUsuarioCriterios(DdlUsuarioClonar.SelectedValue.ToEntero) Then
-                Dim Dr = FiltroPrimero(ObjUsuarios.DtResultados, "")
+                Dim Dr As DataRow = FiltroPrimero(ObjUsuarios.DtResultados, "")
 
                 If Dr("UsuarioEmpresas").ToString.ToEntero > 0 Then DivClonarEmpresas.Visible = True
                 If Dr("UsuariosModulos").ToString.ToEntero > 0 Then DivClonarModulos.Visible = True
@@ -3831,7 +3831,7 @@ Partial Class Sistemas_UsuarioDetalle
     End Sub
 
     Private Function ClonarUsuario(CveUsuarioClonado As Integer, ObjUsuarios As ClsSisUsuarios) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If CveUsuarioClonado > 0 Then
             If ObjUsuarios.ClonarUsuario(CveUsuario, CveUsuarioClonado, ChkEmpresas.Checked, ChkModulos.Checked, ChkPermisos.Checked, ChkProyectos.Checked, ChkAlmacenes.Checked, ChkEstatusOC.Checked, ChkEstatusOS.Checked, UsuarioActual.CveUsuario) Then
@@ -3930,11 +3930,11 @@ Partial Class Sistemas_UsuarioDetalle
     End Sub
     Protected Sub ChkPermitirEmpresaAsignar_CheckedChanged(sender As Object, e As EventArgs)
 
-        Dim check = CType(sender, CheckBox)
+        Dim check As CheckBox = CType(sender, CheckBox)
-        Dim pCveEmpresa = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnCveEmpresa").Value
+        Dim pCveEmpresa As String = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnCveEmpresa").Value
-        Dim pEmpresa = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnEmpresa").Value
+        Dim pEmpresa As String = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnEmpresa").Value
 
-        Dim Dr = DTEmpresasAsignar.Select($"CveEmpresa = {pCveEmpresa}")
+        Dim Dr As DataRow() = DTEmpresasAsignar.Select($"CveEmpresa = {pCveEmpresa}")
         If check.Checked Then
             Dr(0)("TienePermiso") = 2
         Else
@@ -3992,7 +3992,7 @@ Partial Class Sistemas_UsuarioDetalle
         If DdlRolAsignar.SelectedValue = "-2" Then
             DTRolesAsignar.Rows.Clear()
             For Each Item As ListItem In DdlRolAsignar.Items
-                Dim dr = DTRolesAsignar.NewRow
+                Dim dr As DataRow = DTRolesAsignar.NewRow
                 If Item.Value <> "-1" AndAlso Item.Value <> "-2" Then
                     dr("CveRol") = Item.Value
                     dr("Rol") = Item.Text
@@ -4004,18 +4004,18 @@ Partial Class Sistemas_UsuarioDetalle
         Else
             If DtValida.Rows.Count > 0 Then
                 If DtValida.Rows(0)("Accion").ToString = "2" Then
-                    Dim dr = DTRolesAsignar.Select(String.Format("CveRol = {0}", DdlRolAsignar.SelectedValue))
+                    Dim dr As DataRow() = DTRolesAsignar.Select(String.Format("CveRol = {0}", DdlRolAsignar.SelectedValue))
                     dr(0)("Accion") = 0
                     dr(0).AcceptChanges()
                 ElseIf DtValida.Rows(0)("Accion").ToString = "3" Then
-                    Dim dr = DTRolesAsignar.Select(String.Format("CveRol = {0}", DdlRolAsignar.SelectedValue))
+                    Dim dr As DataRow() = DTRolesAsignar.Select(String.Format("CveRol = {0}", DdlRolAsignar.SelectedValue))
                     dr(0)("Accion") = 1
                     dr(0).AcceptChanges()
                 Else
                     Alert("El Roles ya se encuentra agregado.", TipoMensaje.MsgAdvertencia)
                 End If
             Else
-                Dim dr = DTRolesAsignar.NewRow
+                Dim dr As DataRow = DTRolesAsignar.NewRow
 
                 dr("CveRol") = DdlRolAsignar.SelectedValue
                 dr("Rol") = DdlRolAsignar.SelectedItem.Text
@@ -4032,7 +4032,7 @@ Partial Class Sistemas_UsuarioDetalle
 
 
     Protected Sub GvRolesAsignar_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvRolesAsignar.RowDeleting
-        Dim Dr = DTRolesAsignar.Select(String.Format("CveRol = {0}", GvRolesAsignar.Rows(e.RowIndex).DataKey("CveRol")))
+        Dim Dr As DataRow() = DTRolesAsignar.Select(String.Format("CveRol = {0}", GvRolesAsignar.Rows(e.RowIndex).DataKey("CveRol")))
 
         If Dr(0)("Accion").ToString = "1" Then
             Dr(0)("Accion") = 3
@@ -4125,7 +4125,7 @@ Partial Class Sistemas_UsuarioDetalle
 
 
     Protected Sub GvAlmacenesAsignar_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GVAlmacenesAsignar.RowDeleting
-        Dim Dr = DtAlmacenesAsignar.Select(String.Format("CveAlmacen = {0}", GVAlmacenesAsignar.Rows(e.RowIndex).DataKey("CveAlmacen")))
+        Dim Dr As DataRow() = DtAlmacenesAsignar.Select(String.Format("CveAlmacen = {0}", GVAlmacenesAsignar.Rows(e.RowIndex).DataKey("CveAlmacen")))
 
         If Dr(0)("Accion").ToString = "1" Then
             Dr(0)("Accion") = 3