David,
<I put in the mods, but no luck. When I exit the form I go to the R>
prompt.
Even using TRACE I just drop out. SQL code = 0, SQLState = 00000.>
Exit which form???? YpMenu or the secondary forms call for editing(ypedit)
or entry(ypnew)?
How are you starting mainmenu.rmd? From Rbase.dat or from another form
menu?
Is mainmenu.rmd (YpMenu) a secondary menu form off of a primary menu form?
Change ENTER USING YpMenu CAPTION ' ' to EDIT USING YpMenu Caption ' '
Add a GOTO Mainmenu and label at the beginning of Mainmenu.rmd (LABEL
MainMenu).
Here's and example that I've did yesterday.
I run this from the Rbase.dat using run mainmenu.rmd.
This form is tied to a dummy table with one column in it (Dummy text 1) with
one row of data (value R)!
Best regards,
Oma
-- mainmenu.rmd
LABEL mainmenu
CLEAR ALL VAR EXCEPT verror,vuser,vpass
CLS
MAXIMIZE
SET SINGLE=_
SET MANY=%
SET QUOTES='
SET IDQUOTES=`
SET VAR RBTI_NOSTATUS = 1
SET ERROR VAR verror
set var vbutton integer = null
SET RBGSIZE CENTER CENTER 800 600
SET DEBUG OFF
SET MESSAGES On
SET ERROR MESSAGES On
SET ECHO OFF
SET ESCAPE OFF
LABEL start
CLS
SET CAPTION 'Mississippi Liquior Ordering System'
EDIT USING logo CAPTION 'Mississippi Liquor Ordering System'
SWITCH (.vbutton)
CASE 1
SET ESCAPE ON
RUN pexit.rmd
BREAK
CASE 2
SET ESCAPE ON
RUN additem.rmd
BREAK
CASE 3
SET ESCAPE ON
RUN edititem.rmd
BREAK
CASE 4
SET ESCAPE ON
-- RUN acc.rmd
BREAK
CASE 5
SET ESCAPE ON
-- RUN admin.rmd
BREAK
CASE 6
SET ESCAPE ON
-- RUN pur.rmd
BREAK
CASE 7
SET ESCAPE ON
-- RUN sales.rmd
BREAK
CASE 8
SET ESCAPE ON
-- RUN osfc.rmd
BREAK
CASE 9
SET ESCAPE ON
-- RUN poscsq.rmd
BREAK
CASE 10
-- EXIT
BREAK
CASE 11
-- spare
BREAK
CASE 12
-- spare
BREAK
GOTO start
ENDSW
GOTO mainmenu
