Lior

שלח DUMP של המסך

הי יוסי

גיבוי לטבלה נהגו לעשות על ידי הפקודה הבאה ב WINDBI

SELECT * FROM table_name DATA STRCAT (SQL.ENV, '-table_name') ;

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

לגבי שאלת ה JOIN אנסה להמחיש באמצעות דוגמא. לצורך הדוגמא את הקשר בין ההצעה לסוג ההצעה

טבלת סוגי ההצעות מכילה מפתח A ששמו הוא CPROFTYPE
גם טבלת CPROF – הצעות המחיר מכילה שדה בשם זה מסוג INT

החיתוך בין הטבלאות הוא מעמודת CPROFTYPE ב CPROF (מופיעים בשדות עמודת טבלה , שם טבלהבמחולל) ל עמודת CPROFTYPE שבטבלת CPROFTYPES (עמודת חיתוך, טבלת חיתוך)

CPROFTYPE הוא שדה מוסתר מכיון שאין למשתמש עניין בו. הוא משמש רק לקשר בין שתי הטבלאות.
כמו כן מוצג למשתמש שדה TYPEDES מ CPROFTYPES – השם הטקסטואלי של סוג ההצעה
TYPEDES הוא U – יש לעובדה הזו חשיבות!!

כאשר המשתמש בוחר TYPEDES (סוג הצעה כלשהו) המערכת מזהה שזהו מפתח U ולכן "מביאה" את כל הערכים בעמודות של CPROFTYPES אשר משתתפות במסך ובינהן גם את CPROFTYPE – ה A הנ"ל.
עמודת המסך מקבלת את ה A של ה CPROFTYPE שנבחר וכשהמשתמש יורד מהרשומה, נרשם ב CPROFTYPE של CPROF הערך של סוג ההצעה שנבחר.
וכעת, כאשר אתה שולף את רשומת ההצעה הזו, מכיון שה CPROFTYPE שלה מכיל מספר אשר יש רשומה ב CPROFTYPES עם CPROFTYPE זהה, אתה רואה את סוג ההצעה שהמשתמש בחר.

הערה:
כדי שהמערכת תאפשר רשימת בחירה יש לבנות מסך על הטבלה החדשה ולהכניס לו טריגר CHOOSE-FIELD בהפעלות המסך. אפשר לראות דוגמאותבמערכת לטריגרים כאלו למכביר (גם בדוגמא לעיל)

אתה צריך לקשר את טבלת CUSTOMERS עם מזהה 5 ומעלה ולרשום את אותו מזהה ליד שם הלקוח ותיאור הלקוח במזהה הטבלה

גם בספקים זה עובד כך. קיימת עמודת ACCOUNT בטבלת SUPPLIERS

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

לפני כן תעשה נסיון עם משתנה גלובלי, תאתחל :VAR כלשהו בפרוצדורה ותבדוק מה הערך שלו בטריגר. אם הצליח, יופי. אם לא, יש לך את הפתרון הראשון

אתה יכול לשים אותו בשדה במסך

ב PRE-INSERT השורה עדיין לא בתוך הטבלה ולכן אתה צריך לעבוד עם הערכים במסך ישנן שתי דרכים:

לפי יתרה למשלוח בשורת משלוח:
WRNMSG 501 WHERE :$.TQUANT > :$.CQUANT ;

לפי יתרה לאספקה בשורת ההזמנה המקושרת:

WRNMSG 501 WHERE EXISTS (SELECT 'X' FROM ORDERITEMS WHERE ORDI = :$.ORDI
AND ORDI 0
AND TBALANCE < :$.TQUANT);