diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index e8df55bcc..be7ba0a55 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2992,7 +2992,7 @@ Partial Class Inventarios_EntregaAlmacen
             If tmpCostos.Rows.Count > 0 Then
 
 
-                If ObjVentas.GetVenta(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
+                If ObjVentas.GetVenta(CveVentaSurtir, UsuarioActual.CveEmpresa, False) Then
                     Dim Fecha As Date = TxtFecha.Text.ToDate ' If(TipoMovimiento <> 1, TxtFecha.Text.ToDate, ObjVentas.DtResultados(0)("Fecha").ToString().ToDate)
                     Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString().ToEntero()
                     Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString()