From 4bf28b46737ce72065d85715ca01c22959c85f97 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 19 Oct 2022 09:14:36 -0700
Subject: [PATCH] =?UTF-8?q?--=20usuario=20contabilizaci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6db7b064a..80c768d05 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8482,8 +8482,6 @@ Partial Class Compras_Compras
 
                     Next
 
-
-
                     If ErrorMovtosCxP = 0 And CvePrePolizaNueva > 0 Then
 
                         If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
@@ -8492,7 +8490,7 @@ Partial Class Compras_Compras
                                 ObjContaAC.IniciaTransacSQL()
                             End If
 
-                            If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveEmpresa, UsuarioActual.Empresa, MinFecha, "", ObjContaAC) Then
+                            If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa, MinFecha, "", ObjContaAC) Then
                                 ErrorMovtosCxP = 3
                             End If