מקטים ללא תנוע

לפרוצדורה יש שני פרמטרים: DAT – תאריך החיתוך (עד איזה תאריך לבדוק פריטים), ו-GEN (קובץ). אני לא כל כך סומך על תאריך ההקמה כפי שמופיע בכרטיס הפריט. הפרוצדורה עוברת על פריטי P – אפשר לכלול פריטי R אבל אז צריך להוסיף בדיקה שהפריט אינו נמצא באף שורת הזמנת רכש אחרי תאריך החיתוך.


SELECT STATDES INTO :STATDES
FROM PARTSTATS
WHERE INACTIVEFLAG = 'Y';
LINK GENERALLOAD_T TO :$.GEN;
ERRMSG 1 WHERE :RETVAL <= 0;
INSERT INTO GENERALLOAD_T (LINE, RECORDTYPE, INT1, TEXT1, TEXT2)
SELECT SQL.LINE, '1', PART.PART, PART.PARTNAME, :STATDES
FROM PART, PARTPARAM
WHERE PART.PART = PARTPARAM.PART
AND PART.WTYPE 'Y'
AND PART.STATUS 'Y' /* NOT PARIT MERAKEZ */
AND PART.TYPE = 'P'
AND PARTPARAM.INVFLAG = 'Y'
AND PARTPARAM.WARHSTRANSDATE <= :$.DAT
AND PART.CREATEDATE :$.DAT)
AND NOT EXISTS (SELECT 1 FROM SERIAL, KITITEMS
WHERE SERIAL.SERIAL = KITITEMS.SERIAL
AND KITITEMS.PART = PART.PART
AND SERIAL.PEDATE > :$.DAT)
AND NOT EXISTS (SELECT 1 FROM SERIAL
WHERE SERIAL.PART = PART.PART
AND SERIAL.PEDATE > :$.DAT)
AND PART.PART > 0;
SELECT ITOA (COUNT (*)) INTO :PAR1 FROM GENERALLOAD_T
WHERE RECORDTYPE = '1';
WRNMSG 3;

EXECUTE INTERFACE 'UPDPARTSTAT', SQL.TMPFILE, '-L', :$.GEN;
GOTO 1 WHERE NOT EXISTS (SELECT 1 FROM ERRMSGS
WHERE USER = SQL.USER AND TYPE = 'i');
EXECUTE WINACTIV '-R', 'INTERFACEERR';
LABEL 1;