E140. Catalogo de vendedores de sucursal en clientes.aspx, seleccionar desde ventas.aspx

Ventas/Ventas.aspx.vb

@@ -6111,6 +6111,10 @@ Partial Class Ventas
         End If
         BloqueaCondiconesPago()
         DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
     End Sub
 
     Private Sub CargaRelacionadasPendientes()
@@ -16572,6 +16576,10 @@ Partial Class Ventas
         End If
         ObjSubProyectos.Dispose()
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
+
         UpDetalle.Update()
     End Sub
     Private Sub CambiaSucursal(Optional RecargarPartidas As Boolean = True)
@@ -16766,6 +16774,10 @@ Partial Class Ventas
         DdlVendedor.SelectedValue = "0"
         DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
+
         DdlVendedorSucursal.DataSource = DdlVendedor.DataSource
 
         DdlVendedor.DataBind()
@@ -32592,6 +32604,24 @@ Partial Class Ventas
         UpModalSolicitud.Update()
     End Sub
 
+    Private Sub CargaVendedoresSubProyectos()
+
+        Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())
+
+        If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then
+            DdlVendedor.Items.Clear()
+            DdlVendedor.SelectedValue = Nothing
+
+            DdlVendedor.DataSource = DtVendedoresSucursales
+            DdlVendedor.DataBind()
+            DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+
+            DtVendedoresSucursales.Dispose()
+        End If
+
+        UpParametros.Update()
+    End Sub
+
     Public Class MAnticipoRelacionado
         Public Property CveVenta As Integer
         Public Property FolioFiscal As String