Merge branch 'master' of http://192.168.10.111:8383/SIG

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"))
@@ -1778,6 +1777,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()
@@ -1859,20 +1859,18 @@ Partial Class ContabilidadC_RegPrePoliza
                         End If
                     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)
         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

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2047,6 +2047,9 @@ Partial Class ContabilidadC_RegPrePolizaS
             If UsuarioActual.CveEmpresa = 119 Then
                 params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
             End If
+            If UsuarioActual.CveEmpresa = 140 Then
+                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            End If
             If Archivo.Exists Then
                 ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
             Else