السلام عليكم

 

اريد ان اعمل تسلسل للسجلات في الفورم حيث توجد معي طريقة ولكن ابحث عن طريقه اسهل مرفق لكم صورة لاحد الانظمة

t.bmp

WHEN NEW ITEM INSTANCE

:SYSTEM.CURSOR_RECORD

بخصوص ترقيم هنا فرق أو أختلاف بين ترقيم البيانات كاترقيم تسليلي او ترقيم المنتاج أو السجلات

 

فا لو أرد أدرت أن تقوم بترقيم السجلات 

يفضل أن يكون هناك ربط بين نوع المدخل ورقم المدخل 

فامثلا :

لو أرد أن تقوم بعمل ترقيم للمنتج معين 

تاخذ أولا نوع المنتج تاخذ ايضا نوع الشركة المورده وترقم هذا المنتج

فامثلا نوع المنتج 01 يعني منتج معلبات 

و1 مورد خارجي 

وثم ترقم المنتج ويكون الرقم للمنتج هو 011001

بحيث الثلاث الخانات تفسر المنتج 

ورقم المنتج هو أخر 3خانات.

 

وهكذا..

 

اما ترقيم التلقائيا ممكن عن طريق دالة ال MAX 

..

 

والله أعلم.

انا اريد بمجرد نزول عمل سجل جديد يوم بعمل تسلسل وليس بالضرورة حفظها بقاعدة البيانات

على when-new-form-instance اكتب

 :global.serial := 0;

 

هكذا تكون عرفت global variable قيمته صفر.

على ال block عرف field مثلاً اسمه record_serial و اجعله non database

  ثم على new-record-instance اكتب:

record_serial := :global.serial;
:global.serial := :global.serial + 1;

تم تعديل 18 أبريل 201312 سنة بواسطة n_qasrawi

 

على when-new-form-instance اكتب

 :global.serial := 1;

 

هكذا تكون عرفت global variable قيمته صفر.

على ال block عرف field مثلاً اسمه record_serial و اجعله non database

  ثم على new-record-instance اكتب:

record_serial := :global.serial;
:global.serial := :global.serial + 1;

تم تعديل 18 أبريل 201312 سنة بواسطة n_qasrawi

مشكور اخي n_qasrawi

اخي n_qasrawi
تم تصحيح الكود لانهو كانت توجد به مشكلة بالشكل الاتي

begin

if :RECORD_SERIAL is null then

:record_serial := :global.serial;
:global.serial := :global.serial + 1;

else

null;

end if;
end;

اخي n_qasrawi

تم تصحيح الكود لانهو كانت توجد به مشكلة بالشكل الاتي

 

begin

 

if :RECORD_SERIAL is null then

 

:record_serial := :global.serial;

:global.serial := :global.serial + 1;

 

else

 

null;

 

end if;

end;

فعلاً ... شكراً لك على التصحيح