HR--一个员工的所有主数据(PA*)克隆到一个新员工的程序代码

转载 2007年10月05日 19:39:00

这个程序将一个员工的所有主数据(PA*)克隆到一个新员工,具体代码

*&---------------------------------------------------------------------*
*& Report  ZPPA_CLONE_PERNR
*&
*&---------------------------------------------------------------------*
*& CLONE
*&                                                                     *
*&---------------------------------------------------------------------*
report  zppa_clone_pernr line-size 255.
*
*----------------------------------------------------------------------*
* T A B L E S
*----------------------------------------------------------------------*
tables: pa0000.
*----------------------------------------------------------------------*
* C O N S T A N T S
*----------------------------------------------------------------------*
*constants: .

**----------------------------------------------------------------------*
** D A T A
**----------------------------------------------------------------------*
data: i_dd02l like dd02l occurs 0 with header line.

* Objects for variable structure assignment
data dref type ref to data.

field-symbols: <table> type any table,
              <wa>    type any,
              <field>  type any,
              <field_nachn>  type any,
              <field_vorna>  type any.
field-symbols  <pnnnn> type c.

**----------------------------------------------------------------------*
** P A R A M E T E R S
**----------------------------------------------------------------------*
*### Input
selection-screen: begin of block frm1 with frame title text-010.
parameters: p_pernr like prelp-pernr default '30001' obligatory.
parameters: p_per2 like  prelp-pernr default '30071' obligatory.
selection-screen: end of block frm1.

selection-screen: begin of block frm2 with frame title text-011.
select-options: pr_tnam for i_dd02l-tabname default 'PA0000' to
'PA9999' no-display.
selection-screen: end of block frm2.

selection-screen: begin of block frm3 with frame title text-012.
parameters: p_nachn like pa0002-nachn default 'Hubert'.
parameters: p_vorna like pa0002-vorna default 'Peter'.
selection-screen: end of block frm3.

parameters: p_pwd(3).
parameters: p_detail as checkbox.
parameters: p_test as checkbox default 'X'.

**----------------------------------------------------------------------*
** I N I T I A L I Z A T I O N
**----------------------------------------------------------------------*
*initialization.

*************************************************************************
** S T A R T   O F   P R O G R A M
*************************************************************************
**----------------------------------------------------------------------*
** S T A R T   O F   S E L E C T I O N
**----------------------------------------------------------------------*
start-of-selection.

 if p_pwd ne '555'.
   message s398(00) with 'Bitte Passwort eingeben'.
   exit.
 endif.

 select single * from pa0000 where pernr = p_per2.
 if sy-subrc = 0.
   message s398(00) with 'PERNR Existiert schon,bitte zuerst vollst. löschen'.
   exit.
 endif.

 select * from dd02l into table i_dd02l where tabname in pr_tnam.

 loop at i_dd02l.

   create data dref type standard table of (i_dd02l-tabname)
                         with non-unique default key.
   assign dref->* to <table>.

   select *
          from (i_dd02l-tabname)
          into table <table>
          where pernr = p_pernr.

   if sy-subrc = 0.
     format color col_key intensified on.
     write:/ i_dd02l.
   endif.

   loop at <table> assigning <wa>.
     format color col_normal intensified off.
     if p_detail = 'X'.
       write:/3 space.
     endif.
     do 30 times.
       assign component sy-index
          of structure <wa> to <field>.
       if sy-subrc = 0.
         if p_detail = 'X'.
           write: <field>.
         endif.
       endif.
     enddo.

     if i_dd02l-tabname = 'PA0001'.
       assign component 'ENAME'
  of structure <wa> to <field>.
       if sy-subrc = 0.
         concatenate p_vorna p_nachn into <field> separated by space.
       endif.

     endif.

     if i_dd02l-tabname = 'PA0002'.
       assign component 'NACHN'
          of structure <wa> to <field>.
       if sy-subrc = 0.
         <field> = p_nachn.
       endif.
       assign component 'VORNA'
          of structure <wa> to <field>.
       if sy-subrc = 0.
         <field> = p_vorna.
       endif.

     endif.

* Tab update
     if p_test is initial.
       assign component 'PERNR'
          of structure <wa> to <field>.
       <field> = p_per2.
       check i_dd02l-tabname(2) = 'PA'.
       modify (i_dd02l-tabname) from <wa>.
     endif.

   endloop.

 endloop.
