FORM界面批量处理-全选框实现

declare
begin
	 if  :BTN.SELECT_ALL = 'Y'  then
	 	go_block('AR_SELECTED');
	 	first_record;
	 	loop
	 		:AR_SELECTED.AR_SELECT_BZ := 'Y';
	 		EXIT WHEN :SYSTEM.last_record='TRUE';
	 		next_record;
	 	END LOOP;
	 elsIF :BTN.SELECT_ALL = 'N'  THEN
	 		go_block('AR_SELECTED');
	 	first_record;
	 	loop
	 		:AR_SELECTED.AR_SELECT_BZ :='N';
	 		EXIT WHEN :SYSTEM.last_record='TRUE';
	 		next_record;
	 	END LOOP;
	 	end if;
end;