resetting calendar supercontrol

[Mike Wilson]

I haven't been able to find anything on this.

I have a calendar supercontrol on a form. The form is based on a client table. I have the calendar event onDateSelect run a script that writes the calendar chosen date to the date_scheduled field on the client form. I navigate from client to client and wish for the supercontrol to reset back to todays date when I fetch the next client. I can't figure out how to re-initiate the calendar supercontrol back to todays date OnFetch. Anyone know how to do this?

Thanks.

[Tbaker]

Re: resetting calendar supercontrol

Mike

I am sure there is an easier way to do this - just not that familiar with the calendar supercontrol. I have only used it once since I feel that it is limited in how you can use (my opinion only)

What I did was to add a date field to my table called Cur_dte. (the field does not have to physically on the form) In field rules made it a calculated field with Date() as the calc value.

Then I bound the calendar to that field - not to the field I wanted to fill. In the event for onDateSelect I put the code to change the start_date on the form to the date selected.

This is the code for the field on my form. You would refer to the field on your form that you are filling

parentform:start_date.value=date
parentform:start_date.refresh()

Now when you fetch a record or start a new record, the super control calendar will always be at the current date since it is bound to that calculated field cur_dte.

As I said though I have only used it once (and it is not on a form that is used very much) but that was the only way I could see to do it - but I am sure I took the easy way out.


You could also create a session variable (or global) on the form. Say you call it xdate ={}.

Then in the onFetch event for the form you give it the value of xdate=date(). Now bind the calendar super control to that variable. Now when you fetch through the records the calendar control will always start at the current date. Just to play it safe I would also put the xdate=date() in the OnEnter event for new records. You would then use your code in the OnDateSelect event of the supercontrol to add the value to your form field.


Might help (or maybe not)

Tom

[Tbaker]

Re: resetting calendar supercontrol

Mike

Here is zip sample of a calendar control on a form (it is my testing form)

There are two date fields on the form. The supercalendar is bound to a session variable "Xdate".

The onFetch event for the form assigns the current date to the variable.

xdate=date()

The two date fields have CanDepart event code to get the name of the active field for the supercalendar

dim shared fld as c
fld=parentform.active()

The other fields have no events attached to them however in the OnDateSelect function of the supercalendar there is an on error goto that will just end the function and assign the current date to the ptr.date so the calendar will show the current date if the date is changed while in a non date field.

function onDateSelect as v (date as d, ptr as p)
	dim shared fld as c
	on error goto stopit
	frm_fld="parentform:"+fld+".value={"+date+"}"
	evaluate_template(frm_fld)
	fld=""
	stopit:
	ptr.date=date()
	xdialog1.refresh()
end function

You can use the supercontrol calendar to change the dates in the Start_date as well as the New_date.

Again I am sure that there are other ways of doing this - but since I was not that well versed in the super control calendar, thought I would play around with it to gain a little more knowedge

FWIW

Tom

[Mike Wilson]

Re: resetting calendar supercontrol

Thanks Tom,
The second method works great after a date is selected. I should have been able to figure that out. Had a day of blocking. However, it is not complete. If the month is advanced from February to March, and a new record is fetched, the calendar remains on March. I am searching for a way to have the calendar re-initialize so upon moving to a new record, the date refreshes to todays date.

[Mike Wilson]

Re: resetting calendar supercontrol

I got it. I have the supercontrol calendar bound to a session variable cal_date. To reset the calendar when a new record is selected, it is simply having the Form onFetch event resets the cal_date=date(). Too simple. Duh.

[Tbaker]

Re: resetting calendar supercontrol

Mike

In my post outlining the steps I had put the the following

The onFetch event for the form assigns the current date to the variable.

Code:
xdate=date()

Edit I see that in the sample I zipped, I commented out the line xdate=date(). I was testing that and seems that I sent the wrong zip file. Sorry about that. Glad that you got that fixed. I still feel that the supercalendar control is limited but usuable.

Tom

[Mike Wilson]

Re: resetting calendar supercontrol

Tom,
I agree that the calendar has limits, but when you find a strong way to use it, its a really nice addition.

Thanks for your help!