-

App_Code/modExtensiones.vb

@@ -192,10 +192,10 @@ Namespace Extensiones
         Public Sub GuardaLogAD(Mensaje As String, Optional Archivo As String = "Log")
             Dim ArchivoW As StreamWriter
 
-            Dim MensajeFormato = $"{Chr(13)}{Chr(10)}Log: {Mensaje} | Fecha:{Now.ToString("dd/MM/yyyy HH:mm")}"
+            Dim MensajeFormato = String.Format("{0}{1}Log: {2} | Fecha:{3}", Chr(13), Chr(10), Mensaje, Now.ToString("dd/MM/yyyy HH:mm"))
 
             Try
-                ArchivoW = New StreamWriter($"{AppDomain.CurrentDomain.BaseDirectory}\Log\{Archivo}.txt", True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\{1}.txt", AppDomain.CurrentDomain.BaseDirectory, Archivo), True, System.Text.Encoding.UTF8)
             Catch ex As UnauthorizedAccessException
                 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError)
                 Exit Sub

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, ObjIE.Folio, "PDF")
-                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, "IE Movimient", "PDF")
 
                 End If
 
             End If
         End If
 
+        DtGvRH.Dispose()
+        DtComprobacion.Dispose()
+        ParamComprobacion.Dispose()
+
         ObjIE.Dispose()
     End Sub