Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/PV.aspx.vb

@@ -4957,7 +4957,7 @@ Partial Class PV
         TmpDTAjustes.Columns.Add("CveUM", GetType(Integer))
         TmpDTAjustes.Columns.Add("CveVentaDetalle", GetType(Integer))
         TmpDTAjustes.Columns.Add("CveVenta", GetType(Integer))
-        TmpDTAjustes.Columns.Add("PUFactura", GetType(Integer))
+        TmpDTAjustes.Columns.Add("PUFactura", GetType(Double))
     End Sub
 
 
@@ -5131,18 +5131,21 @@ Partial Class PV
     End Sub
 
     Private Sub CalculaMesesUso()
-        Dim FechaI = TxtFechaAjuste.Text.ToDate.AddDays(1)
-        Dim FechaF = Now
-        'Dim NumDiasAlMes As Double = (365 / 12)
-        'Dim DiasTranscurridos = DateDiff(DateInterval.Day, FechaI, FechaF)
-        'Dim MesesTranscurridos As Double = (DiasTranscurridos / NumDiasAlMes)
-        'Dim Diff = Math.Round(MesesTranscurridos - Math.Truncate(MesesTranscurridos), 2)
+        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 NoMesesTrascurridos = Math.Ceiling(MesesTranscurridos)
-        Dim NoMesesTrascurridos2 = DateDiff(DateInterval.Month, FechaI, FechaF)
+        Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo
+
+        If FechaT > FechaF Then
+            'todavía está en el  mes actual.
+            MesesTrascurridos = MesesTrascurridos
+        Else
+            MesesTrascurridos = MesesTrascurridos + 1
+        End If
+
+        TxtMesesUso.Text = MesesTrascurridos.ToString
 
-        'TxtMesesUso.Text = If(Diff > 0.5, NoMesesTrascurridos, NoMesesTrascurridos2).ToString()
-        TxtMesesUso.Text = NoMesesTrascurridos2.ToString
         CalculaPorcentajeAjuste()
     End Sub
 
@@ -5214,6 +5217,13 @@ Partial Class PV
                         End If
                     End If
 
+                    'el ajuste no puede ser mayor al precio de lo vendido de nuevo
+                    If (TxtPrecio.Text.ToDouble - ((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoActual - CargoAnterior))) < 0 Then
+                        TxtDescuentoAjuste.Text = TxtPrecio.Text
+                        TxtImporteAjuste.Text = "0.00"
+                        CargoAnterior = CargoActual
+                    End If
+
                     TxtDescuentoAjuste.Text = ((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoActual - CargoAnterior)).FormatoNumero
                     TxtDescuentoAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoActual - CargoAnterior).FormatoNumero}."
                 End If
@@ -5331,6 +5341,7 @@ Partial Class PV
                 End If
 
                 Dr("Descuento") = Math.Round((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoActual - CargoAnterior), NumeroDecimales)
+                If Dr("Descuento").ToString.ToDouble > TxtPrecio.Text.ToDouble Then Dr("Descuento") = TxtPrecio.Text.ToDouble
 
                 Dim TotalCalculableImpuestos As Decimal = (Dr("Cantidad").ToString.ToDecimal * (Dr("PU").ToString.ToDecimal)) - Dr("Descuento").ToString.ToDecimal
                 Dr("ImporteIVA") = Math.Round(Dr("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)