GET_RADIO_BUTTON_PROPERTY--> ไว้ get ค่าจากปุ่ม radio

GET_RADIO_BUTTON_PROPERTY(item_id ITEM, button_name VARCHAR2, property NUMBER); 


GET_RADIO_BUTTON_PROPERTY(item_name VARCHAR2, button_name VARCHAR2, property NUMBER);


EX. Get_Radio_Button_Property( it_id, 'REJECTED', VISIBLE);


it_id หรือ it_name เป็นชื่อของ radio group 
button_name คือ ชื่อ ปุ่มนั้นๆ เช่น cancel ok approve etc.
property คือ คุณสมบัติที่จะนำมาใช้เช่น enable, disable, label, X_POS(ตำแหน่งในแกน X)

Exception

Oracle Exception Name	Oracle Error	Explanation
DUP_VAL_ON_INDEX	ORA-00001	คุณพยายามที่จะรันคำสั่ง INSERT หรือ UPDATE ที่มีการสร้างค่าที่ซ้ำกันใน field ที่ห้ามซ้ำเช่นเป็น PK, FK
TIMEOUT_ON_RESOURCE	ORA-00051	คือมีการใช้ทรัพยากร หรือไม่เครื่องรันนานเกินจนหมดเวลา
TRANSACTION_BACKED_OUT	ORA-00061	มีการ rolled back ข้อมูลขณะที่คุณกำลัง procress
INVALID_CURSOR	ORA-01001	คุณพยายามอ้างถึง cursor ที่ไม่มีอยู่ อาจเกิดจาก คุณเรียก ( FETCH cursor ) ปิด cursor ก่อน เปิด cursor.
NOT_LOGGED_ON	ORA-01012	ไม่ได้ log-in
LOGIN_DENIED	ORA-01017	พยายามเข้าใช้ oracle แต่ log-in username/password ผิด
NO_DATA_FOUND	ORA-01403	คุณพยายามทำต่อไปนี้ : 1. select into ที่ไม่ถูก row ไม่มีค่า return 2. ไม่อ้างอิงแถวเริ่มต้นของตาราง 3.  read ตอนท้าย ของ file ที่มีแพคเกจ UTL_FILE
TOO_MANY_ROWS	ORA-01422	return กับมาหลาย row
ZERO_DIVIDE	ORA-01476	หารด้วย 0
INVALID_NUMBER	ORA-01722	แปลงค่า string ไปเป็น number ไม่สำเร็จ
STORAGE_ERROR	ORA-06500	หลุดออกมาจาก memory หรือ memory เสียหาย
PROGRAM_ERROR	ORA-06501	"Contact Oracle support" เป็นปัญหาที่โปรแกรม oracle
VALUE_ERROR	ORA-06502	invalid เป็นเพราะแปลง type data เช่น วันที่ เป็น เลขหรือใช้ trunc,to_date,to_char...
CURSOR_ALREADY_OPEN	ORA-06511	พยายามเปิด cursor แต่ cursor เปิดอยู่

PROCEDURE CHECK_DUP_BUDGET IS
al_id NUMBER;
vTmp_dup VARCHAR2(1);

BEGIN
  IF (:system.record_status in ('INSERT','NEW')) OR
(:bg_reserve_budget.forward_id <> GET_ITEM_PROPERTY( 'BG_RESERVE_BUDGET.FORWARD_ID',DATABASE_VALUE)) OR  
(:bg_reserve_budget.fwd_seq <> GET_ITEM_PROPERTY( 'BG_RESERVE_BUDGET.FWD_SEQ',DATABASE_VALUE)) OR  
    THEN
  (:bg_reserve_budget.div_code <> GET_ITEM_PROPERTY( 'BG_RESERVE_BUDGET.DIV_CODE',DATABASE_VALUE))
 
  BEGIN
 SELECT 'X'
 INTO vTmp_dup
 FROM bg_reserve_budget
 WHERE ou_code     = :parameter.ou_code
 AND              bg_type = :bg_reserve_master.bg_type
 AND              reserve_id = :bg_reserve_master.reserve_id

 AND forward_id = :bg_reserve_budget.forward_id
 AND fwd_seq = :bg_reserve_budget.fwd_seq
 AND ROWNUM = 1;

al_id := UTIL.SHOW_MESSAGE('STOP', 'STD', '00004',
GET_ITEM_PROPERTY('BG_RESERVE_BUDGET.FORWARD_ID',PROMPT_TEXT)||' '||:bg_reserve_budget.forward_id||', '||
GET_ITEM_PROPERTY('BG_RESERVE_BUDGET.FWD_SEQ',PROMPT_TEXT)||' '||:bg_reserve_budget.fwd_seq);
--Code %1 Duplicate !!!
COPY(NVL(GET_ITEM_PROPERTY('BG_RESERVE_BUDGET.FORWARD_ID',DATABASE_VALUE),'')  ,'BG_RESERVE_BUDGET.FORWARD_ID');
COPY(NVL(GET_ITEM_PROPERTY('BG_RESERVE_BUDGET.FWD_SEQ',DATABASE_VALUE),'')   ,'BG_RESERVE_BUDGET.FWD_SEQ');
RAISE FORM_TRIGGER_FAILURE;    
     
  EXCEPTION WHEN NO_DATA_FOUND THEN  NULL ;
        -- WHEN INVALID_NUMBER THEN NULL;  
      END;
  END IF;
END;

update for reference other table

update bg_forward_budget  
set  amount = (select amount                
                       from bg_forward_master               
                       where forward_id =   bg_forward_budget.forward_id                 
                      and bg_type  ='FW'                 and budget_year_control =2555)             
, amount_balance =(select amount                 
                               from bg_forward_master                 
                               where forward_id = bg_forward_budget.forward_id                 
                               and bg_type  ='FW'                 
                               and budget_year_control =2555)   
,  bf_amt =(select amount                
                  from bg_forward_master                 
                  where forward_id = bg_forward_budget.forward_id                 
                  and bg_type  ='FW'                 
                  and budget_year_control =2555) 
 where bg_type  ='FW'
and budget_year_control =2555  
and amount = 0