[RBASE-L] - Re: getdate function

[jan johansen]

Dan,


(Build: 9.1.5.20317) 

Looks like you need to wait until St. Patricks Day.


Jan


-----Original Message-----
 From: "Dan Goldberg" <d...@lancecamper.com>
 To: rbase-l@rbase.com (RBASE-L Mailing List)
 Date: Thu, 1 Mar 2012 14:26:17 -0800
 Subject: [RBASE-L] - Re: getdate function


Thanks, I will give it a try.

 Dan

 -----Original Message-----
 From: A. Razzak Memon
 Sent: Thursday, March 01, 2012 2:16 PM
 To: RBASE-L Mailing List
 Subject: [RBASE-L] - Re: getdate function

 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.