- 1、本文档共12页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
创建一个PL/SQL报表—采购订单打印
在PL/SQLDeveloper中,创建一个程序包:
命名为QPO_PRINT_你名字拼音的缩写_PKG:
删除Packagespecification中的预置代码(须保留第一行create和最后一行end的代码),然后在Packagespecification中添加代码:
PROCEDUREprint_po
(
errbufOUTVARCHAR2,
retcodeOUTNUMBER,
p_segment1INVARCHAR2
);
该过程将作为系统内PL/SQL类型并发请求的执行过程。其中OUT类型的参数errbuf和retcode是系统要求的固定参数,所有PL/SQL类型并发请求的执行过程都必须具有这两个参数。
errbuf参数的内容将在日志文件中输出,效果与调用过程fnd_file.put_line输出文本到日志文件相同。
retcode参数的值将决定并发请求的完成状态,0为正常(默认值即为0)、1为警告、2为错误。效果与调用过程fnd_concurrent.set_completion_status设置请求的完成状态相同。
删除Packagebody中的预置代码(须保留第一行create和最后一行end的代码),然后在Packagebody中添加代码:
PROCEDUREprint_po
(
errbufOUTVARCHAR2,
retcodeOUTNUMBER,
p_segment1INVARCHAR2
)IS
CURSORc_po_headerIS
SELECTph.segment1,
ments,
pv.vendor_name,
pvs.vendor_site_code,
ppx.last_name,
hlb.location_codebill_to_location_code,
hls.location_codeship_to_location_code,
po_headers_sv3.get_po_status(ph.po_header_id)status
FROMpo_headers_allph,
po_vendorspv,
po_vendor_sites_allpvs,
hr_locations_allhlb,
hr_locations_allhls,
per_people_xppx
WHEREph.segment1=p_segment1
ANDph.vendor_id=pv.vendor_id(+)
ANDph.vendor_site_id=pvs.vendor_site_id(+)
ANDph.bill_to_location_id=hlb.location_id(+)
ANDph.ship_to_location_id=hls.location_id(+)
ANDph.agent_id=ppx.person_id;
CURSORc_distributionsIS
SELECTpl.line_num||-||pll.shipment_num||-||pd.distribution_numline_number,
msi.segment1item_num,
pl.item_description,
pl.unit_meas_lookup_code,
pl.unit_price,
anization_code,
pd.quantity_ordered,
文档评论(0)