From f2d48fbc646739fa3a555d3344cb4ea4dba3d113 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 30 Jun 2020 20:48:47 -0700
Subject: [PATCH] cambio de objeto AC, al usar AC

---
 Inventarios/RecepcionAlmacen.aspx.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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)