Sunday, January 11, 2015
Tip of the Day: Using New INITPOS & INITVAL OPTIONS in CHOOSE Command
Product: R:BASE eXtreme 9.5 (32/64)
Build..: 9.5.5.20109 or higher
www.rupdates.com
www.rbaseupdates.com (Mirror Site)
Section.: Additional CHOOSE Command Parameters
Keywords: CHOOSE, INITPOS, INITVAL
Did you know that you can pre-select initial position(s) for the items
as well as pre-select initial value(s) for the list of items in CHOOSE
command?
The latest R:BASE eXtreme 9.5 (32/64), Update 5, Build: 9.5.5.20109
includes two new CHOOSE command parameters INITPOS and INITVAL as part
of the CHOOSE OPTIONS.
INITPOS specifies the pre-selected initial position(s) for the items
in the list.
The first position in the list is assigned zero, and increments for
the number of values in the list (0 = 1, 1 = 2, 3 = 4, etc).
INITVAL specifies the pre-selected initial value(s) for the items in
the list.
-- Example 01
-- www.razzak.com/tips/Using_INITPOS_Option_In_CHOOSE_Command.jpg
-- Using_INITPOS_Option_In_CHOOSE_Command.RMD
-- Author: A. Razzak Memon
-- Date Created: January 11, 2014
-- Last Updated:
IF (CVAL('DATABASE')) <> 'RRBYW18' OR (CVAL('DATABASE')) IS NULL THEN
CONNECT RRBYW18 IDENTIFIED BY NONE
ENDIF
SET VAR vTitle TEXT = 'Choose Table(s)'
SET VAR vCaption TEXT = 'Using INITPOS Option in CHOOSE Command'
SET VAR vChoose TEXT = NULL
CLS
CHOOSE vChoose FROM #TABLES CHKBOX 2 +
TITLE .vTitle +
CAPTION .vCaption +
LINES 27 +
OPTION INITPOS 2,5 +
|WINDOW_BACK_COLOR WHITE +
|TITLE_BACK_COLOR WHITE +
|TITLE_FONT_NAME Tahoma +
|TITLE_FONT_COLOR NAVY +
|TITLE_FONT_SIZE 14 +
|LIST_BACK_COLOR WHITE +
|LIST_FONT_NAME Tahoma +
|LIST_FONT_COLOR NAVY +
|LIST_FONT_SIZE 12 +
|BUTTONS_SHOW_Glyph ON +
|BUTTONS_BACK_COLOR WHITE
IF vChoose = '[Esc]' THEN
GOTO Done
ENDIF
-- Do what you have to do here ...
LABEL Done
CLEAR VARIABLES vTitle,vCaption,vChoose
RETURN
-- Example 02
-- www.razzak.com/tips/Using_INITVAL_Option_In_CHOOSE_Command.jpg
-- Using_INITVAL_Option_In_CHOOSE_Command.RMD
-- Author: A. Razzak Memon
-- Date Created: January 11, 2014
-- Last Updated:
IF (CVAL('DATABASE')) <> 'RRBYW18' OR (CVAL('DATABASE')) IS NULL THEN
CONNECT RRBYW18 IDENTIFIED BY NONE
ENDIF
SET VAR vTitle TEXT = 'Choose Table(s)'
SET VAR vCaption TEXT = 'Using INITVAL Option in CHOOSE Command'
SET VAR vChoose TEXT = NULL
CLS
CHOOSE vChoose FROM #TABLES CHKBOX 3 +
TITLE .vTitle +
CAPTION .vCaption +
LINES 27 +
OPTION INITVAL Customer,InvoiceHeader,Titles +
|WINDOW_BACK_COLOR WHITE +
|TITLE_BACK_COLOR WHITE +
|TITLE_FONT_NAME Tahoma +
|TITLE_FONT_COLOR NAVY +
|TITLE_FONT_SIZE 14 +
|LIST_BACK_COLOR WHITE +
|LIST_FONT_NAME Tahoma +
|LIST_FONT_COLOR NAVY +
|LIST_FONT_SIZE 12 +
|BUTTONS_SHOW_Glyph ON +
|BUTTONS_BACK_COLOR WHITE
IF vChoose = '[Esc]' THEN
GOTO Done
ENDIF
-- Do what you have to do here ...
LABEL Done
CLEAR VARIABLES vTitle,vCaption,vChoose
RETURN
Have fun!
Very Best R:egards,
Razzak.
www.rbase.com
www.facebook.com/rbase
--
32 years of continuous innovation!
17 Years of R:BASE Technologies, Inc. making R:BASE what it is today!
--
