diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 490277a3b..6319cb177 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -802,7 +802,7 @@ Partial Class Inventarios_EntradasSalidas
                 RowTipoCambio.Visible = True
                 LbTipoCambio.Text = DtMov.Rows(0)("TipoCambio").ToString
             End If
-            Dim TMDsTR = DtMov.Rows(0)("CveMtoRel").ToString
+            Dim TMDsTR As String = DtMov.Rows(0)("CveMtoRel").ToString
             If TMDsTR.Length > 0 Then
                 RowMtoRel.Visible = True
                 lnkMtoRelacionado.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & TMDsTR
@@ -1359,7 +1359,7 @@ Partial Class Inventarios_EntradasSalidas
             Dim Conta As New ClsContabilidad(Inv.IniciaTransacSQL())
             Dim ObjGral As New ClsGenerales(Inv.IniciaTransacSQL())
 
-            Dim TieneError = False
+            Dim TieneError As Boolean = False
 
             Dim ObjConta As ClsContPAQi = Nothing
             If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then
@@ -1614,8 +1614,8 @@ Partial Class Inventarios_EntradasSalidas
             Try
 
                 'Para Campos Nuevos AF y OC
-                Dim SubProyecto = -1
-                Dim ActivoFijo = -1
+                Dim SubProyecto As Integer = -1
+                Dim ActivoFijo As Integer = -1
 
                 If UsuarioActual.CveEmpresa = 66 AndAlso (DdlConcepto.SelectedValue.ToEntero = 3 Or DdlConcepto.SelectedValue.ToEntero = 11) Then
                     SubProyecto = DdlSubProyecto.SelectedValue.ToEntero
@@ -1763,7 +1763,7 @@ Partial Class Inventarios_EntradasSalidas
 
                     'GUARDAR
                 Else
-                    Dim Fecha = String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime).ToDate
+                    Dim Fecha As Date = String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime).ToDate
                     Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero))
                     Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero))
 
@@ -2033,7 +2033,7 @@ Partial Class Inventarios_EntradasSalidas
 
                                     If IDPoliza > 0 Then
                                         If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                                            Dim DtMovtos = ObjInventario.DtResultados
+                                            Dim DtMovtos As DataTable = ObjInventario.DtResultados
                                             Importe = DtMovtos.SUMD("Total", "Estatus = ''")
 
                                             If Importe > 0 Then
@@ -2197,8 +2197,7 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
         TdSeriePS.Visible = False
-
-        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoBarras.Text}'")
+        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoBarras.Text}'")
         If DrPS Is Nothing Then
             Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoBarras.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -2294,7 +2293,7 @@ Partial Class Inventarios_EntradasSalidas
         DdlConcepto.Items.Clear()
 
         Dim filtro As String = ""
-        Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+        Dim CveTipoAlmacen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
 
         Me.CveTipoAlmacenSeleccionado = CveTipoAlmacen
 
@@ -2438,7 +2437,7 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
         If CveMovimiento <= 0 Or EsNuevoMov Then SiguienteFolio()
-        Dim CveConcepto = DdlConcepto.SelectedValue
+        Dim CveConcepto As String = DdlConcepto.SelectedValue
 
         DivCodigoBarras.Visible = False
         TxtFecha.Enabled = True
@@ -2652,7 +2651,7 @@ Partial Class Inventarios_EntradasSalidas
         'TrBatch2.Visible = False
         'GvM.Columns(11).Visible = False
 
-        Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
+        Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
         tdPUExtranjero.Visible = False
         tdPUExtranjero2.Visible = False
         GvM.Columns(6).Visible = False
@@ -2778,7 +2777,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 End If
 
-                Dim Cantidad = e.Row.FCLiteral("lbCantidad").Text.ToDecimal
+                Dim Cantidad As Decimal = e.Row.FCLiteral("lbCantidad").Text.ToDecimal
                 If Not UsuarioActual.TienePermisoProceso(265) Or Cantidad <= 1 Or Cantidad Mod 1 <> 0 Then
                     e.Row.FCLinkButton("lnkDividir").Visible = False
                 End If
@@ -2925,10 +2924,10 @@ Partial Class Inventarios_EntradasSalidas
             If Drs.Count > 0 Then
                 Dim Cantidad As Integer = Drs(0)("Cantidad").ToString.ToEntero
 
