SAP HR模块复制PA30的人员

很多顾问测试HR的程序时都为录入人员头痛，下面的程序提供了快速复制人员的方法。
代码如下：
*&---------------------------------------------------------------------*
*& 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 '密码错误!应该为555'.
exit.
endif.

select single * from pa0000 where pernr = p_per2.
if sy-subrc = 0.
message s398(00) with '该人员号已经存在,请输入新的人员号!'.
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
**----------------------------------------------------------------------*

SAP HR模块复制PA30的人员相关推荐

SAP HR模块的基础数据表和增强配置
信息类型是SAP HR模块数据单元,用于对人员数据的记录和维护,是HR的基础.信息类型按照其创建方式的不同可以分为:人事信息类型.组织信息类型.信息类型数据的维护主要在事物码PA30.PA40.po1 ...
SAP HR模块配置假期日历和缺勤类型
目录一.配置假期日历二.配置缺勤信息类型 2.1.定义缺勤类型 2.2.定义缺勤的计算规则 2.3.分配缺勤计算规则到缺勤类型一.配置假期日历 SAP的HR模块中,业务顾问在实施的时候一般会配置 ...
SAP HR模块用的表
所有职员的管理table是以PA打头并有相应的infotype加在其后的. 所有职员的development/OM table是以HRP打头并有相应的infotype加在其后的. 所有招聘的人员的表是 ...
获取SAP HR模块中员工照片及照片URL的方法
SAP提供了2个标准函数,直接调用即可. HR_ESS_WHO_PROG_GET_PICT_URI HR_ESS_WHO_PROG_GET_PICTURE
对平衡记分卡的简要评价和要成为合格的ERP（SAP HR模块）顾问必须具备的素质
关注BSC的起因是因为到公司面试的时候HR问了我什么是BSC,我记得在大学里学过这个概念,但究竟是什么我却说不上来.回来的这几天,我查询了相关资料,弄清了什么是BSC,什么是KPI,如何建立KPI,如 ...
SAP所有模块用户出口(User Exits)
用户出口就是SAP中的Customer Exits或者User Exits 使用用户出口可以: -不影响标准SAP源代码 -不影响软件升级 SAP有四种基本用户出口的类型: 1.菜单出口-Menu E ...
SAP所有模块用户出口(User Exits) 一
关于SAP的用户出口用户出口就是SAP中的Customer Exits或者User Exits 什么叫用户出口呢?打个比方说吧,SAP软件就象一根晾衣服的绳子,上面有数不清的衣架,多数衣架上已经挂上 ...
SAP所有模块用户出口(转)
SAP所有模块用户出口(转) T-Code:CMOD(实用程序->SAP增强) 用户出口名称短文本描述 0VRF0001 客户指定路线确定 AAIC0001 IM 总结: 在选择后处理数据 ...
资料：SAP所有模块用户出口(User Exits)
关于SAP的用户出口用户出口就是SAP中的Customer Exits或者User Exits 什么叫用户出口呢?打个比方说吧,SAP软件就象一根晾衣服的绳子,上面有数不清的衣架,多数衣架上已经挂上 ...

SAP HR模块复制PA30的人员

SAP HR模块复制PA30的人员相关推荐

最新文章

热门文章