From f9cde1edbb2b37798a0f91484c7dd048040bbf6f Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 May 2023 11:42:11 -0700 Subject: [PATCH] -- mejora en liga de reportes --- Contabilidad/RegPrePolizaS.aspx.vb | 99 +++++------------------------- 1 file changed, 16 insertions(+), 83 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index d5e2f91eb..fdc1f8757 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -5,6 +5,7 @@ Imports ADSNetLibrary.SIGAPI.Models.OC.Response 'Imports DocumentFormat.OpenXml Imports Extensiones Imports GemBox.Spreadsheet +Imports Microsoft.JScript Imports Microsoft.Reporting.WebForms Partial Class ContabilidadC_RegPrePolizaS @@ -2719,34 +2720,29 @@ Partial Class ContabilidadC_RegPrePolizaS #Region "Paquete Egresos" Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs) - - If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then - + If UsuarioActual.Empresa.Funcionalidad(282) = "1" Then ImprimePrePolizasDetalleResumen("PDF") Else - ImprimirPolizaPDF(IdPoliza) - + ImprimirPolizaPDF() End If End Sub - Private Sub ImprimirPolizaPDF(IdPoliza As Integer) + Private Sub ImprimirPolizaPDF() - 'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa) - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Dim params As New List(Of ReportParameter) Dim Bytes As Byte() = Nothing - + Dim Ruta As String = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta) + Dim Archivo As New System.IO.FileInfo(Ruta) Dim ObjConta As New ClsContabilidad - 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then + If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Dim dtVC As DataTable Dim dr As DataRow dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") dr = dtVC.Rows(0) - Dim ruta As String = "" + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) @@ -2757,9 +2753,6 @@ Partial Class ContabilidadC_RegPrePolizaS Else params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) End If - - - params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString)) params.Add(New ReportParameter("Moneda", "")) params.Add(New ReportParameter("CodigoPostal", "")) @@ -2770,26 +2763,20 @@ Partial Class ContabilidadC_RegPrePolizaS If UsuarioActual.CveEmpresa.Contiene(140, 141) Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) End If - If Archivo.Exists Then - ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" + Ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" Else Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - ruta = "Empresas/Grales/Formatos/Polizas.rdlc" + Ruta = "Empresas/Grales/Formatos/Polizas.rdlc" End If - - - - ImprimirbytesPDF(StreamPDF(ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True) + ImprimirbytesPDF(StreamPDF(Ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True) End If - - 'Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString) ObjConta.Dispose() End Sub @@ -3230,97 +3217,43 @@ Partial Class ContabilidadC_RegPrePolizaS Private Sub ImprimePrePolizasDetalleResumen(Optional Tipo As String = "PDF") - Dim Archivo As System.IO.FileInfo Dim params As New List(Of ReportParameter) - Dim Bytes As Byte() = Nothing + Dim TipoPolizaString As String = If(DdlTipoPoliza.SelectedValue = "1", "I", If(DdlTipoPoliza.SelectedValue = "2", "E", "D")).ToString Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero Dim ConceptoPoliza As String = TxtConcepto.Text - - - Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) - - + Dim RutaReporte As String = RutaFormatoReporte("PolizasResumen.rdlc") Dim ObjConta As New ClsContabilidad - 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then + If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Dim dtVC As DataTable Dim dr As DataRow dtVC = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden") dr = dtVC.Rows(0) - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("TipoPoliza", DdlTipoPoliza.SelectedItem.Text)) params.Add(New ReportParameter("Finicio", TxtFechaDocumento.Text)) params.Add(New ReportParameter("FFin", TxtFechaDocumento.Text)) - params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text)) - params.Add(New ReportParameter("Numero", TxtFolio.Text)) params.Add(New ReportParameter("Moneda", If(CveMoneda = 2, "Dolar", "Peso Mexicano"))) params.Add(New ReportParameter("CodigoPostal", "")) - params.Add(New ReportParameter("UsuarioRegistro", TxtUsuarioElaboro.Text)) params.Add(New ReportParameter("ConceptoPoliza", ConceptoPoliza)) - params.Add(New ReportParameter("Folio", TxtFolio.Text)) + params.Add(New ReportParameter("pImg", RutaImagenLogo)) - - - - - If Logo.Exists Then - params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}")) - Else - params.Add(New ReportParameter("pImg", "")) - End If - - - - - Dim RutaReprote As String - If Archivo.Exists Then - RutaReprote = Archivo.FullName - Else - RutaReprote = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc" - End If - - Dim TipoPolizaString = "" - - Select Case DdlTipoPoliza.SelectedValue.ToEntero - Case 1 - TipoPolizaString = "I" - Exit Select - Case 2 - TipoPolizaString = "E" - Exit Select - - Case Else - TipoPolizaString = "D" - Exit Select - - End Select - - - ImprimirbytesPDF(StreamPDF(RutaReprote, dtVC, params, "PrePoliza", Formato:=Tipo), $"P{TipoPolizaString}{TxtFolio.Text}", Formato:=Tipo, Descarga:=True) + ImprimirbytesPDF(StreamPDF(RutaReporte, dtVC, params, "PrePoliza", Formato:=Tipo), $"P{TipoPolizaString}{TxtFolio.Text}", Formato:=Tipo, Descarga:=True) End If ObjConta.Dispose() End Sub - - Protected Sub LnkImprimePDFResumen_Click(sender As Object, e As EventArgs) ImprimePrePolizasDetalleResumen("PDF") End Sub - 'Protected Sub LnkImprimeExcelResumen_Click(sender As Object, e As EventArgs) - ' ImprimePrePolizasDetalleResumen("Excel") - 'End Sub - - End Class