Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Clientes.aspx

@@ -6158,7 +6158,7 @@
 
                                             <th style="width: 73px;"></th>
                                         </tr>
-                                        <tr align="center">
+                                        <tr id="TrAgregarPMarca" runat="server" visible="false" align="center">
                                             <td></td>
                                             <td style="text-align: center;">
                                                 <div class="psagregar">
@@ -6226,7 +6226,7 @@
                                     <ContentTemplate>
                                         <%--table table-striped table-advance table-hover Widthall ScrollAD
                                             tabla_correcto grides Widthall mysmallbtn--%>
-                                        <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" DataKeyNames="No" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowHeaderWhenEmpty="True">
+                                        <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" DataKeyNames="No" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowHeaderWhenEmpty="True" >
                                             <Columns>
                                                 <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
                                                     <EditItemTemplate>
@@ -6310,8 +6310,8 @@
                                             </center>
                                                     </EditItemTemplate>
                                                     <ItemTemplate>
-                                                        <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
-                                                        <asp:LinkButton ID="lnkRemove" runat="server" AlternateText="Eliminar" OnClick="DeleteRowMarca" CommandArgument='<%# Eval("No")%>' 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 porcentaje?" data-btn-ok-label="si" />
+                                                        <asp:LinkButton ID="imgE" runat="server" Visible="false" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                        <asp:LinkButton ID="lnkRemove" runat="server" Visible="false" AlternateText="Eliminar" OnClick="DeleteRowMarca" CommandArgument='<%# Eval("No")%>' 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 porcentaje?" data-btn-ok-label="si" />
                                                     </ItemTemplate>
                                                     <ItemStyle Width="73px"></ItemStyle>
                                                 </asp:TemplateField>
@@ -6327,7 +6327,7 @@
 
                         </div>
                         <div class="modal-footer">
-                            <asp:Button ID="BtnGuardarPorcentajesMarca" runat="server" Text="Guardar" CssClass="btn btn-primary" />
+                            <asp:Button ID="BtnGuardarPorcentajesMarca" Visible="false" runat="server" Text="Guardar" CssClass="btn btn-primary" />
                             <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
                         </div>
                     </ContentTemplate>
@@ -6365,7 +6365,7 @@
                                                 Aplicado </th>
                                             <th style="width: 73px;"></th>
                                         </tr>
-                                        <tr align="center">
+                                        <tr id="TrPreciosPP" runat="server" visible="false" align="center">
                                             <td></td>
                                             <td style="text-align: center;">
                                                 <div class="psagregar">
@@ -6458,7 +6458,7 @@
 
                         </div>
                         <div class="modal-footer">
-                            <asp:Button ID="BtnGuardarPorcentajes" runat="server" Text="Guardar" CssClass="btn btn-primary" />
+                            <asp:Button ID="BtnGuardarPorcentajes" Visible="false" runat="server" Text="Guardar" CssClass="btn btn-primary" />
                             <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
                         </div>
                     </ContentTemplate>

Ventas/Clientes.aspx.vb

@@ -1449,15 +1449,26 @@ Partial Class Clientes
                 ' CargaGridRetenciones()
                 ' CargaDocs()
                 CargaCombos()
-                CargaDocumentacionCliente()
-                'CargaMetodosPago33()
-                'CargaFormaPago33()
-                'CargaComboCFDI()
-                'CargarPagosNoBancarios()
-
-                If UsuarioActual.TienePermisoProceso(279) Then
+                CargaDocumentacionCliente()
+                'CargaMetodosPago33()
+                'CargaFormaPago33()
+                'CargaComboCFDI()
+                'CargarPagosNoBancarios()
+
+
+
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                     LnkPorcentajeMarcas.Visible = True
-                    LnkPorcentajePrecios.Visible = True
+                    LnkPorcentajePrecios.Visible = True
+
+                    If UsuarioActual.TienePermisoProceso(279) Then
+                        TrPreciosPP.Visible = True
+                        TrAgregarPMarca.Visible = True
+
+                        BtnGuardarPorcentajesMarca.Visible = True
+                        BtnGuardarPorcentajes.Visible = True
+                    End If
+
                 End If
 
 
@@ -1474,9 +1485,9 @@ 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
+                'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 Then
+                '    LnkAgregarVendedorSucursal.Visible = True
+                'End If
 
                 'Campos para Modificación
                 LtlCliente.Text = ObjClientes.Nombre
