diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 01a91c951..be81921ca 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5782,17 +5782,16 @@ Partial Class PopUpVerFactura
             Dim EstadoCancelacion = drv("EstadoCancelacion").ToString()
             Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime
 
-            Dim MotivoCancelacion As String = "" ' drv("MotivoCancelacion").ToString()
-            Dim FolioSustitucion As String = "" ' drv("FolioFiscalPadre").ToString()
+            Dim MotivoCancelacion As String = ""
+            Dim FolioSustitucion As String = ""
 
-            Dim DirectorioArchivo As String = String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.mrt", ModExtensiones.DirectorioBaseEmpresas)
+            Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/AcuseCancelacion.mrt"
 
             Dim RFCEmisor = UsuarioActual.Empresa.RFC
 
             Dim Titulo As String = "Acuse de cancelación de CFDI"
             Dim EstadoCFDI As String = "Cancelado"
 
-
             'SI NO TIENE EL SELLO BUSCA OBTNERLO DE NUEVO
             If String.IsNullOrEmpty(SelloCancelacion) Then
                 Dim ObjCancelacion As New Timbrado
@@ -5807,7 +5806,7 @@ Partial Class PopUpVerFactura
 
             If CveEstatusFactura = 20 Then
 
-                DirectorioArchivo = String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacionSolicitud.mrt", ModExtensiones.DirectorioBaseEmpresas)
+                DirectorioArchivo = "Empresas/Grales/Formatos/AcuseCancelacionSolicitud.mrt"
 
                 Titulo = "Acuse de solicitud de cancelación de CFDI"
                 EstadoCFDI = "Vigente"
@@ -5851,8 +5850,6 @@ Partial Class PopUpVerFactura
                 End If
             End If
 
-            Dim Archivo As New System.IO.FileInfo(DirectorioArchivo)
-
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("Titulo", Titulo))
             params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
@@ -5864,16 +5861,13 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("MsgError", ""))
             params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
 
-            'ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)
-
-            Dim DtAcuse As DataTable = Nothing
+            Dim DtAcuse = New DataTable("DtAcuse")
+            DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
+            DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
+            DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
+            DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))
 
             If CveEstatusFactura = 20 Then
-                DtAcuse = New DataTable("DtAcuse")
-                DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
-                DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
-                DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
-                DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))
 
                 Dim RowCFDI = DtAcuse.NewRow()
 
@@ -5886,7 +5880,7 @@ Partial Class PopUpVerFactura
             End If
 
 
-            ImprimirPDFStimulsoft(Archivo.FullName, DtAcuse, params, "AcuseCancelacion" & CveVenta)
+            ImprimirPDFStimulsoft(DirectorioArchivo, DtAcuse, params, "AcuseCancelacion" & CveVenta)
 
         End If