diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index f363d1dfe..fc78fae11 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -191,12 +191,12 @@ Public Class ClsCompras
                               AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer, CvePrePoliza As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional IdPoliza As Integer = -1,
                               Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1,
                               Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
-                              Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1) As Boolean
+                              Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_Comp_CompraAdd")
-
+        DataAdapter("PA_Comp_CompraAdd")
+
         With SqlAdapter.SelectCommand.Parameters
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
             .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
@@ -241,6 +241,7 @@ Public Class ClsCompras
             .Add("@CveTipoCompra", SqlDbType.Int).Value = CveTipoCompra
             .Add("@TotalOriginal", SqlDbType.Money).Value = TotalOriginal
             .Add("@CveTipoConcepto", SqlDbType.Int).Value = CveTipoConcepto
+            .Add("@CveFactura", SqlDbType.Int).Value = CveFactura
         End With
 
         Try
@@ -265,7 +266,7 @@ Public Class ClsCompras
                                  Descuento As Double, SubTotal As Double, IVA As Double, Total As Double, CveUsuario As Integer,
                                  CveCompra As Integer, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1,
                                  Optional CveProveedorSucursal As Integer = -1, Optional PorcentajeIVA As Double = 0,
-                                 Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Boolean = False) As Boolean
+                                 Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveFactura As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -291,6 +292,7 @@ Public Class ClsCompras
             .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso
             .Add("@CveTipoCompra", SqlDbType.Int).Value = CveTipoCompra
             .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible
+            .Add("@CveFactura", SqlDbType.Int).Value = CveFactura
         End With
 
         Try