Correcion de fecha al saldar venta

Ventas/Ventas.aspx.vb

@@ -25978,7 +25978,7 @@ Partial Class Ventas
         Dim Descuentos As Decimal
         Dim TCVenta As Decimal
         Dim FechaVenta As Date
-        Dim FechaPago As Date = Request("FechaSaldar").ToDate
+        Dim FechaPago As Date = TxtFechaSaldarVenta.Text.ToDateTime()
         Dim tCveMoneda As Integer
         Dim PorcentajePago As Decimal
         Dim SerieFolio As String = ""