תצטרך להוסיף הפעלה CHECK-FIELD לשדה CUSTPARTNAME במסך CUSTPART
GOTO 1 WHERE NOT EXISTS (SELECT 1 FROM CUSTPARTNAME
WHERE CUSTPARTNAME.CUST = $$.CUST
AND CUSTPARTNAME.CUSTPARTNAME = :$.@);
WRNMSG 500;
LABEL 1;
כמובן הודעה 500 תכיל את המלל שאתה רוצה להציג למשתמש