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

Empresas2

Browse Source
This commit is contained in:
rakcsle
2023-08-07 09:18:36 -07:00
parent 2bdf079d8d
commit aa9fa03bdc
10 changed files with 364 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Finanzas/RepRazonesFinancieras2.aspx
View File

@@ -61,7 +61,8 @@
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="130px" AutoPostBack="true" >
</asp:DropDownList>
</div>
<label class="col-md-2" style="width: 80px;" runat="server" id="LblPeriodo" visible="false" >Periodo: </label>
<label class="col-md-1" runat="server" id="LblPeriodo" visible="false" >Periodo: </label>
<div class="col-md-2 " runat="server" id="DivPeriodo" visible="false">
<asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
<asp:ListItem Text="Enero" Value="1"></asp:ListItem>
@@ -81,9 +82,20 @@
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1" Visible="false">SubProyecto:</asp:Label>
<div class="col-md-2" runat="server" visible="false">
<asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
<asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" AutoPostBack="True">
</asp:DropDownList>
</div>
<label class="col-md-1" runat="server" id="LblVisualizacion" visible="false" >Visualización: </label>
<div class="col-md-2" runat="server" visible="false" id="DVVisualizacion" >
<asp:DropDownList runat="server" ID="DdlVisualizacion" CssClass="select2me" Width="150px" >
<asp:ListItem Value="1">Comparativo</asp:ListItem>
<asp:ListItem Value="2">Trazabilidad</asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>

33
Finanzas/RepRazonesFinancieras2.aspx.vb
View File

@@ -63,10 +63,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
End If
End Sub
Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
ValidaEjercicios()
End Sub
@@ -332,9 +328,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
GVRatiosOcultarColumnas(GVRatios, 1)
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
Dim FechasConsultar As String = GetFechasConsultar()
@@ -505,6 +498,9 @@ Partial Class Finanzas_RepRazonesFinancieras2
DivPeriodo.Visible = False
DdlPeriodo.SelectedValueExist(12)
DVVisualizacion.Visible = False
LblVisualizacion.Visible = False
DdlEjercicio.SelectedValue = Nothing
DdlEjercicio2.SelectedValue = Nothing
@@ -521,6 +517,8 @@ Partial Class Finanzas_RepRazonesFinancieras2
AddHandler DdlEjercicio2.SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
CargaEjercicios()
Else
DVVisualizacion.Visible = True
LblVisualizacion.Visible = True
RemoveHandler CType(DdlEjercicio, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
RemoveHandler CType(DdlEjercicio2, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
@@ -614,7 +612,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
If DdlEjercicio2.SelectedValue.ToEntero >= DdlEjercicio.SelectedValue.ToEntero Then
Dim x As Integer = DdlEjercicio.SelectedValue.ToEntero
For x = DdlEjercicio.SelectedValue.ToEntero To DdlEjercicio2.SelectedValue.ToEntero
ListaFechas.Add($"{x}-12-31")
Next x
@@ -623,8 +620,24 @@ Partial Class Finanzas_RepRazonesFinancieras2
Else ' POR MESES
ListaFechas.Add($"{DdlEjercicio.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
ListaFechas.Add($"{DdlEjercicio2.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
If DdlVisualizacion.SelectedValue.ToEntero = 1 Then
ListaFechas.Add($"{DdlEjercicio.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
ListaFechas.Add($"{DdlEjercicio2.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
Else
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
ListaFechas.Add(FechaTemp.ToString("yyyy-MM-dd"))
End While
End If
End If