From 32fdd53e4906400439705c733630bcbfd031a9f7 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Thu, 17 Oct 2019 13:16:50 -0700
Subject: [PATCH] Autocheck = true con AC

---
 Contabilidad/RegPrePoliza.aspx.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index 7f80edd22..f982fbcdd 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -212,8 +212,14 @@ Partial Class ContabilidadC_RegPrePoliza
                 End If
                 Exit Sub
             Else
+
                 CreaDT()
                 BtnEliminar.Visible = False
+
+                If UsuarioActual.Empresa.UsaAC Then
+                    ChkAutoConta.Checked = True
+                End If
+
             End If
 
 
@@ -889,7 +895,7 @@ Partial Class ContabilidadC_RegPrePoliza
                     Next
 
                     'El movimiento 2 es el de Pago
-                    If ChkAutoConta.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+                    If ChkAutoConta.Checked AndAlso MsgError = "" Or UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
                         If idCuentaContabilizacion > 0 Then
                             If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then