摘自:
https://blog.csdn.net/cai_xingyun/article/details/17167309
https://blog.csdn.net/cai_xingyun/article/details/40475141
采购订单状态更改处理API
--PO采购订单状态更改处理API
PO_Document_Control_PUB.control_document(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
po_doc_tbl IN po_document_control_pub.PO_DTLS_REC_TBL,
p_action IN VARCHAR2,
p_action_date IN DATE,
p_cancel_reason IN PO_LINES.cancel_reason%TYPE,
p_cancel_reqs_flag IN VARCHAR2,
p_print_flag IN VARCHAR2,
p_revert_chg_flag IN VARCHAR2,
p_launch_approvals_flag IN VARCHAR2,
p_note_to_vendor IN PO_HEADERS.note_to_vendor%TYPE,
p_use_gldate IN VARCHAR2 DEFAULT NULL,
p_org_id IN NUMBER DEFAULT NULL
);
PO订单审批通过API
DECLARE
l_return_status VARCHAR2(1);
l_exception_msg VARCHAR2(4000);
BEGIN
mo_global.set_policy_context(p_access_mode => 'S',
p_org_id => 81);
-- Call the procedure
po_document_action_pvt.do_approve(p_document_id => 126001,
p_document_type => 'PO',
p_document_subtype => 'STANDARD',
p_note => 'hope success',
p_approval_path_id => 1,
x_return_status => l_return_status,
x_exception_msg => l_exception_msg);
IF l_return_status = 'S' THEN
dbms_output.put_line('Successful!');
--dbms_output.put_line('l_exception_msg = ' || l_exception_msg);
ELSE
dbms_output.put_line('Error Status = ' || l_return_status);
dbms_output.put_line('l_exception_msg:' || l_exception_msg);
END IF;
END;

博客介绍了采购订单相关的API,包括采购订单状态更改处理API和PO订单审批通过API,给出了这两个API的具体代码示例,涉及参数设置、调用过程及结果判断等内容。

1003

被折叠的 条评论
为什么被折叠?



