Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

App_Code/ClsPaginas.vb

@@ -3871,7 +3871,7 @@ Public Class ClsPaginas
 
 
 
-    Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer) As DataTable
+    Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveSubProyecto As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa)
 
@@ -3880,9 +3880,13 @@ Public Class ClsPaginas
                 If ObjInv.GetClientesVendedoresSubProyectos(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados
                 ObjInv.Dispose()
             End If
+            Dim Str As StringBuilder = New StringBuilder()
+            Str.Append("1 = 1 ")
+            If CveCliente <> -1 Then Str.AppendFormat(" AND CveCliente = {0} ", CveCliente)
+            If CveSubProyecto <> -1 Then Str.AppendFormat(" AND CveSubProyecto = {0} ", CveSubProyecto)
 
-            GlobalDTClientesVendedoresSubProyectos = DirectCast(Application(AppNombre), DataTable)
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
-
+            GlobalDTClientesVendedoresSubProyectos = Dv.ToTable
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa)

Bancos/IE.aspx.vb

@@ -2769,8 +2769,9 @@ Partial Class Bancos_IE
                                     ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), ImporteME:=tImporteMonedaExtranjera)
 
                                     If TxtIvaIxC.Text.ToDouble > 0 Then
+                                        Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2)
                                         'Iva
-                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
+                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0))
                                     End If
 
                                     'Bancos
@@ -2862,7 +2863,8 @@ Partial Class Bancos_IE
                                                     If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then
                                                         Dim CveConIVA As Integer = 61
                                                         If UsuarioActual.CveEmpresa = 70 Then CveConIVA = 299
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
+                                                        Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2)
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then
                                                             MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                                         End If
                                                     End If

Ventas/Clientes.aspx

@@ -617,9 +617,11 @@
                                         </div>
 
                                         <div class="form-group form-md-line-input input-iconright" id="Div1" runat="server">
+                                            
                                             <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Vendedor" DataValueField="CveVendedor"></asp:DropDownList>
-
+                                            <asp:LinkButton ID="LnkAgregarVendedorSucursal" Visible="false" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar vendedor por sucursal." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar por Sucursal"></asp:LinkButton>
                                             <label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor:</label>
+
                                         </div>
 
                                         <div class="form-group form-md-line-input input-iconright" id="Div2" runat="server">
@@ -6448,6 +6450,60 @@
         </div>
     </div>
     <%--FIN MODAL CLIENTE PERSONAL ENTREGA--%>
+
+        <div id="DivVendedoresSucursales" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpVendedoresSucursales" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Vendedores por Sucursal</h4>
+                    </div>
+                    <div class="modal-body" style="width: 900px;">
+                        <div class="row">
+                            <div class="col-md-2">
+                                <label>Vendedor:</label>
+                            </div>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlVendedorSucursalAsignar" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="Vendedor" DataValueField="CveVendedor">
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2">
+                                <label>Sucursal:</label>
+                            </div>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlSucursalVendedor" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2">
+                                <asp:Button ID="BtnAgregarVendedorSucursal" runat="server" CssClass="btn btn-primary" Text="Agregar" OnClick="BtnAgregarVendedorSucursal_Click" />
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-md-12">
+                                <asp:GridView ID="GvVendedoresSucursales" runat="server" DataKeyNames="CveVendedor,CveSubProyecto" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False" EmptyDataText="Lista de vendedores por sucursal">
+                                    <Columns>
+                                        <asp:BoundField HeaderText="Vendedor" ReadOnly="true" DataField="Vendedor" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center" />
+                                        <asp:BoundField HeaderText="Sucursal" ReadOnly="true" DataField="SubProyecto" ItemStyle-Width="70%" ItemStyle-HorizontalAlign="Center" />
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%">
+                                            <ItemTemplate>
+                                                <asp:LinkButton ID="LnkEliminarVendedorSucursal" runat="server" AlternateText="Eliminar" OnClick="LnkEliminarVendedorSucursal_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el vendedor?" data-btn-ok-label="si" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

Ventas/Clientes.aspx.vb

@@ -1373,12 +1373,15 @@ Partial Class Clientes
         Dim item As New ListItem("Seleccione", "-1")
         DdlVendedor.DataSource = dt
         DdlVendedorSucursal.DataSource = dt
+        DdlVendedorSucursalAsignar.DataSource = dt
 
         DdlVendedor.DataBind()
         DdlVendedorSucursal.DataBind()
+        DdlVendedorSucursalAsignar.DataBind()
 
         DdlVendedor.Items.Insert(0, item)
-        DdlVendedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlVendedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlVendedorSucursalAsignar.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
 
     End Sub
@@ -1464,6 +1467,11 @@ Partial Class Clientes
 
                 If ObjClientes.Pais = "" Then ObjClientes.Pais = "México"
 
+
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 Then
+                    LnkAgregarVendedorSucursal.Visible = True
+                End If
+
                 'Campos para Modificación
                 LtlCliente.Text = ObjClientes.Nombre
                 TxtNombre.Text = ObjClientes.Nombre
@@ -8563,7 +8571,11 @@ Partial Class Clientes
 
         'CargaSubProyectos
         DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyectoFiltro.DataBind()
+        DdlSubProyectoFiltro.DataBind()
+
+        DdlSucursalVendedor.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        DdlSucursalVendedor.DataBind()
+        DdlSucursalVendedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         'Vendedor
         DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
@@ -8577,17 +8589,17 @@ Partial Class Clientes
         DdlPSFiltro.setEsWebService(True)
 
         'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-        DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
