From 023379c90dfbcaa7a04fa581d806e4d7e95f8d0f Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 19 Dec 2023 18:31:58 -0700
Subject: [PATCH] Ventas correcion tipo documento, clientes lista de precio
 opcin 10

---
 Ventas/Clientes.aspx    | 33 +++++++++++++++++++++++++--------
 Ventas/Clientes.aspx.vb | 34 +++++++++++++++++++++++++---------
 Ventas/Ventas.aspx.vb   |  3 ++-
 3 files changed, 52 insertions(+), 18 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 19df1addd..d9c4851f4 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -729,22 +729,24 @@
                                                     <label for="<%= DdlClasificacion.ClientID.ToString()%>">Giro:</label>
                                                 </div>
                                             </div>
-                                            <div class="col-md-6">
+
+                                            <div class="col-md-6" runat="server"  visible="false" id="DivPrecioLista" >
                                                 <div class="row">
                                                     <div class="col-md-10">
-                                                        <div id="DivPrecioLista" runat="server" class="form-group form-md-line-input input-iconright">
+                                                        <div runat="server" class="form-group form-md-line-input input-iconright">
                                                             <asp:DropDownList ID="DdlPrecioLista" runat="server" CssClass="form-control select2me" Width="100%" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList>
                                                             <label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista:</label>
                                                             <i></i>
                                                         </div>
                                                     </div>
-                                                    <div class="col-md-2" id="DivCrearPrecioLista" runat="server" style="padding-top: 8px;" visible="false">
+                                                    <div class="col-md-2" id="DivCrearPrecioLista" runat="server" style="padding-top: 8px;"  visible="false">
                                                         <div class="form-group form-md-line-input input-iconright">
                                                             <asp:LinkButton runat="server" ID="LnkAddPrecioLista" CssClass="btn btn-default btn-circle btn-sm" Text="<i class='fa fa-plus' style='color:green'></i>" OnClick="LnkAddPrecioLista_Click"></asp:LinkButton>
                                                         </div>
                                                     </div>
                                                 </div>
                                             </div>
+
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" id="Div2" runat="server">
                                             <asp:DropDownList ID="DdlCorporativo" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Descripcion" DataValueField="CveClienteCorporativo"></asp:DropDownList>
@@ -4997,12 +4999,27 @@
                         <h4 class="modal-title">Agregar lista de precio</h4>
                     </div>
                     <div class="modal-body">
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtPrecioLista" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RFVTxtPL" runat="server" ControlToValidate="TxtPrecioLista" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Lista de precio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpListaPrecio"></asp:RequiredFieldValidator>
-                            <label for="TxtPrecioLista">Lista de precio: </label>
-                            <i></i>
+
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtPrecioLista" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVTxtPL" runat="server" ControlToValidate="TxtPrecioLista" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Lista de precio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpListaPrecio"></asp:RequiredFieldValidator>
+                                    <label for="TxtPrecioLista">Lista de precio: </label>
+                                    <i></i>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div id="Div1" runat="server" class="form-group form-md-line-input input-iconright">
+                                     <asp:DropDownList ID="DdlPrecioListaClonar" runat="server" CssClass="form-control select2me" Width="100%" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList>
+                                     <label for="<%= DdlPrecioListaClonar.ClientID.ToString()%>">Clonar de:</label>
+                                     <i></i>
+                                 </div>                               
+                            </div>
                         </div>
+                        
+                        
+
                     </div>
                     <div class="modal-footer">
                         <div class="row">
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index f345b1dff..f9bfd577c 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1209,15 +1209,31 @@ Partial Class Clientes
         If Not GlobalDTPrecioListas(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
             DdlSubProyecto.AutoPostBack = False
             DivPrecioLista.Visible = False
-        End If
-
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
-            DivCrearPrecioLista.Visible = True
-        End If
-
-        DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
-        DdlPrecioLista.DataBind()
-        DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1"))
+        End If
+
+        Dim CveFuncionalidad404 As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero
+
+        If CveFuncionalidad404.Contiene(10, 30) Then
+
+            DivPrecioLista.Visible = True
+            DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
+            DdlPrecioLista.DataBind()
+            DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1"))
+
+            If CveFuncionalidad404.Contiene(30) Then
+                DivCrearPrecioLista.Visible = True
+                DdlPrecioListaClonar.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
+                DdlPrecioListaClonar.DataBind()
+                DdlPrecioListaClonar.Items.Insert(0, New ListItem(" - ", "-1"))
+
+            End If
+
+        End If
+
+
+
+
+
     End Sub
     Private Sub CargaCuentasContables()
         If UsuarioActual.Empresa.ServerContPAQi = "" Then Exit Sub
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5e69b14f5..0a5af52db 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7519,7 +7519,7 @@ Partial Class Ventas
 
         'Puede hacer pedido
         If CveVenta <= 0 Then
-            If Not UsuarioActual.TienePermisoProceso(177) Then
+            If Not UsuarioActual.TienePermisoProceso(177) And Not EsVentaMedica Then
                 If DdlTipoComprobante.Items.FindByValue("Ped") IsNot Nothing Then
                     DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ped"))
                 End If
@@ -36101,6 +36101,7 @@ Partial Class Ventas
             TdFechaOS2.Visible = True
             ChkRequiereTecnico.Checked = True
             ChkRequiereTecnico.Enabled = False
+            DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
             DdlTipoComprobante.SelectedValueExist("Ped")
         Else
             DdlTipoComprobante.SelectedValueExist("Ing")