PROGRESS BAR

כן, אני לפעמים משתמש בזה
להלן דוגמא

DECLARE CUR CURSOR FOR
SELECT PART.PART, PARTPARAM.SUP
FROM PART, BRANCHES, PARTPARAM, SUPPLIERS
WHERE PART.GLOB_BRANCH = BRANCHES.BRANCH
AND PART.PART = PARTPARAM.PART
AND PARTPARAM.SUP = SUPPLIERS.SUP
AND PART.TYPE = 'R'
AND PART.WTYPE 'Y';
OPEN CUR;
:RECORDCOUNT = :RETVAL;
:PROGRESS = 0;
GOTO 300 WHERE :RECORDCOUNT <= 0
;
LABEL 100;
FETCH CUR INTO :PART, :SUP;
GOTO 200 WHERE :RETVAL <= 0;
:PROGRESS = :PROGRESS + 1;
DISPLAY :PROGRESS OF :RECORDCOUNT;


הקוד הזה עובד רק בפרוצדורות, לא במסכים. אין איפה להציג את הפס במסך…..

האם מדובר במסך סטנדרטי או מסך מיוחד שפיתחת? יש לי פתרון למסך מיוחד.

תבני פרוצדורה בת שני שלבים (לפחות).

בשלב הראשון, SQLI, הקוד מכניס את הערכים לתוך טבלה מותאמת לצרכי המסך. למעשה, השלב הזה מכיל את ההפעלה שכבר כתבת, כנראה הפעלת PRE-FORM במסך. תכניסי כאן את הקוד להצגת פה ההתקדמות.

בשלב השני, הפרוצדורה מפעילה את המסך שבנית, כאשר הערכים באים ברובם מהטבלה הפרטית (שורה בטבלה = שורה במסך).

נניח יש לך פרוצדורה XXXX_TEST
שלב 10: SQLI. השלב הזה מבצע עיבוד כלשהו לנתונים ורושמת את הנתונים לתוך טבלה שהקמת לצורך זה, בשם XXXX_TEST.
שלב 20: הפעלת מסך XXXX_TEST אשר מציג נתונים מטבלת XXXX_TEST

אמורה להיות תמונה מצורפת: בצילום המסך רואים את השלבים של פרוצדורה כזו אצלי (יש להתעלם משני השלבים הראשונים).
שלב 30 כותב נתונים שנאספו לתוך טבלה פרטית. שלב 40 מפעיל מסך אשר קורא נתונים מהטבלה הפרטית ומציגה אותם.

למשל, לו היית רוצה להפעיל את מסך הזמנות הלקוח, היית רושמת בשלב 40 ORDERS עם טיפוס F – אבל המסך הזה יודע לקרוא מטבלאות סטנדריות ולא מטבלה פרטית. לכן את צריכה לבנות מסך פרטי – את אומרת שיש לך – שיקרא מטבלה פרטית מתאימה.

לא הבנתי. באיזו פרוצדורה רואים התקדמות?