--FIX varios

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" />

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)