Impresion Rep CxC

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