NoamN

אפשר גם לקבוע חוק עסקי אשר יגביל את התאריך.

קודם מתבצעים טריגרים מובנים למסך (אסביר בהמשך) אחר כך טריגרים כפי שמופיעים במסך הבן "הפעלות המסך". לכן טריגר בשם ABCD_POST-INSERT תמיד יפעל לפני POST-INSERT. לא משנה אם הטריגרים הללו סטנדרטיים או פרטיים.

מה הם טריגרים מובנים? הנה דוגמא אחת: נניח שמסך בנוי על טבלה שמכילה שדה מפתח KLINE, כאשר השדה הזה מוסתר ומחושב אוטומטית. לא ניתן להגדיר את ערכו בהפעלה PRE-INSERT מפני שהפעלה מובנית כבר גילתה שהשדה המפתח הזה ריק – ואסור שיהיה כך. לכן צריך להכניס ערך לתוך KLINE באמצעות POST-FIELD של שדה חובה אחר במסך.

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

הנה קוד פשוט אשר אמור לבצע את הנדרש לפי התאור שלך (לא בדקתי את הקוד אבל נראה לי תקין)
<p style="text-align: left;">:LINE = 0;
LINK GENERALLOAD …
DECLARE CUR CURSOR FOR
SELECT ORDERS.CUST, ORDERITEMS.ORDI
FROM ORDERS, ORDERITEMS
WHERE ORDERS.ORD = ORDERITEMS.ORD
AND ORDERITEMS.DUEDATE = SQL.DATE8
AND NOT EXISTS (SELECT 1 FROM TRANSORDER</p>
<p style="text-align: left;">WHERE TRANSORDER.ORDI = ORDERITEMS.ORDI</p>
<p style="text-align: left;">AND ORDERITEMS.CLOSED <> 'C'
AND TRANSORDER.TYPE IN ('A', 'D'))
AND ORDERITEMS.ORDI > 0
ORDER BY 1, 2;
OPEN CUR;
GOTO 300 WHERE :RETVAL <= 0;
:OLDCUST = 0;
LABEL 100;
FETCH CUR INTO :CUST, :ORDI;
GOTO 200 WHERE :RETVAL <= 0;
GOTO 110 WHERE :CUST = :OLDCUST;
:OLDCUST = :CUST;
:LINE = :LINE + 1;
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, INT1)
VALUES (:LINE, '1', :CUST);
LABEL 110;
:LINE = :LINE + 1;
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, INT1)
VALUES (:LINE, '2', :ORDI);
LOOP 100;
LABEL 200;
CLOSE CUR;
EXECUTE INTERFACE ……
SELECT MESSAGE INTO :PAR1 FROM ERRMSGS
WHERE USER = SQL.USER AND TYPE = 'i';
WRNMSG 99 WHERE :RETVAL > 0;
LABEL 300;
UNLINK GENERALLOAD;</p>
 
<p style="text-align: right;">אפשר להתחכם ולבצע INSERT INTO/SELECT, דהיינו משיכת כל שורות ההזמנות השייכות ללקוח נתון עם תאריך אספקה היום.</p>

הקושי העיקרי: לוודא שניתן לשלוח דו"חות בדואר מהשרת.