manejo sobre el usuario asignado, reporte cambios

OC/RepOC.aspx.vb

@@ -22,9 +22,17 @@ Partial Class RepOC
         Set(value As DataTable)
             ViewState("DtPorAtender") = value
         End Set
-    End Property
+    End Property
+    Private Property DtPendiente As DataTable
+        Get
+            Return DirectCast(ViewState("DtPendiente"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtPendiente") = value
+        End Set
+    End Property
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             txtFechaI.Text = Now.AddMonths(-3).ToShortDateString
@@ -87,6 +95,7 @@ Partial Class RepOC
         CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LblSubProyecto)
         GvPorAtender.Columns(5).HeaderText = LblSubProyecto.Text
         GvPendientes.Columns(5).HeaderText = LblSubProyecto.Text
+        GvConsultar.Columns(5).HeaderText = LblSubProyecto.Text
         DivProyectos.Visible = DdlProyectos.Visible
     End Sub
 
@@ -182,6 +191,7 @@ Partial Class RepOC
     Protected Sub btnConsultarPendientes_Click(sender As Object, e As EventArgs) Handles btnConsultarPendientes.Click
         LbPorAtender.Visible = True
         LbPendientes.Visible = True
+        LbPendientesPDF.Visible = True
         LbConsultar.Visible = False
 
         Tab.Visible = True
@@ -214,6 +224,7 @@ Partial Class RepOC
                                    DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
                                    CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
             GvPendientes.DataSource = OC.DtResultados
+            DtPendiente = OC.DtResultados
             GvPendientes.DataBind()
             'If (GvPendientes.Rows.Count > 0) Then
             '    GvPendientes.UseAccessibleHeader = True
@@ -312,6 +323,7 @@ Partial Class RepOC
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
         LbPorAtender.Visible = False
         LbPendientes.Visible = False
+        LbPendientesPDF.Visible = False
         LbConsultar.Visible = True
         DivConsultar.Visible = True
         DivPendiete.Visible = False
@@ -330,7 +342,8 @@ Partial Class RepOC
                         CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
 
             GvConsultar.DataSource = OC.DtResultados
-            DtOC = OC.DtResultados
+            DtOC = OC.DtResultados
+            DtPorAtender = OC.DtResultados
             LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero
 
             If UsuarioActual.TienePermisoProceso(227) Then
@@ -459,6 +472,7 @@ Partial Class RepOC
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("AgrupadoPor", $"{Folio}{Tipo}{Proyecto}{SubProyecto}{Estatus}{AF}{Usuario}{FI}{FF}{Clasificacion}{Producto}{Completa}{Proveedor}{Cliente}"))
             params.Add(New ReportParameter("SubProyectoHeader", LblSubProyecto.Text))
+            params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER"))
 
             If Imagen.Exists Then
                 params.Add(New ReportParameter("LogoPath", logouri))
@@ -480,7 +494,27 @@ Partial Class RepOC
 
     End Sub
     Protected Sub LbPendientes_Click(sender As Object, e As System.EventArgs) Handles LbPendientes.Click
-        GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
+        'GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
+        ImprimirPendientes("EXCEL")
+    End Sub
+    Protected Sub LbPendientesPDF_Click(sender As Object, e As System.EventArgs) Handles LbPendientesPDF.Click
+        ImprimirPendientes("PDF")
+    End Sub
+
+    Private Sub ImprimirPendientes(format As String)
+        If UsuarioActual.CveEmpresa.Contiene(72) Then
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text = "", "-1", txtFechaI.Text)))
+            params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text)))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
+            params.Add(New ReportParameter("SubProyecto", LblSubProyecto.Text))
+
+            ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtPendiente, params, Formato:=format)
+        Else
+            GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString)
+        End If
     End Sub
     Protected Sub LbConsultar_Click(sender As Object, e As System.EventArgs) Handles LbConsultar.Click
         If UsuarioActual.CveEmpresa.Contiene(72) Then