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