AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Quitar la parte de tareas

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-03-25 09:48:33 -07:00
parent 7a6c135a1a
commit 62d439eff2
2 changed files with 34 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inicio.aspx
View File

@@ -483,7 +483,7 @@
</div>
</div>
</div>
<div class="col-md-4 col-sm-4">
<%--<div class="col-md-4 col-sm-4">
<asp:UpdatePanel ID="UPPTareas" runat="server" RenderMode="Inline" UpdateMode="Conditional">
<ContentTemplate>
@@ -534,7 +534,7 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>--%>
<%-- <div class="col-md-2 col-sm-2">
<div class="portlet light ">
<div class="portlet-title">

64
Inicio.aspx.vb
View File

@@ -178,7 +178,7 @@ Partial Class Inicio
CargaGraficas()
End If
CargaTareas()
'CargaTareas()
If UsuarioActual.CveRol = 1 Then
divInd.Visible = True
CargaSubProyectos()
@@ -463,39 +463,39 @@ Partial Class Inicio
End Sub
Private Sub CargaTareas()
Dim ObjProspectos As New ClsOIEventos
'Private Sub CargaTareas()
' Dim ObjProspectos As New ClsOIEventos
Dim FechaI, FechaF As DateTime
Dim CveEventoEstatus As Integer = -1
FechaI = Now.AddDays(-180)
FechaF = Now
If ObjProspectos.GetRepEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, 1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF) Then
' Dim FechaI, FechaF As DateTime
' Dim CveEventoEstatus As Integer = -1
' FechaI = Now.AddDays(-180)
' FechaF = Now
' If ObjProspectos.GetRepEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, 1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF) Then
Dim DT As DataTable = ObjProspectos.DtResultados.Clone
' Dim DT As DataTable = ObjProspectos.DtResultados.Clone
If ChkOIPorHacer.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} ", UsuarioActual.CveUsuario)))
If ChkOIAsigne.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioDe = {0} ", UsuarioActual.CveUsuario)))
' If ChkOIPorHacer.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} ", UsuarioActual.CveUsuario)))
' If ChkOIAsigne.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioDe = {0} ", UsuarioActual.CveUsuario)))
GvT.DataSource = DT
End If
' GvT.DataSource = DT
' End If
ObjProspectos.Dispose()
GvT.DataBind()
End Sub
Protected Sub GvT_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvT.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Select Case UsuarioActual.CveUsuario.ToString
Case e.Row.DBCampo("CveUsuarioPara")
'etiqueta de 'asignado'
e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-warning "
e.Row.FCLabel("LblTipo").Text = "por hacer <i class='fa fa-share'></i>"
Case e.Row.DBCampo("CveUsuarioDe")
e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-success"
e.Row.FCLabel("LblTipo").Text = "Asigné"
End Select
End If
End Sub
' ObjProspectos.Dispose()
' GvT.DataBind()
'End Sub
'Protected Sub GvT_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvT.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then
' Select Case UsuarioActual.CveUsuario.ToString
' Case e.Row.DBCampo("CveUsuarioPara")
' 'etiqueta de 'asignado'
' e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-warning "
' e.Row.FCLabel("LblTipo").Text = "por hacer <i class='fa fa-share'></i>"
' Case e.Row.DBCampo("CveUsuarioDe")
' e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-success"
' e.Row.FCLabel("LblTipo").Text = "Asigné"
' End Select
' End If
'End Sub
Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, Comentario As String, Link As String, TitleComentario As String)
Dim htmldiv As New StringBuilder
htmldiv.AppendFormat("{0}<div class='col-lg-4 col-md-4 col-sm-6 col-xs-12'><div class='dashboard-stat {1}'><div class='visual'><i class='{2}' '=''></i></div>", DIV.InnerHtml, Color, Icono)
@@ -844,9 +844,9 @@ Partial Class Inicio
End Sub
#End Region
Protected Sub ChkOIAsigne_CheckedChanged(sender As Object, e As EventArgs) Handles ChkOIAsigne.CheckedChanged, ChkOIPorHacer.CheckedChanged
CargaTareas()
End Sub
'Protected Sub ChkOIAsigne_CheckedChanged(sender As Object, e As EventArgs) Handles ChkOIAsigne.CheckedChanged, ChkOIPorHacer.CheckedChanged
' CargaTareas()
'End Sub
Protected Sub DdlFiltroIndicador_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub