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.
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Oma Cox
> Sent: Friday, July 06, 2001 12:14 PM
> To: [EMAIL PROTECTED]
> Subject: RE: Switch..Endsw drop to R>
>
>
> 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
>
>
