From 1609c192efd2a6810ae5d0eb9308430e91ea01ac Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 5 Jul 2024 10:21:36 -0700
Subject: [PATCH] --FIX error de compilacion ventas

---
 Ventas/Ventas.aspx.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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()