At 10:47 AM 3/1/2012, Dan Goldberg wrote:
Is there a way to have the getdate function to be a single click.
That way the
user selects the date and it closes without having to hit the [OK] button.
Technically, that would be "Double-Click" to select the date and then
close the
GETDATE calendar.
Here's how:
01. Start R:BASE eXtreme 9.1 (Build: 9.1.5.20317) or 9.5 (Build: 9.5.1.10317)
02. Use the following sample code to illustrate the use of GETDATE function
-- Start here ...
-- GetDate_Function.RMD
-- R:BASE eXtreme 9.1/9.5 for Windows
-- Author: A. Razzak Memon
-- Date Created: March 1, 2012
-- Last Updated:
SET VAR vCaption TEXT = ' GETDATE Function'
SET VAR vGetDate DATE = NULL
SET VAR vPause2Message TEXT = NULL
SET VAR vGetDate = +
(GETDATE('Select Date|CALENDAR_TYPE ENHANCED|THEMENAME Vista CG'))
IF vGetDate IS NULL THEN
CLS
PAUSE 2 USING '[Cancel] button was pressed!' +
CAPTION .vCaption ICON INFO +
BUTTON ' Press any key to continue ...' +
OPTION MESSAGE_FONT_NAME Tahoma +
|MESSAGE_FONT_COLOR NAVY +
|MESSAGE_FONT_SIZE 11 +
|THEMENAME Vista CG
GOTO Done
ENDIF
CLS
SET VAR vPause2Message = ('Selected Date:'&(CTXT(.vGetDate)))
PAUSE 2 USING .vPause2Message +
CAPTION .vCaption ICON INFO +
BUTTON ' Press any key to continue ...' +
OPTION MESSAGE_FONT_NAME Tahoma +
|MESSAGE_FONT_COLOR NAVY +
|MESSAGE_FONT_SIZE 11 +
|THEMENAME Vista CG
LABEL Done
CLS
CLEAR VARIABLES vCaption,vPause2Message
RETURN
-- End here ...
03. Now double-click on the appropriate date on the calendar to select and
then close the enhanced GETDATE calendar.
That's all there is to it!
Very Best R:egards,
Razzak.
