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

- option explicit

Browse Source
This commit is contained in:
rrene
2023-12-14 17:54:09 -07:00
parent 27ad6614a1
commit b2395f0fda
1 changed files with 72 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

148
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -823,14 +823,14 @@ Partial Class Sistemas_UsuarioDetalle
Dim ObjBancos As New ClsBancos(ObjUsuarios.IniciaTransacSQL())
Dim ObjGenerales As New ClsGenerales(ObjUsuarios.IniciaTransacSQL)
Dim TieneError = False
Dim TieneError As Boolean = False
Dim EsNuevoUsuario As Boolean = False
Try
'Cargo la ultima empresa consultada en asignaciones
Dim DtValida = DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
Dim DtValida As DataTable = DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
If DtValida.Rows.Count > 0 Then
Dim dr = 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
@@ -1394,8 +1394,8 @@ Partial Class Sistemas_UsuarioDetalle
Private Sub EnviaCorreo()
Try
Dim Para = TxtCorreo.Text.Trim
Dim Asunto = "ALTA DE CUENTA"
Dim Para As String = TxtCorreo.Text.Trim
Dim Asunto As String = "ALTA DE CUENTA"
Dim SBBody As New StringBuilder
'Linia de estilos
SBBody.Append("<style> .mailbody{ background-color:#EEF1F5; padding:15px; font-family :'Open Sans', sans-serif; } .mailcontent{ background-color:#fff; font-size: 14px; color: #333; padding:0px 15px ; } .mailtitle{padding:8px;color:#32C5D2; font-size: 18px;font-weight: 700!important;border-bottom:2px solid #EEF1F5;text-transform: uppercase;}.marco{border: 1px solid #869ab3;border-top: 0;background-color: #67809F; margin: 10px 15px 25px 15px;color: #fff;}.marco-title{padding: 10px 10px;text-transform: uppercase;font-weight: 700!important;}.marco-body{color:#333;background-color:#fff;}.nota{background: #E5E5E5;padding:15px;color:#333;} .logo { font-size:12px; font-style:italic; text-align:right; } .col1{width:180px;font-weight: 700!important;display:inline-block;} .col2{min-width:260px;display:inline-block;} </style>")
@@ -1488,9 +1488,9 @@ Partial Class Sistemas_UsuarioDetalle
#Region "TAB - ASIGNACIONES"
Protected Sub DdlEmpresaAsignaciones_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEmpresaAsignaciones.SelectedIndexChanged
Dim DtValida = DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
Dim DtValida As DataTable = DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
If DtValida.Rows.Count > 0 Then
Dim dr = 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
@@ -1683,10 +1683,10 @@ Partial Class Sistemas_UsuarioDetalle
End Sub
Protected Sub LBAgregarSubProyecto_Click(sender As Object, e As EventArgs)
Dim CveSubProyectoNuevo As String = DdlSubProyecto.SelectedValue
Dim DtValida = DtSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue))
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 = 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
@@ -1771,19 +1771,19 @@ Partial Class Sistemas_UsuarioDetalle
For Each item As ListItem In DdlSubProyecto.Items
Dim CveSubProyectoNuevo As String = item.Value
If CveSubProyectoNuevo.ToEntero > 0 Then
Dim DtValida = DtSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
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
Dim dr = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
Dim dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
dr(0)("Accion") = 0
dr(0).AcceptChanges()
ElseIf DtValida.Rows(0)("Accion").ToString = "3" Then
Dim dr = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
Dim dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
dr(0)("Accion") = 1
dr(0).AcceptChanges()
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)
dr("CveSubProyecto") = CveSubProyectoNuevo
@@ -1832,19 +1832,19 @@ Partial Class Sistemas_UsuarioDetalle
For Each item As ListItem In DdlSubProyecto.Items
Dim CveSubProyectoNuevo As String = item.Value
If CveSubProyectoNuevo.ToEntero > 0 Then
Dim DtValida = DtSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
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
Dim dr = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
Dim dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
dr(0)("Accion") = 0
dr(0).AcceptChanges()
ElseIf DtValida.Rows(0)("Accion").ToString = "3" Then
Dim dr = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
Dim dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
dr(0)("Accion") = 1
dr(0).AcceptChanges()
End If
Else
Dim dr = DtSubProyectos.NewRow
Dim dr As DataRow = DtSubProyectos.NewRow
dr("CveProyecto") = If(DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66, "-1", CveProyectoNuevo)
dr("Proyecto") = If(DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66, "-1", itemProyecto.Text)
dr("CveSubProyecto") = CveSubProyectoNuevo
@@ -1888,19 +1888,19 @@ Partial Class Sistemas_UsuarioDetalle
Dim CveSubProyectoNuevo As String = item.Value
If CveSubProyectoNuevo.ToEntero > 0 Then
Dim DrS As DataRow = GlobalDTSubProyectos(-1, item.Value.ToEntero)(0)
Dim DtValida = DtSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
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
Dim dr = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
Dim dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
dr(0)("Accion") = 0
dr(0).AcceptChanges()
ElseIf DtValida.Rows(0)("Accion").ToString = "3" Then
Dim dr = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
Dim dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
dr(0)("Accion") = 1
dr(0).AcceptChanges()
End If
Else
Dim dr = DtSubProyectos.NewRow
Dim dr As DataRow = DtSubProyectos.NewRow
dr("CveProyecto") = If(DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66, "-1", DrS("CveProyecto").ToString)
dr("Proyecto") = If(DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66, "-1", DrS("Proyecto"))
@@ -1954,7 +1954,7 @@ Partial Class Sistemas_UsuarioDetalle
End If
End Sub
Protected Sub GvSubProyectos_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvSubProyectos.RowDeleting
Dim Dr = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", GvSubProyectos.Rows(e.RowIndex).DataKey("CveSubProyecto")))
Dim Dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", GvSubProyectos.Rows(e.RowIndex).DataKey("CveSubProyecto")))
If Dr(0)("Accion").ToString = "1" Then
Dr(0)("Accion") = 3
@@ -1981,16 +1981,16 @@ Partial Class Sistemas_UsuarioDetalle
'No hago nada nomas quito el modo edicion
GvSubProyectos.EditIndex = -1
Else
Dim DtValida = DtSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", GvSubProyectos.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue))
Dim DtValida As DataTable = DtSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", GvSubProyectos.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue))
If DtValida.Rows.Count > 0 Then
If DtValida.Rows(0)("Accion").ToString = "2" Then
Dim dr = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", GvSubProyectos.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue))
Dim dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", GvSubProyectos.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue))
dr(0)("Accion") = 0
dr(0).AcceptChanges()
DtSubProyectos.Rows.RemoveAt(e.RowIndex)
GvSubProyectos.EditIndex = -1
ElseIf DtValida.Rows(0)("Accion").ToString = "3" Then
Dim dr = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", GvSubProyectos.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue))
Dim dr As DataRow() = DtSubProyectos.Select(String.Format("CveSubProyecto = {0}", GvSubProyectos.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue))
dr(0)("Accion") = 1
dr(0).AcceptChanges()
DtSubProyectos.Rows.RemoveAt(e.RowIndex)
@@ -2088,14 +2088,11 @@ Partial Class Sistemas_UsuarioDetalle
UpDatos.Update()
End Sub
Protected Sub LBAgregarAlmacen_Click(sender As Object, e As EventArgs)
Dim DtValida = DtAlmacenes.FiltraParametros(String.Format("CveAlmacen = {0}", ddlAlmacen.SelectedValue))
Dim DtValida As DataTable = DtAlmacenes.FiltraParametros(String.Format("CveAlmacen = {0}", ddlAlmacen.SelectedValue))
If ddlAlmacen.SelectedValue = "-2" Then
DtAlmacenes.Rows.Clear()
For Each Item As ListItem In ddlAlmacen.Items
Dim dr = DtAlmacenes.NewRow
Dim dr As DataRow = DtAlmacenes.NewRow
If Item.Value <> "-1" AndAlso Item.Value <> "-2" Then
dr("CveAlmacen") = Item.Value
dr("Almacen") = Item.Text
@@ -2107,18 +2104,18 @@ Partial Class Sistemas_UsuarioDetalle
Else
If DtValida.Rows.Count > 0 Then
If DtValida.Rows(0)("Accion").ToString = "2" Then
Dim dr = DtAlmacenes.Select(String.Format("CveAlmacen = {0}", ddlAlmacen.SelectedValue))
Dim dr As DataRow() = DtAlmacenes.Select(String.Format("CveAlmacen = {0}", ddlAlmacen.SelectedValue))
dr(0)("Accion") = 0
dr(0).AcceptChanges()
ElseIf DtValida.Rows(0)("Accion").ToString = "3" Then
Dim dr = DtAlmacenes.Select(String.Format("CveAlmacen = {0}", ddlAlmacen.SelectedValue))
Dim dr As DataRow() = DtAlmacenes.Select(String.Format("CveAlmacen = {0}", ddlAlmacen.SelectedValue))
dr(0)("Accion") = 1
dr(0).AcceptChanges()
Else
Alert("El Almacen ya se encuentra agregado.", TipoMensaje.MsgAdvertencia)
End If
Else
Dim dr = DtAlmacenes.NewRow
Dim dr As DataRow = DtAlmacenes.NewRow
dr("CveAlmacen") = ddlAlmacen.SelectedValue
dr("Almacen") = ddlAlmacen.SelectedItem.Text
@@ -2169,7 +2166,7 @@ Partial Class Sistemas_UsuarioDetalle
End If
End Sub
Protected Sub GvAlmacenes_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvAlmacenes.RowDeleting
Dim Dr = DtAlmacenes.Select(String.Format("CveAlmacen = {0}", GvAlmacenes.Rows(e.RowIndex).DataKey("CveAlmacen")))
Dim Dr As DataRow() = DtAlmacenes.Select(String.Format("CveAlmacen = {0}", GvAlmacenes.Rows(e.RowIndex).DataKey("CveAlmacen")))
If Dr(0)("Accion").ToString = "1" Then
Dr(0)("Accion") = 3
@@ -2190,16 +2187,16 @@ Partial Class Sistemas_UsuarioDetalle
'No hago nada nomas quito el modo edicion
GvAlmacenes.EditIndex = -1
Else
Dim DtValida = DtAlmacenes.FiltraParametros(String.Format("CveAlmacen = {0}", GvAlmacenes.Rows(e.RowIndex).FCDropDownList("DdlAlmacen").SelectedValue))
Dim DtValida As DataTable = DtAlmacenes.FiltraParametros(String.Format("CveAlmacen = {0}", GvAlmacenes.Rows(e.RowIndex).FCDropDownList("DdlAlmacen").SelectedValue))
If DtValida.Rows.Count > 0 Then
If DtValida.Rows(0)("Accion").ToString = "2" Then
Dim dr = DtAlmacenes.Select(String.Format("CveAlmacen = {0}", GvAlmacenes.Rows(e.RowIndex).FCDropDownList("DdlAlmacen").SelectedValue))
Dim dr As DataRow() = DtAlmacenes.Select(String.Format("CveAlmacen = {0}", GvAlmacenes.Rows(e.RowIndex).FCDropDownList("DdlAlmacen").SelectedValue))
dr(0)("Accion") = 0
dr(0).AcceptChanges()
DtAlmacenes.Rows.RemoveAt(e.RowIndex)
GvAlmacenes.EditIndex = -1
ElseIf DtValida.Rows(0)("Accion").ToString = "3" Then
Dim dr = DtAlmacenes.Select(String.Format("CveAlmacen = {0}", GvAlmacenes.Rows(e.RowIndex).FCDropDownList("DdlAlmacen").SelectedValue))
Dim dr As DataRow() = DtAlmacenes.Select(String.Format("CveAlmacen = {0}", GvAlmacenes.Rows(e.RowIndex).FCDropDownList("DdlAlmacen").SelectedValue))
dr(0)("Accion") = 1
dr(0).AcceptChanges()
DtAlmacenes.Rows.RemoveAt(e.RowIndex)
@@ -2271,22 +2268,22 @@ Partial Class Sistemas_UsuarioDetalle
GVCuentasBancarias.DataBind()
End Sub
Protected Sub LBAgregarCuentaBancaria_Click(sender As Object, e As EventArgs)
Dim DtValida = DtCuentasBancarias.FiltraParametros(String.Format("CveCuenta = {0}", DdlCuentasBancarias.SelectedValue))
Dim DtValida As DataTable = DtCuentasBancarias.FiltraParametros(String.Format("CveCuenta = {0}", DdlCuentasBancarias.SelectedValue))
If DtValida.Rows.Count > 0 Then
If DtValida.Rows(0)("Accion").ToString = "2" Then
Dim dr = DtCuentasBancarias.Select(String.Format("CveCuenta = {0}", DdlCuentasBancarias.SelectedValue))
Dim dr As DataRow() = DtCuentasBancarias.Select(String.Format("CveCuenta = {0}", DdlCuentasBancarias.SelectedValue))
dr(0)("Accion") = 0
dr(0).AcceptChanges()
ElseIf DtValida.Rows(0)("Accion").ToString = "3" Then
Dim dr = DtCuentasBancarias.Select(String.Format("CveCuenta = {0}", DdlCuentasBancarias.SelectedValue))
Dim dr As DataRow() = DtCuentasBancarias.Select(String.Format("CveCuenta = {0}", DdlCuentasBancarias.SelectedValue))
dr(0)("Accion") = 1
dr(0).AcceptChanges()
Else
Alert("La cuenta bancaria ya se encuentra agregada.", TipoMensaje.MsgAdvertencia)
End If
Else
Dim dr = DtCuentasBancarias.NewRow
Dim dr As DataRow = DtCuentasBancarias.NewRow
dr("CveCuenta") = DdlCuentasBancarias.SelectedValue
dr("NumCuenta") = DdlCuentasBancarias.SelectedItem.Text
@@ -2299,7 +2296,7 @@ Partial Class Sistemas_UsuarioDetalle
CargaGvCuentasBancarias()
End Sub
Protected Sub GVCuentasBancarias_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GVCuentasBancarias.RowDeleting
Dim Dr = DtCuentasBancarias.Select(String.Format("CveCuenta = {0}", GVCuentasBancarias.Rows(e.RowIndex).DataKey("CveCuenta")))
Dim Dr As DataRow() = DtCuentasBancarias.Select(String.Format("CveCuenta = {0}", GVCuentasBancarias.Rows(e.RowIndex).DataKey("CveCuenta")))
If Dr(0)("Accion").ToString = "1" Then
Dr(0)("Accion") = 3
@@ -2415,7 +2412,7 @@ Partial Class Sistemas_UsuarioDetalle
Dim r As Integer = 1
For i = 2 To Row.Cells.Count - 1
For i As Integer = 2 To Row.Cells.Count - 1
Dim CveEstatus As Integer = If(IsNumeric(GvEstatusUsuariosREQ.Columns(i).FooterText), GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero, 0)
Dim EstatusReqStr As String = DTOCEstatus.FiltroPrimeroValor("Estatus", $"CveEmpresa = {UsuarioActual.CveEmpresa} and CveEstatus = {CveEstatus}").ToString
@@ -2456,7 +2453,7 @@ Partial Class Sistemas_UsuarioDetalle
Dim CveProyecto As Integer = Row.DataKey("CveProyecto").ToEntero
Dim SubProyecto As String = Row.DataKey("SubProyecto")
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(GvEstatusUsuariosOC.Columns(i).FooterText), GvEstatusUsuariosOC.Columns(i).FooterText.ToEntero, -1)
Dim EstatusOCStr As String = DTOCEstatus.FiltroPrimeroValor("Estatus", $"CveEmpresa = {UsuarioActual.CveEmpresa} and CveEstatus = {CveEstatus}").ToString
@@ -2669,8 +2666,8 @@ Partial Class Sistemas_UsuarioDetalle
'VALIDA LOS ESTATUS QUE TIENE EL USUARIO
If DTEstatusOCAsignar IsNot Nothing AndAlso DTEstatusOCAsignar.Rows.Count > 0 Then
Dim dtReq = DTEstatusOCAsignar.FiltraParametros("Tipo='Req'")
Dim dtValida = dtReq.FiltraParametros($"CveEstatus={CveEstatus}")
Dim Habilitado As Boolean = (dtValida IsNot Nothing AndAlso dtValida.Rows.Count = 1)
Dim DtValida As DataTable = dtReq.FiltraParametros($"CveEstatus={CveEstatus}")
Dim Habilitado As Boolean = (DtValida IsNot Nothing AndAlso DtValida.Rows.Count = 1)
chkEstatus.Enabled = Habilitado
ibOpciones.Enabled = Habilitado
ImgClasificaciones.Enabled = Habilitado
@@ -2809,8 +2806,8 @@ 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 dtValida = dtOC.FiltraParametros($"CveEstatus={CveEstatus}")
Dim Habilitado As Boolean = (dtValida IsNot Nothing AndAlso dtValida.Rows.Count = 1)
Dim DtValida As DataTable = dtOC.FiltraParametros($"CveEstatus={CveEstatus}")
Dim Habilitado As Boolean = (DtValida IsNot Nothing AndAlso DtValida.Rows.Count = 1)
chkEstatus.Enabled = Habilitado
ibOpciones.Enabled = Habilitado
ImgClasificaciones.Enabled = Habilitado
@@ -3034,7 +3031,7 @@ Partial Class Sistemas_UsuarioDetalle
End Sub
Protected Sub GVOCClasificaciones_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GVOCClasificaciones.RowDeleting
Dim Gvr = GVOCClasificaciones.Rows(e.RowIndex)
Dim Gvr As GridViewRow = GVOCClasificaciones.Rows(e.RowIndex)
Dim ObjOC As New ClsOC
If ObjOC.RemoveEstatusUsuariosClasificaciones(Gvr.DataKey("CveEstatusUsuariosClasificacion").ToString.ToEntero) Then
@@ -3249,7 +3246,7 @@ Partial Class Sistemas_UsuarioDetalle
'Se cargan las empresas que tenga acceso el Usuario Actual, que son las que el puede dar acceso o no.
' Si el usuario es rol = 1 se cargan todas las empresas
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
DtEmpresas = ClsUsuarios.DtResultados
@@ -3294,8 +3291,8 @@ Partial Class Sistemas_UsuarioDetalle
Private Sub GuardarAccesoEmpresas()
Dim ClsUsuarios As New ClsSisUsuarios
ClsUsuarios.IniciaTransacSQL()
Dim ErrorEmpresa = False
Dim TienePermiso = False
Dim ErrorEmpresa As Boolean = False
Dim TienePermiso As Boolean = False
For Each gvr As GridViewRow In GvPermisosEmpresa.Rows
@@ -3343,7 +3340,7 @@ Partial Class Sistemas_UsuarioDetalle
If check.Checked Then
If DtEmpresasUsuario.FiltraParametros(String.Format("CveEmpresa = {0}", pCveEmpresa)).Rows.Count > 0 Then
Dim dr = DtEmpresasUsuario.Select(String.Format("CveEmpresa = {0}", pCveEmpresa))(0)
Dim dr As DataRow = DtEmpresasUsuario.Select(String.Format("CveEmpresa = {0}", pCveEmpresa))(0)
If dr("Accion").ToString = "2" Then
dr("Accion") = 0
@@ -3353,7 +3350,7 @@ Partial Class Sistemas_UsuarioDetalle
dr.AcceptChanges()
Else
Dim dr = DtEmpresasUsuario.NewRow
Dim dr As DataRow = DtEmpresasUsuario.NewRow
dr("CveEmpresa") = pCveEmpresa
dr("Empresa") = pEmpresa
@@ -3362,7 +3359,7 @@ Partial Class Sistemas_UsuarioDetalle
DtEmpresasUsuario.Rows.Add(dr)
End If
Else
Dim dr = DtEmpresasUsuario.Select(String.Format("CveEmpresa = {0}", pCveEmpresa))(0)
Dim dr As DataRow = DtEmpresasUsuario.Select(String.Format("CveEmpresa = {0}", pCveEmpresa))(0)
If dr("Accion").ToString = "1" Then
dr("Accion") = 3
@@ -3378,14 +3375,13 @@ Partial Class Sistemas_UsuarioDetalle
'EMPRESAS ASIGNAR
If DTEmpresasAsignar.FiltraParametros(String.Format("CveEmpresa = {0} AND TienePermiso = -1", pCveEmpresa)).Rows.Count > 0 Then
Dim Dr1 = DTEmpresasAsignar.Select($"CveEmpresa = {pCveEmpresa}")
Dim Dr1 As DataRow() = DTEmpresasAsignar.Select($"CveEmpresa = {pCveEmpresa}")
DTEmpresasAsignar.Rows.Remove(Dr1(0))
ElseIf DTEmpresasAsignar.FiltraParametros(String.Format("CveEmpresa = {0} AND TienePermiso = 2", pCveEmpresa)).Rows.Count > 0 Then
Dim Dr1 = DTEmpresasAsignar.Select($"CveEmpresa = {pCveEmpresa} AND TienePermiso = 2")
Dim Dr1 As DataRow() = DTEmpresasAsignar.Select($"CveEmpresa = {pCveEmpresa} AND TienePermiso = 2")
Dr1(0)("TienePermiso") = -2
Else
Dim Dr1 = DTEmpresasAsignar.NewRow
Dim Dr1 As DataRow = DTEmpresasAsignar.NewRow
Dr1("CveEmpresa") = pCveEmpresa
Dr1("Empresa") = pEmpresa
Dr1("TienePermiso") = -1
@@ -3654,7 +3650,7 @@ Partial Class Sistemas_UsuarioDetalle
Private Sub GvRestricciones_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvRestricciones.RowCommand
If e.CommandName = "Editar" Then
Dim Gvr = GvRestricciones.Rows(e.CommandArgument.ToString.ToEntero)
Dim Gvr As GridViewRow = GvRestricciones.Rows(e.CommandArgument.ToString.ToEntero)
CveRestriccion = Gvr.DataKey("CveUsuarioRestriccionAcceso").ToString.ToEntero
AccionRestriccion = Gvr.DataKey("Accion").ToString.ToEntero
@@ -3730,7 +3726,7 @@ Partial Class Sistemas_UsuarioDetalle
End Sub
Protected Sub GvRestricciones_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvRestricciones.RowDeleting
Dim DbRow = DtRestricciones.Rows(e.RowIndex)
Dim DbRow As DataRow = DtRestricciones.Rows(e.RowIndex)
If DbRow("Accion").ToString = "1" Then
DbRow("Accion") = 3
@@ -3991,7 +3987,7 @@ Partial Class Sistemas_UsuarioDetalle
UpRolesAsignar.Update()
End Sub
Protected Sub LBAgregarRolesAsignar_Click(sender As Object, e As EventArgs)
Dim DtValida = DTRolesAsignar.FiltraParametros(String.Format("CveRol = {0}", DdlRolAsignar.SelectedValue))
Dim DtValida As DataTable = DTRolesAsignar.FiltraParametros(String.Format("CveRol = {0}", DdlRolAsignar.SelectedValue))
If DdlRolAsignar.SelectedValue = "-2" Then
DTRolesAsignar.Rows.Clear()
@@ -4084,11 +4080,11 @@ Partial Class Sistemas_UsuarioDetalle
End Sub
Protected Sub LBAgregarAlmacenAsignar_Click(sender As Object, e As EventArgs)
Dim DtValida = DtAlmacenesAsignar.FiltraParametros(String.Format("CveAlmacen = {0}", DdlAlmacenAsignar.SelectedValue))
Dim DtValida As DataTable = DtAlmacenesAsignar.FiltraParametros(String.Format("CveAlmacen = {0}", DdlAlmacenAsignar.SelectedValue))
If DdlAlmacenAsignar.SelectedValue = "-2" Then
DtAlmacenesAsignar.Rows.Clear()
For Each Item As ListItem In DdlAlmacenAsignar.Items
Dim dr = DtAlmacenesAsignar.NewRow
Dim dr As DataRow = DtAlmacenesAsignar.NewRow
If Item.Value <> "-1" AndAlso Item.Value <> "-2" Then
dr("CveAlmacen") = Item.Value
dr("Almacen") = Item.Text
@@ -4100,18 +4096,18 @@ Partial Class Sistemas_UsuarioDetalle
Else
If DtValida.Rows.Count > 0 Then
If DtValida.Rows(0)("Accion").ToString = "2" Then
Dim dr = DtAlmacenesAsignar.Select(String.Format("CveAlmacen = {0}", DdlAlmacenAsignar.SelectedValue))
Dim dr As DataRow() = DtAlmacenesAsignar.Select(String.Format("CveAlmacen = {0}", DdlAlmacenAsignar.SelectedValue))
dr(0)("Accion") = 0
dr(0).AcceptChanges()
ElseIf DtValida.Rows(0)("Accion").ToString = "3" Then
Dim dr = DtAlmacenesAsignar.Select(String.Format("CveAlmacen = {0}", DdlAlmacenAsignar.SelectedValue))
Dim dr As DataRow() = DtAlmacenesAsignar.Select(String.Format("CveAlmacen = {0}", DdlAlmacenAsignar.SelectedValue))
dr(0)("Accion") = 1
dr(0).AcceptChanges()
Else
Alert("El Almacen ya se encuentra agregado.", TipoMensaje.MsgAdvertencia)
End If
Else
Dim dr = DtAlmacenesAsignar.NewRow
Dim dr As DataRow = DtAlmacenesAsignar.NewRow
dr("CveAlmacen") = DdlAlmacenAsignar.SelectedValue
dr("Almacen") = DdlAlmacenAsignar.SelectedItem.Text
dr("CveEmpresa") = DdlEmpresaAsignarPermiso.SelectedValue
@@ -4208,7 +4204,7 @@ Partial Class Sistemas_UsuarioDetalle
GVSubProyectosAsignar.Columns(0).Visible = False
End Sub
Protected Sub LBAgregarSubProyectoAsignar_Click(sender As Object, e As EventArgs)
Dim DtValida = DtSubProyectosAsignar.FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoAsignar.SelectedValue))
Dim DtValida As DataTable = DtSubProyectosAsignar.FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoAsignar.SelectedValue))
If DtValida.Rows.Count > 0 Then
If DtValida.Rows(0)("Accion").ToString = "2" Then
Dim dr = DtSubProyectosAsignar.Select(String.Format("CveSubProyecto = {0}", DdlSubProyectoAsignar.SelectedValue))
@@ -4291,7 +4287,7 @@ Partial Class Sistemas_UsuarioDetalle
UpCuentasBancariasAsignar.Update()
End Sub
Protected Sub LBAgregarCuentaBancariaAsignar_Click(sender As Object, e As EventArgs)
Dim DtValida = DtCuentasBancariasAsignar.FiltraParametros(String.Format("CveCuenta = {0}", DdlCuentasBancariasAsignar.SelectedValue))
Dim DtValida As DataTable = DtCuentasBancariasAsignar.FiltraParametros(String.Format("CveCuenta = {0}", DdlCuentasBancariasAsignar.SelectedValue))
If DdlCuentasBancariasAsignar.SelectedValue = "-2" Then
DtCuentasBancariasAsignar.Rows.Clear()
For Each Item As ListItem In DdlCuentasBancariasAsignar.Items
@@ -4571,7 +4567,7 @@ Partial Class Sistemas_UsuarioDetalle
If DdlEmpresaAsignarPermiso.SelectedValue.ToEntero > 0 Then
Dim CveEstatus As Integer = DdlEstatusOC.SelectedValue.ToEntero
Dim DtValida = DTEstatusOC.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus))
Dim DtValida As DataTable = DTEstatusOC.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus))
If DtValida.Rows.Count > 0 Then
If DtValida.Rows(0)("Accion").ToString = "2" Then
Dim dr = DTEstatusOC.Select(String.Format("CveEstatus = {0}", CveEstatus))
@@ -4672,7 +4668,7 @@ Partial Class Sistemas_UsuarioDetalle
'No hago nada nomas quito el modo edicion
GvEstatusOC.EditIndex = -1
Else
Dim DtValida = DTEstatusOC.FiltraParametros(String.Format("CveEstatus = {0}", GvEstatusOC.Rows(e.RowIndex).FCDropDownList("DdlEstatusOC").SelectedValue))
Dim DtValida As DataTable = DTEstatusOC.FiltraParametros(String.Format("CveEstatus = {0}", GvEstatusOC.Rows(e.RowIndex).FCDropDownList("DdlEstatusOC").SelectedValue))
If DtValida.Rows.Count > 0 Then
If DtValida.Rows(0)("Accion").ToString = "2" Then
Dim dr = DTEstatusOC.Select(String.Format("CveEstatus = {0}", GvEstatusOC.Rows(e.RowIndex).FCDropDownList("DdlEstatusOC").SelectedValue))
@@ -4731,8 +4727,8 @@ Partial Class Sistemas_UsuarioDetalle
For i = 2 To GvEstatusUsuariosREQ.Columns.Count - 1
If GvEstatusUsuariosREQ.Columns(i).FooterText <> String.Empty Then
Dim CveEstatus As Integer = GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero
Dim dtValida = dtReq.FiltraParametros($"CveEstatus={CveEstatus}")
GvEstatusUsuariosREQ.Columns(i).Visible = (dtValida IsNot Nothing AndAlso dtValida.Rows.Count = 1)
Dim DtValida As DataTable = dtReq.FiltraParametros($"CveEstatus={CveEstatus}")
GvEstatusUsuariosREQ.Columns(i).Visible = (DtValida IsNot Nothing AndAlso DtValida.Rows.Count = 1)
End If
Next
'Ordenes de compra
@@ -4740,8 +4736,8 @@ Partial Class Sistemas_UsuarioDetalle
For i = 2 To GvEstatusUsuariosOC.Columns.Count - 1
If GvEstatusUsuariosOC.Columns(i).FooterText <> String.Empty Then
Dim CveEstatus As Integer = GvEstatusUsuariosOC.Columns(i).FooterText.ToEntero
Dim dtValida = dtOC.FiltraParametros($"CveEstatus={CveEstatus}")
GvEstatusUsuariosOC.Columns(i).Visible = (dtValida IsNot Nothing AndAlso dtValida.Rows.Count = 1)
Dim DtValida As DataTable = dtOC.FiltraParametros($"CveEstatus={CveEstatus}")
GvEstatusUsuariosOC.Columns(i).Visible = (DtValida IsNot Nothing AndAlso DtValida.Rows.Count = 1)
End If
Next
End Sub
@@ -4752,7 +4748,7 @@ Partial Class Sistemas_UsuarioDetalle
Protected Sub LnkAgregarClasificacion_Click(sender As Object, e As EventArgs)
If DtClasificaciones IsNot Nothing Then
Dim CveClasificacion As Integer = DdlClasificacion.SelectedValue.ToEntero
Dim DtValida = DtClasificaciones.FiltraParametros(String.Format("CveClasificacion = {0}", CveClasificacion))
Dim DtValida As DataTable = DtClasificaciones.FiltraParametros(String.Format("CveClasificacion = {0}", CveClasificacion))
If DtValida.Rows.Count > 0 Then
If DtValida.Rows(0)("Accion").ToString = "2" Then
Dim dr = DtClasificaciones.Select(String.Format("CveClasificacion = {0}", CveClasificacion))