@@ -1517,7 +1528,20 @@ Partial Class Clientes
                 LblFechaCaptura.Text = ObjClientes.FechaIng.ToShortDateString()
                 LblUsuarioCapturo.Text = ObjClientes.Usuario
                 TxtNombreCorto.Text = ObjClientes.NombreCorto
-                DdlVendedor.SelectedValueExist(ObjClientes.Vendedor.ToString())
+
+                Dim CveVendedor = ObjClientes.Vendedor.ToEntero()
+                'SI YA TIENE UN VALOR ASIGNADO SELECCIONA EL GUARDADO
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                    Dim Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedor))
+                    'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV
+                    If String.IsNullOrEmpty(Vendedor) Then
+                        Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedor))
+                    End If
+                    DdlVendedor.SelectedValueExistInsert(CveVendedor, Vendedor)
+                Else
+                    DdlVendedor.SelectedValueExist(CveVendedor)
+                End If
+
                 'TxtVendedor.Text = ObjClientes.Vendedor
                 TxtPlazoCobranza.Text = ObjClientes.PlazoCobranza.ToString()
                 TxtPlazoCobranzaRemision.Text = ObjClientes.PlazoCobranzaRemision.ToString()
@@ -8948,8 +8972,28 @@ Partial Class Clientes
 
         CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
 
+    End Sub
+    Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvM.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If UsuarioActual.TienePermisoProceso(279) Then
+                e.Row.FCLinkButton("imgE").Visible = True
+                e.Row.FCLinkButton("lnkRemove").Visible = True
+            End If
+
+        End If
+    End Sub
+
+    Protected Sub GvP_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvP.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If UsuarioActual.TienePermisoProceso(279) Then
+                e.Row.FCLinkButton("imgE").Visible = True
+                e.Row.FCLinkButton("lnkRemove").Visible = True
+            End If
+
+        End If
     End Sub
-
     Protected Sub GvM_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvM.RowEditing
         GvM.EditIndex = e.NewEditIndex
 
@@ -10422,6 +10466,7 @@ Partial Class Clientes
             Alert("Los cambios se guardaron satisfactoriamente.")
         End Using
 
-    End Sub
+    End Sub
+
 End Class
 

Ventas/PV.aspx.vb

@@ -1560,7 +1560,7 @@ Partial Class PV
                     End If
                     DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString, DbRowVenta("SubProyecto").ToString)
                     CargarAlmacenes()
-
+                    CargaFoliosGarantia()
 
                     CargaClienteSucursal(DbRowVenta("CveClienteSucursal").ToString.ToEntero)
 
@@ -2042,13 +2042,12 @@ Partial Class PV
 
             End If
 
-
             'GUARDA USADOS
-            If Not OcurrioError AndAlso Not ObjVentas.EliminarUsados(CveVenta) Then
-                OcurrioError = True
-            End If
+            If Not OcurrioError AndAlso TmpDTRecepcionUsados IsNot Nothing AndAlso TmpDTRecepcionUsados.Rows.Count > 0 Then
+                If Not OcurrioError AndAlso Not ObjVentas.EliminarUsados(CveVenta) Then
+                    OcurrioError = True
+                End If
 
-            If Not OcurrioError AndAlso TmpDTRecepcionUsados IsNot Nothing Then
                 For Each drow As DataRow In TmpDTRecepcionUsados.Rows
                     If Not ObjVentas.AddVentaUsado(CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("CveBCIUsado").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero) Then
                         OcurrioError = True
@@ -2057,12 +2056,12 @@ Partial Class PV
                 Next
             End If
 
-            'GUARDAR AJUSTES'
-            If Not OcurrioError AndAlso Not ObjAcum.EliminarGarantiasDetalle(CveVenta) Then
-                OcurrioError = True
-            End If
-
+            'GUARDAR AJUSTES
             If Not OcurrioError AndAlso TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then
+                If Not OcurrioError AndAlso Not ObjAcum.EliminarGarantiasDetalle(CveVenta) Then
+                    OcurrioError = True
+                End If
+
                 For Each Dr As DataRow In TmpDTAjustes.Rows
                     If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero,
                                                        Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero, Dr("CodigoTD").ToString, Dr("TipoComprobante").ToString.ToEntero,
