diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 40a1431b5..198ef02e0 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9802,7 +9802,7 @@ Partial Class Compras_Compras
         Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL)
         Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL)
         Dim ObjAF As New ClsAF(ObjCompra.IniciaTransacSQL)
-        Dim ObjContaAC As ClsContPAQi = New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjContaAC As ClsContPAQi  '= New ClsContPAQi(UsuarioActual.Empresa)
 
         Dim Retorno As Boolean = True
         Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero