HR--上载信息类型的长文本的样例代码
来源:互联网 发布:网络用语dt什么意思 编辑:程序博客网 时间:2024/06/14 10:54
此代码用于维护2002信息类型数据和长文本
TYPES BEGIN OF text_version.
TYPES nummer TYPE x.
TYPES END OF text_version.
DATA: PERSONALDATAKEY LIKE BAPIPAKEY.
DATA: RETURN LIKE BAPIRETURN1.
DATA: P2002 LIKE P2002.
DATA: PSKEY TYPE PSKEY.
DATA: IT_TEXT TYPE HRPAD_TEXT_TAB .
DATA: LINE TYPE HRPAD_TEXT.
DATA: version TYPE text_version.
DATA: pcl1 TYPE pcl1.
Input Parameters:
PARAMETERS: PERNR LIKE PA2002-PERNR DEFAULT '1004511',
AWART LIKE PA2002-AWART DEFAULT 'LW',
BEGDA LIKE PA2002-BEGDA DEFAULT SY-DATUM,
ENDDA LIKE PA2002-ENDDA DEFAULT SY-DATUM,
BEGUZ LIKE PA2002-BEGUZ,
ENDUZ LIKE PA2002-ENDUZ.
Lock Personnel Number:
START-OF-SELECTION.
CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
EXPORTING
number = PERNR
IMPORTING
RETURN = RETURN.
IF RETURN-NUMBER IS NOT INITIAL.
EXIT.
ENDIF.
Insert infotype data:
* ADD DATA
CLEAR: P2002.
P2002-PERNR = PERNR.
P2002-SUBTY = AWART.
P2002-ENDDA = BEGDA.
P2002-BEGDA = BEGDA.
P2002-BEGUZ = BEGUZ.
P2002-ENDUZ = ENDUZ.
P2002-AWART = AWART.
P2002-ITXEX = 'X'.
* WRITE DATA
CLEAR: RETURN, PERSONALDATAKEY.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
INFTY = '2002'
NUMBER = PERNR
SUBTYPE = AWART
VALIDITYEND = BEGDA
VALIDITYBEGIN = BEGDA
RECORD = P2002
OPERATION = 'INS'
NOCOMMIT = ''
TCLAS = 'A'
IMPORTING
RETURN = RETURN
KEY = PERSONALDATAKEY
EXCEPTIONS
OTHERS = 0.
IF RETURN-NUMBER IS INITIAL.
COMMIT WORK AND WAIT.
ELSE.
ROLLBACK WORK.
EXIT.
ENDIF.
Insert Maintain Text data:
* ADD DATA
CLEAR: PSKEY, IT_TEXT[].
pskey-pernr = PERNR.
pskey-infty = '2002'.
pskey-subty = AWART.
pskey-endda = BEGDA.
pskey-begda = ENDDA.
pskey-seqnr = PERSONALDATAKEY-RECORDNR.
version-nummer = '02'.
pcl1-histo = 'X'.
pcl1-uname = SY-UNAME.
pcl1-aedtm = SY-DATUM.
* ADD IT_TEXT DATA
CLEAR: LINE.
LINE = 'Sample text:'.
APPEND LINE TO IT_TEXT.
CLEAR: LINE.
LINE = 'Here you can store your information.'.
APPEND LINE TO IT_TEXT.
EXPORT
text-version FROM version
ptext FROM IT_TEXT
TO DATABASE pcl1(TX) ID pskey
FROM pcl1.
Unlock Personnel Number:
CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
EXPORTING
number = PERNR
IMPORTING
RETURN = RETURN.
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1763663
- HR--上载信息类型的长文本的样例代码
- HR--上载信息类型的长文本的样例代码
- HR--创建HR的信息类型(InfoType)
- HR信息类型数据的批倒
- BAPI--使用HR_INFOTYPE_OPERATION函数批量导入HR信息纪录代码样例(0759信息类型)
- BAPI--使用HR_INFOTYPE_OPERATION函数批量导入HR信息纪录代码样例(0759信息类型)
- HR--配置HR的员工照片存储和上载的步骤
- HR--配置HR的员工照片存储和上载的步骤
- SAP HR--配置HR的员工照片存储和上载的步骤
- HR模块PA信息类型的建立以及增强
- HR PA信息类型的创建与增强
- SAP HR信息类型
- 能吸引HR的简历“长这样!”
- ABAP--HR的工资计算样例代码
- ABAP--HR的工资计算样例代码
- ABAP--HR的工资计算样例代码
- ABAP--HR的工资计算样例代码
- 文件上载的表单
- ABAP--如何返回'F4IF_INT_TABLE_VALUE_REQUEST'函数隐含的字段
- hoho,俺来喽
- c++--SDI的启动和关闭的调试跟踪的过程摘抄
- HTML--关于innerText, innerHTML, outerText, outerHTML的返回值
- C++--MFC的SDI程序的用户命令的处理顺序
- HR--上载信息类型的长文本的样例代码
- BAPI--使用HR_INFOTYPE_OPERATION函数批量导入HR信息纪录代码样例(0759信息类型)
- C++--如何在Dialog和View中显示梯度背景颜色
- C++--在工具条中加入组合框控件
- javascript积累
- C++--如何锁定splitter窗口
- C++--MFC的关键类(View,Application,Frame,Document等等)之间访问方法列表
- C++--深入分析MFC文档视图结构(项目实践)
- C++如何修改SDI程序的默认背景颜色