Hi Javier, Thanks for your helpful response. This is a conversion so all the code is already written and I was just trying to prioritize what parts must be re-written and which should be re-written. Looks like these menus fall into the "must" category.
:-) Thanks for your help, Michael Michael Moser EXAQ Micro Services www.exaq.com Phone: 916-966-8313 Fax: 916-244-0582 >> 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
