===========================================================
===========================================================
如何遍历一个BLOCK
作者: moonsoft(http://moonsoft.itpub.net)发表于: 2007.05.10 09:44
分类: forms
出处: http://moonsoft.itpub.net/post/15182/286721
---------------------------------------------------------------
LOOP
--do something...
IF :SYSTEM.LAST_RECORD = 'TRUE'
THEN
EXIT;
END IF;
NEXT_RECORD;
-- v_i := v_i + 1;
END LOOP;
--example :
go_block('detail');
FIRST_RECORD;
LOOP
if :cancel_flag = 'Y' then
UPDATE xxcompany_oe_goods_label_all
SET cancel_flag = 'Y',
cancel_time = NVL (:header.cancel_time, SYSDATE)
WHERE gl_id= :gl_id;
end if;
COMMIT;
IF :SYSTEM.LAST_RECORD = 'TRUE'
THEN
EXIT;
END IF;
NEXT_RECORD;
-- v_i := v_i + 1;
END LOOP;
:parameter.p_query := 'y';
EXECUTE_QUERY;
:parameter.p_query := 'n';
