From 62d439eff283af09cfcd4a576b2bd1c14ee9f297 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Thu, 25 Mar 2021 09:48:33 -0700
Subject: [PATCH] Quitar la parte de tareas

---
 Inicio.aspx    |  4 ++--
 Inicio.aspx.vb | 64 +++++++++++++++++++++++++-------------------------
 2 files changed, 34 insertions(+), 34 deletions(-)

diff --git a/Inicio.aspx b/Inicio.aspx
index 20d7705e5..297d22aa2 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -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">
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index d3b03624b..49cc60cf1 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -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