Date Picker (GUI) provided Free
Printed From: Rocket Software
Category: AccuTerm Knowledge Base (read only)
Forum Name: Code Samples
Forum Description: Share your code samples and discuss the bundled sample programs
URL: https://forum.asent.com/forum_posts.asp?TID=230
Printed Date: March 26 2026 at 5:07pm
Software Version: Web Wiz Forums 12.03 - http://www.webwizforums.com
Topic: Date Picker (GUI) provided Free
Posted By: alangrus
Subject: Date Picker (GUI) provided Free
Date Posted: September 08 2004 at 7:00pm
|
Free GUI DATE.PICKER Utility
Provided By: Alan Gruskoff - Performant Systems, alang@performantsystems.com Download the ZIP bundle at http://www.performantsystems.com/DATEPICKER.zip - http://www.performantsystems.com/DATEPICKER.zip 
An BASIC code item DATE.PICKER and associated GUI Template DATE.PICKER are included to provide a graphicly based Date Selection screen. When this popup window is shown, it first displays the current month, with today's date in a Red background. The user can then click arrow buttons to move the month forward or backward in time, selecting a date of interest with a Double-Click on that date as shown on the calendar grid. This selected date is then passed back to the calling application for use as a valid date as shown by the "Resulting Date" on the screen shot. An example of a calling program that would take advantage of this feature by showing the use of the Date Picker popup window is included as the BASIC code item TEST.DATE.PICKER and associated GUI Template TEST.DATE.PICKER. A single line of code calls DATE.PICKER which returns a valid Pick style internal date or a null if the user Quit the popup window. Installation Both BASIC code items should be placed in your programs file, compiled and cataloged. The associated Template items should be placed in your GUI Templates file. Feel free to rename that GUI Templates file in the BASIC code as your system requires. Classes are available Note that this utility is provided within the set of examples in Performant System's Accuterm GUI Development Class described http://www.performantsystems.com/Accuterm_GUI_Class.html - HERE ------------- Multivalue Database, AccuTerm GUI Developer and Instructor. Pasadena CA (626) 768-2648 |
Replies:
Posted By: piotr
Date Posted: July 19 2005 at 5:57am
|
uploads/files/piotr/2005-07-19_125620_EuroDatePicker.zip - 2005-07-19_125620_EuroDatePicker.zip
I enclose a slightly modified Alan's Date Picker (European Date Format). Piotr |
Posted By: alangrus
Date Posted: July 22 2005 at 6:56am
|
Jenkuye Piotr!
My mother (Lutomski) speaks Polish and will be glad to know about this. Now here is a great example of international co-operation using Open Source. We all benefit. Nice work Piotr in Krakow, Poland - Alan Gruskoff
------------- Multivalue Database, AccuTerm GUI Developer and Instructor. Pasadena CA (626) 768-2648 |
piotr wrote:Posted By: piotr
Date Posted: August 28 2005 at 4:58am
|
Due to changes in OpenQm's date processing I suggest the following modification in DatePicker's code:
In place of: IF ICONV(TEST.DATE,"D4-") = "" THEN END.OF.MONTH = 1 use: IF TEST.MONTH # CURR.MONTH THEN END.OF.MONTH = 1 |
Posted By: piotr
Date Posted: August 28 2005 at 5:02am
|
I forgot one line before:
TEST.MONTH = OCONV(ICONV(TEST.DATE,"D"),"DM") |
Posted By: pierre
Date Posted: May 30 2006 at 4:58am
|
Hi,
The download URL does not work: http://www.performantsystems.com/DATEPICKER.zip Is there another URL to download this file? Thanks |
Posted By: alangrus
Date Posted: May 30 2006 at 5:19am
|
My bad, moved my server and forgot this file. http://www.performantsystems.com/DATEPICKER.zip is in place now. ------------- Multivalue Database, AccuTerm GUI Developer and Instructor. Pasadena CA (626) 768-2648 |
Posted By: pierre
Date Posted: June 02 2006 at 1:01pm
| Thanks, great little utility. |
Posted By: LiveBlues
Date Posted: June 04 2006 at 3:58pm
| I'll agree. It is a great utility that I use here and there. Thanks Alan! |
Posted By: Tim Bristow
Date Posted: February 27 2012 at 5:24am
|
Great Utility Thanks. Can I suggest a slight change on entering the dialog routine to set the date as follows:- Old Code PASS.DATE = "" * *-->BEGIN GUI HEADER<--* $INCLUDE GUIBP ATGUIEQUATES * Add your equates here... TODAY = OCONV(DATE(),"D4-") New Code IF PASS.DATE = "" THEN TODAY = OCONV(DATE(),"D4-") END ELSE TODAY = OCONV(PASS.DATE,"D4-") PASS.DATE = "" END * *-->BEGIN GUI HEADER<--* $INCLUDE GUIBP ATGUIEQUATES * Add your equates here... * TODAY = OCONV(DATE(),"D4-") That way the currently held date can be set on entry.
|
Posted By: homerlh
Date Posted: February 27 2012 at 8:37am
|
I like this date picker routine. I have used it in several programs and it works wonderfully well. I think I will take a look at the extra code just entered. I often use it to select a beginning date and an ending date of a report. It would be nice to have the ending date start with the beginning date rather than today.
Good coding! Larry Hazel |
Posted By: alangrus
Date Posted: February 27 2012 at 8:48am
|
Glad this simple utility provides some value. As it was provided as Open Source, its yours to muck around with as you see fit. With the main structure in place, feel free to migrate that to a version that does specifics you need.
- Alan Gruskoff ------------- Multivalue Database, AccuTerm GUI Developer and Instructor. Pasadena CA (626) 768-2648 |
Posted By: homerlh
Date Posted: February 27 2012 at 1:20pm
|
I work at a client that has some web based screens that has a date GUI to choose a date and they crabbed at me until I found your routines. Up to now, I had inserted the code and the forms directly into the source because I did not know how to do a proper dialog. I have learned how to do a dialog and may change this to be a true dialog. That's probably the way you wrote it, but I did not know how to use it.
Thanks. I really like it. It's very slick. Larry Hazel |
Posted By: alangrus
Date Posted: February 27 2012 at 1:38pm
|
Good to know, Larry. Thanks for your report.
This was just an hour of coding, knowing MV date math is quite easy and having some skills with the GUI parts. You could certainly make changes to the routine to pass in a certain date and show that date as default instead of today. ------------- Multivalue Database, AccuTerm GUI Developer and Instructor. Pasadena CA (626) 768-2648 |
Posted By: rirani
Date Posted: April 16 2015 at 9:22am
|
Hello everyone! Is this above site still up? I cannot access it to download DATEPICKER.zip. Would someone be kind enough to either email me file (rirani@4dSolutionsGlobal.com) or let me know where the new code may be?! Thank you in advance :)
|
Posted By: Shrek59
Date Posted: April 16 2015 at 7:04pm
|
Hi, I'll try uploading my version of this datepicker. It has been modified quite a bit from the original version posted. http://forum.asent.com/uploads/522/DATEPICKER.zip" rel="nofollow - uploads/522/DATEPICKER.zip I've stripped out a bit of stuff which is unique to our installation and updated the code to compensate for those changes - so hopefully it still compiles OK. We run this on UniVerse, but apart from @TRUE and @FALSE, I don't think there will be any UV specific keywords. Cheers, Brian |
Posted By: rirani
Date Posted: April 17 2015 at 7:23am
| Thank you, Brian! I will utilize your code...Thanks to Peter who emailed me the original zipped file :) |