ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 更新客户地址

更新客户地址

原创 Linux操作系统 作者:qgw521 时间:2013-07-19 10:29:11 0 删除 编辑
-- 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;

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

下一篇: 更新客户头
请登录后发表评论 登录
全部评论

注册时间:2008-06-06

  • 博文量
    128
  • 访问量
    276743