From 87bd44727aef32545e4fbc7ac5f11a081ec78080 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 27 Jan 2025 18:25:44 -0700
Subject: [PATCH] --FIX varios

---
 Inventarios/PopUpExistenciasAlmacen.aspx |  2 +-
 Ventas/Ventas.aspx.vb                    | 24 ++++++++++++++++++++++++
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx
index e402747b2..2521640c5 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx
@@ -166,7 +166,7 @@
                             </Columns>
                         </asp:GridView>
                     </div>
-                    <div id="DivMedRin" style="overflow-y: auto; width: 765px; height: 325px;" runat="server" visible="false">
+                    <div id="DivMedRin" style="overflow-y: auto; width: 765px; height: 305px;" runat="server" visible="false">
                         <asp:GridView ID="GvMedRin" Width="100%" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" CssClass="table table-striped table-hover" GridLines="None">
                             <Columns>
                                 <asp:BoundField DataField="Almacen" HeaderText="Almacén" />
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index be1ef0a10..5369d0970 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6328,6 +6328,23 @@ Partial Class Ventas
                             OnError("Ocurrió un error al cargar los datos de la addenda", ex)
                         End Try
                     End If
+
+                    Dim HabilitarExistencias As Boolean = False
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DbRowVenta("TipoDocto").ToString().Contiene("Rem", "Cot") Then
+                        HabilitarExistencias = True
+                        GvPS.Columns(20).Visible = True
+                    End If
+
+                    If HabilitarExistencias Then
+                        For Each GvRow As GridViewRow In GvPS.Rows
+                            If GvRow.RowType = DataControlRowType.DataRow Then
+                                GvRow.FCLinkButton("LnkExistencias").Visible = True
+                                GvRow.FCLinkButton("imgClone").Visible = False
+                                GvRow.FCLinkButton("LnkDescuentos").Visible = False
+                            End If
+                        Next
+                    End If
+
                 End If
             End Using
         End If
@@ -40772,6 +40789,13 @@ Partial Class Ventas
     End Sub
 
     Protected Sub LnkCalcularPromociones_Click(sender As Object, e As EventArgs)
+
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetPromocionesPS(-1, Now().Date, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), 1, UsuarioActual.CveEmpresa) Then
+            DtPromociones = ObjVentas.DtResultados.Copy()
+        End If
+        ObjVentas.Dispose()
+
         Dim Recalculo As Boolean = False
         RecalculaPrecios(Recalculo, AplicarPromociones:=True)