diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 11c6901a0..221b694d8 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -952,7 +952,7 @@ Partial Class PopUpVerFactura
             Dim EnvioContacto As String = ""
             Dim EnvioDireccion As String = ""
             Dim Guia As String = ""
-            If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+            If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) Then
                 If ObjVentas.DtResultados.Rows.Count > 0 Then
                     SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString
                     PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString
@@ -1838,7 +1838,7 @@ Partial Class PopUpVerFactura
         TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double))
         TmpDTImpuestosIVAIEPS.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
@@ -4849,7 +4849,7 @@ Partial Class PopUpVerFactura
         Dim drv As DataRow = Nothing
 
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
             drv = ObjVentas.DtResultados.FiltroPrimero("")
         End If
         ObjVentas.Dispose()