From 50b9efa87447a311b8a6cddaf8bfbdc0c95b769b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 18 Dec 2023 08:00:30 -0700
Subject: [PATCH] -

---
 Ventas/CatPreciosLista.aspx | 5 +++++
 Ventas/Clientes.aspx        | 2 +-
 Ventas/Clientes.aspx.vb     | 4 ++--
 Ventas/Ventas.aspx.vb       | 5 +++--
 4 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/Ventas/CatPreciosLista.aspx b/Ventas/CatPreciosLista.aspx
index 585fa41ad..69c10043b 100644
--- a/Ventas/CatPreciosLista.aspx
+++ b/Ventas/CatPreciosLista.aspx
@@ -30,6 +30,11 @@
             <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CvePrecioLista, PrecioLista, Estatus,Predeterminada" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Compuestos Activos">
                 <Columns>
                     <asp:BoundField DataField="PrecioLista" ItemStyle-Width="50%" HeaderText="Precio de lista" ItemStyle-HorizontalAlign="Left" />
+                     <asp:TemplateField HeaderText="Predeterminada" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center">
+                         <ItemTemplate>
+                             <asp:Label ID="LblPred" runat="server" Text='<%#If(Eval("Predeterminada").ToString = "True", "Si", "") %>'></asp:Label>
+                         </ItemTemplate>
+                     </asp:TemplateField>
                     <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="20%" HeaderText="Fecha Ing" ItemStyle-HorizontalAlign="center" />
                     <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index ad9e6ab65..4e2a0de30 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -798,7 +798,7 @@
                                                 </div>
                                             </div>
                                         </div>
-                                         <div class="row">
+                                         <div class="row" id="divAlmacenAsignado" runat="server" visible="false">
                                              <div class="col-md-6">
                                                  <div class="form-group form-md-line-input input-iconright">
                                                      <asp:DropDownList ID="DdlAlmacenAsignado" runat="server" CssClass=" form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen">                                                      
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9d0883c9f..c8e37072f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -9807,7 +9807,7 @@ Partial Class Clientes
 
             Try
                 Dim Url As Uri = New Uri(String.Format("{0}ashx/SIGWeb.ashx?metodo=GetTokenAngular", "http://localhost:85/"))
-                Dim response = cliente.GetAsync(Url).Result
+                Dim response As HttpResponseMessage = cliente.GetAsync(Url).Result
                 If response.StatusCode = 200 Then
                     retorno = response.Content.ReadAsStringAsync().Result
                 End If
@@ -10275,7 +10275,7 @@ Partial Class Clientes
     End Sub
     Protected Sub BtnGuardarPL_Click(sender As Object, e As EventArgs)
         Dim ObjVentas As New ClsVentas()
-        Dim CvePrecioListaNuevo = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0)
+        Dim CvePrecioListaNuevo As Integer = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, False, 0)
         If CvePrecioListaNuevo > 0 Then
             Alert("La lista de precio se guardo correctamente")
             RegistraScript("$('#DivAgregarPrecioLista').modal('hide');")
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 06b52e552..651b1fbea 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3447,12 +3447,13 @@ Partial Class Ventas
 
         Using ObjVta As New ClsVentas
             If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
-                DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
+                DdlPrecioLista.DataSource = ObjVta.DtResultados
+                DdlPrecioLista.SelectedValue = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista", "Predeterminada = 'True'")
             End If
         End Using
 
         DdlPrecioLista.DataBind()
-        DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         UpPS.Update()
     End Sub