Contabilidad/RegPrePoliza.aspx.vb

@@ -1843,7 +1843,6 @@ Partial Class ContabilidadC_RegPrePoliza
                 dt = DtMovimientos.FiltraParametros("", "", filtroComplemento)
                 For Each Row As DataRow In dt.Rows
                     If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, Row("CveIE").ToString.ToEntero) Then
-                        Console.WriteLine(Row("CveIE").ToString)
                         If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
                             Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
                             Dim RFC As String = dr("RFCde").ToString
@@ -1860,17 +1859,20 @@ Partial Class ContabilidadC_RegPrePoliza
                     End If
                 Next
                 MergePdfFiles(Pathpdf.ToArray)
+                If File.Exists(pathPoliza) Then
+                    Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+                End If
+
             Else
                 Alert("No se tiene cargado comprobante de pago", TipoMensaje.MsgAdvertencia)
             End If
 
         Catch ex As Exception
             Alert("Error al descargar el paquete", TipoMensaje.MsgError)
+            If File.Exists(pathPoliza) Then
+                Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+            End If
         End Try
-
-        If Directory.Exists(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick)) Then
-            Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
-        End If
         ObjCompra.Dispose()
         ObjIE.Dispose()
     End Sub
@@ -1989,6 +1991,9 @@ Partial Class ContabilidadC_RegPrePoliza
 
                 End If
                 result = True
+                If Directory.Exists(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick)) Then
+                    Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+                End If
             End If
         Catch ex As Exception
         End Try