AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- distinct proyecto

Browse Source 
-- option explicit
This commit is contained in:
rrene
2023-12-21 18:42:45 -07:00
parent e5dfa4d7da
commit bf02aaf09d
1 changed files with 28 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -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 pCveEmpresa = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnCveEmpresa").Value
Dim pEmpresa = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnEmpresa").Value
Dim check As CheckBox = CType(sender, CheckBox)
Dim pCveEmpresa As String = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnCveEmpresa").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 pCveEmpresa = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnCveEmpresa").Value
Dim pEmpresa = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnEmpresa").Value
Dim check As CheckBox = CType(sender, CheckBox)
Dim pCveEmpresa As String = CType(check.NamingContainer, GridViewRow).FCHiddenField("HdnCveEmpresa").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