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 >> > >
