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

2021-12-03 12:35:01 -07:00
parent 628d4e9125 cec379bce5
commit f98d32451c
5 changed files with 198 additions and 28 deletions
--- a/App_Code/ClsPaginas.vb
+++ b/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)
--- a/Bancos/IE.aspx.vb
+++ b/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
--- a/Ventas/Clientes.aspx
+++ b/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">
--- a/Ventas/Clientes.aspx.vb
+++ b/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.SelectedText = ""
-            DdlPSFiltro.SelectedValue = "-1"
-            'Else
-            '    DdlPSFiltro.ddl.Items.Clear()
-            '    DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
-            '    DdlPSFiltro.ddl.DataBind()
-            '    DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
-            'End If
+        DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
+        DdlPSFiltro.SelectedText = ""
+        DdlPSFiltro.SelectedValue = "-1"
+        'Else
+        '    DdlPSFiltro.ddl.Items.Clear()
+        '    DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
+        '    DdlPSFiltro.ddl.DataBind()
+        '    DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        '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

--- a/Ventas/Ventas.aspx.vb
+++ b/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("IdCuentaDevengado").ToString().ToEntero(), True, 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, "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