From bc745c657b35fc4e7c8eaeef3087089177ad1e45 Mon Sep 17 00:00:00 2001
From: Desarrollo2019 <Desarrollo2019@DESKTOP-F7RCSVR>
Date: Thu, 22 Aug 2019 09:09:23 -0700
Subject: [PATCH] Auto Contabilizar en RepRembolsoComprobaciones

---
 Compras/RepRembolsoComprobaciones.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb
index f0681b57d..0b499174b 100644
--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/Compras/RepRembolsoComprobaciones.aspx.vb
@@ -161,7 +161,7 @@ Partial Class Compras_RepRembolsoComprobaciones
         Dim ObjComp As New ClsCompras()
         Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL)
         Dim ObjAC As ClsContPAQi = Nothing
-        If UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.UsaContabilidad Then
             ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
             ObjAC.IniciaTransacSQL()
         End If
@@ -198,7 +198,7 @@ Partial Class Compras_RepRembolsoComprobaciones
             Msg.AppendFormat("Se unificaron todas las compras con éxito")
         End If
 
-        If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
+        If UsuarioActual.Empresa.UsaContabilidad AndAlso Not TieneError Then
             If ObjAC Is Nothing Then
                 TieneError = True
             End If