הכנסת שורות לחשבונית ספק מרכזת

קוד במסך בן לחשבונית ספק מרכזת 'קריאות לחשבונית' ב-POST-INSERT
/**/
:HE_KLINE = :HE_LINE = 0;
SELECT MAX(KLINE) INTO :HE_KLINE
FROM INVOICEITEMS
WHERE IV = :$$.IV AND TYPE = :$$.IVTYPE;
/**/
/**/
SELECT MAX(LINE) INTO :HE_LINE
FROM INVOICEITEMS
WHERE IV = :$$.IV AND TYPE = :$$.IVTYPE;
/**/
/**/
/**/
SELECT SQL.TMPFILE INTO :TMPFILE FROM DUMMY;
LINK GENERALLOAD TO :TMPFILE;
ERRMSG 70 WHERE :RETVAL <=0;
/**/
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, INT1)
VALUES (1, '1', :$$.IV );
/**/