الاخوة الكرام
السلام عليكم ورحمة الله وبركاته,,
تحية طيبة وبعد

امل منكم توضيح الكود الموجود بالاسفل ومتى يتم استخدامه .

Index_To:=  Instr(Upper(:system.last_query),'ORDER BY')- (Instr(Upper(:system.last_query),'WHERE ')+ 6 ) ;
x := Substr(UPPER(:system.last_query), Instr(Upper(:system.last_query),'WHERE ')+ 6 , Index_To );

Set_Block_Property('Blk_2',OneTime_Where ,x);     
Set_Block_Property('Blk_2',Order_By      ,'Req_Serial');
go_block('BLK_2');
Execute_Query;    
go_block('BLK_1');

وشكرا لكم

Kindly, Reminder.....