diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 7913c74ab..66f0a2f72 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1819,7 +1819,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                 For Each Dr As DataRow In DtDatos.Rows
                     FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString() <> "", Dr("FechaCaducidad").ToString().ToDate, MinFecha)
-                    Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1")
+                    Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString().Trim, "-1")
 
                     If Not ValidaLoteCaducidad Then
                         FechaCaducidad = MinFecha