EBS: API创建用户

EBS账号以员工号作为账号。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
DECLARE  p_employee_id number;
  v_user_name                   varchar2(100);
  v_owner                       varchar2(50);
  v_unencrypted_password        varchar2(50) default null;
  v_session_number              number default null;
  v_start_date                  date default null;
  v_end_date                    date default null;
  v_last_logon_date             date default null;
  v_description                 varchar2(50) default null;
  v_password_date               date default null;
  v_password_accesses_left      number default null;
  v_password_lifespan_accesses  number default null;
  v_password_lifespan_days      number default null;
  v_employee_id                 number default null;
  v_email_address               varchar2(50) default null;
  v_fax                         varchar2(50) default null;
  v_customer_id                 number default null;
  v_supplier_id                 number default null;
  i                             number;
  cursor c1  is
    select emp.employee_id, emp.employee_num, emp.full_name,
           emp.last_name
    from  apps.hr_employees emp
    where emp.employee_num like ('工员号')
    and not exists ( select user_name from apps.fnd_user fu
      where emp.employee_num = fu.user_name); 
begin
  i := 0;
  for r1 in c1 loop
 
   v_user_name                 := r1.employee_num ;
   v_owner                     := 'SYSADMIN'--操作人用户名
   v_unencrypted_password      :='ORACLE120' -- 初始密码
   v_session_number            :=null ;
   v_start_date                := SYSDATE ;
   v_end_date                  :=null ;
   v_last_logon_date           :=null ;
   v_description               := r1.last_name ;
   v_password_date             :=null ;
   v_password_accesses_left    :=NULL ;
   v_password_lifespan_accesses:=NULL ;
   v_password_lifespan_days    :=90 ;
   v_employee_id               := r1.employee_id ;
   v_email_address             :='' ;
   v_fax                       :='' ;
   v_customer_id               :='' ;
   v_supplier_id               :='' ;
 
 
   apps.fnd_user_pkg.LoadUser(
  x_user_name                 =>v_user_name, -- in varchar2,
  x_owner                     =>v_owner, -- in varchar2,
  x_unencrypted_password      =>v_unencrypted_password, -- in varchar2 default null,
  x_session_number            =>v_session_number, -- in number default null,
  x_start_date                =>v_start_date, -- in date default null,
  x_end_date                  =>v_end_date, -- in date default null,
  x_last_logon_date           =>v_last_logon_date, -- in date default null,
  x_description               =>v_description, -- in varchar2 default null,
  x_password_date             =>v_password_date, -- in date default null,
  x_password_accesses_left    =>v_password_accesses_left, -- in number default null,
  x_password_lifespan_accesses=>v_password_lifespan_accesses, -- in number default null,
  x_password_lifespan_days    =>v_password_lifespan_days, -- in number default null,
  x_employee_id               =>v_employee_id, -- in number default null,
  x_email_address             =>v_email_address, -- in varchar2 default null,
  x_fax                       =>v_fax, -- in varchar2 default null,
  x_customer_id               =>v_customer_id, -- in number default null,
  x_supplier_id               =>v_supplier_id -- in number default null
  ) ;
   i := i +1;
   dbms_output.put_line('新增第'|| to_char(i) ||'个用户:'||v_user_name );
  end loop;
  commit;
  dbms_output.put_line('共新增'|| to_char(i) ||'个用户。');
end;
/

  

posted @   samrv  阅读(97)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 在鹅厂做java开发是什么体验
· 百万级群聊的设计实践
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战
· 永远不要相信用户的输入:从 SQL 注入攻防看输入验证的重要性
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
历史上的今天:
2022-07-26 EBS: 弹性域.说明性.段的查询
2022-07-26 EBS:表值集查询
点击右上角即可分享
微信分享提示