Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/Clientes.aspx

@@ -258,7 +258,7 @@
     <asp:UpdatePanel runat="server" ID="UpPorcentajeMarcas" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkPorcentajeMarcas" Visible="False" data-toggle="tooltip" data-placement="left" title="Modificar Precio de PS por Marca." runat="server" Text="<i class='fa fa-pencil'></i> Modificar Precio por Marca"></asp:LinkButton>
+                <asp:LinkButton ID="LnkPorcentajeMarcas" Visible="False" data-toggle="tooltip" data-placement="left" title="Condiciones Comerciales" runat="server" Text="<i class='fa fa-pencil'></i> Modificar Precio por Marca"></asp:LinkButton>
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>

Ventas/PV.aspx.vb

@@ -5133,7 +5133,10 @@ Partial Class PV
     Private Sub CalculaMesesUso()
         Dim FechaI As Date = TxtFechaAjuste.Text.ToDate.AddDays(1)
         Dim FechaF As Date = Now
-        Dim FechaT As Date = String.Format("{0}/{1}/{2}", FechaI.Day, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual
+        Dim Dia As Integer = FechaI.Day
+        'validación adicional, para saber si el mes tiene 31 días y el actua es menor.
+        If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day
+        Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual
 
         Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo
 

Ventas/Promociones.aspx.vb

@@ -250,7 +250,7 @@ Partial Class Ventas_Promociones
         Dr("TipoPromocion") = DdlTipoPromocion.SelectedItem.Text
         Dr("Promocion") = TxtPromocionConcepto.Text
 
-        If DdlTipoPromocion.SelectedValue.ToEntero = 1 Then
+        If DdlTipoPromocion.SelectedValue.ToEntero.Contiene(1, 3) Then
             Dr("PUPromocion") = TxtPromocionConcepto.Text.ToDecimal
         Else
             Dr("PUPromocion") = LbPUActual.Text.ToDecimal - (LbPUActual.Text.ToDecimal * TxtPromocionConcepto.Text.ToDecimal / 100)

Ventas/Ventas.aspx.vb

@@ -13716,6 +13716,31 @@ Partial Class Ventas
                 Descuento = HdnDescuento.Value.ToDecimal * TxtCantidad.Text.ToDecimal
             End If
 
+
+            'Agrega Promocion en el Descuento
+            Dim TipoPromo As Integer = 0
+            Dim TotalPromocion As Decimal = 0
+            Dim PromocionPorcentaje As Decimal = 0
+            Dim CantMinima As Integer = 0
+
+            If DtPromociones.Rows.Count > 0 And DtPromociones IsNot Nothing Then
+                Dim dr As DataRow = DtPromociones.FiltroPrimero($"CvePS = {CvePS}")
+                TipoPromo = dr("TipoPromocion").ToString.ToEntero
+                TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
+                PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
+                CantMinima = dr("CantidadMinima").ToString.ToEntero
+            End If
+
+            If TipoPromo = 1 Then 'Promocion por Importe $
+                Descuento = Descuento + TotalPromocion
+            ElseIf TipoPromo = 2 Then 'Promocion por %
+                Descuento = Descuento + ((TxtPrecio.Text.Trim.ToDecimal * PromocionPorcentaje / 100) * TxtCantidad.Text.ToDecimal)
+            ElseIf TipoPromo = 3 Then 'Promocion por Cantidad
+                If TxtCantidad.Text.ToDecimal >= CantMinima Then
+                    Descuento = Descuento + TotalPromocion
+                End If
+            End If
+
             AgregarProductoServicio(TxtCantidad.Text.ToDecimal, DdlUnidadMedida.SelectedValue.ToEntero, DdlUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text,
                             CvePS, "", TxtObsPS.Text.Trim, If(CvePSAmortizacion > 0, TxtPrecio.Text.Trim.ToDecimal * -1, TxtPrecio.Text.Trim.ToDecimal), Descuento,
                             DdlProyecto.SelectedValue.ToEntero, DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedItem.Text,