Form_Form Builder Export匯出為Excel（案例）

標籤：

2014-01-09 Created By BaoXinjian

 

 

/* Formatted on 2015/1/13 11:04:15 (QP5 v5.115.810.9015) */DECLARE   --以上五個變數照搬即可   URL                 VARCHAR2 (2000);   DB_FILE             NUMBER;   WEB_SERVER_PREFIX   VARCHAR2 (255);   RES                 BOOLEAN;   MIME_TYPE           VARCHAR2 (255);   L_ORGANZIATION_ID   NUMBER;   --定義一個包含主從關係資料的CURSOR   CURSOR CSR (      V_ORGANIZATION_ID   IN            NUMBER   )   IS        SELECT   CST.COST_GROUP_CODE,                 CST.COST_GROUP_DESCRIPTION,                 CST.COST_GROUP_DISABLE_DATE,                 CAP.CAPABILITY,                 EQP.EQP_CAP_DESC DESCRIPTION,                 CAP.ACTIVE          FROM   CUX2_CST_COST_GROUP_ALL CST,                 CUX2_CST_COST_GROUP_EQPS_ALL CAP,                 CUX2_BOM_EQP_CAP_TYPE EQP         WHERE       CAP.COST_GROUP_ID(+) = CST.COST_GROUP_ID                 AND EQP.EQP_CAP_CODE(+) = CAP.CAPABILITY                 AND EQP.ORGANIZATION_ID(+) = CAP.ORGANIZATION_ID                 AND CAP.ORGANIZATION_ID(+) = CST.ORGANIZATION_ID                 AND CST.ORGANIZATION_ID = V_ORGANIZATION_ID      ORDER BY   CST.ORGANIZATION_ID, CST.COST_GROUP_CODE, CAP.CAPABILITY;BEGIN   --擷取Organzition_id   L_ORGANZIATION_ID := FND_PROFILE.VALUE (‘MFG_ORGANIZATION_ID‘);   --更改滑鼠式樣：漏鬥滑鼠（忙狀態）   SET_APPLICATION_PROPERTY (CURSOR_STYLE, ‘BUSY‘);   --顯示進度條視窗，並設定進度為0   APP_WINDOW.PROGRESS (0);   --建立資料包，並設定檔案頭類型。   DB_FILE :=      FND_GFM.FILE_CREATE (CONTENT_TYPE   => ‘text/html‘,                           PROGRAM_NAME   => ‘export‘);   --輸出題頭行 注:chr(9) 為 tab鍵   FND_GFM.FILE_WRITE_LINE (      DB_FILE,         ‘Cost Group Code‘      || CHR (9)      || ‘Cost Group Description‘      || CHR (9)      || ‘Cost Group Disable Date‘      || CHR (9)      || ‘Capability‘      || CHR (9)      || ‘Description‘      || CHR (9)      || ‘Active‘   );   --迴圈資料行   FOR R IN CSR (L_ORGANZIATION_ID)   LOOP      FND_GFM.FILE_WRITE_LINE (         DB_FILE,            R.COST_GROUP_CODE         || CHR (9)         || R.COST_GROUP_DESCRIPTION         || CHR (9)         || TO_CHAR (R.COST_GROUP_DISABLE_DATE, ‘YYYY-MM-DD HH24:MI:SS‘)         || CHR (9)         || R.CAPABILITY         || CHR (9)         || R.DESCRIPTION         || CHR (9)         || R.ACTIVE      );   END LOOP;   --關閉資料包   DB_FILE := FND_GFM.FILE_CLOSE (DB_FILE);   --將資料包提交給用戶端   URL := FND_GFM.CONSTRUCT_DOWNLOAD_URL (WEB_SERVER_PREFIX, DB_FILE, TRUE);   --DBMS_OUTPUT.PUT_LINE(URL);   --開啟URL地址下載   FND_UTILITIES.OPEN_URL (URL);   --更改滑鼠式樣：預設指標（常規狀態）   SET_APPLICATION_PROPERTY (CURSOR_STYLE, ‘DEFAULT‘);   APP_WINDOW.PROGRESS (1);            --顯示進度條視窗，並設定進度為1（100%）END;

 

 

 

 

 

Thanks and Regards

參考：kawontony - http://blog.itpub.net/24627116/viewspace-754506/

參考：kawontony - http://blog.itpub.net/24627116/viewspace-754513/

Form_Form Builder Export匯出為Excel（案例）