Export data from a data block

WEB_SERVER_PREFIX := FND_WEB_CONFIG.GFM_AGENT; MIME_TYPE := NVL (FND_PROFILE.VALUE ('FND_EXPORT_MIME_TYPE'), 'text/tab-separated-values' ); DB_FILE := FND_GFM.FILE_CREATE (CONTENT_TYPE => MIME_TYPE, PROGRAM_NAME => 'export'); V_RECORD_NUM := :SYSTEM.CURSOR_RECORD; GO_BLOCK ('PO_RULE'); FIRST_RECORD LOOP EXIT WHEN SYSTEM.LAST_QUERY = TRUE ; OUTSTRING := 輸入你要的資料 FND_GFM.FILE_WRITE_LINE (DB_FILE, OUTPUT_STRING); NEXT_RECORD; END LOOP; GO_RECORD (V_RECORD_NUM); DB_FILE := FND_GFM.FILE_CLOSE (DB_FILE); URL := FND_GFM.CONSTRUCT_DOWNLOAD_URL (WEB_SERVER_PREFIX, DB_FILE, TRUE); FND_UTILITIES.OPEN_URL (URL); 這樣就搞定了，我剛開始想的太複雜了。因為我要使用Excle的模版，認為模版要在程式中呼叫，所以走了很多的彎路。 TO Mypeking : 你隨便開啟一個form只要有資料列的，你選擇檔案--〉匯出就可以存入excel了。

Oracle標準功能就用這一句程式碼：app_export.event('EXPORT');
自己寫最多再在前面加個:go_block('xxx');
就夠了。

[@more@]