交货分行

交货分行[@more@]

SET SERVEROUTPUT ON SIZE 100000

DECLARE
p_api_version_number NUMBER;
p_from_detail_id NUMBER;
x_new_detail_id NUMBER;
x_split_quantity NUMBER;
x_split_quantity2 NUMBER;
p_commit VARCHAR2(30);
p_validation_level NUMBER;
x_return_status VARCHAR2(2000);
x_msg_count NUMBER;
x_msg_data VARCHAR2(2000);
BEGIN

p_api_version_number := 1.0;
p_from_detail_id := 439297;
x_split_quantity := 1;

wsh_delivery_details_pub.split_line
(
p_api_version => p_api_version_number,
p_init_msg_list => FND_API.G_TRUE,
p_commit => p_commit,
p_validation_level => p_validation_level,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_from_detail_id => p_from_detail_id,
x_new_detail_id => x_new_detail_id,
x_split_quantity => x_split_quantity,
x_split_quantity2 => x_split_quantity2
);

IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
COMMIT;
dbms_output.put_line('Return Status = '|| SUBSTR (x_return_status,1,255));
dbms_output.put_line('From Delivery detail Id = '|| TO_CHAR(p_from_detail_id));
dbms_output.put_line('New Delivery detail Id = '|| TO_CHAR(x_new_detail_id));
dbms_output.put_line('Split quantity = '|| x_split_quantity);
dbms_output.put_line('Split quantity2 = '|| x_split_quantity2);
ELSE
dbms_output.put_line('Return Status = '|| SUBSTR (x_return_status,1,255));
dbms_output.put_line('Msg Count = '|| TO_CHAR(x_msg_count));
dbms_output.put_line('From Delivery detail Id = '|| TO_CHAR(P_from_detail_id));
dbms_output.put_line('Msg Data = '|| SUBSTR (x_msg_data,1,255));

--IF x_msg_count >1 THEN
FOR I IN 1..10 LOOP
dbms_output.put_line(I||'. '|| SUBSTR (FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));
END LOOP;
--END IF;
END IF;
END;
/

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/132092/viewspace-967887/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/132092/viewspace-967887/