diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index b93c5b5f8..9cf5cae5f 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2459,9 +2459,9 @@ Partial Class Inventarios_RecepcionAlmacen
                     Dim TotalPorDevengar = 0.0
                     TotalPorDevengar += GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Math.Round(Gvr.DataKey("PU").ToString.ToDouble, 4) * Math.Round(Gvr.DataKey("CantidadF").ToString.ToDouble, 4))
                     TotalPorDevengar = Math.Round(TotalPorDevengar, 4)
-                    If ObjContaContPAQ Is Nothing Then
-                        ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                        ObjContaContPAQ.IniciaTransacSQL()
+                    If ObjContaAC Is Nothing Then
+                        ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+                        ObjContaAC.IniciaTransacSQL()
                     End If
 
                     IDPoliza = ObjContaAC.AddPoliza(4, "Devengado", TotalPorDevengar * 2, TotalPorDevengar * 2, UsuarioActual.CveUsuario, FechaMovto)