ייבוא שדה ממסך מקושר

לגבי ההפעלות: בהנחה שהטבלה המקשרת נקראת XXXX_CUST_SUP (שכחתי מה השם האמיתי), CHECK-FIELD יהיה משהו כמו

GOTO 99 WHERE :$.XXXX_SUPNAME = ''
GOTO 99 FROM XXXX_CUST_SUP
WHERE CUST = :$.CUST
AND SUP = :$.XXXX_SUP;
WRNMSG 5000;
LABEL 99;

זאת אומרת – לא לעשות כלום אם השדה ריק. גם לא לעשות כלום אם קיימת רשומה בטבלה שלך שמתאימה לשילוב לקוח/ספק. אחרת יש להציג הודעת שגיאה 5000, שאת צריכה להוסיף.

CHOOSE-FIELD יהיה

SELECT SUPPLIERS.DES, SUPPLIERS.CODE
FROM SUPPLIERS, XXXX_CUST_SUP
WHERE SUPPLIERS.SUP = XXXX_CUST_SUP.SUP
AND XXXX_CUST_SUP.CUST = :$.CUST
AND SUPPLIERS.CODE ''
ORDER BY 2;


אני מקווה שעברית והאתר לא שיבשו את הקוד יותר מדי.