أريد عمل ترقي تلقائي

DECLARE

V_ID NUMBER;

BEGIN

SELECT NVL(EMPNO,0) INTO V_ID FROM EMP;

V_ID:= V_ID+1;

TXT_EMPNO:=V_ID;

END;

ايهاب وجدى

declare

x number;

begin

go_block('cust_class');

EXECUTE_QUERY;

if not form_success then

x:=1;

else

last_record;

x:= :INVOICE.INV_NO + 1;

create_record;

END IF;

:INVOICE.INV_NO := x;

item1;

end;

أنت تفترض هنا أن السجلات مرتية حسب الرقم و هذا قد لا يحصل في بعض الأوقات ...

يمكنك أن تعدل الكود السابق بدلاً من إحضار الرقم في آخر سجل و الزيادة يمكنك تنفيذ التالي :

select nvl(max(INV_NO ) +1,1)  into  new_number from invoice_table; 
:INVOICE.INV_NO :=new_number;

اختي sumaa

ممكن توضحي اكثر بالنسبه للترقيم يعني في اري trigger يوضع الكود هذا وهل هذا الحقل هو حقل الترقيم التلقائي INVOICE.INV_NO

علمان اني اريد عمل ترقيم تلقائي لحقل من نوع tabular وليس form ارجو يا اختي ان تساعديني ولك جزيل الشكر والتقدير .

اقتباس

في اري trigger يوضع الكود هذا

يوضع في

KEY-CRRECORD

حدث إنشاء سجل جديد من أحداث الفئة KEY

اقتباس

وهل هذا الحقل هو حقل الترقيم التلقائي INVOICE.INV_NO

نعم

اقتباس

من نوع tabular وليس form

تكتب بالحدث الموضح أعلاه الكود التالي :

LAST_RECORD;
CREATE_RECORD;
SELECT NVL(MAX(CODE),0)+1 
INTO :CODE
FROM ITEMS;
EXCEPTION WHEN NO_DATA_FOUND THEN 
:CODE := 1;
GO_ITEM('NAME');

السلام عليكم

أخواني يمكن أيضا أن يضاف الكود في ال trigger PRE-INSERT وبالتالي يتم تنفيذ الكود قبل عمل INSERT للسجل في قاعدة البيانات

BEGIN

SELECT NVL(MAX(PERCODE),0)+1 INTO :FPERCODE
FROM HRS.PER;

END;