CODE BEHIND
<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">
'-------------------salta pagina 1 es el primer boton---------------------
Sub doSubmit(Source as Object, E as EventArgs)
dim fechai as string
dim fechaf as string
dim var11 as string
var11 = request.params("ddDay")
dim var12 as string
var12 = request.params("ddMonth")
dim var13 as string
var13 = request.params("ddYear")
dim var21 as string
var21 = request.params("ddDay2")
dim var22 as string
var22 = request.params("ddMonth2")
dim var23 as string
var23 = request.params("ddYear2")
fechai= var13 & var12 & var11
fechaf= var23 & var22 & var21
Response.Redirect("resumen_tipo.aspx?fechai=" & fechai & "&Fechaf=" & fechaf &" ")
End Sub
'-------------------salta pagina2 es el segundo boton---------------------
Sub doSubmit2(Source as Object, E as EventArgs)
dim fechai as String = Request.QueryString("fechai")
dim fechaf as String = Request.QueryString("fechaf")
fechai= dia_i.selectedItem.text & "/" & mes_i.selectedItem.text & "/" & ano_i.selectedItem.text
fechaf= dia_f.selectedItem.text & "/" & mes_f.selectedItem.text & "/" & ano_f.selectedItem.text
Response.Redirect("detalle_tipo.aspx?fechai=" & fechai & "Fechaf=" & fechaf &" ")
End Sub
'---------------------------------SABADO 20 -11-2004------------------
'FECHA AUTOMATICA CON VALIDACION DE CAMPO DIA EN FEBRERO
Dim x As Integer
Dim intDay, intMnth as integer
Dim MyDate as DateTime
Dim arr as ArrayList
Dim myYear as Integer
'-----------------------------------------
Dim x2 As Integer
Dim intDay2, intMnth2 as integer
Dim MyDate2 as DateTime
Dim arr2 as ArrayList
Dim myYear2 as Integer
'---------------------------------------
Sub Page_Load(sender As Object, e As EventArgs)
if not Page.IsPostBack then
intDay=Day(now)
intMnth = Month(Now)
Dim MyDate as DateTime
MyDate=DateTime.Now
'------------------------Datos del segundo dropdown-------------------------------------------------------------
intDay2=Day(now)
intMnth2 = Month(Now)
Dim MyDate2 as DateTime
MyDate2=DateTime.Now
'----------------------------Primer Dropdown---------------------------------------------------------
If Not IsPostBack Then
For x = 1 To 12
ddMonth.Items.Add(New ListItem(MonthName(x), x))
Next
'ddDay.Items.Clear()
For x = 1 To MyDate.DaysInMonth(MyDate.Year, MyDate.Month)
ddDay.Items.Add(x)
Next
arr=New Arraylist
'Next two For/Next Loops add 5 years before and 5 years after current year
For x = 0 to 5
arr.add(MyDate.Year-x)
Next
For x = 1 to 5
arr.add(MyDate.Year+x)
Next
arr.Sort
ddYear.DataSource=arr
ddYear.DataBind
ddDay.selectedIndex=intDay-1
ddMonth.selectedIndex=intMnth-1
ddYear.Items.FindByValue(MyDate.Year).Selected = true
For x2 = 1 To 12
ddMonth2.Items.Add(New ListItem(MonthName(x2), x2))
Next
'ddDay.Items.Clear()
For x2 = 1 To MyDate2.DaysInMonth(MyDate2.Year, MyDate2.Month)
ddDay2.Items.Add(x2)
Next
arr2=New Arraylist
'Next two For/Next Loops add 5 years before and 5 years after current year
For x2 = 0 to 5
arr2.add(MyDate2.Year-x2)
Next
For x2 = 1 to 5
arr2.add(MyDate2.Year+x2)
Next
arr2.Sort
ddYear2.DataSource=arr2
ddYear2.DataBind
ddDay2.selectedIndex=intDay2-1
ddMonth2.selectedIndex=intMnth2-1
ddYear2.Items.FindByValue(MyDate2.Year).Selected = true
End If
end if
end sub
'----------------------------------MINI-SUB--------------------------------------------
Sub doDayChange(Source as Object, E as EventArgs)
dayChange
End Sub
Sub dayChange()
if MyYear.ToString.length < 4 then
MyYear=MyDate.Year
else
MyYear=ddYear.SelectedItem.Text
End If
MyDate=ddMonth.SelectedItem.Text & "/1/" & myYear
ddDay.Items.Clear()
For x = 1 To MyDate.DaysInMonth(MyDate.Year, MyDate.Month)
ddDay.Items.Add(x)
Next
End Sub
Sub doYear(Source as Object, E as EventArgs)
myYear = ddYear.selectedItem.Text
dayChange
End Sub
'-------------------------------MINI-SUB2--------------------------------------------------
Sub doDayChange2(Source as Object, E as EventArgs)
dayChange2
End Sub
Sub dayChange2()
if MyYear2.ToString.length < 4 then
MyYear2=MyDate2.Year
else
MyYear2=ddYear2.SelectedItem.Text
End If
MyDate2=ddMonth2.SelectedItem.Text & "/1/" & myYear2
ddDay2.Items.Clear()
For x2 = 1 To MyDate2.DaysInMonth(MyDate2.Year, MyDate2.Month)
ddDay2.Items.Add(x2)
Next
End Sub
Sub doYear2(Source as Object, E as EventArgs)
myYear2 = ddYear2.selectedItem.Text
dayChange2
End Sub
'----------------HTML----------------------
<table align="center">
<tbody>
<tr>
<td valign="top" align="left">
<b>Day:</b></td>
<td valign="top" align="left">
<b>Month: </b></td>
<td valign="top" align="left">
<b>Year:</b></td>
<td valign="top" align="left">
<b>Day:</b></td>
<td valign="top" align="left">
<b>Month: </b></td>
<td valign="top" align="left">
<b>Year:</b></td>
</tr>
<tr>
<td valign="top" align="left">
<asp:DropDownList id="ddDay" DataValueField="ddDay" Runat="server"></asp:DropDownList>
</td>
<td valign="top" align="left">
<asp:DropDownList id="ddMonth" Runat="server" OnSelectedIndexChanged="doDayChange" AutoPostBack="True"></asp:DropDownList>
</td>
<td valign="top" align="left">
<asp:DropDownList id="ddYear" Runat="server" OnSelectedIndexChanged="doYear" AutoPostBack="True"></asp:DropDownList>
</td>
<td valign="top" align="left">
<asp:DropDownList id="ddDay2" DataValueField="ddDay2" Runat="server"></asp:DropDownList>
</td>
<td valign="top" align="left">
<asp:DropDownList id="ddMonth2" Runat="server" OnSelectedIndexChanged="doDayChange2" AutoPostBack="True"></asp:DropDownList>
</td>
<td valign="top" align="left">
<asp:DropDownList id="ddYear2" Runat="server" OnSelectedIndexChanged="doYear2" AutoPostBack="True"></asp:DropDownList>
</td>
</tr>
</tbody>
</table>
</p>
</td>
</tr>
<td>
<div align="left">
<asp:Button id="Button2" onclick="doSubmit" runat="server" Text="IR" BackColor="#FFBF00"></asp:Button>
</div>
</td>
<td>
<div align="left">
<asp:Button id="Button1" onclick="doSubmit2" runat="server" Text="IR"></asp:Button>
</div>
</td>
<td>
</table>
