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