@@ -2075,11 +2074,12 @@ Partial Class PV
             End If
 
             'GUARDAR POLIZA VIRTUAL
-            If Not OcurrioError AndAlso Not ObjAcum.EliminarPolizaVirtual(CveVenta) Then
-                OcurrioError = True
-            End If
+            If Not OcurrioError AndAlso TmpDTPolizaVirtual IsNot Nothing AndAlso TmpDTPolizaVirtual.Rows.Count > 0 Then
+
+                If Not OcurrioError AndAlso Not ObjAcum.EliminarPolizaVirtual(CveVenta) Then
+                    OcurrioError = True
+                End If
 
-            If Not OcurrioError AndAlso TmpDTPolizaVirtual IsNot Nothing Then
                 For Each drow As DataRow In TmpDTPolizaVirtual.Rows
                     If ObjAcum.AddPolizaVirtual(CveVenta, drow("CveVentaDetalle").ToString().ToEntero(), drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("Descuento").ToString.ToDecimal,
                                                     drow("Total").ToString.ToDecimal, drow("TipoServicio").ToString.ToEntero, drow("TipoPoliza").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero, drow("AnioVehiculo").ToString.ToEntero, CBool(drow("TieneUsado").ToString),
@@ -2711,6 +2711,8 @@ Partial Class PV
                         UpParametros.Update()
                     End If
 
+                    CargaFoliosGarantia()
+
                     If ObjCliente.GetSucursales(CveCliente) Then
                         DdlSucursalCliente.DataSource = ObjCliente.DtResultados
                         If ObjCliente.DtResultados.Rows.Count > 0 Then
@@ -3000,7 +3002,7 @@ Partial Class PV
         'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE
         If UsuarioActual.CveVendedor > 0 Then
             If CveVenta <= 0 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
-            If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
+            If Not UsuarioActual.TienePermisoProceso(161) Then
                 DdlVendedor.Enabled = False
             End If
             'multiples vendedores visible
@@ -4395,11 +4397,17 @@ Partial Class PV
     End Sub
     Private Sub DdlSubProyectoDatos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyectoDatos.SelectedIndexChanged
         CambiaSucursalGeneral()
+        CargaFoliosGarantia()
 
+        UpAjuste.Update()
+        UpModalVenta.Update()
+    End Sub
+
+    Private Sub CargaFoliosGarantia()
         If UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then
             Dim ObjAcum As New ClsAcumuladores
-            If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
-                DdlFolioGarantia.DataSource = ObjAcum.DtResultados.FiltraParametros($"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}")
+            If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), Area:=1) Then
+                DdlFolioGarantia.DataSource = ObjAcum.DtResultados
             End If
             ObjAcum.Dispose()
             DdlFolioGarantia.DataBind()
@@ -7045,6 +7053,7 @@ Partial Class PV
 
             DdlBCIAjuste.Items.Clear()
             If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then
+                DdlBCIAjuste.SelectedValue = Nothing
                 DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}")
                 DdlBCIAjuste.DataBind()
                 DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -7295,7 +7304,7 @@ Partial Class PV
 
     Protected Sub ChkAjuste_CheckedChanged(sender As Object, e As EventArgs)
         If ChkAjuste.Checked Then
-
+            CargaFoliosGarantia()
             'For Each Gvr As GridViewRow In GvRecepcionUsados.Rows
             '    If Gvr.RowType = DataControlRowType.DataRow Then
             '        Gvr.FCTextBox("TxtCantidad").Text = ""

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -406,7 +406,15 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
             {
                 factura.CveEstatusRefacturacion = CveEstatusRefacturacion;
             }
