NoamN

היה עוזר לו היינו רואים את הקוד כי אחרת אנחנו מגששים באפלה. אתה כותב שיש לינק לטבלת SUPPLIERS. אפשר לכתוב משהו שנראה מוזר אבל יכול לעבוד – במקום לכתוב

LINK SUPPLIERS TO :$.SUP

תכתוב :MYSUP = :$.SUP בפרוצדורה שלך, ובקוד המשותף תכתוב LINK SUPPLIERS TO :MYSUP

הרי בפנים :$.SUP מכיל שם של קובץ במערכת הקבצים וניתן להעתיק אותו.

אני לא מסכים אתך: יש קוד מסוים ששמרתי כהפעלה מתוך מסך func אשר משתמש בקורסור עם הפקודה DECLARE @NCRC1 CURSOR  ואין בעיה בפרוצדורה שקוראת להפעלה הזו באמצעות #INCLUDE func/TEST_NEWCALCRELCOST.

אני לא כל כך אוהב את הטכניקה הזו מפני שהקוד נמצא במסך: לאחר עריכה, עלי להריץ בניית מסכים מחדש, וזה גורם להודעה מסוימת אצל המשתמשים (לכן אני מוסיף/מתקן/משפר מסכים רק בערב או בסוף השבוע). לעומת זאת, פיתחתי טכניקה של קריאת פרוצדורה נוספת לבצע עבודה משותפת. לדוגמא, אפשר לכתוב קוד כמו

LINK ORDERS TO :$.ORD;
ERRMSG 1 WHERE :RETVAL <= 0;
INSERT INTO ORDERS (ORD, ORDNAME)
SELECT ORIG.ORD, ORIG.ORDNAME
FROM ORDERS ORIG, STACK
WHERE ORIG.ORD = STACK.ELEMENT
AND ORIG.ORD > 0;
EXECUTE WINACTIV '-P', 'TEST_MUTUALCODE', 'ORDERS',
:$.ORD;
UNLINK ORDERS;

INSERT INTO STACK4 (KEY, REALDATA)
SELECT WARHSBAL.PART, REALQUANT (SUM (WARHSBAL.BALANCE))
FROM WARHSBAL, WAREHOUSES
WHERE WARHSBAL.WARHS = WAREHOUSES.WARHS
AND WAREHOUSES.WARHSNAME IN (‘Main’, ‘WHS2’, ‘WH3’)
AND WARHSBAL.BALANCE > 0
AND WARHSBAL.CUST = -1 /* Goods */
GROUP BY 1;
INSERT INTO STACK2 (ELEMENT, TYPE)
SELECT PART, SUM (REALQUANT (TBALANCE))
FROM ORDERITEMS
AND TBALANCE > 0
AND CLOSED <> ‘C’
GROUP BY 1;

נניח שביצענו את ה-LINKS הנדרשים בהתחלה. בדו"ח צריך להשתמש בחיתוך מותנה – STACK4.KEY = STACK2.ELEMENT ? כדי שיהיו כל הפריטים שיש להם מלאי אפילו אם אין להם הזמנות פתוחות.

אולי יותר מהר בביצוע אבל פחות ברור לתכנות וגם קצת "שביר". ומה קורה כאשר רוצים להציג נתן נוסף כמו שימוש ממוצע (גריעות במלאי) על פני תקופה נוספת? במקרים כאלה, הפתרון הראשון שלי עדיף כי בגוף הקורסור ניתן לאסוף כל מיני נתונים שאינם קשורים אחד לשני, מלבד הפריט.