הפעלת עידכון מחירי תקן מטריגר

[code:1]:TMPFILE = :MSGFILE = " ;
SELECT SQL.TMPFILE, SQL.TMPFILE INTO :TMPFILE, :MSGFILE FROM DUMMY ;
LINK PART TMPPART TO :TMPFILE ;
/** GOTO somewhere or ERRMSG somthing if :RETVAL smaller than 1 */
INSERT INTO PART TMPPART SELECT * FROM PART WHERE PART = :$.PART ;
EXECUTE LASTPRICETREE :TMPPART, 2,0, :MSGFILE ;
UNLINK PART TMPPART ;[/code:1]