Still it would be great the Inside R:Base for windows. With a index for dummies from DOS
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Javier Valencia Sent: den 21 november 2002 20:41 To: [EMAIL PROTECTED] Subject: RE: A Duh Moment You are correct!!! Javier Valencia, PE President Valencia Technology Group, L.L.C. 14315 S. Twilight Ln., Suite #14 Olathe, KS 66062-4571 (913)829-0888 (913)649-2904 FAX -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Gunnar Ekblad Sent: Thursday, November 21, 2002 1:37 PM To: [EMAIL PROTECTED] Subject: RE: A Duh Moment My memory say's Ann Gilliham? Can I be right for once? -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Javier Valencia Sent: den 21 november 2002 18:49 To: [EMAIL PROTECTED] Subject: RE: A Duh Moment This use of the choose command was presented in the original book "Inside R:Base" (???) way back when (early 90's, DOS version) by a lady whose name escapes me right know and published by Microrim (green and white cover). I think it is a very cool way of displaying menus and I have used many a times. It is a somewhat undocumented feature that ca be very valuable. Javier Valencia, PE President Valencia Technology Group, L.L.C. 14315 S. Twilight Ln., Suite #14 Olathe, KS 66062-4571 (913)829-0888 (913)649-2904 FAX -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Ben Petersen Sent: Thursday, November 21, 2002 3:47 AM To: [EMAIL PROTECTED] Subject: A Duh Moment This is one of those things I came across recently that had me laughing at myself. Certainly nothing earth shaking, but one of those simple things that helps a bit. I use choose a lot. I also use Bill D's tip for unions to add literal choices to the menu... so forever I've been doing it like this: CHOOSE txtInvID FROM #VALUES FOR + '* Add New Invoice',0 + FROM Dummy WHERE LIMIT = 1+ UNION + SELECT '* Purchase on Account', -1 + FROM Dummy WHERE LIMIT = 1 + UNION + SELECT '* Re-display by Name', -2 + FROM Dummy WHERE LIMIT = 1 + UNION + SELECT DISTINCT(CTXT(T1.InvoiceNum)&T2.CusName),TranID FROM ar_InvoiceVW T1, + CusName T2 + WHERE T1.CustomerID = T2.CusID AND + T1.CustSrc = T2.CustSrc + ORDER BY 1 AT 5,1 + TITLE 'Press [Esc] to Quit' + CAPTION Invoices + LINES .vCT This example produces a menu with * Add new Invoice * Purchase on Account * Order by Name [list of invoice#/CusName] But when my customers first start a system I don't want things like "Order by Name" or "Purchase on Account" until there is supporting data to allow a choice (if there are no invoices to sort or customers with approved credit to choose why present the option?). And so I would dutifully do counts and conditional stuff and end up with an accurate menu 10 or 15 lines down the page. What never occurred to me was rather than selecting from my Dummy table I should just base that particular select against the table which holds the supporting data... if there is no data there is no choice in the menu. So ... UNION + SELECT '* Re-display by Name',1 + FROM ar_InvoiceVW WHERE LIMIT = 1 +... now is only included when there are invoices to address. Hope I didn't bore everybody with something this obvious! But maybe there is some poor slob like me out there who can benefit <g>. Ben Petersen ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: INTRO rbase-l ================================================ TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: UNSUBSCRIBE rbase-l ================================================ TO SEARCH ARCHIVES: http://www.mail-archive.com/rbase-l%40sonetmail.com/ ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: INTRO rbase-l ================================================ TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: UNSUBSCRIBE rbase-l ================================================ TO SEARCH ARCHIVES: http://www.mail-archive.com/rbase-l%40sonetmail.com/ ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: INTRO rbase-l ================================================ TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: UNSUBSCRIBE rbase-l ================================================ TO SEARCH ARCHIVES: http://www.mail-archive.com/rbase-l%40sonetmail.com/ ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: INTRO rbase-l ================================================ TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: UNSUBSCRIBE rbase-l ================================================ TO SEARCH ARCHIVES: http://www.mail-archive.com/rbase-l%40sonetmail.com/ ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: INTRO rbase-l ================================================ TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: UNSUBSCRIBE rbase-l ================================================ TO SEARCH ARCHIVES: http://www.mail-archive.com/rbase-l%40sonetmail.com/
