From aec9e54cc86485792acc785495aaeea5f94f544f Mon Sep 17 00:00:00 2001 From: JPerez Date: Fri, 27 Jun 2025 18:09:33 -0700 Subject: [PATCH] Impresion Rep CxC --- CxC/RepCxCDetalle.aspx.vb | 17 +- Empresas/Grales/Formatos/RepCxCDetalle.rdlc | 3952 ++++++++++--------- 2 files changed, 1988 insertions(+), 1981 deletions(-) diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 83cc6abd3..0d53e58ab 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -481,7 +481,7 @@ Partial Class RepCxCDetalle DdlContrato.DataBind() End Sub - Private Function CargaDatos() As DataSet + Private Function CargaDatos(Optional Impresion As Boolean = True) As DataSet Dim DSRespuesta As New DataSet @@ -515,12 +515,12 @@ Partial Class RepCxCDetalle CveContrato:=DdlContrato.SelectedValue.ToEntero, Aseguradora:=DdlAseguradora.SelectedValue.ToEntero, CveSubProyectoCobranza:=DdlSubProyectoCobranza.SelectedValue.ToEntero()) Then Dim DTdatos As DataTable = ObjMovtos.DSResultados.Tables(0).Copy - DTGvSourcePersonalizaRangos(DTdatos) + DTGvSourcePersonalizaRangos(DTdatos, Impresion) GvDatos.DataSource = DTdatos 'ObjMovtos.DSResultados.Tables(0) 'DTaDAtos = ObjMovtos.DSResultados.Tables(0) 'DTaDAtos.TableName = "DTaDAtos" - DSRespuesta.Tables.Add(ObjMovtos.DSResultados.Tables(0).Copy) + DSRespuesta.Tables.Add(DTdatos.Copy) If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then GvCartera.DataSource = ObjMovtos.DSResultados.Tables(1) @@ -824,7 +824,7 @@ Partial Class RepCxCDetalle Dim lrds As New List(Of ReportDataSource) - Dim DSDatos As DataSet = CargaDatos() + Dim DSDatos As DataSet = CargaDatos(Impresion:=True) Dim dtt1 As DataTable = Nothing Dim dtt2 As DataTable = Nothing @@ -1262,7 +1262,7 @@ Partial Class RepCxCDetalle End Sub - Private Sub DTGvSourcePersonalizaRangos(ByRef DtDatos As DataTable) + Private Sub DTGvSourcePersonalizaRangos(ByRef DtDatos As DataTable, Optional Impresion As Boolean = False) DtDatos.Columns.Add("R1", GetType(Decimal)) DtDatos.Columns.Add("R2", GetType(Decimal)) @@ -1290,7 +1290,10 @@ Partial Class RepCxCDetalle Dim chk As CheckBox = TryCast(TPersonalizar.FindControl(ChkID), CheckBox) If chk.Checked Then + Impresion = True + End If + If Impresion Then For Each dRowDT As DataRow In DtDatos.Rows Dim DiasVencidos As Integer = dRowDT("DiasVencidos").ToString.ToEntero @@ -1319,9 +1322,9 @@ Partial Class RepCxCDetalle Next NumColActual = NumColActual + 1 - - End If + + Next diff --git a/Empresas/Grales/Formatos/RepCxCDetalle.rdlc b/Empresas/Grales/Formatos/RepCxCDetalle.rdlc index aaad0022a..40a04a400 100644 --- a/Empresas/Grales/Formatos/RepCxCDetalle.rdlc +++ b/Empresas/Grales/Formatos/RepCxCDetalle.rdlc @@ -1,1978 +1,5 @@  - - - - - - - - 1.97083cm - - - 2.01211cm - - - 2.16822cm - - - 2.31777cm - - - 2.39476cm - - - 3.15201cm - - - 2.24291cm - - - 1.89897cm - - - 1.74625cm - - - 6.44442cm - - - - - 0.49417cm - - - - - true - true - - - - - Tipo Docto - - - - - - - Textbox3 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox4 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio - - - - - - - Textbox12 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total - - - - - - - Textbox14 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Saldo - - - - - - - Textbox16 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sucursal Venta - - - - - - - Textbox18 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha Venc. - - - - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dias Venc. - - - - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Código - - - - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.41479cm - - - - - true - true - - - - - - - - - - - - TipoDocto - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Fecha.Value Is Nothing, "Cantidad:", Fields!Fecha.Value) - - - - - - - Fecha2 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - - SerieFolio4 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total2 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - - Saldo2 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!SubProyecto.Value = "", "Total", Fields!SubProyecto.Value) - - - - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - 5 - - - - - - - - - - 0.36363cm - - - - - true - true - - - - - =Fields!TipoDocto.Value - - - - - - - TipoDocto1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Fecha.Value - - - - - - - Fecha1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - - SerieFolio1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SubProyecto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FechaVencimiento.Value - - - - - - - FechaVencimiento1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!DiasVencidos.Value - - - - - - - DiasVencidos1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!Nombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - =iif(Fields!Fecha.Value IS NOTHING, false, true) - - - - - =iif(Fields!Fecha.Value IS NOTHING, True, False) - - - - - - - true - true - DataSet1 - 0.15021cm - 0.0635cm - 1.27259cm - 26.34825cm - - - - - - - - - 2.5cm - - - 2.5cm - - - 2.5cm - - - 2.5cm - - - - - 0.49417cm - - - - - true - true - - - - - Rango Días - - - - - - - Textbox15 - - - - Black - - - Black - - - Black - - - Black - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox19 - - - - Black - - - Black - - - Black - - - Black - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - % - - - - - - - Textbox23 - - - - Black - - - Black - - - Black - - - Black - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Objetivo - - - - - - - Textbox26 - - - - Black - - - Black - - - Black - - - Black - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.2825cm - - - - - true - true - - - - - =Fields!Rango.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - - Saldo1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Porcentaje.Value - - - - - - - Porcentaje - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Objetivo.Value - - - - - - - Objetivo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - After - - - - - - - DSCartera - 1.6429cm - 0.77667cm - 10cm - 1 - - =IIF(CountRows()>0,false,true) - - - - - - - 0.99425in - - - - - - - Textbox1 - 0.18521cm - 7.41726cm - 0.6cm - 13.02632cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!TituloReporte.Value - - - - - - - Textbox2 - 0.94396cm - 7.41726cm - 0.52945cm - 13.02632cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.0635cm - 1.87966cm - 3.21028cm - 2 - - - - - - true - true - - - - - =Parameters!AgrupadoPor.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 3.61032cm - 0cm - 26.34825cm - 4 - - - - - - - - - - - 1.42862cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.2099cm - 23.83501cm - 0.40039cm - 2.35691cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!ExecutionTime - - - - - - - Textbox11 - 0.22224cm - 13.83641cm - 0.40039cm - 6.04724cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.11641cm - 0.0635cm - 0cm - 26.34825cm - 5 - - - - - - true - true - - - - - IMPRESO EN SIG, Rep. CxC Detalle - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 21.59cm - 27.94cm - 0.5cm - 0.5cm - 0.5cm - 0.5cm - 0.13cm - + + + + + + Textbox3 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox4 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio + + + + + + + Textbox12 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox14 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox16 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sucursal Venta + + + + + + + Textbox18 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Venc. + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dias Venc. + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Código + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + + + + + + + + TipoDocto + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Fecha.Value Is Nothing, "Cantidad:", Fields!Fecha.Value) + + + + + + + Fecha2 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + + SerieFolio4 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total2 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo2 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!SubProyecto.Value = "", "Total", Fields!SubProyecto.Value) + + + + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + 5 + + + + + + + + + + 0.36363cm + + + + + true + true + + + + + =Fields!TipoDocto.Value + + + + + + + TipoDocto1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + + SerieFolio1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaVencimiento.Value + + + + + + + FechaVencimiento1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!DiasVencidos.Value + + + + + + + DiasVencidos1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + =iif(Fields!Fecha.Value IS NOTHING, false, true) + + + + + =iif(Fields!Fecha.Value IS NOTHING, True, False) + + + + + + + true + true + DataSet1 + 0.15021cm + 0.0635cm + 1.27259cm + 24.80181cm + + + + + + + + + 2.5cm + + + 2.5cm + + + 2.5cm + + + 2.5cm + + + + + 0.49417cm + + + + + true + true + + + + + Rango Días + + + + + + + Textbox15 + + + + Black + + + Black + + + Black + + + Black + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox19 + + + + Black + + + Black + + + Black + + + Black + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % + + + + + + + Textbox23 + + + + Black + + + Black + + + Black + + + Black + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Objetivo + + + + + + + Textbox26 + + + + Black + + + Black + + + Black + + + Black + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.2825cm + + + + + true + true + + + + + =Fields!Rango.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Porcentaje.Value + + + + + + + Porcentaje + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Objetivo.Value + + + + + + + Objetivo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DSCartera + 1.6429cm + 0.77667cm + 10cm + 1 + + =IIF(CountRows()>0,false,true) + + + + + + + 0.99425in + + + + + + + Textbox1 + 0.18521cm + 7.41726cm + 0.6cm + 13.02632cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TituloReporte.Value + + + + + + + Textbox2 + 0.94396cm + 7.41726cm + 0.52945cm + 13.02632cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.0635cm + 1.87966cm + 3.21028cm + 2 + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 3.61032cm + 0cm + 26.34825cm + 4 + + + + + + + + + + + 1.42862cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.2099cm + 23.83501cm + 0.40039cm + 2.35691cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.22224cm + 13.83641cm + 0.40039cm + 6.04724cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.11641cm + 0.0635cm + 0cm + 26.34825cm + 5 + + + + + + true + true + + + + + IMPRESO EN SIG, Rep. CxC Detalle + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21.59cm + 27.94cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm +