FORM Export

BEGIN
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);
END;

app_export.event('EXPORT');
自己写最多再在前面加个:go_block('xxx');

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/59792/viewspace-1030072/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/59792/viewspace-1030072/