跳到主要內容

Oracle ERP 檔案上傳的範例


declare  
   v_access_id      NUMBER;
    l_server_url VARCHAR2(255);
    l_url VARCHAR2(255);
    l_gfm_id NUMBER;
    temp NUMBER;
    button_choice NUMBER;
    tempdata varchar2(32767);
    v_raw            raw(32767);
    v_int            number;
 
    v_len          number;
    v_i              number:=0;
    v_count       number:=0;
    v_char         varchar2(120);
   
    v_user            number;
    li_pos             INTEGER  := 0;
    li_old_pos       INTEGER  := 0;
    dummy           number;
   
   
    v_sou  varchar2(100);
    i number;
    j number;
    k number;
    v_tar varchar2(100);
    v_check varchar2(10);
   
    v_a  varchar2(100);
    v_b  varchar2(100);
    v_c  varchar2(100);
    v_d  varchar2(100);    
   
begin

    --Get Process ID
    v_access_id := fnd_gfm.authorize(null);
   
    --Get User Name
    v_user:=fnd_profile.value('USER_ID');    
   
    --取出APPS_WEB_AGENT的Web Server String
    fnd_profile.get('APPS_WEB_AGENT',l_server_url);

    --組成完整的URL,chr(38) --> &
    -- http://test.erp.com.tw:82266/pls/CLONE/fnd_file_upload.displayGFMform?access_id=849330512&l_server_url=http://test.erp.com.tw:82266/pls/CLONE
    l_url := RTRIM(l_server_url, '/') ||
        '/fnd_file_upload.displayGFMform?access_id=' ||
        to_char(v_access_id) || chr(38) || 'l_server_url=' ||
        l_server_url;

    IF (l_url IS NULL) THEN
        RAISE FORM_TRIGGER_FAILURE;
        RETURN;
    END IF;
       
    --開啟上傳網頁,上傳完必須自行關閉網頁。
    fnd_utilities.open_url(l_url);

    --設定提示視窗,用來決定是否完成上傳的動作
    fnd_message.set_name('FND','ATCHMT-FILE-UPLOAD-COMPLETE');
 
    --設定提示視窗的按鈕,有「YES」、「NO」,YES傳回1、NO傳回3
    button_choice := FND_MESSAGE.question(
                button1 => 'YES',
                button2 => null,
                button3 => 'NO',
                default_btn => 1,
                cancel_btn => 3,
                icon => 'question');

    --按下提示視窗的「YES」
    if button_choice = 1 then
               
        --回傳上傳檔案的ID
        l_gfm_id := fnd_gfm.get_file_id(_access_id);
       
               
        --檔案上傳頁面會將檔案上傳到 fn_lob 表格內的一個欄位,型態為 Blob。
        --檔案上傳結束。
       
       --取出檔案資料方法,
       /*
       以文字檔為例,上傳的範例資料為
         aa,bb,cc
         11,22,33
      */
           
      loop
            tempdata :='';
                       
           --chr(10)換行符號,li_pos為符合的字串長度,(li_old_pos +1)開始位置,1為符合chr(10)的第一筆資料
           --存在Blob欄位的資料是連續的raw字元
           --下列SQL會取出文字檔一行的資料,因為每一行是以斷行chr(10)做為分行
           --取出的資料格式是raw類型,不是一般的文字格式。
           select dbms_lob.instr(file_data, utl_raw.cast_to_raw(chr(10)), li_old_pos+1 , 1)
                  into li_pos
                  from fnd_lobs
                  where file_id = l_gfm_id;
                 
          exit when li_pos = 0 ;  -- no more data            
           
            begin
                --取出指定字串,(li_pos - li_old_pos-1) 字串長度,(li_old_pos +1) 開始的位置                
                  select utl_raw.cast_to_varchar2(dbms_lob.substr(file_data, (li_pos - li_old_pos-1), li_old_pos +1))
                  into  tempdata
                  from  fnd_lobs
                  where file_id = l_gfm_id;                    
                                   
                  ----字元集轉換-----------------------------------------------
                  --因為從Windows上傳的文字檔是ansi碼,但是資料庫是UTF8
                  select rtrim(convert(tempdata|| ' ','AL32UTF8','ZHT16MSWIN950')) into tempdata from dual;
                  --select rtrim(convert(tempdata|| ' ','AL32UTF8','ZHT16BIG5')) into tempdata from dual;
                  -----------------------------------------------------------------
                                             
           end;
         
            begin  
                select replace(tempdata,chr(13)||chr(10),chr(10)) into tempdata from dual;
            end;

            v_count := 0;
            v_char := null;
           select length(tempdata) into v_len from dual;
           for i in 1..v_len loop
               begin                            
                            --一次取一個字元,如果是",",則表示已完成一個字串,其用意與split分割函數同
                            --if nvl(substr(tempdata,i,1),',')=',' or ascii(substr(tempdata,i,1)) in('10','13') then    
                            if nvl(substr(tempdata,i,1),'n')=','  then
                                v_count:=v_count+1;                              
                                if v_count=1 then --字串aa 或 11
                                    v_a :=v_char;
                                    v_char:=null;
                                elsif v_count=2 then --字串bb 或  22
                                    v_char:=null;                                        
                                end if;
                            else
                                v_char:=v_char||substr(tempdata,i,1);      
                            end if;
                           
                            --每行的最後一個字串
                            if (i  = v_len-1) then
                                v_receive_no:=v_char;  --字串cc 或 33
                              v_char:=null;  
                            end if;
                           
               end;                  
           end loop;
         
           li_old_pos := li_pos;  -- pos of a file
         
    end loop;
   
