第一章使用PLSQL開發HTML報表

使用PLSQL儲存過程準備好資料來源，並控制輸出的邏輯，最後生成帶HTML標籤的文字輸出，再通過在EBS中設定報表的輸出格式為HTML。

如果熟悉Web前端的設計和開發，我感覺用這種方法很方便。

完全將報表開發轉變成Web開發了，報表的靈活行被無限放大了。

開發示例：

使用PLSQL開發HTML樣式的銷售訂單報表，並通過javascript將資料匯出到Excel中

                       CREATE OR REPLACE PACKAGE CUX_WX_OMRPT01 IS
                       -- Author  : ALLEN
                       -- Created : 2014/5/16 10:46:31
                       -- Purpose : EBS REPORT TRAINING
                       PROCEDURE MAIN(ERRBUF           OUT VARCHAR2,
                                      RETCODE          OUT VARCHAR2,
                                      P_ORDER_FROM     IN VARCHAR2,
                                      P_ORDER_TO       IN VARCHAR2);
                       END CUX_WX_OMRPT01;
                       /
                       CREATE OR REPLACE PACKAGE BODY CUX_WX_OMRPT01
                       -- Author  : ALLEN
                       -- Created : 2014/5/16 10:46:31
                       -- Purpose : EBS REPORT TRAINING IS
                       c_sprt VARCHAR2(2) := ',';
                       --ouput log 
                       PROCEDURE WRITE_LOG(p_log VARCHAR2) IS
                       BEGIN
                         FND_FILE.PUT_LINE(FND_FILE.LOG, p_log);
                       EXCEPTION
                         WHEN OTHERS THEN
                           NULL;
                       END WRITE_LOG;
 
                       --output content
                       PROCEDURE WRITE_OUTPUT(p_content VARCHAR2) IS
                       BEGIN
                         FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_content);
                       EXCEPTION
                           WHEN OTHERS THEN
                             NULL;
                       END WRITE_OUTPUT;
 
                       --BEGIN
                       PROCEDURE MAIN(ERRBUF           OUT VARCHAR2,
                                      RETCODE          OUT VARCHAR2,
                                      P_ORDER_FROM     IN VARCHAR2,
                                      P_ORDER_TO       IN VARCHAR2)
                       IS
                         CURSOR getdata_header_cur(p_order_from VARCHAR2, p_order_to VARCHAR2) IS
                           SELECT oh.order_number,                 --訂單頭 訂單號碼
                                  ot.name,                         --訂單頭 訂單型別
                                  party.party_name,                --訂單頭 客戶名稱
                                  cust.account_number,             --訂單頭 客戶程式碼
                                  oh.header_id
                             FROM oe_order_headers_all    oh,
                                  hz_cust_accounts        cust,
                                  hz_parties              party,
                                  oe_transaction_types_tl ot
                            WHERE cust.party_id = party.party_id
                              AND oh.sold_to_org_id = cust.cust_account_id
                              AND oh.order_type_id = ot.transaction_type_id
                              AND ot.language = userenv('LANG')
                              AND oh.org_id = fnd_profile.VALUE('ORG_ID')
                              AND oh.order_number between p_order_from and p_order_to
                         ORDER BY oh.order_number;
        
                         CURSOR getdata_line_cur(p_header_id NUMBER) IS
                           SELECT ol.line_number || '.' || ol.shipment_number ||
                                  decode(ol.component_number, null, null, '.') ||
                                  ol.component_number line_num,    --訂單行 行號
                                  ship_from_org.organization_code, --訂單行 倉庫程式碼
                                  ol.ordered_item,                 --訂單行 商品型號
                                  ol.ordered_quantity,             --訂單行 數量
                                  ol.unit_selling_price,           --訂單行 銷售單價
                                  ol.ordered_quantity * ol.unit_selling_price amount,
                                                                   --訂單行 銷售金額
                                  ol.flow_status_code,             --訂單行 訂單狀態
                                  ol.shipping_method_code          --訂單行 發運方法
                             FROM oe_order_lines_all      ol,
                                  mtl_parameters          ship_from_org
                            WHERE ol.header_id = p_header_id
                             AND ol.ship_from_org_id=ship_from_org.organization_id(+)
                         ORDER BY ol.line_number;  
 
                       BEGIN
                         -- Parameter Log
                         WRITE_LOG('****************************************');
                         WRITE_LOG('*** Parameter List                   ***');
                         WRITE_LOG('****************************************');
                         WRITE_LOG('P_ORDER_FROM      = ' || P_ORDER_FROM);
                         WRITE_LOG('P_ORDER_TO        = ' || P_ORDER_TO);
                         WRITE_LOG('****************************************');
                         --HTML FORMAT start
                         WRITE_OUTPUT('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
                         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
                         <html xmlns="http://www.w3.org/1999/xhtml">
                         <head>
                         <meta http-equiv="Content-Type" content="text/html" />
                         <title>PLSQL生成HTML報表</title>
                         <script type="text/javascript" language="javascript">
                           function PrintTableToExcel(objTab)
                           {
                             try
                             {
                               var xls = new ActiveXObject( "Excel.Application" );
                             }
                             catch(e)
                             {
                               alert("要列印該表，您必須安裝Excel電子表格軟體，同時瀏覽器須使用“ActiveX 控制元件”，您的瀏覽器須允許執行控制元件。
                                     請點選【幫助】瞭解瀏覽器設定方法！");
                               return false;
                             }
                             xls.visible = true;
                             var xlBook = xls.Workbooks.Add;
                             var xlsheet = xlBook.Worksheets(1);
                             var x = 1;
                             var y = 1;
                             for (var i = 0; i < objTab.rows.length; i++)
                             {
                               y = 1;
                               for (var j = 0; j < objTab.rows[i].cells.length; j++)
                               {
                                 xlsheet.Cells(x, y).Value = objTab.rows[i].cells[j].innerHTML;
                                 xlsheet.Cells(x, y).Borders.LineStyle = 1;
                                 y++;
                               }
                               x++;
                             }
                             xlsheet.Columns.AutoFit; //自動適應大小
                             return;
                             }
                         </script>
                         </head>
                         <body>');
                 
                         WRITE_OUTPUT('<input type="button" value="匯出至Excel" onclick=PrintTableToExcel(test) />');
                         WRITE_OUTPUT('<table id="test">');
                         FOR getdata_header_rec IN getdata_header_cur(P_ORDER_FROM,P_ORDER_TO) LOOP
                         WRITE_OUTPUT('<tr>');
                         WRITE_OUTPUT('<th colspan="2">訂單號碼:' || getdata_header_rec.order_number || '</th>');
                         WRITE_OUTPUT('<th colspan="2">訂單型別:' || getdata_header_rec.name || '</th>');
                         WRITE_OUTPUT('<th colspan="2">客戶名稱:' || getdata_header_rec.party_name || '</th>');
                         WRITE_OUTPUT('<th colspan="2">客戶程式碼:' || getdata_header_rec.account_number || '</th>');
                         WRITE_OUTPUT('</tr>');
                         WRITE_OUTPUT('<tr> <td>行號</td><td>倉庫程式碼</td>
                                            <td>商品型號</td><td>數量</td>
                                            <td>銷售單價</td><td>銷售金額</td>
                                            <td>訂單狀態</td><td>發運方法</td></tr>');
                         FOR getdata_line_rec IN getdata_line_cur(getdata_header_rec.header_id) LOOP
                         WRITE_OUTPUT('<tr>');
                         WRITE_OUTPUT('<td>' || getdata_line_rec.line_num || '</td>');
                         WRITE_OUTPUT('<td>' || getdata_line_rec.organization_code || '</td>');
                         WRITE_OUTPUT('<td>' || getdata_line_rec.ordered_item || '</td>');
                         WRITE_OUTPUT('<td>' || getdata_line_rec.ordered_quantity || '</td>');
                         WRITE_OUTPUT('<td>' || getdata_line_rec.unit_selling_price || '</td>');
                         WRITE_OUTPUT('<td>' || getdata_line_rec.amount || '</td>');
                         WRITE_OUTPUT('<td>' || getdata_line_rec.flow_status_code || '</td>');
                         WRITE_OUTPUT('<td>' || getdata_line_rec.shipping_method_code || '</td>');
                         WRITE_OUTPUT('</tr>');
                         END LOOP;
                         WRITE_OUTPUT('<tr></tr>');
                         END LOOP;
                         WRITE_OUTPUT('</table>');
                         WRITE_OUTPUT('</body></html>');
                         --HTML FORMAT end
                       EXCEPTION
                         WHEN OTHERS THEN
                           ERRBUF  := SQLERRM;
                           RETCODE := SQLCODE;
                       END MAIN;
                       BEGIN
                       NULL;
                       END CUX_WX_OMRPT01;
 

1)定義可執行併發程式

l職責：系統管理員(或應用開發者)

l選單：併發->程式->可執行

可執行和簡稱：一般為package名。

應用產品：選擇相應的開發環境。

執行方法：選擇PL/SQL儲存過程。

執行檔名：指定呼叫package的程式入口，一般是MAIN方法，注意寫法。

2)定義併發程式

l職責：系統管理員(或應用開發者)

l選單：併發->程式->定義

程式：一般為報表名稱。

簡稱：一般同可執行的名稱。

應用產品：與可執行的設定保持一致。

說明：輸入該報表的詳細說明。

可執行：選擇之前定義好的可執行程式。

格式：報表輸出格式設定，選擇HTML。

如果報表有輸入引數，則點選【引數】按鈕進行設定：

序號：引數次序。一般以10為間隔設定，方便以後按次序再新增新的引數。

引數： 一般與報表中的引數名一致。

說明：引數說明資訊。

值集：選擇合適的值集名稱。

提示：引數的顯示標籤。

變數：必須與package程式入口中的引數的引數名一致。（也可以省略）

1)查詢相應職責的請求組

職責：系統管理員

選單：安全性->職責->定義

2)將定義好的Report加入請求組

職責：系統管理員

選單：安全性->職責->請求

查詢出相應的請求組。

如果該請求組包含了Report註冊時使用的應用，可以不用專門將Report加入到該請求組；

否則需要將併發程式新增到該請求組。

注意新增應用和併發程式的型別區別。

3)測試Report

切換至相應的職責，選擇請求，輸入引數後提交。