بسم الله الرحمن الرحيم

 

هذا أول موضوع لي وأنا ما زلت في بداية تعلم الأوراكل فورمز في برنامج كنت احاول فهمه فيه تريجر KEY-NEXT-ITEM بداخله هذا الكود

declare
v_check number;
V_REQUEST_NO VARCHAR2(100);
begin
Select count(1)
into v_check
from PUR_REQUEST
where (PR_SYS_ID <> :PUR_REQUEST.PR_SYS_ID   OR :PUR_REQUEST.PR_SYS_ID IS NULL)
  AND UPPER(PR_REQUEST_NO) = UPPER(:PUR_REQUEST.PR_REQUEST_NO) ;


if v_check > 0 AND :SYSTEM.BLOCK_STATUS = 'CHANGED' then
V_REQUEST_NO := :PUR_REQUEST.PR_REQUEST_NO ;
clear_form(no_validate);
  set_block_property('PUR_REQUEST',default_where,'where UPPER(PR_REQUEST_NO) =  UPPER(''' || V_REQUEST_NO || ''')' );
  execute_query ;
end if;




end;

 

ممكن افهم الغرض منه انا فاهم آلية عمل التريجر ولكني مش مستوعب الكود ذات نفسه وشكرا   

تم تعديل 21 نوفمبر 201510 سنة بواسطة ميسم الكرام

الكود يعمل عد لمنتوج أو طلب طبعاً حسب شرط معين ..وهذا في جملة select 

ويسترجع ناتج select  في متغير اسمه v_ckeck  وبعدها يتحقق منه هل هو اكبر من 0  والنظام في حالة change 

إذن ضع قيمة PUR_REQUEST.PR_REQUEST_NO في المتغير V_REQUEST_NO  وإعمل لي تنفيذ استعلام  حسب القسمة V_REQUEST_NO

هذا ابسط شرح للكود ..بقي تشاهد إلى ماذا تشير المسميات حتى تعرف ما قصدته 

عمود ال PR_SYS_ID مجرد عمود من 1 الى 500 بالتسلسل اما عمود PR_REQUEST_NO هو رقم المنتج بالأرقام والحروف مشكلتي هي في الشرط غير مستوعبه قليلا مع انك قمت بالتوضيح كثير عنالبداية وشكرا جدا على ردك

العمود PR_SYS_ID  هو ليس مجرد عمود هو الـ Key  الذي على اساسه نسترجع المعلومات لأنه لا تتكرر القيم له هو (تراميز)

طيب هو الشرط يقول:

استرجع لي عدد المنتج  من جدول في قاعدة البيانات الذي رمزه لا يساوي الرمز الموجود في حقل على الشاشة (:PUR_REQUEST.PR_SYS_ID) أو حتى إذا كان حقل الرمز الذي على الشاشة فارغ 

و 

UPPER(PR_REQUEST_NO) = قيمة الحقل الذي على الشاشة :PUR_REQUEST.PR_REQUEST_NO

لكن دخله داخل upper  لأنه حقل حرفي فيريد أن يسترجع بشكل حروف كبيرة

 

إن شاء الله تكون الفكرة وضحت  

يعني مقارنة قيمة موجودة بجدول بقاعدة البيانات مع ما موجود على الشاشة