end;

留言

這個網誌中的熱門文章

Shell Script簡易教學

一、概論
在許多的情況之下,我們都需要固定一組可以重覆或判斷資訊的指令,
而把這些指令存被在文字檔中,再交由Shell執行,就是Script。
一般會將Shell Script的副檔名命名為.sh,雖然副檔名在Linux中並非必要,
但是有副檔名可以讓我們更容易管理這些檔案。

假設有一個名為test.sh 的 Shell Script,首先用文字編輯器來撰寫內容如下:
#!/bin/bash
echo Hello World

第一行是必需的,它是用來定義你要使用的 shell。Linux中有許多的Shell可以使用,
如:ksh、bash,但是彼此之間語法有所差異,所以我們首先需要定義使用哪一個Shell。
而第二行的 echo 代表列出一個字串,預設會把後面的字串「Hello World」顯示在螢幕上。
將test.sh存檔後,可以用下列其中一種方式執行它:
1、直接輸入 sh test.sh
2、改變test.sh的權限,加上可以執行的權限,
   chmod a+x test.sh
   接著直接執行它:
   ./test.sh

在Shell Script中,「#」表示註解,在#後面將視為註解並且被程式忽略。
例如:
#pwd
ls -l
Shell只會執行ls -l,而不會執行ls -l

而「;」 則代表指令的分隔,例如:
pwd;ls -l

pwd
ls -l
都是一樣執行pwd及ls -l。

二、變數的使用
在Shell Script中,所有的變數都視為字串,因此不需要在定義變數類型。
在Shell中定義和使用變數時並不一樣。
例如,定義一個變數id並且設定值為2013001,接著還要將印出變數的值:
id=2013001 -> 定義變數時前面不加「$」符號
echo $id   -> 使用變數時前面要加「$」符號
注意,在等號的二邊不可以有空白,否則將出現錯誤。

再介紹一個範例:
dir=/home/oracle
ls $dir

這裡我們定義了變數dir的值為/home/oracle,接著用ls指令來印出變數dir,
此時指令會變為ls /home/oracle,所以就把目錄中所有檔案都列出來。


我們再來看一個例子,說明如何使用變數來定義變數:
$ tmppath=/tmp$ tmpfile=$tmppath/abc.txt$ ec…

用Excel 2010製作免費甘特圖

用Excel 2010製作免費甘特圖,以下是完成圖,其實是用圖表的功能加上修改圖表的選項來仿製甘特圖,
並非真正的甘特圖,如果要用免費的甘特圖軟體,可以下載GanttProject,有支援中文。
官方網址:http://www.ganttproject.biz/

首先將任務、開始日期、天數、完成日期填入工作表中,完成計劃後將資料全選,並在工具列上找到橫條圖。
一定要將資料全選起來,不然Excel有可能會判斷錯誤,畫出不符我們需求的圖表
(日期我算錯了,不過不影響製作,可以事後再修改)

圖表出現之後,修改資料的範圍(藍色框的部份),將資料由D6拉到C6。
「完成日期」只是為了讓Excel一開始不要判斷錯誤而產生錯誤的圖表。

在「藍色線條」上按滑鼠右鍵,選擇「資料數列格式」

依下圖點選「無填滿」,把藍色的線條變成透明,讓圖表看起來像是甘特圖。

接著我們要修改欄、列的參數,在下面日期的部份點選滑鼠右鍵,選「座標軸格式」

下方列是日期,所以選「日期」,並選擇一個類型

再來到「座標軸選項」中設定最小、最大值,讓圖表看起來更像甘特圖,其中最小值、最大值的數字,
是由1900/1/1到指定日期的總天數,例如:2014/4/9-1900/1/1=41737天(可用Excel直接相減得出數值)
「主要刻度間距」改為1,也就是間距為1天

接著回到圖表上,在左方任務列上按滑鼠右鍵,選擇「座標軸格式」

這次只選「類別次序反轉」,會把任務上下翻轉。

最後再將圖表的寬度、長度做一個調整就完成了。

補充說明: 如果遇到下列的情形,圖表的內容相反的話,可以按下「切換列/欄」來改變

Excel可以自訂公式(函數)來補足內建公式(函數)無法處理的情形

Excel有許多實用的公式,善用這些公式可以達成大部份的功能,但是萬一公式無法滿足需求時,可以自訂公式來解決。

          自訂公式其實就是自訂函數,先開啟Visual Basic(VBA)


                     新增一個「模組」


在開啟的模組視窗內撰寫VBA的函數程式,例如:

Function TEST01(A, B)
    TEST01 = A * 10 + B * 20
End Function

                    函數TEST01需要兩個參數A、B,並且將計算的結果回傳。



完成上述的設計之後,就可以在插入函數中選擇使用者定義,再選擇TEST01。
(或直接在儲存格輸入函數名稱TEST01)
反正使用的方法就跟一般的Excle的公式一樣就對了。