diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 13fe60ac7..b54edbe9a 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -966,7 +966,8 @@ Partial Class Inventarios_EntregaAlmacen
                 If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
                     e.Row.FCTextBox("TxtCaducidad").Visible = True
                     e.Row.FCLinkButton("LnkCaducidad").Visible = True
-                    e.Row.FCTextBox("TxtCaducidad").readonly = True
+                    'e.Row.FCTextBox("TxtCaducidad").readonly = True
+                    e.Row.FCTextBox("TxtCaducidad").enabled = True
                 Else
                     e.Row.FCTextBox("TxtCaducidad").Visible = False
                     e.Row.FCLinkButton("LnkCaducidad").Visible = False
@@ -974,7 +975,8 @@ Partial Class Inventarios_EntregaAlmacen
 
                 If CBool(e.Row.DBCampo("AplicaLote")) Then
                     e.Row.FCTextBox("TxtLote").Visible = True
-                    e.Row.FCTextBox("TxtLote").readonly = True
+                    ' e.Row.FCTextBox("TxtLote").readonly = True
+                    e.Row.FCTextBox("TxtLote").enabled = True
                 Else
                     e.Row.FCTextBox("TxtLote").Visible = False
                 End If
@@ -1743,8 +1745,8 @@ Partial Class Inventarios_EntregaAlmacen
         If ObjInventario.EntregaAlmacenGet(CveVentaSurtir) Then
             DtDatosVenta = ObjInventario.DtResultados
         End If
-        Dim CantidadGV = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
-        If CantidadGV <> DtDatosVenta.SUM("CantidadF").ToDecimal Then
+        Dim CantidadGV As Decimal = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
+        If CantidadGV <> DtDatosVenta.SUMD("CantidadF") Then
             ObjInventario.RollBack()
             ObjInventario.Dispose()
             ObjConta.Dispose()