From 94f4dc0f11c130525152789e68ad26ff499ea7b3 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 8 Jan 2025 10:53:58 -0700 Subject: [PATCH] --FIX --- Ventas/PVCobranza.aspx | 15 ++++++--------- Ventas/PVCobranza.aspx.vb | 29 ++++++++++++++++------------- 2 files changed, 22 insertions(+), 22 deletions(-) diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index f9629653d..9588e6991 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -396,8 +396,7 @@
- Cancelaciones pendientes - + Cancelaciones en proceso
@@ -418,16 +417,14 @@ + CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None" Width="100%"> - - - - - + + + - + diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 73019e857..85557279f 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -384,21 +384,24 @@ Partial Class Ventas_PVCobranza End Sub Private Sub CargaCancelaciones() - DivCancelacionesPendientes.Visible = True - Dim DtVentas As DataTable = Nothing + If DdlSubProyecto.SelectedValue.ToEntero() > 0 Then + DivCancelacionesPendientes.Visible = True + Dim DtVentas As DataTable = Nothing - Dim ObjVentas = New ClsVentas() - If ObjVentas.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - DtVentas = ObjVentas.DtResultados.Copy() + Dim ObjVentas = New ClsVentas() + If ObjVentas.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + DtVentas = ObjVentas.DtResultados.Copy() + End If + ObjVentas.Dispose() + + If DtVentas IsNot Nothing Then + + GvCancelaciones.DataSource = DtVentas.FiltraParametros($"(CveEstatusFactura IN (20) AND CveEstatusRefacturacion IN (0,4)) AND CveSubProyecto={DdlSubProyecto.SelectedValue.ToEntero()}") + GvCancelaciones.DataBind() + End If + + UpL.Update() End If - ObjVentas.Dispose() - - If DtVentas IsNot Nothing Then - GvCancelaciones.DataSource = DtVentas.FiltraParametros("(CveEstatusFactura IN (20,23) AND CveEstatusRefacturacion IN (0,4))") - GvCancelaciones.DataBind() - End If - - UpL.Update() End Sub Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound