From dfc9435ee482167cb78d13beb2b2f2eb757f39bd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 15 Jul 2025 16:37:14 -0700
Subject: [PATCH] - mejoras

---
 Finanzas/RepRazonesFinancieras2.aspx    |  32 +------
 Finanzas/RepRazonesFinancieras2.aspx.vb | 108 +-----------------------
 2 files changed, 8 insertions(+), 132 deletions(-)

diff --git a/Finanzas/RepRazonesFinancieras2.aspx b/Finanzas/RepRazonesFinancieras2.aspx
index ada18d8e4..f4b3ac0d0 100644
--- a/Finanzas/RepRazonesFinancieras2.aspx
+++ b/Finanzas/RepRazonesFinancieras2.aspx
@@ -136,8 +136,6 @@
                          <asp:UpdatePanel runat="server" ID="UpBalanceGeneral" UpdateMode="Conditional">
                              <ContentTemplate>
 
-
-
                                  <asp:GridView ID="GvBalanceGeneral" runat="server" AutoGenerateColumns="false" DataKeyNames="Codigo,Tipo" OnRowDataBound="GvBalanceGeneral_RowDataBound" Width="60%"
                                     EmptyDataText="No se encontraron registros" 
                                     CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true"                                     
@@ -278,9 +276,6 @@
                                     <HeaderStyle CssClass="Titulos" />
                                 </asp:GridView>
 
-
-
-
                              </ContentTemplate>
                         </asp:UpdatePanel>
                     </ContentTemplate>
@@ -457,7 +452,6 @@
                                                 <div style="white-space: nowrap">
                                                     <%--<asp:HyperLink ID="Hypgrafica" Visible="false" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>--%>
                                                     
-
                                                     <asp:HyperLink ID="hpl2" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);"  >
                                                         <i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
@@ -601,9 +595,6 @@
                         </asp:UpdatePanel>
                     </ContentTemplate>
                 </ajax:TabPanel>
-
-
-
             </ajax:TabContainer>
 
         </ContentTemplate>
@@ -642,22 +633,11 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-
-
-
  
-
- 
- 
-
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-
-
-
-    <script>
-
-
+ <script>
+      
         function graficahighchartsFinan(idcontainer, titulo, subtitulo, ytitulo, datos, xtitulo, labelpoint, media, datospie1, datospie2, idChkSeleccionado) {
 
             $('#LblTituloGrafica').text(titulo)
@@ -711,15 +691,11 @@
                         }
                     });
                 });
-            }
-
-             
+            }                        
             
             console.log("serieDato:", datosSeries);
             console.log("datosCategorias:", datosCategorias);
-
-       
-
+            
             Highcharts.chart(idcontainer, {
 
                 chart: {
diff --git a/Finanzas/RepRazonesFinancieras2.aspx.vb b/Finanzas/RepRazonesFinancieras2.aspx.vb
index e8ea40b91..852497c58 100644
--- a/Finanzas/RepRazonesFinancieras2.aspx.vb
+++ b/Finanzas/RepRazonesFinancieras2.aspx.vb
@@ -82,11 +82,8 @@ Partial Class Finanzas_RepRazonesFinancieras2
                 DdlEjercicio.SelectedIndex = DdlEjercicio2.SelectedIndex
             End If
         End If
-
-
         'Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero
 
-
         'If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then
 
         '    If DdlEjercicio2.Items.Count > 0 Then
@@ -98,83 +95,62 @@ Partial Class Finanzas_RepRazonesFinancieras2
         '    If Not EInicio + 1 > Fejerciosio Then
         '        DdlEjercicio2.SelectedValueExist(EInicio + 1)
         '    End If
-
         'End If
 
-
         UpFiltros.Update()
     End Sub
 
-
-
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
 
         LnkExportar.Visible = False
+        If UsuarioActual.CveRol = 1 Then
+            TabBalanceGeneral.Visible = True
+            TabEstadoResultados.Visible = True
+        End If
 
         If Tab.ActiveTabIndex = 0 Then
             CargaDatosBalanceGeneral()
         End If
 
-
         If Tab.ActiveTabIndex = 1 Then
             CargaDatosEstadoResultados()
         End If
 
-
         If Tab.ActiveTabIndex = 2 Then
             CargaDatosRatios()
         End If
-
     End Sub
 
 
-
 #Region "ESTADO BALANCE GENERAL"
 
-
-
     Private Sub CargaDatosBalanceGeneral()
 
         LnkExportar.Visible = False
         GvBalanceGeneralOcultarColumnas(GvBalanceGeneral, 1)
-
-
-
-
         Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
-
-
         Dim objFinanzas As New ClsFinanzas
         Dim dtTemp As New DataTable
-
         Dim FechasConsultar As String = GetFechasConsultar()
 
-
-        ' Alert(FechasConsultar)
-
         If objFinanzas.GetRazonesFinancierasBalanceGeneralRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
             dtTemp = objFinanzas.DtResultados
 
             GvBalanceGeneralMostrarColumnas(dtTemp, GvBalanceGeneral)
             GvBalanceGeneral.DataSource = dtTemp
-
             If dtTemp.Rows.Count > 0 Then
                 '  LnkExportar.Visible = True
             End If
-
         Else
             GvBalanceGeneral.DataSource = Nothing
         End If
 
         objFinanzas.Dispose()
         GvBalanceGeneral.DataBind()
-
         UpBalanceGeneral.Update()
 
     End Sub
 
-
-
     Private Sub GvBalanceGeneralOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
 
         For index = 2 To Gv.Columns.Count - 1
@@ -187,7 +163,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
     Private Sub GvBalanceGeneralMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
         Dim index = 1
 
-
         For index = 1 To dt.Columns.Count - 5
             CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
             Gv.Columns(index + 4).Visible = True
@@ -216,35 +191,17 @@ Partial Class Finanzas_RepRazonesFinancieras2
                 e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
                 e.Row.Cells(0).Text = ""
             End If
-
-
         End If
-
     End Sub
 
 #End Region
 
 
-
-
 #Region "ESTADO RESULTADOS"
-
-
-
     Private Sub CargaDatosEstadoResultados()
-
-
-
         LnkExportar.Visible = False
         GVEstadoRsultadosOcultarColumnas(GVEstadoRsultados, 1)
-
-
-
-
-
         Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
-
-
         Dim objFinanzas As New ClsFinanzas
         Dim dtTemp As New DataTable
 
@@ -255,18 +212,14 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
             GVEstadoRsultadosMostrarColumnas(dtTemp, GVEstadoRsultados)
             GVEstadoRsultados.DataSource = dtTemp
-
             If dtTemp.Rows.Count > 0 Then
                 '  LnkExportar.Visible = True
             End If
-
         Else
             GVEstadoRsultados.DataSource = Nothing
         End If
-
         objFinanzas.Dispose()
         GVEstadoRsultados.DataBind()
-
         UpEstadoResultados.Update()
 
     End Sub
@@ -315,34 +268,19 @@ Partial Class Finanzas_RepRazonesFinancieras2
                 e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
                 e.Row.Cells(0).Text = ""
             End If
-
-
         End If
 
     End Sub
 
 #End Region
 
-
 #Region "RATIOS"
-
-
-
     Private Sub CargaDatosRatios()
-
-
-
         DTRatios = New DataTable
-
         LnkExportar.Visible = False
         GVRatiosOcultarColumnas(GVRatios, 1)
-
-
         Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
-
         Dim FechasConsultar As String = GetFechasConsultar()
-
-
         Dim objFinanzas As New ClsFinanzas
 
         If objFinanzas.GetRazonesFinancierasRatiosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
@@ -377,26 +315,18 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
     Private Sub GVRatiosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
 
-
-
         For index = 4 To dt.Columns.Count - 2
             CType(Gv.Columns(index + 1), BoundField).DataField = dt.Columns(index + 1).ColumnName
             Gv.Columns(index + 1).Visible = True
             CType(Gv.Columns(index + 1), BoundField).HeaderText = dt.Columns(index + 1).ColumnName
         Next
 
-
-
     End Sub
 
     Protected Sub GVRatios_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-
-
-
-
             For x = 1 To DTRatios.Columns.Count
 
                 If e.Row.DataKey("Ratio") = "INCREMENTO DE VENTAS" Then
@@ -492,11 +422,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
                 e.Row.FCHyperLink("hpl2").Visible = False
                 e.Row.FCCheckBox("chkgraf").Visible = False
             End If
-
-
             'AppendFormat("graficahighcharts2('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}]);", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia, Promedio, "", "")
