diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index 664ff0a41..7ae714df8 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -100,7 +100,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim ObjInventario As New ClsInventarios
 
         If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
-            Dim CveEstatus = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
+            Dim CveEstatus As String = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
             Select Case CveEstatus
                 Case "0" 'NUEVO
                     CveSubProyecto = ObjInventario.CveSubProyectoInventario
@@ -341,23 +341,21 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim CveSeccionAlmacen As Integer = -1
         Dim SeccionAlmacen As String = ""
 
-        Dim Cantidad = TxtCantidadProducto.Text.ToDouble
+        Dim Cantidad As Double = TxtCantidadProducto.Text.ToDouble
 
         Dim dr As DataRow
         'dr = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}' OR Codigo = '{Codigo}' ")
         dr = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}' OR Codigo = '{Codigo}'")
 
-
-
         If dr IsNot Nothing Then
 
             CveProducto = dr("CvePS").ToString.ToEntero
             CveUnidadMedida = dr("CveUnidadMedida").ToString.ToEntero
             'Dim AplicaSeccion As Boolean = dr("AplicaSeccion") = "1"
-            Dim AplicaCaducidad As Boolean = dr("AplicaCaducidad").ToString = "1"
-            Dim AplicaLote As Boolean = dr("AplicaLote").ToString = "1"
-            Dim AplicaSerie As Boolean = dr("AplicaSerie").ToString = "1"
-            Dim AplicaSeccion As Boolean = dr("AplicaSeccion").ToString = "1"
+            Dim AplicaCaducidad As Boolean = dr("AplicaCaducidad").ToString = "True"
+            Dim AplicaLote As Boolean = dr("AplicaLote").ToString = "True"
+            Dim AplicaSerie As Boolean = dr("AplicaSerie").ToString = "True"
+            Dim AplicaSeccion As Boolean = dr("AplicaSeccion").ToString = "True"
 
             'divSeccionAlmacen.Visible = AplicaSeccion
             divLote.Visible = AplicaLote
@@ -643,7 +641,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
             params.Add(New ReportParameter("FechaFin", lbFechaF.Text))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
             ImprimirPDF("Empresas/Grales/Formatos/RepInventarioFisicoDetalle.rdlc", DtDatos, params, String.Format("Reporte Inventario Físico-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
@@ -669,7 +667,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim NombreArchivo As String
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim workbook As New ExcelFile()
-        Dim worksheet = workbook.Worksheets.Add("Productos")
+        Dim worksheet As ExcelWorksheet = workbook.Worksheets.Add("Productos")
         worksheet.InsertDataTable(DtPS, New InsertDataTableOptions() With
              {
                  .ColumnHeaders = True,
@@ -682,8 +680,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
         'worksheet.Columns("Q").Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(217, 217, 217), SpreadsheetColor.FromArgb(255, 255, 255))
         worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(217, 217, 217), SpreadsheetColor.FromArgb(255, 255, 255))
 
-        Dim columnCount = worksheet.CalculateMaxUsedColumns()
-        For i = 0 To columnCount
+        Dim columnCount As Integer = worksheet.CalculateMaxUsedColumns()
+        For i As Integer = 0 To columnCount
             worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
         Next