MBR IT/.NET 247 : Seleccion de Fecha on ASPFriends.com 'aspnges' list

Seleccion de Fecha

Messages

Related Types

This message was discovered on ASPFriends.com 'aspnges' list.

Antonio Perona Cremades

Reply to this message...

Antonio Perona Cremades

Saludos,

A menudo interesa tener una ventana desde la que seleccionar una fecha. El control Calendar es el apropiado para estos casos, desde luego. Yo he desarrolado un página aspx que abre una ventana, muestra el calendario y, al seleccionar una fecha, la cierra y mueve la fecha en cuestión a un control de la página que llama a la ventana. He pensado que quizás a alguien entre vosotros tambien le sea util. Por si éste es el caso os adjunto la pagina de la que hablo (SelFecha.aspx) y otra que sirve para ver cómo llamarla (UsaSelFecha.aspx).

Las poneis en cualquier directorio y llamais a UsaSelFecha.aspx.

En fin, me sentiré satisfecho si a alguien le resulta util.

Un saludo.

No conocía la posibilidad de adjuntar (En fin, los principiantes...)

SelFecha.aspx :
----------------------

<html>
<head>
<script language="VB" runat="server">

sub page_load(o As Object, e As EventArgs)

if not isPostBack then

dim FechaRecibida as String = _
Request.QueryString("FechaPeticion")

dim NombreCtlOrigen as String = _
Request.QueryString("origenCTL")

if FechaRecibida = Nothing
Calendario.toDaysDate = Now()
else
try
Calendario.toDaysDate = cdate(FechaRecibida)
catch
Calendario.toDaysDate = Now()
end try
end if

MiFecha.Text = "fecha = ""nada"" "
MiOrigen.Text = "origen = """ + NombreCtlOrigen + """"
end if
end sub

Sub Date_Selected(o As Object, e As EventArgs)
dim mda as String= Calendario.SelectedDate.ToShortDateString
MiFecha.Text = "fecha = """ + mda + """"
End Sub

Sub CadaDía(s As Object,d As DayRenderEventArgs)
If d.Day.IsToDay Then
d.Cell.ForeColor = System.Drawing.Color.Yellow
End If
End Sub

</script>
</head>

<body onload="ReturnFecha()" >
<h5><font face="Verdana">Seleccionar Fecha</font></h5>

<form runat=server>
<asp:label id=MiFecha visible=false runat=server />
<asp:label id=MiOrigen visible=false runat=server />

<asp:Calendar id=Calendario ShowGridLines="True"
OnDayRender="CadaDía"
onselectionchanged="Date_Selected" runat="server" />
</form>

<script language=vbscript>

sub ReturnFecha()
<%= MiOrigen.Text %>
<%= MiFecha.Text %>
if fecha <> "nada" then
window.opener.document.all(origen).value = fecha
window.close()
end if

end sub
</script>

</body>
</html>

UsaSelFecha.aspx:
----------------------------

<html>
<title>Selección de Fecha</title>
<body>

<script language="VB" runat="server">
sub Page_Load(s as Object,E as EventArgs)
if not IsPostBack
FECHA.text = Format(Now(),"d")
end if
end sub
</script>

<script language=vbscript>
Sub SelFecha()

window.open "SelFecha.aspx?origenCTL=FECHA&FechaPeticion=" + document.all.FECHA.value,"ventana", "width=300,height=280,top=0,left=100,status=no,toolbar=no,menubar=no,location=no",false
end sub
</script>

<form runat="server">
Fecha:<asp:textbox id=FECHA runat=server />
<button onclick="SelFecha()">?</button>
</form>
</body>
</html>

Reply to this message...

carlos

Antonio muchas gracias. Me pondré en contacto contigo cuando esté en Madrid,
estos día me encuentro en el extranjero.

Gracias, Carlos.

-----Oorspronkelijk bericht-----
Van: Antonio Perona Cremades [mailto:Click here to reveal e-mail address]
Verzonden: zaterdag 27 april 2002 19:25
Aan: aspnges
Onderwerp: [aspnges] Seleccion de Fecha

Saludos,

A menudo interesa tener una ventana desde la que seleccionar una fecha. El
control Calendar es el apropiado para estos casos, desde luego. Yo he
desarrolado un página aspx que abre una ventana, muestra el calendario y, al
seleccionar una fecha, la cierra y mueve la fecha en cuestión a un control
de la página que llama a la ventana. He pensado que quizás a alguien entre
vosotros tambien le sea util. Por si éste es el caso os adjunto la pagina de
la que hablo (SelFecha.aspx) y otra que sirve para ver cómo llamarla
(UsaSelFecha.aspx).

Las poneis en cualquier directorio y llamais a UsaSelFecha.aspx.

En fin, me sentiré satisfecho si a alguien le resulta util.

Un saludo.
| [aspnges] member Click here to reveal e-mail address = YOUR ID |
http://www.asplists.com/asplists/aspnges.asp = JOIN/QUIT |
http://www.asplists.com/search = SEARCH Archives

Reply to this message...

	System.Drawing.Color
	System.EventArgs
	System.Web.UI.WebControls.DayRenderEventArgs

MBR BootFX
Best-of-breed application framework for .NET projects, developed by Matthew Baxter-Reynolds and MBR IT

	Copyright © Matthew Baxter-Reynolds 2001-2008. '.NET 247 Software Development Services' is a trading style of MBR IT Solutions Ltd.
	Contact Us - Terms of Use - Privacy Policy - www.dotnet247.com