-
-
         End If
         If e.Row.RowType = DataControlRowType.Header Then
 
@@ -543,8 +469,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
 #End Region
 
-
-
 #Region "DESCARGA EXCEL"
 
 
@@ -590,11 +514,8 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
 #End Region
 
-
-
     Protected Sub DdlVista_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-
         LblPeriodo.Visible = False
         DivPeriodo.Visible = False
         DdlPeriodo.SelectedValueExist(12)
@@ -657,7 +578,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
     End Sub
 
-
     Private Sub CargaMeses()
 
         Dim Count As Integer = 0
@@ -677,7 +597,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
             DdlEjercicio.Items.Add(New ListItem($"Noviembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-11"))
             DdlEjercicio.Items.Add(New ListItem($"Diciembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-12"))
 
-
             DdlEjercicio2.Items.Add(New ListItem($"Enero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-01"))
             DdlEjercicio2.Items.Add(New ListItem($"Febrero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-02"))
             DdlEjercicio2.Items.Add(New ListItem($"Marzo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-03"))
@@ -690,18 +609,13 @@ Partial Class Finanzas_RepRazonesFinancieras2
             DdlEjercicio2.Items.Add(New ListItem($"Octubre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-10"))
             DdlEjercicio2.Items.Add(New ListItem($"Noviembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-11"))
             DdlEjercicio2.Items.Add(New ListItem($"Diciembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-12"))
-
-
             Count = Count + 1
-
         Next
 
         If Count > 0 Then
             DdlEjercicio.SelectedIndex = 0
             DdlEjercicio2.SelectedIndex = 0
         End If
-
-
     End Sub
 
 
@@ -717,8 +631,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
                     ListaFechas.Add($"{x}-12-31")
                 Next x
             End If
-
-
         Else ' POR MESES
 
             If DdlVisualizacion.SelectedValue.ToEntero = 1 Then
@@ -728,32 +640,20 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
                 Dim FechaInicial As Date = $"{DdlEjercicio.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd").ToDate
                 Dim FechaFinal As Date = $"{DdlEjercicio2.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd").ToDate
-
                 Dim FechaTemp As Date = FechaInicial.LastDayOfMonth
-
                 ListaFechas.Add(FechaTemp.ToString("yyyy-MM-dd"))
                 While FechaFinal >= FechaTemp
                     FechaTemp = FechaTemp.AddMonths(1).LastDayOfMonth
                     If FechaFinal >= FechaTemp Then
                         ListaFechas.Add(FechaTemp.ToString("yyyy-MM-dd"))
                     End If
-
                 End While
-
-
             End If
-
         End If
-
-
         Return String.Join(",", ListaFechas)
 
     End Function
 
-
-
-
-
 End Class