通过API修改PO订单行信息

1078842.1

set feedback on
set term on
set serveroutput on
DECLARE
l_result NUMBER;
l_api_errors PO_API_ERRORS_REC_TYPE;
BEGIN
fnd_global.apps_initialize(1014703,50578,201);
mo_global.init('PO');
mo_global.set_policy_context('S', 204);
l_result :=
PO_CHANGE_API1_S.UPDATE_PO
(x_po_number => 7102,
x_release_number => NULL,
x_revision_number => 0,
x_line_number => 1,
x_shipment_number => 1,
new_quantity => 25,
new_price => null,
new_promised_date => null,
new_need_by_date => null,
launch_approvals_flag=> null,
update_source => NULL,
VERSION => '1.0',
x_override_date => NULL,
x_api_errors => l_api_errors,
p_buyer_name => NULL,
p_secondary_quantity => NULL,
p_preferred_grade => NULL,
p_org_id => 204
);
IF (l_result <> 1) THEN
-- Display the errors
FOR i IN 1..l_api_errors.message_text.COUNT LOOP
dbms_output.put_line ( l_api_errors.message_text(i) );
END LOOP;
END IF;
END;
/