-

Compras/PopUpVerFactura.aspx.vb

@@ -4047,6 +4047,7 @@ Partial Class PopUpVerFactura
                     ObjCompra.Dispose()
                     Dim rds2 = New ReportDataSource("DataSet2", dtnc)
                     reportDataSetsList.Add(rds2)
+                    dtnc.Dispose()
 
                     Dim paramList As New List(Of ReportParameter)
                     With paramList
@@ -4075,15 +4076,19 @@ Partial Class PopUpVerFactura
                         End If
 
                     End With
+                    dtMovs.Dispose()
 
-
-                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, "IE Movimient", "PDF")
+                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
 
                 End If
 
             End If
         End If
 
+        DtGvRH.Dispose()
+        DtComprobacion.Dispose()
+        ParamComprobacion.Dispose()
+
         ObjIE.Dispose()
     End Sub