-            retorno = factura.CancelarPorRefacturacion(factura.CveMotivoCancelacion, factura.MotivoCancelacion, FolioSustitucion: FolioSustitucion);
+
+            int CveEstatusFactura = -1;
+            //SI LA FACTURA YA ESTA CANCELADA, LA ASIGNA YA COMO CANCELADA
+            if (CveEstatus == 5)
+            {
+                CveEstatusFactura = CveEstatus;
+            }
+
+            retorno = factura.CancelarPorRefacturacion(factura.CveMotivoCancelacion, factura.MotivoCancelacion, FolioSustitucion: FolioSustitucion, CveEstatusFacturaAsignado: CveEstatusFactura);
         }
         else
         {

Ventas/Ventas.aspx.vb

@@ -1930,6 +1930,31 @@ Partial Class Ventas
             ViewState("CveVendedorCliente") = value
         End Set
     End Property
+    Private Property CveVendedorClienteSucursal As Integer
+        Get
+            Return If(IsNothing(ViewState("CveVendedorClienteSucursal")), -1, ViewState("CveVendedorClienteSucursal")).ToString().ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveVendedorClienteSucursal") = value
+        End Set
+    End Property
+
+    Private Property CveVendedorContrato As Integer
+        Get
+            Return If(IsNothing(ViewState("CveVendedorContrato")), -1, ViewState("CveVendedorContrato")).ToString().ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveVendedorContrato") = value
+        End Set
+    End Property
+    Private Property CveVendedorEmpresaCRM As Integer
+        Get
+            Return If(IsNothing(ViewState("CveVendedorEmpresaCRM")), -1, ViewState("CveVendedorEmpresaCRM")).ToString().ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveVendedorEmpresaCRM") = value
+        End Set
+    End Property
     Private Property DiasCredito As Integer
         Get
             Return ViewState("DiasCredito").ToString().ToEntero()
@@ -2203,6 +2228,9 @@ Partial Class Ventas
             ViewState("CvePrecioListaCliente") = 0
             Me.CveVendedorVenta = -1
             Me.CveVendedorCliente = -1
+            Me.CveVendedorClienteSucursal = -1
+            Me.CveVendedorContrato = -1
+            Me.CveVendedorEmpresaCRM = -1
             Me.EsGarantia = False
             idCuentaContabilizacion = 1
             CveEmpresaCRM = 0
@@ -2883,16 +2911,16 @@ Partial Class Ventas
             If CveVenta < 1 Then CargaFolios()
 
             'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE
-            If UsuarioActual.CveVendedor > 0 Then
-                If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
-                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
-                End If
-            End If
+            'If UsuarioActual.CveVendedor > 0 Then
+            '    If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
+            '    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
+            '    End If
+            'End If
 
             If UsuarioActual.Empresa.Funcionalidad(301).ToEntero() > 0 Then
                 TxtFecha.Enabled = False
@@ -3632,6 +3660,8 @@ Partial Class Ventas
             NumeroContrato = DrContrato("NumeroContrato").ToString()
             DescripcionContrato = DrContrato("DescripcionContrato").ToString()
             NumeroLicitacion = DrContrato("NumeroLicitacion").ToString().Trim
+
+            Me.CveVendedorContrato = DrContrato("CveVendedor").ToString().ToEntero()
             DdlVendedor.SelectedValueExist(DrContrato("CveVendedor"))
 
             If DrContrato("CveSucursalCliente").ToString().ToEntero() > 0 Then
@@ -4702,14 +4732,14 @@ Partial Class Ventas
                 Me.CveVendedorVenta = DbRowVenta("CveVendedor").ToString().ToEntero()
 
                 'SI YA TIENE UN VALOR ASIGNADO SELECCIONA EL GUARDADO
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Me.CveVenta > 0 AndAlso Me.CveVendedorVenta > 0 Then
-                    Dim Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta))
-                    'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV
-                    If String.IsNullOrEmpty(Vendedor) Then
-                        Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta))
-                    End If
-                    DdlVendedor.SelectedValueExistInsert(Me.CveVendedorVenta, Vendedor)
-                End If
+                'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Me.CveVenta > 0 AndAlso Me.CveVendedorVenta > 0 Then
+                '    Dim Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta))
+                '    'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV
+                '    If String.IsNullOrEmpty(Vendedor) Then
+                '        Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta))
+                '    End If
+                '    DdlVendedor.SelectedValueExistInsert(Me.CveVendedorVenta, Vendedor)
+                'End If
 
                 If DdlFormaPago33.SelectedValue <> DbRowVenta("CveFormaPago33").ToString() And DbRowVenta("CveFormaPago33").ToString() <> "" Then
                     'sino está seleccionada la asginada la debe de cargar
@@ -5546,6 +5576,13 @@ Partial Class Ventas
                     'TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
                     'TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
                     ''TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
