PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → Como hacer esto en WINDEV ?
Como hacer esto en WINDEV ?
Débuté par Menalv, 19 jan. 2016 11:34 - 4 réponses
#1
Posté le 19 janvier 2016 - 11:34
Hola buenos días , llevo poco tiempo trabajando con windev y todavía me falta mucho por aprender y me ha surgido un problema necesitaría tener en una ventana un Calendario anual y no se por donde empezar si me pudiesen ayudar o guiar un poco se lo agradecería, adjunto imagen de la idea. Un saludo y gracias.


#2
Posté le 19 janvier 2016 - 12:53
Hola

No tuve la necesidad por el momento de hacer un calendario completo, pero si
tuviera que hacerlo pegaría tantos objetos en una ventana u reporte de
Calendario que necesite y trabajar por cada calendario
los dia y colores que sean necesario, todo independientemente.

Espero que se entienda.

saludos
victor
#3
Posté le 19 janvier 2016 - 17:09
Hola Victor muchas gracias por responder me tendré que ponerme manos a la obra para intentar hacerlo ya que no encuentro nada parecido por Internet. Un saludo
#4
Posté le 26 janvier 2016 - 15:53
No tienes mayor problema. Pones en una ventana doce calendarios("CAL_1, CAL_2, CAL_3,etc), puedes especificar manualmente en las propiedades las fechas o por programación:
sEjercicio is string = "2016"
sFecha is string
dFechaInicio, dFechaFin are Date
sCalendario is string = "CAL_"

//Asignar valor al primer y último día de cada mes a cada calendario
FOR i = 1 TO 12
sFecha = "01/" + NumToString(i, "02d") + "/" + sEjercicio
dFechaInicio = StringToDate(sFecha)
dFechaFin = LastDayOfMonth(Val(sEjercicio), i)
{sCalendario + i, indControl}..MinValue = dFechaInicio
{sCalendario + i, indControl}..MaxValue = dFechaFin
END
#5
Posté le 27 janvier 2016 - 09:56
Miguel a écrit :
No tienes mayor problema. Pones en una ventana doce calendarios("CAL_1, CAL_2, CAL_3,etc), puedes especificar manualmente en las propiedades las fechas o por programación:
sEjercicio is string = "2016"
sFecha is string
dFechaInicio, dFechaFin are Date
sCalendario is string = "CAL_"

//Asignar valor al primer y último día de cada mes a cada calendario
FOR i = 1 TO 12
sFecha = "01/" + NumToString(i, "02d") + "/" + sEjercicio
dFechaInicio = StringToDate(sFecha)
dFechaFin = LastDayOfMonth(Val(sEjercicio), i)
{sCalendario + i, indControl}..MinValue = dFechaInicio
{sCalendario + i, indControl}..MaxValue = dFechaFin
END


Se me olvidaba la imagen:





Espero que te sirva de ayuda.
→ Revenir à WINDEV 2024