إلا أن أدعي لك بدوام الصحة والعافية لك ولعائلتك جميعاً ونفع بك أهلك

جزاك الله خيرا لقد قدمت أكبر شئ واسأل الله أن يعيننا جميعا على مافيه منفعة المسلمين

موضوع جميل اعجبنى

 

دا كود بسيط للأستفادة منه فيما بعد وانا استفدت كتير من الموضوع دا حقيقي شكراً جزيلاً ليكم 

Declare

  vn_quantity         Number;

Begin

 Begin

  Select ITEM_COUNT

    Into vn_quantity

    From ITEM

   Where Item_ID = :bloc_name.Item_ID;

 

   Exception When No_Data_Found Then

    vn_quantity := 0;

   End;

   GO_BLOCK('bloc_name');

    FIRST_RECORD;

 LOOP 

 If Nvl(vn_quantity, 0) - Nvl(:bloc_name.ITEM_COUNT, 0) > 0 Then

  Update ITEM

     Set ITEM_COUNT  = Nvl(ITEM_COUNT, 0) - Nvl(:bloc_name.ITEM_COUNT, 0)

   Where Item_ID = :bloc_name.ITEM_ID;



   Commit;

 Else

  Message('No Enough Quantity');  

  Message('No Enough Quantity');

  Raise Form_Trigger_Failure;

 End If; 

    EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';

    NEXT_RECORD;            

    END LOOP;   

End;