EBS开发_创建员工

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/u013711561/article/details/79069944

-- Create Employee
-- -------------------------


--以下脚本于20180115在Tony环境实现


--初始化
/*
begin
  fnd_global.apps_initialize(user_id      => 1110,
                             resp_id      => 50597,
                             resp_appl_id => 20003);
  mo_global.init('M');
end;
*/


DECLARE
  lc_employee_number   PER_ALL_PEOPLE_F.EMPLOYEE_NUMBER%TYPE;-- := 'WRKNO1000001';
  ln_person_id         PER_ALL_PEOPLE_F.PERSON_ID%TYPE;
  ln_assignment_id     PER_ALL_ASSIGNMENTS_F.ASSIGNMENT_ID%TYPE;
  ln_object_ver_number PER_ALL_ASSIGNMENTS_F.OBJECT_VERSION_NUMBER%TYPE;
  ln_asg_ovn           NUMBER;


  ld_per_effective_start_date PER_ALL_PEOPLE_F.EFFECTIVE_START_DATE%TYPE;
  ld_per_effective_end_date   PER_ALL_PEOPLE_F.EFFECTIVE_END_DATE%TYPE;
  lc_full_name                PER_ALL_PEOPLE_F.FULL_NAME%TYPE;
  ln_per_comment_id           PER_ALL_PEOPLE_F.COMMENT_ID%TYPE;
  ln_assignment_sequence      PER_ALL_ASSIGNMENTS_F.ASSIGNMENT_SEQUENCE%TYPE;
  lc_assignment_number        PER_ALL_ASSIGNMENTS_F.ASSIGNMENT_NUMBER%TYPE;


  lb_name_combination_warning BOOLEAN;
  lb_assign_payroll_warning   BOOLEAN;
  lb_orig_hire_warning        BOOLEAN;
BEGIN
  hr_employee_api.create_employee(
                                  -- Input data elements
                                  -- ------------------------------
                                  p_hire_date           => TO_DATE('2018-01-14','YYYY-MM-DD'),
                                  p_business_group_id   => fnd_profile.value_specific('PER_BUSINESS_GROUP_ID'),
                                  p_last_name           => 'TOM',--姓氏
                                  p_first_name          => 'CRUISE',--名字
                                  p_middle_names        => NULL,
                                  p_sex                 => 'M',
                                  p_national_identifier => NULL,--'183-09-6723',
                                  p_date_of_birth       => TO_DATE('1990-12-25','YYYY-MM-DD'),
                                  p_known_as            => 'QUANWEIRU',
                                  -- Output data elements
                                  -- --------------------------------
                                  p_employee_number           => lc_employee_number,
                                  p_person_id                 => ln_person_id,
                                  p_assignment_id             => ln_assignment_id,
                                  p_per_object_version_number => ln_object_ver_number,
                                  p_asg_object_version_number => ln_asg_ovn,
                                  p_per_effective_start_date  => ld_per_effective_start_date,
                                  p_per_effective_end_date    => ld_per_effective_end_date,
                                  p_full_name                 => lc_full_name,
                                  p_per_comment_id            => ln_per_comment_id,
                                  p_assignment_sequence       => ln_assignment_sequence,
                                  p_assignment_number         => lc_assignment_number,
                                  p_name_combination_warning  => lb_name_combination_warning,
                                  p_assign_payroll_warning    => lb_assign_payroll_warning,
                                  p_orig_hire_warning         => lb_orig_hire_warning);


  COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    ROLLBACK;
    DBMS_OUTPUT.put_line(SQLERRM);
END;
--SELECT TO_DATE('2018-01-14','YYYY-MM-DD') FROM DUAL;