From 2e3056d51006d951bd6076a6da51d7309d5260d4 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 25 Feb 2022 16:07:10 -0700
Subject: [PATCH] E140, vendedor obligatorio para facturar

---
 Ventas/Ventas.aspx.vb | 34 ++++++++++++++++++++--------------
 1 file changed, 20 insertions(+), 14 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4126cd2d3..027bef8cf 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7504,6 +7504,13 @@ Partial Class Ventas
                         e.Row.FCLinkButton("imgE").Visible = False
                         e.Row.FCLinkButton("imgD").Visible = False
                     End If
+
+                    'EN BDH NO DEBE PODER EDITAR LOS PS
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                        e.Row.FCLinkButton("imgE").Visible = False
+                        e.Row.FCLinkButton("imgD").Visible = False
+                    End If
+
                 End If
 
                 'CANTIDAD FACTURADA
@@ -8164,6 +8171,12 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        'VENDEDOR OBLIGATORIO
+        If DdlVendedor.SelectedValue.ToEntero() <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then
+            Alert("Debe seleccionar un vendedor.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         'SI TIENE ANTICIPOS Y ESTA AMORTIZADO AL 100% EL DOCUMENTO (SALDO = 0) | NO VALIDA PU DEL CONCEPTO
         If Not (LblAmortizacion.Text.ToDouble > 0 And TxtTotal.Text.ToDouble <= 0) Then
             If Not DdlTipoComprobante.SelectedValue.Contiene("Ped", "Ant", "DPe") Then
@@ -17235,7 +17248,7 @@ Partial Class Ventas
         DdlVendedorSucursal.SelectedValue = Nothing
 
         If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
-            DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("(CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1")
+            DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros(String.Format("VendedorTipo IN (1,4) AND (CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue))
         Else
             DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1")
         End If
@@ -17281,11 +17294,11 @@ Partial Class Ventas
         End If
 
         If CveVendedorActual > 0 Then
-            Dim VendedorActual As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {CveVendedorActual}")
+            Dim VendedorActual As String = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltroPrimeroValor("Vendedor", $"CveVendedor = {CveVendedorActual}")
             'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV
-            If String.IsNullOrEmpty(VendedorActual) Then
-                VendedorActual = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedorActual))
-            End If
+            'If String.IsNullOrEmpty(VendedorActual) Then
+            '    VendedorActual = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedorActual))
+            'End If
 
             If String.IsNullOrEmpty(VendedorActual) Then
                 DdlVendedor.SelectedValueExist(CveVendedorActual)
@@ -17294,17 +17307,10 @@ Partial Class Ventas
             End If
         End If
 
-        If UsuarioActual.CveEmpresa = 140 Then
-            If Not UsuarioActual.TienePermisoProceso(161) Then
-                DdlVendedor.Enabled = False
-            End If
-        Else
-            If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
-                DdlVendedor.Enabled = False
-            End If
+        If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
+            DdlVendedor.Enabled = False
         End If
 
-
         'multiples vendedores visible
         If UsuarioActual.TienePermisoProceso(153) Then
             DdlVendedor.Enabled = True