Contabilidad/RegPrePoliza.aspx.vb

@@ -202,7 +202,6 @@ Partial Class ContabilidadC_RegPrePoliza
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            Tick = DateTime.Now.Ticks.ToString
 
             If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
                 Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
@@ -1775,6 +1774,7 @@ Partial Class ContabilidadC_RegPrePoliza
         Dim ObjIE As New ClsBancos()
         Dim pathPoliza As String = ""
         Dim TieneComprobante As Boolean
+        Tick = DateTime.Now.Ticks.ToString
 
         Try
             TieneComprobante = VerificarComprobante()
@@ -1865,8 +1865,8 @@ Partial Class ContabilidadC_RegPrePoliza
             Alert("Error al descargar el paquete", TipoMensaje.MsgError)
         End Try
 
-        If File.Exists(pathPoliza) Then
-            Directory.Delete(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), 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
         ObjCompra.Dispose()
         ObjIE.Dispose()