Cxc Impresión, rep preasistenciachecador, dia siguienete marcado como retardo

Bancos/RepCxCCliente.aspx.vb

@@ -7,6 +7,10 @@ Partial Class Bancos_RepCxCCliente
 
     Private Property DtDatos As DataTable
         Get
+            If ViewState("DtDatos") Is Nothing Then
+                ViewState("DtDatos") = New DataTable
+            End If
+
             Return CType(ViewState("DtDatos"), DataTable)
         End Get
         Set(value As DataTable)
@@ -51,6 +55,7 @@ Partial Class Bancos_RepCxCCliente
         CargaDatos()
     End Sub
     Private Sub CargaDatos()
+        DtDatos = New DataTable
         Dim Mov As New ClsMovimientos
         Dim FechaI, FechaF As String
         Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)
@@ -63,6 +68,7 @@ Partial Class Bancos_RepCxCCliente
         If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1,
                              UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta, EstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then
             GvCxC.DataSource = Mov.DtResultados
+            DtDatos = Mov.DtResultados
         End If
         UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue
 
@@ -137,7 +143,7 @@ Partial Class Bancos_RepCxCCliente
 
         'OBTENEMOS LOS DATOS
         Dim ObjMovtos As New ClsMovimientos()
-        Dim DTpp As DataTable
+
         Dim FI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
         Dim FF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
         Dim FechaI, FechaF As String
@@ -146,13 +152,14 @@ Partial Class Bancos_RepCxCCliente
         If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1"
         Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)
 
-        If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then
-            DTpp = ObjMovtos.DtResultados
-        Else
-            DTpp = Nothing
-        End If
-        If DTpp.Rows.Count > 0 Then
-            Dim dr As DataRow = DTpp.Rows(0)
+        'If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then
+        '    DTpp = ObjMovtos.DtResultados
+        'Else
+        '    DTpp = Nothing
+        'End If
+
+        If DtDatos.Rows.Count > 0 Then
+            Dim dr As DataRow = DtDatos.Rows(0)
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("FechaInicio", FI))
@@ -161,7 +168,7 @@ Partial Class Bancos_RepCxCCliente
             params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DTpp, params, "ReportePagoClientes")
+            ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DtDatos, params, "ReportePagoClientes")
         Else
             Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)
         End If