+
+                    ObjVentas.DtResultados.Columns.Add("TieneProntoPago", GetType(String))
+                    ObjVentas.DtResultados.Columns.Add("ImporteProntoPago", GetType(Decimal))
+
+                    ObjVentas.DtResultados.Columns("TieneProntoPago").DefaultValue = "No"
+                    ObjVentas.DtResultados.Columns("ImporteProntoPago").DefaultValue = 0
+
                     GvPS.DataSource = ObjVentas.DtResultados
                     GvPS.DataBind()
                 End If
@@ -5867,6 +5904,7 @@ Partial Class Ventas
                     UpEmpresaCRM.Visible = True
 
                 End If
+                Me.CveVendedorEmpresaCRM = ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString().ToEntero()
 
                 DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString())
                 DdlVendedor.Enabled = False
@@ -6137,18 +6175,18 @@ Partial Class Ventas
                 TxtFordGSDB.Text = ObjCliente.Ford_GSDB
 
                 If ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero() > 0 Then
-                    DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero())
                     CveVendedorCliente = ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero()
                 End If
 
                 'SI EL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO
-                If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then
-                    DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
-                End If
+                'If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then
+                '    DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
+                'End If
 
-                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
+                CargaVendedores()
 
                 UpFacturar.Update()
 
@@ -6370,10 +6408,6 @@ Partial Class Ventas
         End If
         BloqueaCondiconesPago()
         DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
-
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-            CargaVendedoresSubProyectos()
-        End If
     End Sub
 
     Private Sub CargaRelacionadasPendientes()
@@ -6946,7 +6980,7 @@ Partial Class Ventas
                     ViewState("CliPais") = ObjCliente.DtResultados.Rows(0)("Pais").ToString()
                     ViewState("CliNoExt") = ObjCliente.DtResultados.Rows(0)("NoExt").ToString()
                     ViewState("CliNoInt") = ObjCliente.DtResultados.Rows(0)("NoInt").ToString()
-                    DdlVendedor.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString())
+                    Me.CveVendedorClienteSucursal = ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString().ToEntero()
                     ViewState("CveClienteSucursal") = ObjCliente.DtResultados(0)("CveClienteSucursal").ToString()
                     ViewState("CliCorreoCot") = ObjCliente.DtResultados.Rows(0)("CorreoCotizacion").ToString()
 
@@ -7014,7 +7048,8 @@ Partial Class Ventas
                     LblEstado.Text = ObjCliente.Estado
                     LblCP.Text = ObjCliente.CP
                     LblTelefono.Text = ObjCliente.Telefono
-                    DdlVendedor.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString())
+                    Me.CveVendedorClienteSucursal = -1
+                    Me.CveVendedorCliente = ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString().ToEntero()
                     ViewState("CliNoExt") = ObjCliente.NoExt
                     ViewState("CliNoInt") = ObjCliente.NoInt
                     PlazoCobranza = ObjCliente.PlazoCobranza
@@ -7035,10 +7070,12 @@ Partial Class Ventas
             End If
         End If
 
-        'SI LA SUCURSAL DEL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO
-        If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then
-            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
-        End If
+        ''SI LA SUCURSAL DEL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO
+        'If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then
+        '    DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
+        'End If
+
+        CargaVendedores()
 
         'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES
         If CveVenta <= 0 Then
@@ -13634,7 +13671,7 @@ Partial Class Ventas
 
 
                         Case 30 'PAGO - BANCOS
-                            If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
+                            If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 AndAlso ObjFactura.TipoDocto <> "Rem" Then
 
                                 For Each DrPago As DataRow In DtPagos.Rows
                                     CveIEPago = -1
@@ -17004,9 +17041,7 @@ Partial Class Ventas
         End If
         ObjSubProyectos.Dispose()
 
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-            CargaVendedoresSubProyectos()
-        End If
+        CargaVendedores()
 
         UpDetalle.Update()
     End Sub
@@ -17189,43 +17224,93 @@ Partial Class Ventas
         UpParametros.Update()
     End Sub
     Private Sub CargaVendedores()
+        Dim CveVendedorActual As Integer = 0
 
-        Dim CveVendedorActual = DdlVendedor.SelectedValue.ToEntero()
-
-        If Not CveVendedorActual > 0 AndAlso Me.CveVendedorCliente > 0 Then
-            DdlVendedor.SelectedValueExist(Me.CveVendedorCliente)
-            CveVendedorActual = Me.CveVendedorCliente
-        End If
+        Dim EsVentaNueva As Boolean = (Me.CveVenta <= 0 OrElse Me.EsCreaApartirDe OrElse NuevaFactura = 1)
 
         DdlVendedor.Items.Clear()
