diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 10ff8bcbb..4950bd341 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -17480,6 +17480,7 @@ Partial Class Compras_Compras
             Descuento = TxtDescuentoModal.Text.ToDouble
             Total = (Cantidad * PU) - Descuento
             DrPS("Cantidad") = Cantidad
+            DrPS("CantidadF") = Cantidad
             DrPS("PU") = PU
             DrPS("Descuento") = Descuento
             DrPS("OtrosGastos") = 0