From c87c9d75a5c96ca9c3b692f820ac3b26820bc250 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 26 Jul 2024 17:37:41 -0700
Subject: [PATCH] -- mejora en manejo de vendedores asignados a distribuidores

---
 Ventas/PV.aspx.vb | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 31faf3fc8..9215c6c91 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2639,6 +2639,10 @@ Partial Class PV
                             LbVendedor.Text = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {ObjCliente.Vendedor}")
                         End If
 
+                        If ObjCliente.Vendedor <> "" Then
+                            DdlVendedor.SelectedValueExistInsert(ObjCliente.DtResultados(0)("CveVendedor"), LbVendedor.Text)
+                        End If
+
                         ' si es empresa acumuladores
                         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                             CargaPorcentajeMarcas()
@@ -3023,9 +3027,11 @@ Partial Class PV
 
         Dim DtVendedores As DataTable = Nothing
 
-        Dim ObjVendedores As New ClsVtaVendedores
-        If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then DtVendedores = ObjVendedores.DtResultados.Copy
-        ObjVendedores.Dispose()
+        'Dim ObjVendedores As New ClsVtaVendedores
+        'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then DtVendedores = ObjVendedores.DtResultados.Copy
+        'ObjVendedores.Dispose()
+
+        DtVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa)
 
         If DtVendedores IsNot Nothing Then
             If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
@@ -3035,12 +3041,14 @@ Partial Class PV
             End If
         End If
 
-
         DdlVendedor.SelectedValue = "0"
         DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
         DdlVendedor.DataBind()
 
-        DdlVendedor.SelectedValueExist(CveVendedorActual)
+        If CveVendedorActual > 0 Then
+            Dim tt As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", "CveVendedor =" & CveVendedorActual)
+            DdlVendedor.SelectedValueExistInsert(CveVendedorActual, tt)
+        End If
 
         If Not DdlVendedor.SelectedValue.ToEntero > 0 Then
             DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString)