From 419b939cba1bc5a95ad936b357e138d609bcbc70 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Wed, 5 May 2021 19:36:09 -0700
Subject: [PATCH]

---
 Contabilidad/RegPrePoliza.aspx.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index 19a08959f..ac786d10a 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/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()