遍历一个BLOCK

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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/15725751/viewspace-615621/