AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-05-05 19:36:09 -07:00
parent 6f87291bf3
commit 419b939cba
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contabilidad/RegPrePoliza.aspx.vb
View File

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