Option Explicit On
Option Strict On
Imports System.Data
Imports Extensiones
Partial Class OI_RepTareas
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()
CargaDatosOIEventosTareasAsigne()
CargaDatosOIEventosTareasCCP()
End If
UpGrafica.Update()
End Sub
Private Sub CargaFiltros()
txtFechaI.Text = New Date(Now.Year, Now.Month, 1).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
CargarEventoEstatus()
CargaRevisiones()
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
#Region "Tareas que me asignaron"
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, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then
DTOIEventosTareas = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} AND CveTipoEvento IN (1,3)", UsuarioActual.CveUsuario))
ltlGrafMEasiginaron.Text = DTOIEventosTareas.Rows.Count.ToString()
'BURBUJITAS - BADGE
If DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
LtBurbujitaAsignaronPendientes.Text = String.Format("{0}", DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count)
Else
LtBurbujitaAsignaronPendientes.Text = ""
End If
If DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count > 0 Then
LtBurbujitaAsignaronAtendiendo.Text = String.Format("{0}", 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("LtlUsuarioDe").Text = String.Format("{2}", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioDe"))
e.Row.FCLiteral("LtlAsunto").Text = String.Format("{2}", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("Asunto"))
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'")
' "" & e.Row.DBCampo("Clave") & ""
End If
End Sub
#End Region
#Region "Tareas CCP"
Public Sub CargaDatosOIEventosTareasCCP()
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.GetEventosUsuarioCCP(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlRevision.SelectedValue.ToEntero, FechaI, FechaF, CveEventoEstatus) Then
DTOIEventosTareasCCP = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario))
ltlgrafCcp.Text = DTOIEventosTareasCCP.Rows.Count.ToString()
'BURBUJITAS - BADGE
If DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
LtBurbujitaCCPPendientes.Text = String.Format("{0}", DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count)
Else
LtBurbujitaCCPPendientes.Text = ""
End If
If DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count > 0 Then
LtBurbujitaCCPAtendiendo.Text = String.Format("{0}", DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count)
Else
LtBurbujitaCCPAtendiendo.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("Orden1").ToString() <> String.Empty Then
CargaGridOIEventosTareasCCP(ViewState("Orden1").ToString())
Else
CargaGridOIEventosTareasCCP("")
End If
UPDatosOIEventosTareasCCP.Update()
End Sub
Private Sub CargaGridOIEventosTareasCCP(Orden As String)
If Orden <> String.Empty Then
Dim DV As New DataView(DTOIEventosTareasCCP, "", Orden, DataViewRowState.CurrentRows)
GvDatosOIEventosTareasCCP.DataSource = DV.ToTable()
DV.Dispose()
Else
GvDatosOIEventosTareasCCP.DataSource = CType(ViewState("DTOIEventosTareasCCP"), DataTable)
End If
GvDatosOIEventosTareasCCP.DataBind()
End Sub
Protected Sub GvDatosOIEventosTareasCCP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosOIEventosTareasCCP.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.FCLiteral("LtlUsuarioDe").Text = String.Format("{2}", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioDe"))
e.Row.FCLiteral("LtlUsuarioPara").Text = String.Format("{2}", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioDe"))
e.Row.FCLiteral("LtlAsunto").Text = String.Format("{2}", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("Asunto"))
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'")
End If
End Sub
#End Region
#Region " Tareas que Asigné"
Public Sub CargaDatosOIEventosTareasAsigne()
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, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then
DTOIEventosTareasAsigne = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario))
ltlgrafAsigne.Text = DTOIEventosTareasAsigne.Rows.Count.ToString()
'BURBUJITAS - BADGE
If DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
LtBurbujitaAsignePendientes.Text = String.Format("{0}", DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count)
Else
LtBurbujitaAsignePendientes.Text = ""
End If
If DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count > 0 Then
LtBurbujitaAsigneAtendiendo.Text = String.Format("{0}", DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Atendiendo'").Rows.Count)
Else
LtBurbujitaAsigneAtendiendo.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("Orden2").ToString() <> String.Empty Or TipoReporte = -1 Then
CargaGridOIEventosTareasAsigne(ViewState("Orden2").ToString())
Else
CargaGridOIEventosTareasAsigne("")
End If
UPDatosOIEventosTareasAsigne.Update()
End Sub
Private Sub CargaGridOIEventosTareasAsigne(Orden As String)
If Orden <> String.Empty Then
Dim DV As New DataView(DTOIEventosTareasAsigne, "", Orden, DataViewRowState.CurrentRows)
GvDatosOIEventosTareasAsigne.DataSource = DV.ToTable()
DV.Dispose()
Else
GvDatosOIEventosTareasAsigne.DataSource = CType(ViewState("DTOIEventosTareasAsigne"), DataTable)
End If
GvDatosOIEventosTareasAsigne.DataBind()
End Sub
Protected Sub GvDatosOIEventosTareasAsigne_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosOIEventosTareasAsigne.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.FCLiteral("LtlUsuarioPara").Text = String.Format("{2}", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("UsuarioPara"))
e.Row.FCLiteral("LtlAsunto").Text = String.Format("{2}", e.Row.DBCampo("CveTipoEvento"), e.Row.DBCampo("CveEvento"), e.Row.DBCampo("Asunto"))
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'")
End If
End Sub
#End Region
#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()
CargaDatosOIEventosTareasAsigne()
CargaDatosOIEventosTareasCCP()
UPDatosOIEventosTareasAsignaron.Update()
Me.RegistraScript("UpperBound = " & GvDatosOIEventosTareasAsignaron.Rows.Count - 1 & ";")
End Sub
#End Region
#Region "O R D E N A M I E T O"
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim Orden As String = ""
Dim Campo As String = ""
Dim gvi As Integer = 0
Dim Literal As Literal = Nothing
Const OrdenInicial As String = ""
Dim Arg(2) As String
Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
Campo = Arg(0)
gvi = Arg(1).ToEntero
Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
Campo = Campo.Substring(0, Campo.Length - 1)
If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString = String.Format("{0} DESC", Campo) Then
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
Literal.Text = String.Format("")
Else
ViewState(String.Format("O{0}", Campo, gvi)) = String.Format("{0} DESC", Campo)
Literal.Text = String.Format("")
End If
Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString
ViewState("Orden") = Orden
CargaGrid(Orden, gvi)
End Sub
Private Sub CargaGrid(Orden As String, gvi As Integer)
If gvi = 0 Then
ViewState("Orden0") = Orden
CargaGridOIEventosTareasAsignaron(Orden)
ElseIf gvi = 1 Then
ViewState("Orden1") = Orden
CargaGridOIEventosTareasCCP(Orden)
ElseIf gvi = 2 Then
ViewState("Orden2") = Orden
CargaGridOIEventosTareasAsigne(Orden)
End If
End Sub
#End Region
''COMENTADO POR QUE PASO A SEGUNDO TERMINO
'Protected Sub btnPrevio_Click(sender As Object, e As EventArgs) Handles btnPrevio.Click
' Dim objEventos As New ClsOIEventos
' If objEventos.GetEventos(hdnCveEvento.Value.ToEntero, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
' If objEventos.CveEvento > 0 Then
' With objEventos
' lblUsuarioPara.Text = .UsuarioPara
' lblUsuarioDe.Text = .UsuarioDe
' .GetEventosComentarios(hdnCveEvento.Value.ToEntero)
' gvObservaciones.DataSource = .DtResultados
' gvObservaciones.DataBind()
' End With
' End If
' End If
' objEventos.Dispose()
'End Sub
Protected Sub LinkButton1_Click(sender As Object, e As EventArgs)
End Sub
End Class