-                Dim CvePS = Drs(0)("CvePS")
-                Dim Producto = Drs(0)("CodigoPS")
-                Dim PU = Drs(0)("PU")
-                Dim CveSeccion = Drs(0)("CveSeccionAlmacen")
+                Dim CvePS As Integer = Drs(0)("CvePS").ToString.ToEntero
+                Dim Producto As String = Drs(0)("CodigoPS").ToString
+                Dim PU As Decimal = Drs(0)("PU").ToString.ToDecimal
+                Dim CveSeccion As Integer = Drs(0)("CveSeccionAlmacen").ToString.ToEntero
 
                 Drs(0)("Cantidad") = "1"
                 Drs(0)("Total") = PU
@@ -2990,7 +2989,7 @@ Partial Class Inventarios_EntradasSalidas
 
         'DEVENGAR
         Dim IDPoliza As Integer
-        Dim ErrorAC = False
+        Dim ErrorAC As Boolean = False
         Dim TotalPorDevengar As Double = 0
         Dim Folio As String = ""
         Dim Fecha As Date = TxtFecha.Text.ToDate
@@ -3159,8 +3158,6 @@ Partial Class Inventarios_EntradasSalidas
     Private Sub InicializaBitacoraTemporal()
 
         DivBitacora.Visible = True
-
-
         If CveMovimiento > 0 Then
             CargaEventoBitacora()
         Else
@@ -3227,9 +3224,8 @@ Partial Class Inventarios_EntradasSalidas
             Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, Now.ToString("HH-mm")), String.Format("{0}OI\Temp", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
         End If
 
-
         'AGREGA
-        Dim Dr = DtBitacora.NewRow
+        Dim Dr As DataRow = DtBitacora.NewRow
         Dr("FechaIng") = Now
         Dr("FechaInicio") = ""
         Dr("Usuario") = UsuarioActual.Usuario
@@ -3242,15 +3238,12 @@ Partial Class Inventarios_EntradasSalidas
         Dr("CveEmpresa") = UsuarioActual.CveEmpresa
         DtBitacora.Rows.Add(Dr)
 
-
         'LIMPIA
         TxtEventoDescripcion.Text = ""
         'ChkEventoPrioridad.Checked = False
         RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
 
         CargaEventoBitacoraTemp()
-
-
     End Sub
     Private Sub CargaEventoBitacoraTemp()
         GvBitacora.DataSource = DtBitacora
@@ -3259,7 +3252,7 @@ Partial Class Inventarios_EntradasSalidas
         UPEventoBitacora.Update()
     End Sub
     Private Function GuardaBitacoraTemporal(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         Dim Archivo As System.IO.FileInfo = Nothing
 
         For Each Dr As DataRow In DtBitacora.Rows
@@ -3377,11 +3370,10 @@ Partial Class Inventarios_EntradasSalidas
         If TxtCodigoPS.Text.Trim = "" Then
             Exit Sub
         End If
-
         TdSeriePS.Visible = False
         TdSeccionPSAdd.Visible = False
 
-        Dim Dr = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoPS.Text}'")
+        Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoPS.Text}'")
         If Dr Is Nothing Then
             Alert($"No se ha encontrado un producto con el Codigo ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(FocusAdd,200);")
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -3866,11 +3858,11 @@ Partial Class Inventarios_EntradasSalidas
 
             If tmpCostos.Rows.Count > 0 Then
                 Dim Concepto As String = If(TxtObservaciones.Text = "", ConceptoPoliza, $" {TxtObservaciones.Text}")
-                Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                 CvePrePolizaRegistrada = CvePrePoliza
 
                 If HplCompra.Visible AndAlso HplCompra.Text <> "" Then
-                    ValorInventario = DtCostos.SUM("Total").ToString.ToDecimal
+                    ValorInventario = DtCostos.SUMD("Total")
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, ValorInventario, 205, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteME:=ValorInventario, CveCompra:=HdnCveCompra.Value.ToEntero, TipoCambio:=LbTipoCambio.Text.ToDecimal) Then
                         ErrorMovInv = True
                     End If
@@ -3948,7 +3940,7 @@ Partial Class Inventarios_EntradasSalidas
                                             End If
                                         Else
 
-                                            Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
+                                            Dim tCveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
                                             Dim tCveConcepto As Integer = 69
                                             If ObjInventario.CveConcepto = 37 Then
                                                 tCveConcepto = 181
@@ -4347,7 +4339,7 @@ Partial Class Inventarios_EntradasSalidas
             If CvePS > 0 Then
                 Using ObjPS As New ClsProductosServicios()
                     If ObjPS.GetPS(CvePS, -1, UsuarioActual.CveEmpresa) AndAlso ObjPS.DtResultados.Rows.Count > 0 Then
