Translating with DrWatson… this can take a few seconds the first time.
This is a genuine, complex translation. DrWatson protects commands, error codes, and log output while naturally translating the surrounding text. It’s translated once and saved.
Jim m wrote:
> David
> Coould you be a little more specific, or give a little more direction
> where to look.
> I am using Informix forms not 4GL
>
> Thanks, Jim
CREATE PROCEDURE sp_check_date (Pi_date_enter DATE)
DEFINE l_ar_date DATE;
LET l_ar_date = (SELECT ar_close_date FROM ar_cntrl );
IF (Pi_date_enter <= l_ar_date) THEN
RAISE EXCEPTION -746, 0, "date enter < " || l_ar_date;
END IF;
END PROCEDURE;
{ create database trigger to control adding new records with date <=
ar control date
}
CREATE TRIGGER inscerte_addINSERT ON inscerte
REFERENCING NEW AS inscerte_new
FOR EACH ROW (EXECUTE PROCEDURE sp_check_date
(inscerte_new.date_enter))
Preliminary testing of these works quite nicely In INFORMIIX FORMS . Am
testing what effect it mught have on other applications that might do
multiple updates.
We use strictly necessary cookies to make this site work. With your
consent we’d also use optional cookies for analytics and marketing. You can accept all,
reject all, or choose. Read our Cookie Policy.