diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a8a036ad3..e1d1b88a6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -25160,9 +25160,13 @@ Partial Class Ventas
 
         Else
             DdlPS_SelectedIndexChanged(Nothing, Nothing)
-            Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
+        End If
+    End Sub
+    Protected Sub OrdenarGvPS(ByVal sender As Object, ByVal e As EventArgs)
+
+        For Each row As GridViewRow In GvPS.Rows
             TmpDT.Rows(row.RowIndex)("Orden") = row.FCTextBox("TxtOrden").Text.ToEntero()
-            Next
+        Next
 
         Dim resultados = From OrdenDT In TmpDT
                          Order By OrdenDT("Orden").ToString().ToEntero()