From 13ed6d722678eb750c6c7ba6049569686eba32e4 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 3 Jun 2020 23:33:09 -0700
Subject: [PATCH] -

---
 App_Code/modExtensiones.vb      | 4 ++--
 Compras/PopUpVerFactura.aspx.vb | 9 +++++++--
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 2032e20f1..0c2141fd0 100644
--- a/App_Code/modExtensiones.vb
+++ b/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
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 548e22999..afbf7ad7b 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/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