Bill Yea I know, Part of our group is on 7.6 but the main group is in 6.5++ until next year. Have to work in it for now. Steve
________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Bill Downall Sent: Monday, November 03, 2008 7:59 PM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: Might be a stupid question but I forgot what this statement means and accomplishes Steve, What version of R:BASE are you in now? There are some much easier and much slicker tools in the latest versions. Bill On Mon, Nov 3, 2008 at 7:55 PM, Steve Breen <[EMAIL PROTECTED]> wrote: Actually trying to build a new procedure out of old code. Used to be looking at and editing breakdown notesfrom a bdnotes table. Now adding and editing approval contacts in a custcontacts table. Actual total code is as follows: set var vmsg = 'Cust #:' set var vmsg = (.vmsg & .this_POn & 'Contacts - Call In Order Listed - ENTER to Zoom, ESC to Return') choose VCONTACTN from #values for + '<NEW>', 0 from mechxx where count = 1 + union all sel '<VIEW OR EDIT ALL>', -1 from mechxx where count = 1 + union all sel + ( + (ctxt(time_stamp)) & + (ifnull(u_init, '----', (ljs(u_init, 4)) )) & + notes + ), noten from vUserNotes where POn = .this_POn at 2 2 foot title .vmsg if (lastkey(0)) = '[esc]' then goto FINISH endif ________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Bill Downall Sent: Monday, November 03, 2008 7:43 PM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: Might be a stupid question but I forgot what this statement means and accomplishes Hi, Steve! The syntax presents a menu with a choice for each row in a table. But your example's WHERE clause seems to be just popping up a single choice menu dialog, where the user will see <NEW>, and when the user presses '[Enter]' or clicks the choise, the value of the TEXT variable VCONTACTN will be set to '0'. Bill On Mon, Nov 3, 2008 at 7:33 PM, Steve Breen <[EMAIL PROTECTED]> wrote: choose VCONTACTN from #values for '<NEW>', 0 from mechxx where count = 1 Please help me remember. Just getting back on pycle and starting up coding after a long hyatis Steve
