[RBASE-L] - Re: getdate function

[Dan Goldberg]

I did not even catch that. I will wait for the next update...

Thanks

Dan
From: jan johansen 
Sent: Thursday, March 01, 2012 2:31 PM
To: RBASE-L Mailing List 
Subject: [RBASE-L] - Re: getdate function
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.