عندى كود بفولة لو الدنيا تمام اعمل حفظ
طيب لو فيه مشكلة فى عدم الحفظ طلع رسالة ان الصنف مكرر مع الاحتفاظ بالفاتورة وعدم مسحها
declare
n number;
begin
IF (:GLOBAL.OPERATION=1) THEN--AT INSERT MODE
--------------------------------------------

-- ASK USER BEFORE COMMIT THE save OPERATION
SET_ALERT_PROPERTY('ALERT_OK_CANCEL',ALERT_MESSAGE_TEXT, 'åá ÇäÊ ãÊÃßÏ ãä Ãäß ÊÑíÏ ÊÓÌíá ÇáÝÇÊæÑÉ');
SET_ALERT_PROPERTY('ALERT_OK_CANCEL',TITLE,'ATTENTION');
--
IF show_alert('ALERT_OK_CANCEL')=ALERT_BUTTON1 THEN
COMMIT_FORM;
if error_code=40508 then
set_alert_property('AL1',ALERT_MESSAGE_TEXT,'ãä ÝÖáß åÐÇ ÇáäæÚ Êã ÅÏÎÇáÉ ãä ÞÈá ');
N:=SHOW_ALERT('AL1');
raise form_trigger_failure;
end if;

CREATE_RECORD;
CLEAR_FORM(NO_VALIDATE);
GO_ITEM('drug_BILL.depts');

END IF;
end;

بس للاسف مش شغال مش عارف ليه

حد يلحقنا يا جماعة

السلام عليكم

جرب الكود التالي:

 

DECLARE
   l_count   NUMBER := 0;
BEGIN
   SELECT COUNT (*)
     INTO l_count
     FROM your_table
    WHERE item_id = :Block_Name.Item_id;


   IF l_count >= 1
   THEN
      SET_ALERT_PROPERTY ('AL1',
                          ALERT_MESSAGE_TEXT,
                          'الصنف مكرر رجاء المراجعة');
      N := SHOW_ALERT ('AL1');
      RAISE form_trigger_failure;
   END IF;
END;

يا باشا انا عايزة يعمل بحث فى الفورمة التابيلر مع الشكر

السلام عليكم

اتبع الخطوات في اللينك التالي:

 

http://sheikyerbouti.developpez.com/duplicates/duplicates.htm

 

سيتم التشييك على البلوك قبل عملية الحفظ.