diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx
index 48a1e6086..6a15e7ad1 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx
+++ b/Inventarios/InventarioFisicoDetalle.aspx
@@ -229,7 +229,7 @@
                                 <div class="row" style="margin-top: 5px;">
                                     <label class="col-md-4">Código.Barras</label>
                                     <div class="col-md-8">
-                                        <asp:TextBox runat="server" ID="TxtCodigoBarras" OnTextChanged="TxtCodigoBarras_Change" AutoPostBack="true"></asp:TextBox>
+                                        <asp:TextBox runat="server" ID="TxtCodigoBarras"  ></asp:TextBox>
                                     </div>
                                 </div>
                                 <div class="row" style="margin-top: 5px;" runat="server" id="divSerie" visible="false">
diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index 3bfb676f9..4cc513ac3 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -229,6 +229,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
         If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then
             If Inventario.DtResultados.Rows.Count > 0 Then
                 GvIFD.Columns(4).Visible = Inventario.DtResultados.MAX("CveSeccionAlmacen", "CveSeccionAlmacen IS NOT NULL").ToEntero > 0
+                GvIFD.Columns(5).Visible = Inventario.DtResultados.MAX("SerieLote") <> ""
                 GvIFD.Columns(6).Visible = Inventario.DtResultados.MAX("Lote") <> ""
                 GvIFD.Columns(7).Visible = Inventario.DtResultados.MAX("FechaCaducidad", "FechaCaducidad IS NOT NULL").ToDate > MinFecha
                 GvIFD.DataSource = Inventario.DtResultados '.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(500).CopyToDataTable
@@ -333,16 +334,16 @@ Partial Class Inventarios_InventarioFisicoDetalle
                                                           CveSeccionAlmacen:=-1, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then
 
                     GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0
-                    GvIFDUltimoRegistrado.Columns(5).Visible = Serie <> "-1"
+                    GvIFDUltimoRegistrado.Columns(5).Visible = Serie <> ""
                     GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1"
-                    GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad <> "01/01/1900"
+                    GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad.ToDate > MinFecha
 
                     If GvIFDUltimoRegistrado.Rows.Count > 0 Then
 
                         GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
                         GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
                         GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
-                        GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
+                        GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PSCodigo").ToString
                         GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = ""
                         GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCodigoSerie.Text.Trim
                         GvIFDUltimoRegistrado.Rows(0).Cells(6).Text = Lote
@@ -559,18 +560,21 @@ Partial Class Inventarios_InventarioFisicoDetalle
         '
     End Sub
 
-    Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs)
-        Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'")
+    'Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs)
+    '    Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'")
 
-        Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
-        Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
-        Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
-        Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
+    '    If Producto IsNot Nothing Then
+    '        Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
+    '        Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
+    '        Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
+    '        Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
 
-        'divSeccionAlmacen.Visible = AplicaSeccion
-        divLote.Visible = AplicaLote
-        divFechaCaducidad.Visible = AplicaCaducidad
-        divSerie.Visible = AplicaSerie
-        UPAgregarPro.Update()
-    End Sub
+    '        'divSeccionAlmacen.Visible = AplicaSeccion
+    '        divLote.Visible = AplicaLote
+    '        divFechaCaducidad.Visible = AplicaCaducidad
+    '        divSerie.Visible = AplicaSerie
+    '    End If
+
+    '    UPAgregarPro.Update()
+    'End Sub
 End Class