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 ? כדי שיהיו כל הפריטים שיש להם מלאי אפילו אם אין להם הזמנות פתוחות.

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

עלי להזהיר מראש ששינוי כותרת במסך סטנדרטי אינו פעולה שקיבלה "הכשר" מפריוריטי.

משנים במסך מנהל המערכת > מחוללים > מסכים > מחולל מסכים, או על ידי לחיצת F6 בתפריט. מגיעים אל השדה ורושמים את התאור החדש בשדה "כותרת חדשה".

יחד עם זאת, יש כמה רמות של שינוי. השינוי הזה יבוא לידי ביטוי במסך "כרטיס פריט" בלבד, לא במסך "מוצרים" ולא בדו"חות שמציגים את השדה. כדי לשנות באופן גורף, צריך להפעיל את מנהל המערכת > מחוללים > טבלאות > מחולל עמודות > שנוי כותרת עמודה.

בשדה "תעודה" (זאת אומרת, איפה שמוצג מספר הזמנה, מספר תעודה וכו') את אמורה להגדיר מסך יעד ZOOM1 ואז מסך היעד נפתח עם התעודה המתאימה. אולי הגדרת את ה"מסך" הזה בשדה אחר?

אפילו בלי PART = 1412, הקוד מציג אי הבנה לגבי LINK וקורסור. אם יש רק פריט אחד בטבלה המלוננקת, אתה לא צריך את הקורסור. אם יש יותר מפריט אחד בטבלה, הקורסור יפעל על פריט אחד בלבד – בגלל התנאי WHERE PART = :PARTID. בכל מקרה העדכון לא יעשה כלום כי אתה מעדכן את הטבלה המלונקקת, לא את הטבלה האמיתית.

להלן קוד נכון, בלי קשר אם יש רק פריט אחד או רבים

LINK PART TO :$.PAR;
ERRMSG 1 WHERE :RETVAL <= 0;
DECLARE BSH_CUR CURSOR FOR
SELECT PART
FROM PART
WHERE PART > 0;
OPEN BSH_CUR;
GOTO 940 WHERE :RETVAL <= 0;
LABEL 140;
FETCH BSH_CUR INTO :BSH_PART;
GOTO 840 WHERE :RETVAL <= 0;
UPDATE PART ORIG
SET ZMAN_LASTTRANSDATE = SQL.DATE8
WHERE PART = :BSH_PART;
LOOP 140;
LABEL 840;
CLOSE BSH_CUR;
LABEL 940;
UNLINK PART;