diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 794311cff..20c9453cf 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -8216,7 +8216,7 @@ Public Class ClsPaginas
         TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
         TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
 
-        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
             Dim dtVentas As DataTable = ObjVentas.DtResultados
 
             ' se rellenan los campos de  la factura