diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4e49e131a..33b2f3b55 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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 = ""