عرض مشاركة واحدة
قديم 28-Jul-2011, 05:08 PM   #15
humam
مشرف منتدى المطورين
Thumbs up الشفرة البرمجية للزر Next Button - Toolbar:

الشفرة البرمجية للزر Next Button - Toolbar:

انقر نقرا مزدوجا على الزر Next Button – Toolbar لفتح Script Editor واكتب العبارت التالية :


clear window ARB_Customer_MSTR;
range clear table ARB_Customer_MSTR;
get next table ARB_Customer_MSTR;
if err() <> OKAY then
range clear table ARB_Customer_MSTR;
get last table ARB_Customer_MSTR;
end if;
if err()= OKAY then
copy from table ARB_Customer_MSTR to window ARB_Customer_MSTR;
lock field ARBCUSTID;
end if;

هنا نستخدم نفس العبارت السابقة ولكن المنطق مختلف قليلا فبعد عبارت تهيئة الجدول والنافذة Clear window & Clear range استخدمنا عبارة جديدة وهي get next table وهي تعمل على ملئ ال Table Buffer بالسجل التالي للسجل الحالي وهنا بعد هذه العملية نفحص نتيجة العملية بواسطة الدالة err() فأذا لم يكن هناك سجل تالي سوف ننتقل الى السجل ا لاخير وهذا ما تقوم به عبارة If then الاولى اما اذا كان هناك سجل تالي سوف ننتقل الى عبارة if then الثانية والتي تعمل على نسخ السجل التالي او السجل الاخير الى النافذة وثم نقوم بأقفال الحقل Customer ID .
الصور المصغرة للصور المرفقة
اضغط على الصورة لعرض أكبر الاســـم:	Fig8.JPG‏ المشاهدات:	519 الحجـــم:	49.2 كيلوبايت الرقم:	96  
__________________
GP Techno-Functional Consultant
humam غير متواجد حالياً   رد مع اقتباس