**----------------------------------------------------------------------*
** E N D   O F   S E L E C T I O N
**----------------------------------------------------------------------*
source url: https://www.sdn.sap.com/irj/sdn/wiki?path=/display/Snippets/HR+Clone+Pernr&

Oracle-触发器编程及OEM中PL/SQL编程

实践目的   (1) 掌握触发器数据库对象的基本作用。   (2) 掌握触发器的建立、修改、查看、删除操作。 实践内容   下列任务中涉及的数据表是SCOTT用户给出的表。   (1) 建立一个触发器...
  • u012701023
  • u012701023
  • 2015年06月07日 23:46
  • 911

如何让新员工快速成长

1概述 对于企业而言新员工是公司新鲜的血液,如何使新员工能够尽快熟悉和适应公司文化、制度,了解岗位情况,快速地胜任新的工作,以满足公司发展需要一直是企业领导的一块心病。 本文是笔者由进入公司接受培训,...
  • aeaiesb
  • aeaiesb
  • 2016年10月28日 11:55
  • 613

程序猿(新员工) 从"合格"到"优秀",成长之路,还有老员工对新员工的帮带方法

作用:在web项目中,无时无刻有图片/文件上传,还有JSON/XML等格式文件生成,那么程序猿就需要灵活运用获取详细地址,工程项目名称,在绝对(详细)地址基础获取工程项目名称...
  • Ufeitxt
  • Ufeitxt
  • 2014年09月25日 18:36
  • 1454

“知识地图”助员工岗位成才

这份厚重的“知识地图”,不难发现,它详细列举了各专业涉及的主要知识点和技能要求,并确立学习的先后次序。附录的表格中,知识点、学习材料、学习方式等都一目了然。    10月28日,重庆南岸供电公司变电...
  • DanneyW
  • DanneyW
  • 2013年12月19日 18:02
  • 550

Java第四周员工管理系统集合版

**第一部分 案例描述 案例目的 学习面向对象的主要特征和基本概念,包括类、对象、继承、封装、多态、方法的重载和重写、Java的访问修饰符与其它关键字以及集合等。 案例难...
  • u011488009
  • u011488009
  • 2015年09月10日 11:40
  • 723

呼叫中心如何培养新员工

作为呼叫中心,应该怎样去培养员工,尤其是新员工的服务意识呢?    一、新员工的问题    (一)缺乏工作经验。    目前中国的呼叫中心企业发展迅速,已逐渐趋于成熟,但人员流动性高...
  • ylwx1991
  • ylwx1991
  • 2016年10月27日 15:35
  • 533

为什么企业宁愿开高工资给新员工,都不愿意给老员工加工资?

某企业招聘新员工,薪资水平比老员工要高出一截!老员工郁闷了,论实力我不逊于新员工,论在公司的年资就更加不用说。每次要求加薪总是诸多忽悠的理由,要加也只加那么一丁点儿。老板为毛这样对我?...
  • u010825142
  • u010825142
  • 2015年07月22日 13:49
  • 11706

JS对象深度克隆实现

本文介绍了JavaScript对象深度克隆的实现,分析了针对原始类型(数值、字符串、布尔值)和对象类型(对象,函数、数组)实现深度克隆的方法,最后给出了一个通用的JS对象深度克隆的方法。...
  • u014607184
  • u014607184
  • 2016年10月07日 16:11
  • 4273

【读书总结】《联盟》——员工与老板的新关系

引言: 最近看了罗胖陪老婆女儿去了,听了听樊登关于《联盟》这本书的解读,很感兴趣,下去之后,又看了看原书,收到很多启发。当然,期间也推荐了《裂变式创业》《商业的本质》《从0到1》《干法》《爆款...
  • Francis123580
  • Francis123580
  • 2016年06月30日 23:17
  • 1742

单位员工通讯录管理系统

1、单位员工通讯录管理系统(线性表的应用) [问题描述] 为某个单位建立一个员工通讯录管理系统,可以方便查询每一个员工的办公室电话、手机号、及电子邮箱。其功能包括通讯录链表的建立、员工通讯信息的查...
  • AJayB
  • AJayB
  • 2017年01月23日 13:41
  • 782
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:HR--一个员工的所有主数据(PA*)克隆到一个新员工的程序代码
举报原因:
原因补充:

(最多只允许输入30个字)