OK
הספקתי להסתכל בזה; אני מתנצל על העיכוב.
קודם כל אומר לפי מה שאני מבין אתה לא מבקש (בשלב זה) לשנות את צורת טופס התקלה, אתה רק רוצה להיות מסוגל להדפיס קבוצה של טפסים בבת אחת.
האמת היא שזה לא כ"כ פשוט להכין פרוצדורה כזו בה יש שני קלטים שיעבדו ביחד, קרי גם קלט טופס וגם קלט לקוח. אני באמת לא רואה צורך, תרצה קלטים של "טופס תקלה" ו"מס. לקוח" בו זמנית רק במידה ואתה רוצה להפיק רק חלק מהטפסים של לקוח מסוים. במקרה זה, בו אתה רוצה להפיק קבוצה שרירותית של טפסים של לקוח מסוים, הייתי מציע להשתמש בפרוצדורה הקיימת, לבצע זום למסך טופס תקלה, לשלוף לפי לקוח או כל תנאי שתרצה ולהביא את הרשומות המוצגות חזרה. אין צורך לפיתוח.
אני מדמיין שמה שיספק אותך הכי טוב זה דו"ח שאפשר להפעיל אותו מהסמך של לקוחות כהפעלה ישירה כך שבלחיצה אחת אפשר להוציא טפסי תקלה של לקוח אותו לקוח בלי לשחק עם קלט ידני. את זה אפשר להכין בקלות (הרבה יותר פשוט מאשר גם קלט של טופס וגם של לקוח). אני אציע גם כן תוספת אופציונלית וזו סינון לפי תאריך טופס התקלה. את זה אפשר לקבל גם מתוך מסך הלקוחות. כמריצים את הפרוצדורה מהתפריט אפשר יהיה לשלוף לפי לקוח או כמה לקוחות (כמו כל קלט) וגם טווח תאריכים.
הנה תוכנית העבודה, אני מקווה שזה רלוונטי.
אני אספר כאילו עושים מההתחלה, ואני אציע תוך כדי מה אתה צריך לעשות היות וכבר התחלת לפי מה שאני תיארתי בעבר.
1. יש להעתיק לפרוצדורה חדשה פרטית כי אי אפשר לעבוד על הקיימת ובכל מקרה רוצים לשמור את הקיים כדי להיות מסוגלים להפיק טפסי תקלה לפי שליפה אישית (כל זה מניח שאתה לא עושה שינויים בצורת הטופס, אם כן נטפל בזה בנפרד) – כבר העתקת פרוצדורה, תעבוד על מה שיש לך.
2. קלט הראשי שלנו בפרוצדורה יהיה לקוחות. יש לשנות את "עמודת טבלה" בפרמטר PAR ל-CUSTNAME ו-"שם טבלה" ל-CUSTOMERS. – תמחוק את שורת ה-CUS שהמלצתי מוקדם יותר ותשנה את PAR כנ"ל.
2א – אופציונלי – אם תרצה סינון לפי טווח תאריכים תוסיף 2 קלטים מסוג DATE רוחב 8 – FDT מתאריך TDT עד תאריך, ב"קלט I/M" תקבע M. אני מציע שבשאילתת הכנה תוסיף שורה מעין
[code:1]ERRMSG (msgnumber) WHERE :$.FDT > :$.TDT ;[/code:1]
ובהודעה תזהיר ש"מתאריך" צריך להיות לפני "עד תאריך". סתם בדיקת תקינות. לא חובה אבל אם לא בודקים וזה הפוך זה לא יביא כלום. אפשר לשפר ולדאוג שברירת המחדל תהיה תמיד מ-01/01/88 ועד היום – פיתוח מתקדם יותר.
אם עושים את זה אני מציע לשנות את סוג הקלט מ-INPUT ל-INPUTF. כך זה יבקש את התאריכים גם כשמריצים בהפעלה ישירה.
3. שלב ה-HTMLCURSOR: יש לשנות את השאילתא. אם לא נוגעים בזה, הפרוצדורה לא תתיחס לבחירת הלקוחות ויפיק את כל הטפסים. השאילתא צריכה להיות (ואני לא בדקתי, סתם כתבתי, אם זה לא יעבוד תחקור או נחקור):
כמובן במקום (not equals) שים קטן מ- וגדול מ-. תוכנת הפורום מורידה את התווים…
[code:1]
SELECT FAULT, FAULTNO
FROM CUSTOMERS, FAULTS
WHERE CUSTOMERS.CUST (not equals) 0
AND FAULTS.FAULT (not equals) 0
AND FAULTS.(your_prefix)_CUST = CUSTOMERS.CUST
ORDER BY FAULTNO;
[/code:1]
3א – אופציונלי – אם הוספת קלטים של FDT וTDT יש להתייחס אליהם. תוסיף לפמי השורה של ORDER BY:
[code:1]AND FAULTS.CURDATE BETWEEN :$.FDT AND :$.TDT[/code:1]
3ב – אופציונלי – אם תרצה לדאוג למיון הטפסים לפי לקוח (רלוונטי אם מוציאים טפסים של כמה לקוחות בבת אחת) אפשר להוסיף לשאילתא. לא אסביר פה, אפשר ללמוד מפרוצדורת WWWSHOWAIV
זה, לדעתי, צריך להספיק בשלב זה. נעזור להוסיף עוד על בסיס זה כשיעבוד.
בהצלחה!
.
