You could trace it to see which command is giving you the error.

Just put these commands before the trouble in your eep. Make sure the
disable trace is unchecked in the form properties.


Set trace on
Set debug on 


Then you can step through it to find the cause of the error.

Dan Goldberg

-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Thomas
Eldred
Sent: Monday, November 09, 2009 10:33 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Unknown Entry/Exit Procedure Error

Good Afternoon all,

I am getting an "Unrecognized command in Entry/Exit Procedure" Error" when
clicking a Bit Button and then again when exiting from the procedure inside
the button.

Everything works in the routine -- that is it does its job, but I cannot
find the source of this notice. The form holding the button has no eeps on
start, before, after, etc... and neither does the form being called when the
button is pushed.

I feel I have isolated that it is something to do with the button, being
that the notice is not presented until it is clicked. The code for the
button is below...

Anyone who could provide a clue?

Thank you

Tom Eldred



The code for the button is:

--get rush number
SET VARIABLE voldpin INTEGER = 0
SET VARIABLE vnewpin INTEGER = 0
SET VARIABLE vrushnum INTEGER = NULL
-- 0 means 'no'
SELECT rushnum INTO vrushnum FROM people WHERE idnum = .vidnum

LABEL rushnumber
IF vrushnum IS NULL THEN
  GOTO newmem
ENDIF
GOTO contribution

LABEL newmem
SET VAR vrushnum INTEGER = NULL
SET VAR vhighrush INTEGER = NULL
SELECT MAX(rushnum) INTO vhighrush FROM people SET VARIABLE vrushnum =
(.vhighrush + 1) UPDATE people SET rushnum = .vrushnum WHERE idnum = .vidnum
EDIT USING newrushmem GOTO contribution

LABEL contribution
*{SELECT pinnumber INTO voldpin FROM rushtrans + WHERE contransid IN (SELECT
MAX(contransid) FROM rushtrans + WHERE rushnum = .vrushnum)

SELECT donortotal INTO voldtotal FROM rushcontview + WHERE datelast =
(SELECT MAX (contirbdate) FROM rushtrans + WHERE rushnum  = .vrushnum)}

SET ERROR MESSAGE 2418 OFF
INSERT INTO rushtrans (rushnum, pinnumber, processdate) VALUES (.vrushnum, +
.voldpin,  .#DATE) EDIT USING rushcont WHERE rushnum = .vrushnum AND
processdate = .#DATE


*{SELECT pinnumber INTO vnewpin FROM rushtrans + WHERE contransid IN (SELECT
MAX(contransid) FROM rushtrans + WHERE rushnum = .vrushnum) UPDATE rushtrans
SET pinnumber = .vnewpin + WHERE rushnum =.vrushnum AND  processdate =
.#DATE} SET ERROR MESSAGE 2418 ON RETURN


Reply via email to