Cambios en reporte poliza

Contabilidad/RegPrePoliza.aspx.vb

@@ -1856,20 +1856,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 File.Exists(pathPoliza) Then
+            Directory.Delete(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+        End If
         ObjCompra.Dispose()
         ObjIE.Dispose()
     End Sub

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2037,6 +2037,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