258 lines
10 KiB
VB.net
258 lines
10 KiB
VB.net
Imports System.Data
|
|
Imports Extensiones
|
|
Imports System.Linq
|
|
Imports Microsoft.Reporting.WebForms
|
|
|
|
Partial Class OI_RepSoporteADS
|
|
Inherits ClsPaginas
|
|
|
|
#Region "PROPIEDADES - AC NEW"
|
|
Private Property TipoReporte As Integer
|
|
Get
|
|
Return CType(ViewState("TipoReporte"), Integer)
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("TipoReporte") = value
|
|
End Set
|
|
End Property
|
|
Private Property DTOIEventosTareas As DataTable
|
|
Get
|
|
Return CType(ViewState("DTOIEventosTareas"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTOIEventosTareas") = value
|
|
End Set
|
|
End Property
|
|
Private Property DTOIEventosTareasCCP As DataTable
|
|
Get
|
|
Return CType(ViewState("DTOIEventosTareasCCP"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTOIEventosTareasCCP") = value
|
|
End Set
|
|
End Property
|
|
Private Property DTOIEventosTareasAsigne As DataTable
|
|
Get
|
|
Return CType(ViewState("DTOIEventosTareasAsigne"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTOIEventosTareasAsigne") = value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
|
|
If UsuarioActual.CveRol = 1 Then
|
|
'ThEmpresa.Visible = True
|
|
GvDatosOIEventosTareasAsignaron.Columns(9).Visible = True
|
|
End If
|
|
|
|
'ORDEN ASIGNADAS
|
|
ViewState("Orden0") = ""
|
|
ViewState("Orden1") = ""
|
|
ViewState("Orden2") = ""
|
|
|
|
'DOCUMENTACION
|
|
' 1 = ESCRITORIO
|
|
' -1 = NORMAL
|
|
TipoReporte = 1
|
|
|
|
CargaFiltros()
|
|
|
|
CargaDatosOIEventosTareasAsignaron()
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaFiltros()
|
|
txtFechaI.Text = New Date(Now.Year, Now.Month, 1).ToShortDateString
|
|
txtFechaF.Text = Now.ToShortDateString
|
|
CargarEventoEstatus()
|
|
CargaRevisiones()
|
|
CargaUsuarios()
|
|
End Sub
|
|
|
|
Private Sub CargaUsuarios()
|
|
DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = 2 ")
|
|
DdlUsuarios.DataBind()
|
|
DdlUsuarios.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
End Sub
|
|
|
|
Private Sub CargarEventoEstatus()
|
|
DdlEventoEstatus.DataSource = GlobalDTOIEstatusEventos
|
|
DdlEventoEstatus.DataBind()
|
|
End Sub
|
|
|
|
Private Sub CargaRevisiones()
|
|
Dim ObjRevisiones As New ClsOIEventos
|
|
|
|
If ObjRevisiones.GetRevisionesUsuario(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
|
DdlRevision.DataSource = ObjRevisiones.DtResultados
|
|
Else
|
|
Alert("Ocurrió un error al obtener las Revisiones del Usuario", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
ObjRevisiones.Dispose()
|
|
DdlRevision.DataBind()
|
|
End Sub
|
|
|
|
|
|
Public Sub CargaDatosOIEventosTareasAsignaron()
|
|
Dim ObjProspectos As New ClsOIEventos
|
|
|
|
Dim FechaI, FechaF As DateTime
|
|
Dim CveEventoEstatus As Integer
|
|
|
|
FechaI = txtFechaI.Text.ToDate
|
|
FechaF = txtFechaF.Text.ToDate
|
|
|
|
If DdlEventoEstatus.SelectedValue > "0" Then CveEventoEstatus = DdlEventoEstatus.SelectedValue.ToEntero Else CveEventoEstatus = -1
|
|
|
|
If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, -1, FechaI, FechaF, TipoReporte:=TipoReporte) Then
|
|
DTOIEventosTareas = ObjProspectos.DtResultados.FiltraParametros(" CveTipoEvento IN ( 9)")
|
|
|
|
If DdlUsuarios.SelectedIndex > 0 Then
|
|
DTOIEventosTareas = DTOIEventosTareas.FiltraParametros(" CveUsuarioPara = " & DdlUsuarios.SelectedValue.ToEntero)
|
|
|
|
End If
|
|
|
|
'BURBUJITAS - BADGE
|
|
'If DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
|
|
' LtBurbujitaAsignaronPendientes.Text = String.Format("<span Class='badge badge-danger' data-toggle='tooltip' data-placement='bottom' title='Pendientes'>{0}</span>", DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count)
|
|
'Else
|
|
' LtBurbujitaAsignaronPendientes.Text = ""
|
|
'End If
|
|
|
|
'If DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count > 0 Then
|
|
' LtBurbujitaAsignaronAtendiendo.Text = String.Format("<span class='badge badge-success' data-toggle='tooltip' data-placement='bottom' title='Atendiendo'>{0}</span>", DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count)
|
|
'Else
|
|
' LtBurbujitaAsignaronAtendiendo.Text = ""
|
|
'End If
|
|
|
|
Else
|
|
Alert("Ocurrió un Error al consultar las tareas. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
ObjProspectos.Dispose()
|
|
|
|
|
|
If ViewState("Orden0").ToString() <> String.Empty Or TipoReporte = -1 Then
|
|
CargaGridOIEventosTareasAsignaron(ViewState("Orden0").ToString())
|
|
Else
|
|
CargaGridOIEventosTareasAsignaron("")
|
|
End If
|
|
|
|
UPDatosOIEventosTareasAsignaron.Update()
|
|
End Sub
|
|
Private Sub CargaGridOIEventosTareasAsignaron(Orden As String)
|
|
If Orden <> String.Empty Then
|
|
Dim DV As New DataView(DTOIEventosTareas, "", Orden, DataViewRowState.CurrentRows)
|
|
GvDatosOIEventosTareasAsignaron.DataSource = DV.ToTable()
|
|
DV.Dispose()
|
|
Else
|
|
GvDatosOIEventosTareasAsignaron.DataSource = DTOIEventosTareas
|
|
End If
|
|
GvDatosOIEventosTareasAsignaron.DataBind()
|
|
End Sub
|
|
Protected Sub GvDatosOIEventosTareasAsignaron_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosOIEventosTareasAsignaron.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
e.Row.FCLiteral("LtlUsuarioPara").Text = String.Format("<a Class=""Texto"" href=""/OI/SoporteADS.aspx?CveTipoEvento={0}&CveEvento={1}&CveEmpresa={3}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioPara"), e.Row.DBCampo("CveEmpresa"))
|
|
e.Row.FCLiteral("LtlUsuarioDe").Text = String.Format("<a Class=""Texto"" href=""/OI/SoporteADS.aspx?CveTipoEvento={0}&CveEvento={1}&CveEmpresa={3}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioDe"), e.Row.DBCampo("CveEmpresa"))
|
|
e.Row.FCLiteral("LtlAsunto").Text = String.Format("<a Class=""Texto"" href=""/OI/SoporteADS.aspx?CveTipoEvento={0}&CveEvento={1}&CveEmpresa={3}"">{2}</a>", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("Asunto"), e.Row.DBCampo("CveEmpresa"))
|
|
|
|
e.Row.Attributes.Add("onclick", String.Format("Previo({0});", e.Row.DBCampo("CveEvento")))
|
|
e.Row.Attributes.Add("onmouseover", "this.style.background='silver';this.style.cursor='pointer';")
|
|
e.Row.Attributes.Add("onmouseout", "this.style.background='white';this.style.cursor='default'")
|
|
' "<a class=""Texto"" href=""/AC/ProgramaOperativo.aspx?CveProgramaOperativo=" & e.Row.DBCampo("CveProgramaOperativo") & """>" & e.Row.DBCampo("Clave") & "</a>"
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
#Region " CARGA DATOS "
|
|
|
|
Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs)
|
|
TipoReporte = 1
|
|
CargaDatos()
|
|
TipoReporte = -1
|
|
LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
|
|
UPFiltros.Update()
|
|
End Sub
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
|
TipoReporte = -1
|
|
CargaDatos()
|
|
TipoReporte = -1
|
|
LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
|
|
UPFiltros.Update()
|
|
End Sub
|
|
Protected Sub BtnEscritorio_Click(sender As Object, e As EventArgs) Handles BtnEscritorio.Click
|
|
TipoReporte = 1
|
|
CargaDatos()
|
|
TipoReporte = -1
|
|
LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
|
|
UPFiltros.Update()
|
|
End Sub
|
|
Private Sub CargaDatos()
|
|
CargaDatosOIEventosTareasAsignaron()
|
|
|
|
UPDatosOIEventosTareasAsignaron.Update()
|
|
Me.RegistraScript("UpperBound = " & GvDatosOIEventosTareasAsignaron.Rows.Count - 1 & ";")
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "I M P R I M I R P D F/Excel"
|
|
|
|
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
|
|
GenerarPDF("Excel")
|
|
End Sub
|
|
Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
|
|
GenerarPDF()
|
|
End Sub
|
|
|
|
Private Sub GenerarPDF(Optional Formato As String = "PDF")
|
|
Dim ObjTareas As New ClsOIEventos
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
Dim FechaI, FechaF As String
|
|
FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
|
|
FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("FechaInicio", FechaI))
|
|
params.Add(New ReportParameter("FechaFin", FechaF))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ImprimirPDF("Empresas\Grales\Formatos\RepSoportesADS.rdlc", DTOIEventosTareas, params, "ReporteTareas", Formato:=Formato)
|
|
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
End Class
|
|
|