diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 58302d495..dd7cfaddb 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -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("") @@ -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))