-                        Dim CvePSAdicionalVigencia = ObjPS.DtResultados.Rows(0)("CvePSAdicionalVigencia").ToString.ToEntero()
+                        Dim CvePSAdicionalVigencia As Integer = ObjPS.DtResultados.Rows(0)("CvePSAdicionalVigencia").ToString.ToEntero()
                         Dim CodigoPSVigencia As String = ObjPS.DtResultados.Rows(0)("CodigoPSVigencia").ToString
                         'SI EXISTE UN MOVIMIENTO DE VIGENCIA
                         If CvePSAdicionalVigencia > 0 Then
@@ -4708,7 +4700,7 @@ Partial Class Inventarios_EntradasSalidas
         Dim ValorSalida As Decimal = 0
         Dim ImporteConcepto As Decimal = 0
         Dim tConcepto As String = TxtObsCambioVigencia.Text.Trim
-        Dim Fecha = TxtFechaCambio.Text.ToDate.ToString("yyyy/MM/dd").ToDate
+        Dim Fecha As Date = TxtFechaCambio.Text.ToDate.ToString("yyyy/MM/dd").ToDate
         Dim tCveSubProyecto As Integer = -1
         Dim TipoMovto As Boolean = False
 
@@ -4942,7 +4934,7 @@ Partial Class Inventarios_EntradasSalidas
     Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
         Dim dt As New DataTable
         'Dim Conexion As Odbc.OdbcConnection = Nothing
-        Dim ErrorArchivo = False
+        Dim ErrorArchivo As Boolean = False
         Dim n As Integer = 0
         Try
             Select Case Tipo
@@ -5427,8 +5419,7 @@ Partial Class Inventarios_EntradasSalidas
         If CveMovimiento > 0 Then
             Dim ObjInventario As New ClsInventarios
             ObjInventario.IniciaTransacSQL()
-
-            Dim Retorno = GenerarMovimientoVirtual(Me.CveMovimiento, ObjInventario)
+            Dim Retorno As MMovimientoVirtual = GenerarMovimientoVirtual(Me.CveMovimiento, ObjInventario)
 
             If Retorno.TieneError Then
                 ObjInventario.RollBack()
@@ -5476,7 +5467,7 @@ Partial Class Inventarios_EntradasSalidas
                     FolioVirtual = ObjInventario.Folio
 
                     For Each RowUsado As DataRow In DtPSVirtual.Rows
-                        Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                        Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero()
                         Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
                         Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
                         Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
@@ -5502,7 +5493,7 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
     Private Sub GeneraPDFFactura()
         Try
-            Dim objFactura = CreaObjetosVenta()
+            Dim objFactura As Modelos.Factura = CreaObjetosVenta()
             PdfFactura(objFactura)
             objFactura.Dispose()
         Catch ex As Exception
@@ -5511,7 +5502,7 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
     Private Function CreaObjetosVenta() As Modelos.Factura
-        Dim ObjFactura = New Modelos.Factura
+        Dim ObjFactura As New Modelos.Factura
         ObjFactura.Version = "3.3"
         ObjFactura.CveUsuario = UsuarioActual.CveUsuario
         ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
@@ -5913,7 +5904,7 @@ Partial Class Inventarios_EntradasSalidas
 
             MensajeAlert.Append("Emitido con éxito.")
             'XML
-            Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
+            Dim ArchivoXML As String = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
             If File.Exists(ArchivoXML) Then
                 MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
             End If
@@ -5942,13 +5933,12 @@ Partial Class Inventarios_EntradasSalidas
 
     Private Sub CargaDireccionesEnvio()
         Dim ObjClientes As New ClsClientes
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         DdlDireccionEnvio.Items.Clear()
         If ObjClientes.DireccionEnvioGet(-1, DdlClienteCarta.SelectedValue.ToEntero, -1) Then
             DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
             DdlDireccionEnvio.DataBind()
-
         Else
             TieneError = True
         End If
@@ -5956,19 +5946,14 @@ Partial Class Inventarios_EntradasSalidas
         If TieneError Then
             Alert("Ocurrió un error al obtener las direcciones de envío", TipoMensaje.MsgError)
         End If
-
         ObjClientes.Dispose()
-
-
         DdlDireccionEnvio.Items.Add(New ListItem("Seleccione  una", "-1"))
-
         UpEmitirTransitorio.Update()
 
     End Sub
 
 #End Region
 
-
     Private Class MMovimientoVirtual
         Public Property CveMovimientoVirtual As Integer
         Public Property FolioVirtual As String