NoamN

הצעה: תנסה להשתמש ב-STRPIECE – התוצאה תהיה שונה המחרוזת המקורית אם קיים גרש.

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

ועכשיו הרבה פילוסופיה…….

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

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

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

אגב, הרבה יותר קל כאשר מציגים נתונים מטבלה אחת אך משדות רבים, כמו AINVOICES, CINVOICES ו-FINVOICES או DOCUMENTS_A ו-DOCUMENTS_D. אם INVOICES, אזי

INVOICES.TYPE = IVTYPES.TYPE

INVOICES.DEBIT = IVTYPES.DEBIT

IVTYPES.EXEC = EXEC.EXEC

שוב, השדה החשוב יהיה EXEC.ENAME. כאן אין צורך בסוג הרשומה ב-EXEC.

לגבי תעודות מלאי, הטבלה נקראת DOCTYPES במקום IVTYPES.

המשך: מגדירים שדה נסתר, EXEC.ENAME, עם מפתח מיון 9. לשדה הזה יהיה ביטוי בסגנון
<p style="text-align: right;">= (STACK8.KEY1 = 1 ? 'ORDERS' : (STACK8.KEY1 = 2 ? 'DOCUMENTS_D' : …</p>
או במילים, אם KEY1 = 1, אזי ENAME יהיה ORDERS, ואם KEY1 = 2, אזי ENAME יהיה DOCUMENTS_D וכו'. אלה שמות מסכים.

שדה נסתר נוסף, EXEC.TYPE, עם ביטוי = 'F'. יש לפחות שתי שורות בטבלת EXEC עם שם ORDERS: אנחנו רוצים את השורה של המסך, לכן F. ללא השדה הזה, יופיעו אותם נתונים יותר מפעם אחת בדו"ח.

עוד מכתב אחד…..

הסבר יותר מלא לגבי דו"חות: כאן אני מניח שהדו"ח מוצג כשלב שני מתוך פרוצדורה. אני משתמש ב-STACK8 לדו"חות "מעורבבים" כאשר יש צורך להציג נתונים מיותר מישות אחת. ב-KEY1 אני שומר מספר שמבדיל בין הישויות (נניח 1 = הזמנות לקוח, 2 = תעודות משלוח, 3 = הזמנות רכש וכד'). ב-KEY2 אני שומר את ערך מפתח ה-A. כתוצאה מכך, אפשר לשמור הפניות גם להזמנה מספר 1 וגם לתעודת משלוח מספר 1.

עכשיו בדו"ח: יש שדה שמציג את מספר התעודה. ערכו יהיה תלוי בערך שנמצא ב-KEY1 לכן כותבים ביטוי STACK8.KEY1 = '1'  : ORDERS.ORDNAME : DOCUMENTS.DOCNO

רצוי לשים סוגריים מסביב לביטוי כולו. אם יש יותר משתי ישויות, אז צריך להיות משפט יותר מורכב.

עבור מסך: כתבתי על כך (באנגלית) כאן: https://progpitfalls.blogspot.com/2021/08/defining-dynamic-target-form-name-for.html

הנה הנתיב למסך בו מגדירים סטטוסים לחשבוניות מס: כספים > מכירות (כספים) > חשבוניות מכירות > חשבוניות מס > ניהול תהליך לחשבונית מס.

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

יש מסך מקביל "ניהול תהליך לחשבונית מרכזת".

 

בטבלה שעליה בנוי מסך הנוכחות, אני משער שיש שדה USER או USERB. כדי לגרום לכך שכל משתמש יראה רק את הנתונים שלו, לשדה USER יהיה ביטוי SQL.USER. זה אומר שכל רשומה שתיקלט תכיל את מספר המשתמש הנוכחי וגם בשליפת נתונים, רק הרשומות השייכות למשתמש הנוכחי יישפלו.

יצחק כתב על השדה TYPE במסך DOCUMENTS_D שממלא את אותו התפקיד (גם בכל המסכים ששמם מתחיל ב-DOCUMENTS).

קצת יותר מסובך לגבי USERB. כאן נראה לי שצריך להכניס שאילתא קצרה בהפעלה PRE-FORM, בסגנון SELECT USERB INTO :MY_USER FROM USERSB

WHERE USER = SQL.USER;

הביטוי בשדה USERB יהיה MYUSER:.