I like to share.. I know my coding is not the best on the list, but if it can help someone in some way (and not hurt) then I'm happy
Jim --- "Phil Nolette (NCS Group, Inc.)" <[EMAIL PROTECTED]> wrote: > Jim, > I was reviewing the code and wanted to say thanks for sharing this. I found > quite a few items in there that provided some real examples that I can use. > Once again, thanks. > Phil > > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On > Behalf Of Jim Limburg > Sent: Tuesday, February 12, 2002 3:43 PM > To: [EMAIL PROTECTED] > Subject: Your going to love this. > > > I have developed a real time save/headache solver... > > I have time after time run into forms that would not run > because of a variable not being predeclared and yes I know > it's good programming to do so.... so I hated having to > copy out rbase's list of vars for a form and then copy and > paste in SET VAR and so on. I decided to do something about > it. I have created 3 small script files that will pick up > the list of vars place the SET VAR in front the var name along > with the correct datatype setting it to null and place it all > on the clipboard so all you have to do is type in a couple of > RUN statements, a few clicks and paste the code right into you > app... > > Keep in mind this will only work with RBase newest with inline > patches applied or possibly without the patches, but haven't > tried. For those on older version you could change the output > method I am using and save this to a file. > > Here is how it works: > > 1. You must have a table in your database called Dummy with at > least on column(name or size doesn't matter but I think it > should be a text datatype.. haven't tested this part) WITH > ONE ROW OF DATA in it... doesn't matter what the data is.. > 2. Connect to the database the form is in. > At the R prompt type ... RUN vlist.rmd > > 3. This will present you a list of 3 choices. Choose '1) Run Step One'. > This will show a list of forms in the database, just pick the > form you need the list of vars for. > This will prompt you to make sure and Open up form in design mode. > You will have to choose 'Quit' first. > > 4. Go to the Object Manager and open up the form in design mode. > Then without doing anything close the form you just opened - > either by [X] to close the form (not Rbase) or by choosing the > menu File ... Close Window. > > 5. Now return to R prompt and type RUN vlist.rmd again (or press > page up button to get the last commnd) and run this choosing > the '2) Run Step Two' option and then '3) Quit' > > 6. The variables are now created and sent to the windows clipboard > so you can paste them into your code now. > > ENJOY..... > > Here are there files: > > IN this format... > filename to save it as > blank line > code to copy into the file name above and to save. > blank line > RB_EOF... do not copy this line it just tells you where this file stops. > > vlist.rmd > > *( > --=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=- > PROGRAM NAME: vlist.rmd > > AUTHOR: Jim Limburg > Tuftco Corporation > 2318 Holtzclaw Ave, Chattanooga, TN 37404 > Voice: 423-698-8601 Fax: 423-698-0842 > email: [EMAIL PROTECTED] --business > [EMAIL PROTECTED] --home > > PURPOSE: Capture the variables needed to run a form. > Will set the clipboard to a list of SET VAR > statements that a form needs to have preset > before running > > IS RUN BY: Be connected to the database you are working > with and then type at R> prompt: RUN vlist.rmd > Run the First Step and Quit. This will tell you > to Open the form in design mode -- Do this by > going to the Manager where reports,forms,and > tables are created and go to the forms tab and > click on (highlight) the form you are working on > and click the design button. Immediatly close the > form (yes with doing anything) and then RUN vlist.rmd > again and choose the second option and Quit. > Now you can (paste) the SET VAR statements this > creates into your code pressing [CTRL] + [V] or > right click place you want the code to be placed > and choose paste, or choose paste from the menu > option you have in the program you are writing code > to. > > RETURNS: Sets the Clipboard to a list of variables > that can be pasted into your code before a form call. > > MODIFICATION HISTORY > Created: 02/12/2002 > > --=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=- > ) > > LABEL lbtop > CHOOSE vaction FROM #VALUES FOR ('1. Run Step One'), '1' FROM dummy + > UNION SELECT ('2. Run Step Two'), '2' FROM dummy + > UNION SELECT ('3. Quit'), '3' FROM dummy + > AT 15 CENTER TITLE 'Choose Next Action' > SWITCH (.vaction) > CASE 1 > RUN lstvars1.rmd > BREAK > CASE 2 > RUN lstvars2.rmd > BREAK > CASE 3 > CASE '[Esc]' > CLEAR ALL VAR EXCEPT vm_formname > GOTO lbexit > BREAK > ENDSW > GOTO lbtop > LABEL lbexit > RETURN > > RB_EOF > > lstvars1.rmd > > *( > --=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=- > PROGRAM NAME: lstvars1.rmd > > AUTHOR: Jim Limburg > Tuftco Corporation > 2318 Holtzclaw Ave, Chattanooga, TN 37404 > Voice: 423-698-8601 Fax: 423-698-0842 > email: [EMAIL PROTECTED] --business > [EMAIL PROTECTED] --home > > PURPOSE: Part of the vlist.rmd -- see it's comments > > IS RUN BY: Part of the vlist.rmd -- see it's comments > > RETURNS: Part of the vlist.rmd -- see it's comments > > MODIFICATION HISTORY > Created: 02/12/2002 > > --=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=- > ) > > CLEAR ALL VARIABLES > SET ERROR VARIABLE errvar > CHOOSE vm_formname FROM #FORMS > IF errvar = 0 AND vm_formname IS NOT NULL AND vm_formname <> '[Esc]' THEN > SET VAR vm_msg1 TEXT = + > ('Be sure to Open ' + .vm_formname) > SET VAR vm_msg2 TEXT = + > (' form in Design mode, and close it.') > SET VAR vm_msg TEXT = (.vm_msg1 + .vm_msg2) > PAUSE 1 USING .vm_msg AT CENTER CENTER > ENDIF > CLEAR VAR vm_ms% > CLS > RETURN > > RB_EOF > > lstvars2.rmd > > *( > --=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=- > PROGRAM NAME: lstvars2.rmd > > AUTHOR: Jim Limburg > Tuftco Corporation > 2318 Holtzclaw Ave, Chattanooga, TN 37404 > Voice: 423-698-8601 Fax: 423-698-0842 > email: [EMAIL PROTECTED] --business > [EMAIL PROTECTED] --home > > PURPOSE: Part of the vlist.rmd -- see it's comments > > IS RUN BY: Part of the vlist.rmd -- see it's comments > > RETURNS: Part of the vlist.rmd -- see it's comments > > MODIFICATION HISTORY > === message truncated === __________________________________________________ Do You Yahoo!? Yahoo! Sports - Coverage of the 2002 Olympic Games http://sports.yahoo.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/
