-- autoconta E140

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