diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 14ef4ef01..7b0b077a3 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9732,7 +9732,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 = Nothing '= New ClsContPAQi(UsuarioActual.Empresa)
 
         Dim Retorno As Boolean = True
         Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero