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