HR--上载信息类型的长文本的样例代码
此代码用于维护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.
转载于:https://www.cnblogs.com/duadu/archive/2007/08/29/6166665.html
HR--上载信息类型的长文本的样例代码相关推荐
- 【MySQL】mysql文本类型, 长文本
text类型 tinytext : 可存储256字节文本数据,适合超短文本 text : 可存储64kb文本数据,适合短文本 mediumtext : 可存储16MB文本数据, 适合长文本 longt ...
- ABAP 中长文本处理(此例利用长文本特性开发简历模板)CL_GUI_TEXTEDIT
SAP中长文本的需求及处理方法 相关类 CL_GUI_TEXTEDIT 主要方法 CL_GUI_TEXTEDIT->GET_TEXT_AS_R3TABLE CL_GUI_TEXTEDIT-&g ...
- Android QPython3 制作简易GUI长文本框界面
#QPython3H 制作简易GUI长文本框界面 #函数代码部分: import androidhelper as android droid=android.Android() from qsl4a ...
- 异常、信息国际化样例
目录: 1.信息国际化 2.异常国际化 3.使用方法 4.完整样例代码 内容: 1.信息国际化 首先,定义相关的properties文件, 如LocalStrings_zh_CN.properties ...
- clob类型类似MySQL_Oracle中大文本数据类型Clob 长文本类型 (MySQL中不支持,使用的是text)Blob 二进制类型MySQL数据库Text...
Oracle中大文本数据类型 Clob 长文本类型 (MySQL中不支持,使用的是text) Blob 二进制类型 MySQL数据库 Text 长文本类型 TINYTEXT: 256 bytes TE ...
- SAP HR信息类型
编号 名称 说明 0000 人事事件 Actions 对各种人事行为进行管理的信息类型 0001 组织分配 Organizational Assignment 0002 个人数据 Personal D ...
- HR HRP1001创建更新信息类型1001数据,RH_INSERT_INFTY_1001_EXT
信息类型1001是维护组织机构与上级关系表,使用 RH_PNNNN_MAINTAIN创建更新时总是失败,换RH_INSERT_INFTY_1001_EXT去做,表(hrp1001) FORM SAVE ...
- HR HRP1000创建更新信息类型1000数据,RH_PNNNN_MAINTAIN
组织结构基本信息存储在信息类型1000中,插入和定界数据都是用函数:RH_PNNNN_MAINTAIN 插入,定界(更新)都是 ACT_FCODE = 'INSE' DATA: LS_RETURN ...
- q标签,短文本引用;blockquote标签,长文本引用
<q>标签,短文本引用 <q>引用文本</q>,默认显示双引号,不需要在文本中添加 <blockquote>标签,长文本引用 浏览器对<block ...
最新文章
- 一个整数,它加上100后是一个完全平方数,再加上168又是一个完全平方数,请问该数是多少?...
- 程序员,你想不想进大厂?
- 减少图片HTTP 请求的方案
- jzoj3798-[NOIP2014模拟8.22]临洮巨人【前缀和】
- Jibx Jersey2集成
- Spring初始化:org.springframework.we...ContextLoaderListener的作用
- (二)使用CycleGAN进行移动风格迁移
- 微软开源C++ REST SDK——Casablanca
- PHP word转pdf
- 软件各项会议评审意见模版
- 笔记MySQLJavaweb
- excel行列互换_Excel中选择性粘贴的5种用法,别再仅仅复制-粘贴了
- 罗技 k380快捷键
- Problem G: 薪酬计算
- Code jam 2008 practice A
- 如何做好测试用例的设计
- 计算机软件跨考教育学优点,我是英语专业学生,想考研。但专业优势不突出,想跨考教育学。不了解考研方向就业方向及前景,建议?谢啦...
- java.lang.ClassNotFoundException: com.sun.activation.registries.LogSupport
- marlin stlink jlink 调试方式
- 计算机类专业本科生毕业论文+答辩那点事