+        DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
-            DdlPSFiltro.SelectedText = ""
+        DdlPSFiltro.SelectedText = ""
-            DdlPSFiltro.SelectedValue = "-1"
+        DdlPSFiltro.SelectedValue = "-1"
-            'Else
+        'Else
-            '    DdlPSFiltro.ddl.Items.Clear()
+        '    DdlPSFiltro.ddl.Items.Clear()
-            '    DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
+        '    DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
-            '    DdlPSFiltro.ddl.DataBind()
+        '    DdlPSFiltro.ddl.DataBind()
-            '    DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        '    DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
-            'End If
+        'End If
 
-            CargaGrupo()
+        CargaGrupo()
         CargaTipoCentroCosto()
 
     End Sub
@@ -10827,6 +10839,74 @@ Partial Class Clientes
         End If
     End Sub
 
+    Protected Sub LnkAgregarVendedorSucursal_Click(sender As Object, e As EventArgs) Handles LnkAgregarVendedorSucursal.Click
+        If CveCliente > 0 Then
+            DdlVendedorSucursalAsignar.SelectedValueExist("-1")
+            DdlSucursalVendedor.SelectedValueExist("-1")
 
+            CargaProveedoresSucursales()
+            RegistraScript("$('#DivVendedoresSucursales').modal('show');")
+        End If
+    End Sub
+
+    Private Sub CargaProveedoresSucursales()
+        Using ObjVentas As New ClsVentas
+            If ObjVentas.GetClientesVendedoresSubProyectos(Me.CveCliente, -1, -1, UsuarioActual.CveEmpresa) Then
+                GvVendedoresSucursales.DataSource = ObjVentas.DtResultados
+            End If
+        End Using
+        GvVendedoresSucursales.DataBind()
+        UpVendedoresSucursales.Update()
+    End Sub
+
+
+    Protected Sub LnkEliminarVendedorSucursal_Click(sender As Object, e As EventArgs)
+        Dim CveVendedor As Integer = DdlVendedorSucursalAsignar.SelectedValue.ToEntero()
+        Dim CveSubProyecto As Integer = DdlSucursalVendedor.SelectedValue.ToEntero()
+
+        Using ObjVentas As New ClsVentas
+            If ObjVentas.RemoveClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+                Alert("Se eliminó el vendedor a la sucursal")
+            End If
+        End Using
+
+        DdlVendedorSucursalAsignar.SelectedValueExist("-1")
+        DdlSucursalVendedor.SelectedValueExist("-1")
+
+        CargaProveedoresSucursales()
+
+        RecargaGlobalDTVendedorSucursal()
+    End Sub
+    Protected Sub BtnAgregarVendedorSucursal_Click(sender As Object, e As EventArgs)
+        Dim CveVendedor As Integer = DdlVendedorSucursalAsignar.SelectedValue.ToEntero()
+        Dim CveSubProyecto As Integer = DdlSucursalVendedor.SelectedValue.ToEntero()
+
+        Dim Guardar As Boolean = True
+        Using ObjVentas As New ClsVentas
+
+            If ObjVentas.GetClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+                If ObjVentas.DtResultados.Rows.Count > 0 Then
+                    Guardar = False
+                    Alert("El vendedor ya existe en esta sucursal", TipoMensaje.MsgAdvertencia)
+                End If
+            End If
+
+            If Guardar AndAlso ObjVentas.AddClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+                Alert("Se agregó el vendedor a la sucursal")
+            End If
+
+        End Using
+
+        DdlVendedorSucursalAsignar.SelectedValueExist("-1")
+        DdlSucursalVendedor.SelectedValueExist("-1")
+
+        CargaProveedoresSucursales()
+
+        RecargaGlobalDTVendedorSucursal()
+    End Sub
+
+    Private Sub RecargaGlobalDTVendedorSucursal()
+        GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa) = Nothing
+    End Sub
 End Class
 

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()
@@ -13612,7 +13616,7 @@ Partial Class Ventas
                                     Exit For
                                 End If
 
-                                If CveConceptoAlmacen = 3 AndAlso UsuarioActual.CveEmpresa.Contiene({72, 80, 119,140}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") AndAlso Dr("EntregaDirecta").ToString().ToEntero() < 1 Then
+                                If CveConceptoAlmacen = 3 AndAlso UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 140}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") AndAlso Dr("EntregaDirecta").ToString().ToEntero() < 1 Then
                                     Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacen, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1)
                                     If Existencia < Cantidad Then
                                         OcurrioError = True
@@ -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()
@@ -16875,7 +16887,7 @@ Partial Class Ventas
 
                 If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
                     'VALIDA EXISTENCIA
-                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153,140}) Then
+                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140}) Then
                         If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
                             Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
                             Return False
@@ -18182,12 +18194,12 @@ Partial Class Ventas
                     dr = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", grp.CvePresupuestoIngreso))
                     Concepto = String.Format("{0} - {1}: {2}", NombreCliente, DdlTipoComprobante.SelectedItem.Text.ToString(), TxtFolio.Text)
 
-                    If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString().ToEntero(), False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+                    If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString().ToEntero(), False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then
-                        If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString().ToEntero(), True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+                        If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString().ToEntero(), True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then
                             'CARGO la deuda del cliente 
-                            If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+                            If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then
                                 'abono,
-                                If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString().ToEntero(), Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+                                If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString().ToEntero(), Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then
                                     ErrorAC = True
                                 End If
                             Else
@@ -18213,15 +18225,13 @@ Partial Class Ventas
 
         Else
             ErrorAC = True
-
         End If
 
         If Not ErrorAC Then
             ObjAC.AjustaPoliza(IDPoliza)
-
-            ' Retorno = IDPoliza
         Else
-
+            Retorno.IdPoliza = 0
+            Retorno.FolioPoliza = -1
             Alert("Error al agregar la Póliza de AC.", TipoMensaje.MsgError)
         End If
 
@@ -32592,6 +32602,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