|
Página 1 de 2
|
Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
| Autor |
Mensaje |
 shordi 
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación:  Albacete
|
 Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
Necesito uno, es decir, una cuadrícula mensual donde poner información y que al hacer click me lleve a donde le diga... Un estilo al datechooser, pero que se pueda manipular (que los días que haya eventos programados aparezcan en otro color, poder meter texto dentro de cada día, etc.
Antes de lanzarme como loco a hacerlo me he dicho: "No puede ser que seas el primero que necesita eso, alguien tiene que haberlo hecho..." ¿o no?
¿Alguien?
|
#1 Martes, 12 Marzo 2013, 12:22 |
|
 |
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
¿y usar google calendar?
Tus usuarios tendrian que tener una cuenta de gmail... pero pueden compartir eventos, y un monton de cosas (creo  ). Lo he visto usar en oficinas para dar citas y estaban muy contentos, compartiendolo entre distintos compañeros.
Añado:
También puedes crearte una pagina web, insertar el codigo del calendario, y embeberlo en tu aplicación:
http://support.google.com/calendar/...es&answer=41207
última edición por jsbsan el Martes, 12 Marzo 2013, 18:02; editado 1 vez |
#2 Martes, 12 Marzo 2013, 17:56 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
Si... si ahora tienen eso, pero lo quieren integrado con la base de datos y con cuentas oficiales de la empresa. Desde que puse el mensaje me he dedicado... y ya casi lo tengo.
Gracias de todas formas.
|
#3 Martes, 12 Marzo 2013, 19:07 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
Bueno, al final tambien me he hecho uno, os dejo aqui la dirección de mi blog donde he publicado el codigo, por si alguno le interesa.
http://jsbsan.blogspot.com.es/2013/...creando-un.html
|
#4 Jueves, 15 Agosto 2013, 11:53 |
|
|
sebikul
Sebastian
Programador
Registrado: Julio 2012
Mensajes: 113
Edad: 30 Ubicación: 
|
Re: Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
En mi opinión, hubiera sido mas fácil modificar el código del DateChooser. Con esta linea alcanzaba:
If TieneCitas($iDia) Then Draw.FillColor = Color.ALGUN_COLOR
Archivo: comp/src/gb.form/.src/Date/FCalendar.class:223
|
#5 Domingo, 18 Agosto 2013, 05:14 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
Hola!.
¿ Esto no se podía hacer antes en aquellas fechas ?
Public Sub Form_Open()
DateChooser1[Date(2015, 01, 28)].Background = Color.Green
DateChooser1[Date(2015, 01, 28)].Text = "Cumpleaños"
DateChooser1[Date(2015, 01, 15)].Background = Color.DarkMagenta
DateChooser1[Date(2015, 01, 15)].Text = "Nota1"
End
Cuando pasas el ratón por la fecha concreta, se muestra el texto de esa fecha. La que tiene el subrayado.
No es nada nuevo, lo aprendí del código fuente de Gambas.
¿ Qué ocurría si en un mismo día hubiese varios eventos ?. Pues algo así. 
...
DateChooser1[Date(2015, 01, 28)].Text = "Cumpleaños.\nVeterinario."
...
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#6 Jueves, 29 Enero 2015, 12:03 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
Lo interesante es la integración con el programa que uses, con la base de datos, vamos.
En el que hice...
... Hay eventos comunes y privados, Cada abogado tiene sus eventos en un color y haciendo click se abre la pantalla de datos correspondientes, etc. etc.
No quedó mal, no... 
|
#7 Jueves, 29 Enero 2015, 13:07 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
Shordi:
Te ha salido bastante bien.
¿ Qué componente usaste para la creación de los día del mes ?. ¿ DrawingArea ?. ( La cuadricula)
¿ GridView ?. Es lo más aproximado. Lo gracioso es como has insertado los textos en las celdas, los colorines,etc.
Trabajo de chinos. 
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#8 Jueves, 29 Enero 2015, 13:45 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
Shordi:
Muy chulo....
Shell:
Yo diria que ha usado muchos Textlabel (1 por cada dia), que se pueden formatear con codigo html.
|
#9 Jueves, 29 Enero 2015, 14:04 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Petición: ¿Alguien Tiene Hecho Un Calendario De Eventos?
Pos mira que ni me acordaba cómo lo hice. He mirado el código y os pongo un extracto, tal cual, para que lo veais, no para que os funcione:
Public Sub nuevomes()
Dim r As Result
Dim rcad As String
Dim semana1 As Integer
Dim dia, semana, n As Integer
creaparrilla()
semana1 = Week(Date(elanio.value, numMes, 1))
If creador.Text = "" Or creador.Text = "Todos" Then
r = mComun.gabinete.exec(Subst("Select dayofweek(fecha) dia ,weekofyear(fecha) semana,fecha, date_format(`hora`, '%H:%i') hora,creador,descripcion,tipo from calendario where month(fecha) = &1 and year(fecha) = &2 order by fecha,hora", numMes, elanio.value))
Else
r = mComun.gabinete.exec(Subst("Select dayofweek(fecha) dia ,weekofyear(fecha) semana,fecha, date_format(`hora`, '%H:%i') hora,creador,descripcion,tipo from calendario where month(fecha) = &1 and year(fecha) = &2 and creador = '&3' order by fecha,hora", numMes, elanio.value, creador.text))
Endif
While r.Available
If IsNull(r!tipo) Then
n = 0
Else
n = atipos.Find(r!tipo)
Endif
If n = -1 Then n = 0
If creador.Text = "" Or creador.Text = "Todos" Then
rcad = IIf(r!hora <> "", " -" & r!hora & " ", "") & "<font size=" & mComun.entorno["fuentecal"] & " color=#" & colorNumtoHex(acolores[n]) & "> " & "<font style=\"color:'white'; background-color:#" & colorNumtoHex(acolores[n]) & ";\"> " & UCase(r!creador) & ":</font>" & r!descripcion & " </font><br/> "
Else
rcad = IIf(r!hora <> "", " -" & r!hora & " ", "") & "<font size=" & mComun.entorno["fuentecal"] & " color=#" & colorNumtoHex(acolores[n]) & ">: " & r!descripcion & " </font><br/> "
Endif
semana = Week(r!fecha) - semana1
dia = IIf(r!dia = 1, 7, r!dia - 1) - 1
mes[semana, dia].RichText &= rcad
mes[semana, dia].Background = Color.Lighter(Color.lighter(Color.SelectedBackground))
r.MoveNext
Wend
Catch
Message("Error: " & Error.Text & "\nEn: " & Error.where)
End
Public Function colorNumtoHex(numero As Integer) As String
Dim r, g, b As Integer
r = Int(numero / (256 * 256))
g = Int((numero - (r * 256 * 256)) / 256)
b = numero - r * 256 * 256 - g * 256
Return Hex(Str(r), 2) & Hex(Str(g), 2) & Hex(Str(b), 2)
End
Public Function creaparrilla() As Integer
Dim semana, dia, d, nd As Integer
For semana = 0 To mes.Rows.Count - 1
For dia = 0 To mes.Columns.Count - 1
With mes[semana, dia]
.RichText = ""
.foreground = Color.black
.Background = Color.White
.Alignment = Align.TopLeft
.WordWrap = True
End With
Next
Next
nomMes.text = Format(Date(elanio.value, numMes, 01), "mmmm")
nd = WeekDay(Date(elanio.value, nummes, 01))
nd = IIf(nd = 0, 7, nd)
For dia = nd - 1 To mes.Columns.Count - 1
d += 1
mes[0, dia].Richtext = Str(d)
Next
For semana = 1 To mes.Rows.count - 1
For dia = 0 To mes.columns.Count - 1
d += 1
With mes[semana, dia]
Try .RichText = Str(Day(Date(elanio.value, numMes, d))) 'se pone el try para que los días que no sean del mes salgan en blanco
.foreground = Color.black
.Background = Color.White
.Alignment = Align.TopLeft
.WordWrap = True
End With
Next
Next
Return nd
End
Como veis es un Gridview al que se le formatea la propiedad RichText de cada celda según el color del tipo de aviso y del creador del evento...
Lo único malo es que al estar enganchado a la base de datos y estar los eventos generados por los plazos y demás de cada procedimiento jurídico, no es exportable así, sin más.
Pero la idea la tenéis ahí.
Saludos
|
#10 Jueves, 29 Enero 2015, 20:14 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 1 de 2
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno
|
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
|
|
|
|
|
Foro 
