- option explicit

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 Para As String = TxtCorreo.Text.Trim
-            Dim Asunto = "ALTA DE CUENTA"
+            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 DtValida As DataTable = dtReq.FiltraParametros($"CveEstatus={CveEstatus}")
-                        Dim Habilitado As Boolean = (dtValida IsNot Nothing AndAlso dtValida.Rows.Count = 1)
+                        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 DtValida As DataTable = dtOC.FiltraParametros($"CveEstatus={CveEstatus}")
-                        Dim Habilitado As Boolean = (dtValida IsNot Nothing AndAlso dtValida.Rows.Count = 1)
+                        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 ErrorEmpresa As Boolean = False
-        Dim TienePermiso = 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}")
+                Dim DtValida As DataTable = dtReq.FiltraParametros($"CveEstatus={CveEstatus}")
-                GvEstatusUsuariosREQ.Columns(i).Visible = (dtValida IsNot Nothing AndAlso dtValida.Rows.Count = 1)
+                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}")
+                Dim DtValida As DataTable = dtOC.FiltraParametros($"CveEstatus={CveEstatus}")
-                GvEstatusUsuariosOC.Columns(i).Visible = (dtValida IsNot Nothing AndAlso dtValida.Rows.Count = 1)
+                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))