EBS 循环处理块记录代码,OracleEBS代码库,德仔网

代码语言

代码分类

【OracleEBS】 EBS 循环处理块记录

作者:炜 / 发布于2015/4/1/ 1400


	decalre
	 i number;
	begin
	 i := 0;
	go_block('asg_employee'); --导航到数据块
	first_record; --焦点放到第一条记录上
	loop
	 i := i + 1;
	 if i <> 1 then --判断是否第一条记录，不是就处理小一条记录
	 next_record;
	end if;

	 update eju_assess_ledger_assignments --更新数据
	 set assign_flag = :asg_employee.select_flag
	 where person_id = :asg_employee.person_id
	 and hs_name = :eju_assess_ledgers.hs_name;

	if sql%rowcount = 0 then --如果不存在，就插入一条记录
	 insert into eju_assess_ledger_assignments
	 (person_id,hs_name,assign_flag)
	 values(:asg_employee.person_id,:eju_assess_ledgers.hs_name,:asg_employee.select_flag);
	end if;

	 exit when :system.last_record = 'TRUE'; --最后一条记录就退出

	end loop;

	do_key('commit_form&rsquo;); --提交form上的数据
	go_block('eju_assess_ledgers');
	hide_window('EJU_WINDOW');
	end;

试试其它关键字

　处理块　

同语言下

可能有用的

炜贡献的其它代码(3)