[humam]

[overline]الشفرة البرمجية للزر Previous Button - Toolbar:[/overline]

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


clear window ARB_Customer_MSTR;
range clear table ARB_Customer_MSTR;
get prev table ARB_Customer_MSTR;
if err() <> OKAY then
range clear table ARB_Customer_MSTR;
get first 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;

هنا استخدمنا نفس المنطق السابق مع اختلافات بسيطة وتتلخص في استخدام العبارة get prev table لاستعادة السجل السابق فأذا لم يكن هناك سجل سابق سوف تعمل عبارة if then الاولى على الانتقال الى السجل الاول ثم بعد ذلك تعمل عبارة If then الثانية على التأكد من ان هناك سجل سابق او سجل اول فأذا كا ن كذلك سوف ننسخ المعلومات الى النافذة ونقفل الحقل Customer ID .
الى هذه النقطة يمكن استخدام Test Mode (CTRL + T ) لفحص عمل ازرار التنقل Navigation Button .
بقي لنا ان نضع الكود التي تعمل على استرجاع السجل المحدد عندما يقوم المستخدم بطباعة Customer ID ثم الانتقال خارج هذا الحقل.