- cambio de fecha pago

2020-02-22 14:43:39 -07:00
parent 66d7965c34
commit fdfe6c28e4
1 changed files with 2 additions and 0 deletions
--- 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