原创力文档- 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）