--FIX varios

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)