+        DdlVendedor.SelectedValue = Nothing
+
+        DdlVendedorSucursal.Items.Clear()
+        DdlVendedorSucursal.SelectedValue = Nothing
+
         If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
-            DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1")
+            DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("(CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1")
         Else
             DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1")
         End If
 
-        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()
         DdlVendedorSucursal.DataBind()
 
-        DdlVendedor.SelectedValueExist(CveVendedorActual)
+        DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar"))
+        DdlVendedorSucursal.Items.Insert(0, New ListItem("Sin Asignar"))
 
-        If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then
-            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
+        DdlVendedor.SelectedValueExist("0")
+        DdlVendedorSucursal.SelectedValueExist("0")
+
+        'SI NO ES VENTA ACTUAL
+        If EsVentaNueva Then
+            'PRIMERO TOMA EL VENDEDOR DEL USUARIO
+            If UsuarioActual.CveVendedor > 0 Then
+                CveVendedorActual = UsuarioActual.CveVendedor
+            End If
+            'DAR PREFERENCIA AL VENDEDOR ASIGNADO AL CLIENTE
+            If Me.CveVendedorCliente > 0 Then
+                CveVendedorActual = Me.CveVendedorCliente
+            End If
+            'DAR PREFERENCIA AL VENDEDOR ASIGNADO LA SUCURSAL CLIENTE
+            If Me.CveVendedorClienteSucursal > 0 Then
+                CveVendedorActual = Me.CveVendedorClienteSucursal
+            End If
+            'SI TIENE CONTRATO TOMA EL DEL CONTRATO
+            If Me.CveVendedorContrato > 0 Then
+                CveVendedorActual = Me.CveVendedorContrato
+            End If
+            'SI ES EMPRESA CRM TOMA DE AQUI
+            If Me.CveVendedorEmpresaCRM > 0 Then
+                CveVendedorActual = Me.CveVendedorEmpresaCRM
+            End If
+        Else
+            'SI ES VENTA EXISTENTE TOMA EL DE LA VENTA
+            If Me.CveVendedorVenta > 0 Then
+                CveVendedorActual = Me.CveVendedorVenta
+            End If
         End If
 
-        If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
-            DdlVendedor.Enabled = False
+        If CveVendedorActual > 0 Then
+            Dim VendedorActual As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).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
+                DdlVendedor.SelectedValueExist(CveVendedorActual)
+            Else
+                DdlVendedor.SelectedValueExistInsert(CveVendedorActual, VendedorActual)
+            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
+        End If
+
+
+        'multiples vendedores visible
+        If UsuarioActual.TienePermisoProceso(153) Then
+            DdlVendedor.Enabled = True
+        End If
+
+        UPPVentas.Update()
         'TxtCorreoNotificaciones.Text = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
     End Sub
 #End Region
@@ -33644,23 +33729,29 @@ Partial Class Ventas
         UpModalSolicitud.Update()
     End Sub
 
-    Private Sub CargaVendedoresSubProyectos()
+    'Private Sub CargaVendedoresSubProyectos()
 
-        Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())
+    '    DdlVendedor.Items.Clear()
+    '    DdlVendedor.SelectedValue = Nothing
 
-        If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then
-            DdlVendedor.Items.Clear()
-            DdlVendedor.SelectedValue = Nothing
+    '    Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())
 
-            DdlVendedor.DataSource = DtVendedoresSucursales
-            DdlVendedor.DataBind()
-            DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+    '    If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then
+    '        DdlVendedor.DataSource = DtVendedoresSucursales
+    '        DtVendedoresSucursales.Dispose()
+    '    Else
+    '        If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
+    '            DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1")
+    '        Else
+    '            DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1")
+    '        End If
+    '    End If
 
-            DtVendedoresSucursales.Dispose()
-        End If
+    '    DdlVendedor.DataBind()
+    '    DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
 
-        UpParametros.Update()
-    End Sub
+    '    UpParametros.Update()
+    'End Sub
 
     Public Class MAnticipoRelacionado
         Public Property CveVenta As Integer