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