From 132fe0e0b3191f07509553d6564212f22e26c0de Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 26 Apr 2022 08:00:46 -0700
Subject: [PATCH] -- autoconta E140

---
 Ventas/Ventas.aspx.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index eaea4a866..9c62cc0e1 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9124,6 +9124,10 @@ Partial Class Ventas
                             AutoConta = False
                         End If
 
+                        If UsuarioActual.CveEmpresa = 140 Then
+                            AutoConta = True
+                        End If
+
                         If AutoConta Then
                             If idCuentaContabilizacion > 0 Then
                                 If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
@@ -9156,9 +9160,6 @@ Partial Class Ventas
 
                         ViewState("CveVenta") = ObjFactura.CveVenta
 
-
-
-
                         If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
 
                             If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveEmbarqueManifiesto").ToEntero()) Then
@@ -9167,7 +9168,6 @@ Partial Class Ventas
                         End If
                         GVAnticipos.DataBind()
 
-
                         Try
                             Dim DirectoriArchivoXML As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto) ' System.IO.Path.Combine()
                             If Not Directory.Exists(DirectoriArchivoXML) Then