Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
257
OI/RepSoporteADS.aspx.vb
Normal file
257
OI/RepSoporteADS.aspx.vb
Normal file
@@ -0,0 +1,257 @@
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user