From fdfe6c28e464000ad2b5cb9c9be68ccfbc506cac Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Sat, 22 Feb 2020 14:43:39 -0700 Subject: [PATCH] - cambio de fecha pago --- Ventas/Ventas.aspx.vb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 71c5d88eb..44c6a0b18 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14037,6 +14037,8 @@ Partial Class Ventas Dim PorcentajeProducto = RowPorcentaje("PorcentajeProducto").ToString().ToDecimal() / 100D Dim PorcentajeProducto2 = RowPorcentaje("PorcentajeProducto2").ToString().ToDecimal() / 100D Dim PorcentajeProducto3 = RowPorcentaje("PorcentajeProducto3").ToString().ToDecimal() / 100D + Dim DiasPlazo As Integer = RowPorcentaje("Plazo").ToString().ToEntero + TxtFechaPago.Text = Now.AddDays(DiasPlazo).ToShortDateString Dim TotalInicial As Decimal = (Cantidad * (PU)) - Descuento Dim TotalFinal = TotalInicial