-- Created on 2013-7-8 by ADMINISTRATOR
declare
-- Local variables here
i integer;
g_module varchar2(30) := 'TCA_V2_API';
l_loc_rec hz_location_v2pub.location_rec_type;
l_location_id NUMBER;
l_return_status VARCHAR2(2000);
l_msg_count NUMBER;
l_msg_data VARCHAR2(2000);
v_version_number number ;
begin
-- Test statements here
mo_global.init('AR');
mo_global.set_policy_context('S', 4555);
fnd_global.apps_initialize(1013475,
59166,
660);
mo_global.init('ONT');
oe_msg_pub.initialize;
l_loc_rec.location_id := 26675;
l_loc_rec.country := 'CN';
l_loc_rec.city := '深圳';
l_loc_rec.address1 := '科技园';
l_loc_rec.address2 := '科苑南路留学生创业园';
l_loc_rec.created_by_module := g_module;
hz_location_v2pub.update_location(p_init_msg_list => fnd_api.G_TRUE
,p_location_rec => l_loc_rec
,p_object_version_number => v_version_number
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data);
if nvl(l_return_status,'E') <> 'S' then
fnd_msg_pub.Count_And_Get(p_encoded => fnd_api.G_FALSE
,p_count => l_msg_count
,p_data => l_msg_data);
dbms_output.put_line('error message :'||l_msg_data);
else
dbms_output.put_line('version number:'||v_version_number);
end if;
end;
declare
-- Local variables here
i integer;
g_module varchar2(30) := 'TCA_V2_API';
l_loc_rec hz_location_v2pub.location_rec_type;
l_location_id NUMBER;
l_return_status VARCHAR2(2000);
l_msg_count NUMBER;
l_msg_data VARCHAR2(2000);
v_version_number number ;
begin
-- Test statements here
mo_global.init('AR');
mo_global.set_policy_context('S', 4555);
fnd_global.apps_initialize(1013475,
59166,
660);
mo_global.init('ONT');
oe_msg_pub.initialize;
l_loc_rec.location_id := 26675;
l_loc_rec.country := 'CN';
l_loc_rec.city := '深圳';
l_loc_rec.address1 := '科技园';
l_loc_rec.address2 := '科苑南路留学生创业园';
l_loc_rec.created_by_module := g_module;
hz_location_v2pub.update_location(p_init_msg_list => fnd_api.G_TRUE
,p_location_rec => l_loc_rec
,p_object_version_number => v_version_number
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data);
if nvl(l_return_status,'E') <> 'S' then
fnd_msg_pub.Count_And_Get(p_encoded => fnd_api.G_FALSE
,p_count => l_msg_count
,p_data => l_msg_data);
dbms_output.put_line('error message :'||l_msg_data);
else
dbms_output.put_line('version number:'||v_version_number);
end if;
end;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/13387766/viewspace-766679/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/13387766/viewspace-766679/