技术便条ZHAOCM

2013-12-26

1. 用FORM_SUCCESS判断form有无错误

IF Form_Success THEN

Commit;

IF :System.Form_Status <> 'QUERY' THEN

Message('Error prevented Commit');

RAISE Form_Trigger_Failure;

END IF;

END IF;

有时候看情况是否要增加SQLCODE的判断

IF form_success or SQLCODE = 0 THEN

2. 异常

EXCEPTION

WHEN OTHERS THEN

FND_FILE.PUT_LINE(FND_FILE.OUTPUT, SQLCODE);

FND_FILE.PUT_LINE(FND_FILE.OUTPUT, SQLERRM);

END;

3. 动态LOV:

IF :mat_trx.trx_action_id = 1 THEN

set_lov_property('lot_number',group_name,'lot_issue');

ELSE

set_lov_property('lot_number',group_name,'lot_receipt');

END IF;

set_item_property('gme_batch.lot',lov_name,'lot_number');

4. 清除数据块

APP_FIND.CLEAR;

5. 设置回滚点与回滚：

issue_savepoint('gmetrxsave');

forms_ddl('rollback to gmetrx_save');

2013-12-27

6. bulk collect

通过bulk collect减少loop处理的开销，使用Bulk Collect提高Oracle查询效率，可以将查询结果一次性的加载到collection中，而不是通过cursor一条一条的处理。可以在select into，fetch into， returning into语句使用 bulk collect，注意所有的into变量都必须是collections。

--在select into语句中使用bulk collect

DECLARE

TYPE SalList IS TABLE OF emp.sal%TYPE;

sals SalList;

BEGIN

SELECT sal BULK COLLECT INTO sals FROM emp;

END;

/

--在fetch into中使用bulk collect

DECLARE

TYPE DeptRecTab IS TABLE OF dept%ROWTYPE;

dept_recs DeptRecTab;

CURSOR c1 IS

SELECT deptno, dname, loc FROM dept WHERE deptno > 10;

BEGIN

OPEN c1;

FETCH c1 BULK COLLECT INTO dept_recs;

END;

/

--在returning into中使用bulk collect

CREATE TABLE emp2 AS SELECT * FROM employees;

DECLARE

TYPE NumList IS TABLE OF employees.employee_id%TYPE;

enums NumList;

TYPE NameList IS TABLE OF employees.last_name%TYPE;

names NameList;

BEGIN

DELETE FROM emp2 WHERE department_id = 30

RETURNING employee_id, last_name BULK COLLECT INTO enums, names;

dbms_output.put_line('Deleted ' || SQL%ROWCOUNT || ' rows:');

FOR i IN enums.FIRST .. enums.LAST

LOOP

dbms_output.put_line('Employee #' || enums(i) || ': ' || names(i));

END LOOP;

END;

/

DROP TABLE emp2;

7. 标记符号 《 》,常用来跳出循环

使用goto可以跳到标记<<outer>>的位置，举例如下：

for i in 1..100 loop

if i > 10 then

goto end_loop;

end if;

end loop;

<<outer>>

2013-12-30

8. dbms_sql.varchar2_table

定义： type Varchar2_Table is table of varchar2(2000) index by binary_integer;

l_rowid_tble dbms_sql.varchar2_table;

2014/01/10

会计期间表 ： org_acct_periods