oracle ebs 采购订单关闭之PL/SQL实现方法

应客户需求，需要写个脚本，批量关闭Bonus Item类型的采购订单，在metalink上搜索到一些方法，但是都测试不通。原来需要将代码生成一个并发程序。下面是测试成功的代码。

1.首先创建一个存储过程，然后在存储过程中调用PO_ACTIONS.CLOSE_PO
2.注册一个存储过程类型的并发程序
3.在application中测试结果。


CREATE OR REPLACE PROCEDURE xx_po_close
(
err_buff OUT VARCHAR2,
retcode OUT NUMBER,
p_reason_desc VARCHAR2,
p_po_from VARCHAR2,
p_po_to VARCHAR2)
AS
l_return_code VARCHAR2(2000);
l_result BOOLEAN;
CURSOR PO_CLOSE_CUR
IS
SELECT poh.segment1,
poll.po_header_id ,
poll.po_line_id ,
poll.line_location_id
FROM po_line_locations_all poll,
po_headers_all poh ,
po_lines_all pol
WHERE poll.po_header_id = poh.po_header_id
AND poll.po_line_id =pol.po_line_id
AND pol.po_header_id = poh.po_header_id
AND upper(poh.authorization_status)='APPROVED'
AND UPPER(poll.closed_code )='CLOSED FOR RECEIVING'
AND (pol.unit_price =0 or poh.quantity_billed - poh.quantity >=0)
AND poh.segment1 between p_po_from and p_po_to;

BEGIN
FOR PO_CLOSE_REC IN PO_CLOSE_CUR
LOOP
l_result := po_actions.close_po(
p_docid => PO_CLOSE_REC.po_header_id,
p_doctyp => 'PO',
p_docsubtyp => 'STANDARD',
p_lineid => PO_CLOSE_REC.po_line_id,
p_shipid => PO_CLOSE_REC.line_location_id,
p_action => 'CLOSE',
p_reason => p_reason_desc,
p_calling_mode => 'PO',
p_conc_flag => 'N',
p_return_code => l_return_code,
p_auto_close => 'N',
p_action_date => SYSDATE,
p_origin_doc_id => NULL);

IF l_result THEN
FND_FILE.PUT_LINE( FND_FILE.OUTPUT,PO_CLOSE_REC.segment1 || ' is Closed. ');
ELSE
FND_FILE.PUT_LINE( FND_FILE.OUTPUT,PO_CLOSE_REC.segment1 || ' is not Closed. ');
END IF;

END LOOP;
END;