Michael:
I believe (not 100% sure) that that is an obsolete option of the CHOOSE
command although help still shows it to be valid. There are much better ways
to do the same thing using the same CHOOSE command. Below is an example of
code I use to generate menus; since all my applications are contained within
forms, no external files (apx) are needed and the entire application is
contained within the database files:
------------------
CHOOSE vrep FROM #LIST +
'1 - All Permits - by Permit Number,+
2 - All Open Permits by Permit Number,+
3 - All Open Permits for Selected Dates by Permit Number,+
4 - All Open Permits by District and Permit Number,+
5 - All Open Permits for Selected Dates by District and Permit Number,+
6 - All Open Permits by District - Type and Permit Number,+
7 - All Open Permits for Selected Dates by District - Type and Permit
Number,+
8 - All Open Permits for Selected Types by District - Type and Permit
Number,+
9 - All Closed Permits by Permit Number,+
10 - All Closed Permits for Selected Dates by Permit Number,+
11 - All Closed Permits by District and Permit Number,+
12 - All Closed Permits for Selected Dates by District and Permit Number,+
13 - All Closed Permits by District - Type and Permit Number,+
14 - All Closed Permits for Selected Dates by District - Type and Permit
Number,+
15 - All Closed Permits for Selected Types by District - Type and Permit
Number,+
16 - Multiple Choice and Sort,+
EXIT' +
TITLE 'SELECT REPORT...' +
CAPTION 'Generate Permit Reports...' LINES 18 +
OPTION List_Font_Color NAVY|List_Back_Color WHITE +
|Title_Font_Color NAVY|Title_Back_Color LIGHT GRAY +
|Window_Back_Color LIGHT GRAY|Title_Font_Size 12 +
|Title_Font_Name ARIAL|Window_Caption +
|Buttons_Show_Glyph ON|Buttons_Back_Color WHITE
IF vrep = 'EXIT' THEN
GOTO Done
ENDIF
SET VAR vrep = (SGET(.vrep,2,1))
SET VAR vwhere = ' '
SWITCH (.vrep)
CASE '1 '
SET VAR vrep_header TEXT = 'All Permits - by Permit Number'
PRINT perm_sum_rep ORDER BY perm_no ASC +
OPTION SCREEN|Window_State MAXIMIZED
BREAK
CASE '2 '
SET VAR vrep_header TEXT = 'All Open Permits by Permit Number'
PRINT perm_sum_rep WHERE perm_status = 'O' ORDER BY perm_no ASC +
OPTION SCREEN|Window_State MAXIMIZED
BREAK
------------------
And so on...
Here is another approach using menu options stored in a database table that
I used on 6.5++ Windows:
------------------
CHOOSE opt3 FROM #VALUES FOR (LJS (pmskey, 3) + ' - ' + LJS(pmsdesc, 60)) +
FROM pmsmenus +
WHERE pmssection = 'RB' ORDER BY pmscode ASC AT 4, 1 +
TITLE 'SELECT REPORT...' CAPTION 'PMS REPORTS' LINES 17
set var opt4 = ( sget(.opt3,2,1) )
If opt4 eq 'X ' or opt3 eq '[Esc]' then
GOTO exitrep
ENDIF
------------------
This approach creates dynamic menus based and you can change the options by
adding rows to the table.
I hope that this is what you were looking for, if not let us know and
someone will have the right answer.
Javier,
Javier Valencia, PE
President
Valencia Technology Group, L.L.C.
14315 S. Twilight Ln, Suite #14
Olathe, Kansas 66062-4578
Office (913)829-0888
Fax (913)649-2904
Cell (913)915-3137
================================================
Attention:
The information contained in this message and or attachments is intended
only for the person or entity to which it is addressed and may contain
confidential and/or privileged material. Any review, retransmission,
dissemination or other use of, or taking of any action in reliance upon,
this information by persons or entities other than the intended recipient
is prohibited. If you received this in error, please contact the sender and
delete the material from all system and destroy all copies.
======================================================
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of Michael Moser
(By way of [EMAIL PROTECTED])
Sent: Wednesday, October 19, 2005 9:32 AM
To: RBG7-L Mailing List
Subject: [RBG7-L] - Access Volation with Choose in RB7.5
Hi All,
I just wanted to confirm that the old .apx drop down menus no longer work in
R:Base 7.5 before I start re-writing a bunch of code.
I am converting an application that was originally written for R:Base 4.5++
and partially revised for R:Base 6.5++. I am now trying to run it in 7.5
and get the error:
Access violation at address 0124CF37 in module 'RBENGINE75.DLL
When the old standard line from the menu generator:
CHOOSE PICK1 FROM Main IN OPS.APX
is run.
This program has been working perfectly for 3 years in RB6.5, and the RB7.5
installation is working fine with other applications so I do not believe
that the problem is with the program or the R:Base install.
I checked back in the List serve and found a series of messages started by
Marc Shulter on Nov 13, 2003 regarding the exact same problem. The series
implies (but does not state) that the old apx menus no longer work in 7.5
and an alternate syntax was suggested.
Can anyone confirm that?
Thanks, Michael
Michael Moser
EXAQ Micro Services
www.exaq.com
Phone: 916-966-8313
Fax: 916-244-0582
