From 4e9d1523a28e787db357c8d5684ace6d449a3192 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Wed, 5 May 2021 13:27:16 -0700 Subject: [PATCH] Cambios en reporte poliza --- Contabilidad/RegPrePoliza.aspx.vb | 10 ++++------ Contabilidad/RegPrePolizaS.aspx.vb | 3 +++ 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 7b4c0ec8f..19a08959f 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/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 diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 5a4b20361..b849c17bd 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/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