[vfp] Seleccionar varias fechas en un calendario

[Hernandez Gabriel]

Hola Grupo.

Solicito su ayuda, estoy ya hace 3 días dando vuelta con esto y no logro solucionarlo, por lo menos tal y como lo pide el cliente.

Lo que necesito es, de un calendario, poder seleccionar varias fechas al mismo tiempo, que pueden estar en diferentes meses y esas fechas seleccionadas guardarlas.

Bueno, si alguien puede ayudarme, se lo agradecería.

Hernández Gabriel

[Luis Mata]

Tipo Google Calendar...

--
 
 

[Richard Silva]

Hola Gabriel,

En 2008 me encontré con una necesidad similar, y en este enlace:

http://www.rcssolutions.com/Downloads.aspx

Encontré un calendario que entre otras cosas me facilitaba bastante el trabajo, incluída la multi-selección de fechas.

Hay otras descargas y documentos muy interesantes, espero te sean de utilidad.


--
Saludos

[Hernandez Gabriel]

Gracias, es justo lo que necesitaba, trato de tomar la fecha y mostrarlas pero algo estoy haciendo mal, utilizo el siguiente código:

LOCAL ARRAY aRows(thisform.ctrCalendar.iSelectedDateCount) && la dimension del array sale de la cantidad de fechas seleccionadas

 

 aRows=thisform.ctrCalendar.aSelectedDates && se supone que con esto obtengo el array de las fechas seleccionadas

* luego para mostrarla utilizo

  FOR i=1 TO thisform.ctrCalendar.iSelectedDateCount

 

  WAIT WINDOW aRows[i] TIMEOUT 5

  

  ENFOR

* pero sólo veo la primer fecha seleccionada, o sea, si selecciono 3, muestra solo la primera

Crees que esto esta ok, o he utilizado mal el calendario?

Saludos

Hernandez Gabriel

--
 
 

[Richard Silva]

Me parece que está bien el modo en que lo usas.

En la rutina, usé:

LOCAL lnList, ;
      lcList, ;
      liDateCount

*- Cantidad de Fechas seleccionadas
liDateCount = ThisForm.rcsCalendar1.iSelectedDateCount

IF liDateCount > 0

   lcList = ""
  
   *- Copiamos las fechas seleccionadas a una matriz, luego la ordenamos
   = ACOPY( ThisForm.rcsCalendar1.aSelectedDates, laAux )
   = ASORT( laAux )
  
   *- Pasamos las fechas seleccionadas a una lista
   FOR lnList = 1 TO liDateCount
       lcList = lcList + TRANSFORM( laAux[lnList] ) + CHR( 13 )
   ENDFOR
  
   *- Mostramos las Fechas y total de dias seleccionados
   thisform.edtListaFechas.Value = lcList
   thisform.txtCantDias.Value = liDateCount

ELSE
   thisform.edtListaFechas.Value = ""
   thisform.txtCantDias.Value = 0
   = goFG.MsgBox("No ha seleccionado una fecha.", 0, "Revise Fechas")

ENDIF 



Creo recordar que en el sitio de Craig Boyd también hay un calendario de este tipo.

[FidelJ]

" aRows=thisform.ctrCalendar.aSelectedDates && se supone que con esto obtengo el array de las fechas seleccionadas "

Tal vez debería ser

Release aRows   && no defines LOCAL ARRAY aRows(nitems) .

Acopy(Thisform.ctrCalendar.aSelectedDates,aRows)

[Hernandez Gabriel]

Gracias a los dos por las respuestas, al ver el codigo y las dos sugerencias, es que me faltaba la definición , les agradezco inmensamente.

Esta solucionado.

Saludos

Hernandez Gabriel

--
 
 

[Cristopher Antonio A.G]

tengo una pregunta, ya puedo mostrar los datos en un cuadro de edicion de foxpro, pero ahora como puedo guardar ese dato en una tabla de foxpro , lo que quiero es que cada fecha se guarde por separada en un campo diferente, no quiero meter todas las fechas juntas en un campo memo. las ocupo por separado. como puedo hacerlo ?

[Cristopher Antonio A.G]

hola Richard Silva, ya tengo ese mismo calendario y ya guardo las fechas seleccionadas en una base de datos. mi pregunta es, sabes que propiedad o como puedo hacerle, para en base a una lista de fechas, se muestren en automático seleccionadas en el calendario ? , es decir. si tengo 5 fechas, quiero que esas 5 fechas aparezcan ya seleccionadas en el calendario. 

[Markcelo]

Buen día, el link original está roto, podrás pasar el código o vínculo nuevamente? 

Saludos!

[José Luis (VFP 9 SP 2. 09.00.0000.7423)]

Markcelo no se puede enviar el archivo, intente varias veces le cambie las extensiones a todos los archivos y nada.

[Zarlu]

José Luis Buenas tardes!

Qué extensiones de archivos estás intentando subir?

O en su defecto subelos a One Drive y comparte el vínculo

zarlu

Chetumal, Quintana Roo, México

[José Luis (VFP 9 SP 2. 09.00.0000.7423)]

Buenas. Markcelo como estas amigo. Me hiciste desempolvar el disco duro de respaldo de hace muchos, muchos años un Samsung de 2 GB, en el cual tengo gran cantidad de material de aquellos años mozos.

Bueno para no alargar el mensaje, allí en los datos adjuntos te dejo lo que necesitas (rcsCalendar.zip)

Lo que si les pido es que, si les funciona, nos comenten para estar al tanto y de ser posible posteen algo de código para que a otro usuario sea beneficiado con el mismo, es decir, una mano lava la otra y las dos lavan la cara.

Saludos amigos, cuídense mucho, y salgan de casa si es muy necesario y recuerden utilizar Mascarilla / Tapaboca.

José L. Guillén M.

[José Luis (VFP 9 SP 2. 09.00.0000.7423)]

Gracias a todos por darme los tips para subirlo, lo intenté por varias veces y no funcionaban, la única manera fue de esa forma como puse los nombres de extensión dentro y fuera del zip.

Hay les dejo ese Tips para poder subir archivos sin que Coronavirus, uf me equivoqué, google no los bloquee.

Saludos a todos; cuídense mucho y salgan de casa si es muy necesario y recuerden utilizar Mascarilla / Tapaboca.

José L. Guillén M.