--FIX

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