--FIX merge ventas

Ventas/Ventas.aspx.vb

@@ -9842,6 +9842,11 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlVendedor.SelectedValue.ToEntero <= 0 Then ' SMS. vendedor requerido
+            Alert("El Vendedor es requerido. Favor de seleccionarlo", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If Not ValidaImportePublicoGeneral() Then
             Exit Sub
         End If
@@ -11053,6 +11058,7 @@ Partial Class Ventas
 
                     'ContPAQ El movimiento 1 es el de Venta
                     Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+                    If UsuarioActual.Empresa.TipoContabilidad = 1 Then AutoConta = True
                     AutoConta = AutocontaMatriz(AutoConta)
 
                     If DdlTipoComprobante.SelectedValue.Contiene("Rem", "RNC", "Cot", "Ped", "PA") Then
@@ -11063,9 +11069,6 @@ Partial Class Ventas
                         AutoConta = False
                     End If
 
-                    If UsuarioActual.CveEmpresa = 140 Then
-                        AutoConta = True
-                    End If
 
                     If ErrorList.Count = 0 AndAlso ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=5, AutoConta:=AutoConta) Then
                         If ObjConta.ValorPolizaDescuadre > 0 Then
@@ -11074,17 +11077,6 @@ Partial Class Ventas
                         End If
                     End If
 
-                    'Try
-                    '    If AutoConta Then
-                    '        If Not ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa) Then
-                    '            ErrorList.Add("Ocurrió un error al contabilizar, pongase en contacto con soporte técnico")
-                    '        End If
-                    '    End If
-                    'Catch ex As Exception
-                    '    ErrorList.Add("Ocurrió un error al contabilizar, pongase en contacto con soporte técnico")
-                    '    OnError("Ocurrió un error al contabilizar la factura", ex)
-                    'End Try
-
                     If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso (SeGuardoPrePoliza Or ObjFactura.TipoDocto.Contiene("Ped", "Cot", "DPe", "PeC", "PA")) Then
                         ObjVentas.Commit()
 
@@ -26640,7 +26632,7 @@ Partial Class Ventas
                         ChkDevAlm.Checked = True
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFacturaCancelacion.TipoDocto = "Rem" Then
+                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Ing") Then
                         ChkDevAlm.Checked = True
                     End If