David,
I've noted some changes below!
Have you traced this for errors!
Changed your label in --chocli.rmd from END (it's a reserved word in RBASE)
to DONE
Added a goto at the end of the CASE before the switch in mainmenu.rmd.
remarked the Return after the switch in mainmenu.rmd and in case 2 (this
most likely why your dropping to the R> prompt).
change set var button to include the null value (no need to two setup this).
Let me know if this helps!
Best regards,
oma
--BUTTON.EEP
SET VAR VButton = .%1
CLOSEWINDOW
RETURN
--Mainmenu.rmd
label Mainmenu
CLS
MAXIMIZE
DISCONNECT
CONNECT hhs
SET SINGLE=_
SET MANY=%
SET QUOTES='
SET IDQUOTES=`
SET VAR RBTI_NOSTATUS = 1
--SET RBGSIZE CENTER CENTER 800 600
SET MESSAGES OFF
SET ERROR MESSAGES OFF
SET VAR vbutton INTEGER = NULL
--Set the vbutton variable for Button.EEP on form MainMenu
--SET VAR vbutton = NULL
Label Start
SET CAPTION ' '
ENTER USING YpMenu CAPTION ' '
SWITCH (.vbutton)
CASE 1
Run chocli.rmd
BREAK
CASE 2
QUIT TO choeid.rmd
--RETURN
BREAK
CASE 3
ENTER USING evcontact
BREAK
CASE 4
ENTER USING evdxnew
BREAK
CASE 5
ENTER USING evispgoal
BREAK
CASE 6
ENTER USING evlrnew
BREAK
CASE 7
ENTER USING evterm
BREAK
CASE 8
ENTER USING servent
BREAK
CASE 77
PAUSE 3 USING 'You must make a selection.' AT CENTER CENTER
BREAK
CASE 99
EXIT
BREAK
GOTO Start
ENDSW
--RETURN
--chocli.rmd
--SET VARIABLES
SET VAR vtask TEXT
SET VAR vtresp TEXT
SET VAR vtkey TEXT
SET VAR vthhn TEXT
SET VAR gvhhn INTEGER
SET VARIABLE vflast = (LASTKEY(0))
LABEL start
CLS
--Get a last name to narrow the scope of the search
DIALOG 'Enter the last name: '=20 vtresp vtkey 1 AT 10, 10
--Test for Escape response
IF vtkey = '[Esc]' THEN
DIALOG 'Exit function? ' vtresp vtend YES AT 5, 10
IF vtresp = 'YES' THEN
GOTO DONE
ENDIF
CLEAR VAR vtresp
CLEAR VAR vtend
ENDIF
--Set variables for the CHOOSE appending a wildcard to the name
SET VAR vtask = .vtresp + '%'
--Prompt for client name
CHOOSE tvhhn FROM #VALUES FOR (LJS((lname + ', ' + fname), 20)), hhn +
FROM yp WHERE lname LIKE .vtask UNION SELECT ' - New Client -' ,0 +
FROM yp WHERE LIMIT = 1 ORDER BY lname ASC +
AT CENTER, CENTER TITLE 'Select a Name ' CAPTION 'Clients' LINES 14 +
FORMATTED
--Test for Escape response
IF vtkey = '[Esc]' THEN
DIALOG 'Exit function? ' vtresp vtend YES AT CENTER, CENTER
IF vtresp = 'YES' THEN
CLEAR VAR vt%
CLEAR VAR vtresp
CLEAR VAR vtend
GOTO DONE
ENDIF
ENDIF
--Set the HHN Variable
SET VAR gvhhn = .tvhhn
--Test for valid case, if not, enter one
IF gvhhn > 0 THEN
EDIT USING ypedit WHERE hhn = .gvhhn
ELSE
ENTER USING ypnew
GOTO DONE
ENDIF
LABEL DONE
--Clear the temporary variables
CLEAR VAR tv%
CLEAR VAR vt%
CLEAR VAR vf%
CLEAR VAR vcount
RETURN
