Ratios, consulta enviando fechas 2
This commit is contained in:
Oscar Irigoyen
@@ -261,21 +261,20 @@ Public Class ClsFinanzas
|
||||
|
||||
|
||||
|
||||
Public Function GetRazonesFinancierasBalanceGeneralRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
|
||||
Public Function GetRazonesFinancierasBalanceGeneralRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Finan_RF_BalanceGeneralRepGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@FechaI", SqlDbType.Date).Value = FechaI
|
||||
.Add("@FechaF", SqlDbType.Date).Value = FechaF
|
||||
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Tipo", SqlDbType.Int).Value = Tipo
|
||||
.Add("@Periodo", SqlDbType.Int).Value = Periodo
|
||||
|
||||
|
||||
.Add("@Fechas", SqlDbType.VarChar).Value = Fechas
|
||||
.Add("@Opcion", SqlDbType.Int).Value = Opcion
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
@@ -288,20 +287,20 @@ Public Class ClsFinanzas
|
||||
|
||||
|
||||
|
||||
Public Function GetRazonesFinancierasEstadoResultadosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
|
||||
Public Function GetRazonesFinancierasEstadoResultadosRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Finan_RF_EstadoResultadosRepGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@FechaI", SqlDbType.Date).Value = FechaI
|
||||
.Add("@FechaF", SqlDbType.Date).Value = FechaF
|
||||
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Tipo", SqlDbType.Int).Value = Tipo
|
||||
.Add("@Periodo", SqlDbType.Int).Value = Periodo
|
||||
|
||||
.Add("@Fechas", SqlDbType.VarChar).Value = Fechas
|
||||
.Add("@Opcion", SqlDbType.Int).Value = Opcion
|
||||
|
||||
End With
|
||||
Try
|
||||
@@ -314,20 +313,19 @@ Public Class ClsFinanzas
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetRazonesFinancierasRatiosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
|
||||
Public Function GetRazonesFinancierasRatiosRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Finan_RF_RatiosRepGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@FechaI", SqlDbType.Date).Value = FechaI
|
||||
.Add("@FechaF", SqlDbType.Date).Value = FechaF
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Tipo", SqlDbType.Int).Value = Tipo
|
||||
.Add("@Periodo", SqlDbType.Int).Value = Periodo
|
||||
|
||||
.Add("@Fechas", SqlDbType.VarChar).Value = Fechas
|
||||
.Add("@Opcion", SqlDbType.Int).Value = Opcion
|
||||
|
||||
End With
|
||||
Try
|
||||
|
||||
@@ -2772,10 +2772,18 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
|
||||
If Archivo.Exists Then
|
||||
|
||||
ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
|
||||
|
||||
Else
|
||||
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
||||
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
||||
ruta = "Empresas/Grales/Formatos/Polizas.rdlc"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
ImprimirbytesPDF(StreamPDF(ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True)
|
||||
|
||||
End If
|
||||
|
||||
@@ -66,8 +66,8 @@
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<label class="col-md-1" >Consolidado: </label>
|
||||
<div class="col-md-1">
|
||||
<label class="col-md-1" runat="server" id="DVConsolidado1" visible="false">Consolidado: </label>
|
||||
<div class="col-md-1" runat="server" id="DVConsolidado2" visible="false">
|
||||
<asp:DropDownList ID="DdlOpcion" runat="server" CssClass="select2me" Width="100%">
|
||||
<asp:ListItem Selected="True" Value ="1">Normal</asp:ListItem>
|
||||
<asp:ListItem Value ="2">Consolidado</asp:ListItem>
|
||||
|
||||
@@ -98,6 +98,13 @@ Partial Class AC_RepEstadoActividades
|
||||
CargaEjercicios()
|
||||
|
||||
CargaDatos()
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then
|
||||
DVConsolidado1.Visible = True
|
||||
DVConsolidado2.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -64,8 +64,8 @@
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<label class="col-md-1" >Consolidado: </label>
|
||||
<div class="col-md-1">
|
||||
<label class="col-md-1" runat="server" id="DVConsolidado1" visible="false">Consolidado: </label>
|
||||
<div class="col-md-1" runat="server" id="DVConsolidado2" visible="false">
|
||||
<asp:DropDownList ID="DdlOpcion" runat="server" CssClass="select2me" Width="100%">
|
||||
<asp:ListItem Selected="True" Value ="1">Normal</asp:ListItem>
|
||||
<asp:ListItem Value ="2">Consolidado</asp:ListItem>
|
||||
|
||||
@@ -149,6 +149,11 @@ Partial Class AC2_SituacionFinanciera
|
||||
|
||||
CargaEjercicios()
|
||||
|
||||
If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then
|
||||
DVConsolidado1.Visible = True
|
||||
DVConsolidado2.Visible = True
|
||||
End If
|
||||
|
||||
'CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -40,19 +40,29 @@
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
|
||||
<label class="col-md-1" runat="server" id="LblVista">Vista: </label>
|
||||
<div class="col-md-1 " runat="server" >
|
||||
<asp:DropDownList ID="DdlVista" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlVista_SelectedIndexChanged">
|
||||
<asp:ListItem Value="1" Selected="True">Ejercicio</asp:ListItem>
|
||||
<asp:ListItem Value="2">Mensual</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
|
||||
<label class="col-md-1" runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
|
||||
<div class="col-md-1 " runat="server" id="LiEjercicioDdl">
|
||||
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio_SelectedIndexChanged">
|
||||
<div class="col-md-2 " runat="server" id="LiEjercicioDdl">
|
||||
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" >
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="True">Ejercicio Fin: </label>
|
||||
<div class="col-md-1" runat="server" id="LiEjercicioDdl2" visible="True">
|
||||
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged">
|
||||
<div class="col-md-2" runat="server" id="LiEjercicioDdl2" visible="True">
|
||||
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" >
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-2" style="width: 80px;" runat="server" id="LiPeriodoLbl" >Periodo: </label>
|
||||
<div class="col-md-2 " runat="server" id="LiPeriodoDdl">
|
||||
<label class="col-md-2" style="width: 80px;" 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>
|
||||
<asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
|
||||
|
||||
@@ -31,18 +31,32 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
End Property
|
||||
|
||||
|
||||
Property DTEjercicios As DataTable
|
||||
Get
|
||||
If ViewState("DTEjercicios") Is Nothing Then
|
||||
ViewState("DTEjercicios") = New DataTable
|
||||
End If
|
||||
|
||||
Return DirectCast(ViewState("DTEjercicios"), DataTable)
|
||||
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTEjercicios") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
Tab.ActiveTabIndex = 0
|
||||
|
||||
CargaEjercicios()
|
||||
CargaDTEjercicios()
|
||||
DdlVista_SelectedIndexChanged(Nothing, Nothing)
|
||||
|
||||
CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
|
||||
|
||||
|
||||
|
||||
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
|
||||
ValidaEjercicios()
|
||||
|
||||
@@ -85,26 +99,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
UpFiltros.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaEjercicios()
|
||||
'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
Dim ClsConta As New ClsContabilidad
|
||||
If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
|
||||
DdlEjercicio.DataSource = ClsConta.DtResultados
|
||||
DdlEjercicio2.DataSource = ClsConta.DtResultados
|
||||
Else
|
||||
DdlEjercicio.DataSource = Nothing
|
||||
DdlEjercicio2.DataSource = Nothing
|
||||
End If
|
||||
ClsConta.Dispose()
|
||||
DdlEjercicio.DataBind()
|
||||
DdlEjercicio2.DataBind()
|
||||
|
||||
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
|
||||
If DdlEjercicio.Items.Count = 0 Then
|
||||
DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString))
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -137,8 +132,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
LnkExportar.Visible = False
|
||||
GvBalanceGeneralOcultarColumnas(GvBalanceGeneral, 1)
|
||||
|
||||
Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
|
||||
Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
|
||||
|
||||
|
||||
|
||||
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
|
||||
@@ -147,7 +141,12 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
Dim objFinanzas As New ClsFinanzas
|
||||
Dim dtTemp As New DataTable
|
||||
|
||||
If objFinanzas.GetRazonesFinancierasBalanceGeneralRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
|
||||
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)
|
||||
@@ -168,6 +167,8 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub GvBalanceGeneralOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
|
||||
|
||||
For index = 2 To Gv.Columns.Count - 1
|
||||
@@ -232,8 +233,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
GVEstadoRsultadosOcultarColumnas(GVEstadoRsultados, 1)
|
||||
|
||||
|
||||
Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
|
||||
Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
|
||||
|
||||
|
||||
|
||||
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
|
||||
@@ -242,7 +242,9 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
Dim objFinanzas As New ClsFinanzas
|
||||
Dim dtTemp As New DataTable
|
||||
|
||||
If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
|
||||
Dim FechasConsultar As String = GetFechasConsultar()
|
||||
|
||||
If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
|
||||
dtTemp = objFinanzas.DtResultados
|
||||
|
||||
GVEstadoRsultadosMostrarColumnas(dtTemp, GVEstadoRsultados)
|
||||
@@ -280,11 +282,12 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
|
||||
Gv.Columns(index + 4).Visible = True
|
||||
Dim tmpDate As Date
|
||||
If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
|
||||
CType(Gv.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
|
||||
Else
|
||||
CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
|
||||
End If
|
||||
CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
|
||||
'If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
|
||||
' CType(Gv.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
|
||||
'Else
|
||||
' CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
|
||||
'End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
@@ -329,17 +332,17 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
GVRatiosOcultarColumnas(GVRatios, 1)
|
||||
|
||||
|
||||
Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
|
||||
Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
|
||||
|
||||
|
||||
|
||||
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
|
||||
|
||||
Dim FechasConsultar As String = GetFechasConsultar()
|
||||
|
||||
|
||||
Dim objFinanzas As New ClsFinanzas
|
||||
|
||||
|
||||
If objFinanzas.GetRazonesFinancierasRatiosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
|
||||
If objFinanzas.GetRazonesFinancierasRatiosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
|
||||
DTRatios = objFinanzas.DtResultados
|
||||
|
||||
GVRatiosMostrarColumnas(DTRatios, GVRatios)
|
||||
@@ -477,15 +480,143 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
|
||||
|
||||
|
||||
Protected Sub DdlVista_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
LblPeriodo.Visible = False
|
||||
DivPeriodo.Visible = False
|
||||
DdlPeriodo.SelectedValueExist(12)
|
||||
|
||||
DdlEjercicio.SelectedValue = Nothing
|
||||
DdlEjercicio2.SelectedValue = Nothing
|
||||
|
||||
DdlEjercicio.Items.Clear()
|
||||
DdlEjercicio2.Items.Clear()
|
||||
|
||||
|
||||
If DdlVista.SelectedValue.ToEntero = 1 Then
|
||||
|
||||
LblPeriodo.Visible = True
|
||||
DivPeriodo.Visible = True
|
||||
|
||||
AddHandler DdlEjercicio.SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
|
||||
AddHandler DdlEjercicio2.SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
|
||||
CargaEjercicios()
|
||||
Else
|
||||
|
||||
RemoveHandler CType(DdlEjercicio, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
|
||||
RemoveHandler CType(DdlEjercicio2, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
|
||||
CargaMeses()
|
||||
End If
|
||||
|
||||
UpFiltros.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaDTEjercicios()
|
||||
|
||||
Dim ClsConta As New ClsContabilidad
|
||||
If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
|
||||
DTEjercicios = ClsConta.DtResultados
|
||||
End If
|
||||
ClsConta.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaEjercicios()
|
||||
|
||||
Dim Count As Integer = 0
|
||||
|
||||
For Each dRow As DataRow In DTEjercicios.Rows
|
||||
DdlEjercicio.Items.Add(New ListItem($"{dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}"))
|
||||
DdlEjercicio2.Items.Add(New ListItem($"{dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}"))
|
||||
Count = Count + 1
|
||||
Next
|
||||
|
||||
If Count > 0 Then
|
||||
DdlEjercicio.SelectedIndex = 0
|
||||
DdlEjercicio2.SelectedIndex = 0
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaMeses()
|
||||
|
||||
Dim Count As Integer = 0
|
||||
|
||||
For Each dRow As DataRow In DTEjercicios.Rows
|
||||
|
||||
DdlEjercicio.Items.Add(New ListItem($"Enero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-01"))
|
||||
DdlEjercicio.Items.Add(New ListItem($"Febrero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-02"))
|
||||
DdlEjercicio.Items.Add(New ListItem($"Marzo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-03"))
|
||||
DdlEjercicio.Items.Add(New ListItem($"Abril {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-04"))
|
||||
DdlEjercicio.Items.Add(New ListItem($"Mayo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-05"))
|
||||
DdlEjercicio.Items.Add(New ListItem($"Junio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-06"))
|
||||
DdlEjercicio.Items.Add(New ListItem($"Julio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-07"))
|
||||
DdlEjercicio.Items.Add(New ListItem($"Agosto {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-08"))
|
||||
DdlEjercicio.Items.Add(New ListItem($"Septiembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-09"))
|
||||
DdlEjercicio.Items.Add(New ListItem($"Octubre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-10"))
|
||||
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"))
|
||||
DdlEjercicio2.Items.Add(New ListItem($"Abril {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-04"))
|
||||
DdlEjercicio2.Items.Add(New ListItem($"Mayo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-05"))
|
||||
DdlEjercicio2.Items.Add(New ListItem($"Junio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-06"))
|
||||
DdlEjercicio2.Items.Add(New ListItem($"Julio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-07"))
|
||||
DdlEjercicio2.Items.Add(New ListItem($"Agosto {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-08"))
|
||||
DdlEjercicio2.Items.Add(New ListItem($"Septiembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-09"))
|
||||
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
|
||||
|
||||
|
||||
Private Function GetFechasConsultar() As String
|
||||
Dim ListaFechas As New List(Of String)
|
||||
|
||||
If DdlVista.SelectedValue.ToEntero = 1 Then 'POR EJERCICIO
|
||||
|
||||
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
|
||||
End If
|
||||
|
||||
|
||||
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"))
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Return String.Join(",", ListaFechas)
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user