ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 遍历一个BLOCK

遍历一个BLOCK

原创 Linux操作系统 作者:zuibunan 时间:2009-09-27 10:04:51 0 删除 编辑
DECLARE
  v_count NUMBER := 0; --计算行数
BEGIN
  go_block('BLOCKNAME');
  first_record;
  --form_status:NEW,CHANGED,QUERY
  --block_status:NEW,CHANGED,QUERY
  IF :system.block_status = 'QUERY' THEN
    LOOP
      --reocrd_status:NEW,INSERT,CHANGED,QUERY
      --IF :system.reocrd_status = 'QUERY' THEN
      v_count := v_count + 1;
      --处理语句
      --END IF;
      IF :system.last_record = 'TRUE' THEN
        EXIT;
      ELSE
        next_record;
      END IF;
    END LOOP;
    COMMIT;
  END IF;
  fnd_message.debug('本次一共处理行数:' || v_count);
EXCEPTION
  WHEN OTHERS THEN
    ROLLBACK;
    fnd_message.debug('ERROR:未知错误,请联系ERP管理员!');
    RAISE form_trigger_failure;
END;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/15725751/viewspace-615621/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2009-09-15

  • 博文量
    39
  • 访问量
    92491