Convert( '字串', 'To_字元集', 'From_字元集' )
Convert( '字串', 'To_字元集' )
正確但不好的範例 : vData := Convert( vData, 'ZHT16MSWIN950', 'UTF8' );
正確且較好的範例 : vData := Convert( vData || ' ', 'ZHT16MSWIN950', 'UTF8' );
1) 因為有時最後面中文字會轉碼失敗, 所以多加一個空白, 讓最後一個中文字可轉碼成功.
2) 若確認最後面字元一定是英文，則不用多加一個空白.
3) 不要因多加一個空白, 所以在轉碼之後, 利用 rtrim 把最後面的空白去除之, 這樣反而會造成轉碼失敗 (如:單位).
4) 若字串要做額外處理, 如 : substr, replace, ... 等, 則先進行處理, 之後才做字元集轉換.
SELECT GC.SEGMENT1 "公司別"
, GC.SEGMENT2 "廠別"
, GC.SEGMENT3 "會計主目"
, GC.SEGMENT4 "會計子目"
, SUM(GB.PERIOD_NET_CR - GB.PERIOD_NET_DR) "金額" -- (貸方 - 借方)
FROM GL_BALANCES GB
, GL_CODE_COMBINATIONS GC
WHERE GB.CODE_COMBINATION_ID = GC.CODE_COMBINATION_ID
AND GB.SET_OF_BOOKS_ID = &SOB -- 帳本
AND GB.PERIOD_NAME = to_char(to_date('&YYYYMM', 'YYYYMM'),'MON-YY') -- 作帳期間
AND GB.TRANSLATED_FLAG is null -- 作帳幣別
AND GC.ACCOUNT_TYPE = 'R' -- 收入類會科
AND SUBSTRB( GC.SEGMENT3, 1, 1 ) = '4' -- 銷貨收入
GROUP BY GC.SEGMENT1
, GC.SEGMENT2
, GC.SEGMENT3
, GC.SEGMENT4
HAVING SUM(GB.PERIOD_NET_CR - GB.PERIOD_NET_DR) <> 0;
DECLARE
pl_id ParamList;
pl_name VARCHAR2(10) := 'tempdata';
BEGIN
-- 建立 Parameter List
IF not Id_Null(Get_Parameter_List(pl_name)) THEN
begin
Destroy_Parameter_List( pl_name );
pl_id := Create_Parameter_List(pl_name);
exception
when others then
null;
end;
ELSE
pl_id := Create_Parameter_List(pl_name);
END IF;
-- 新增 Parameter
add_parameter( 'tempdata'
, 'PROGRAM_APPL_SHORT_NAME'
, TEXT_PARAMETER
, 'PROGRAM_APPL_SHORT_NAME'
);
add_parameter( 'tempdata'
, 'CONCURRENT_PROGRAM_NAME'
, TEXT_PARAMETER
, 'CONCURRENT_PROGRAM_NAME'
);
END;
OPEN_FORM( '$FND_TOP/forms/US/FNDRSRUN'
, ACTIVATE
, SESSION
, NO_SHARE_LIBRARY_DATA
, 'tempdata'
);
select value
from NLS_DATABASE_PARAMETERS
where parameter='NLS_CHARACTERSET';
客制 Form, 新增缺少的 Block / Field Item 即可.
缺點 1 : 有使用此 Value Set 的 Form, 都要新增此 Block / Item, 若有 n 個 Form 有用到此 Flexfield, 就必須客制 n 個.
缺點 2 : 怕會有遺漏的 Form 也使用此 Flexfield, 而沒有客制到, 導致作業時會有此錯誤訊息.
將使用到此 Value Set 的 Flexfield 拉到畫面上, 然後, 此 Flexfield 不配置 Value Set, 不顯示此 Flexfield, 且改由 LOV 抓出資料.
(此做法 : 參考這裡)
優點 : 只需客制目前的 Form 即可.
declare
mail_conn utl_smtp.connection; --宣告 Mail Object
CRLF varchar2(2) := CHR( 13 ) || CHR( 10 );
v_message varchar2(255);
begin
-- 開啟 Mail Connection 物件
mail_conn := utl_smtp.open_connection('172.16.xxx.xxx');
-- 建立連線
utl_smtp.ehlo(mail_conn, '172.16.xxx.xxx');
-- 設定 寄件者
utl_smtp.mail(mail_conn, 'tomkuo139@yahoo.com.tw');
-- 設定 收件者
utl_smtp.rcpt(mail_conn, 'aaa@xxx.yyy.zzz');
utl_smtp.rcpt(mail_conn, 'bbb@xxx.yyy.zzz');
-- 設定 發信內容
utl_smtp.open_data(mail_conn);
v_message := 'HTML 語法';
-- 寫入 Mail Header
utl_smtp.write_raw_data( mail_conn, utl_raw.cast_to_raw('Subject:Oracle 發送 Mail 測試' || CRLF) );
utl_smtp.write_data( mail_conn, 'MIME-Version: 1.0' || CRLF );
utl_smtp.write_data( mail_conn, 'Content-Type: text/html; charset=utf-8/big5' || CRLF );
utl_smtp.write_data( mail_conn, 'Content-Transfer-Encoding: 8bit' || CRLF );
-- 寫入 Mail Body
utl_smtp.write_raw_data( mail_conn, utl_raw.cast_to_raw(v_message) );
-- 結束連線
utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);
end;
declare
mail_conn utl_smtp.connection; --宣告
CRLF varchar2(2) := CHR( 13 ) || CHR( 10 );
v_message varchar2(255);
begin
-- 開啟 Mail Connection 物件
mail_conn := utl_smtp.open_connection('172.16.xxx.xxx');
-- 建立連線
utl_smtp.ehlo(mail_conn, '172.16.xxx.xxx');
-- 設定 寄件者
utl_smtp.mail(mail_conn, 'tomkuo139@yahoo.com.tw');
-- 設定 收件者
utl_smtp.rcpt(mail_conn, 'aaa@xxx.yyy.zzz');
utl_smtp.rcpt(mail_conn, 'bbb@xxx.yyy.zzz');
-- 設定 發信內容
v_message := 'HTML 語法';
utl_smtp.data(mail_conn, 'Subject:Oracle Send Mail Test' || CRLF ||
'MIME-Version: 1.0' || CRLF ||
'Content-Type: text/html' || CRLF ||
v_message
);
-- 結束連線
utl_smtp.quit(mail_conn);
end;
"FRM-40401: No changes to save" or "FRM-40405: No changes to apply" 的錯誤
Open_Form 的第三個參數 session_mode = session, 而不是 no_session
:
declare
mail_conn utl_smtp.connection; --宣告
begin
-- 開啟 Mail Connection 物件
mail_conn := utl_smtp.open_connection('smtp_server');
-- 建立連線
utl_smtp.ehlo(mail_conn, 'smtp_server');
-- 設定 寄件者
utl_smtp.mail(mail_conn, 'sender_mail_address');
-- 設定 多個收件者
utl_smtp.rcpt(mail_conn, 'receiver1_mail_address');
utl_smtp.rcpt(mail_conn, 'receiver2_mail_address');
...
-- 設定 發信內容
utl_smtp.data(mail_conn, 'mail_content');
-- 結束連線
utl_smtp.quit(mail_conn);
end;
declare
mail_conn utl_smtp.connection; --宣告
begin
-- 開啟 Mail Connection 物件
mail_conn := utl_smtp.open_connection('172.16.xxx.xxx');
-- 建立連線
utl_smtp.helo(mail_conn, '172.16.xxx.xxx');
-- 設定 寄件者
utl_smtp.mail(mail_conn, 'tomkuo139@yahoo.com.tw');
-- 設定 收件者
utl_smtp.rcpt(mail_conn, 'aaa@xxx.yyy.zzz');
utl_smtp.rcpt(mail_conn, 'bbb@xxx.yyy.zzz');
-- 設定 發信內容
utl_smtp.data(mail_conn, 'Subject:Oracle Send Mail Test' ||
chr(13) || chr(10) ||
'Hello World'
);
-- 結束連線
utl_smtp.quit(mail_conn);
end;
DECLARE
pl_id ParamList;
pl_name VARCHAR2(10) := 'tempdata';
BEGIN
-- 建立 Parameter List
IF not Id_Null(Get_Parameter_List(pl_name)) THEN
begin
Destroy_Parameter_List( pl_name );
pl_id := Create_Parameter_List(pl_name);
exception
when others then
null;
end;
ELSE
pl_id := Create_Parameter_List(pl_name);
END IF;
-- 新增 Parameter
add_parameter( 'tempdata', 'paramName', TEXT_PARAMETER, 'paramValue' );
END;
OPEN_FORM( '$CUSTOM_TOP/forms/US/FormName'
, ACTIVATE
, NO_SESSION
, NO_SHARE_LIBRARY_DATA
, 'tempdata'
);
投影片 :
 |
| 綠世界 |
