报告ZBDC_SCN1。 信息类型:0021,0412。 *-类型声明 类型:TY_pa0021的开始, PERNR类型PERNR-PERNR,"人员编号 SUBTY类型 SUBTY,"子类型 ENAME TYPE ENAME,"员工名称 DESGN TYPE DESGN","名称 STRAS TYPE STRAS","街道和门牌号码 LOCAT TYPE LOCAT","第二条地址线 ORT01 TYPE ORT01," TY_pa0021的城市 结尾,
数据:TY_pa0021的T_FILE类型标准表, WA_FILE TY_pa0021。TYPE_TABLE数据:fs_return TYPE bapireturn1,"用于保存消息的结构 G_FILE TYPE IBIPPARMS-PATH。选择画面以块标题TEXT-003在块B3处开始。 parameters:P_FILE1类型STRING修改ID M2。 ""类似于rlgrap文件名的修改ID M2。 B3的选择屏幕结束。
您好 Nawshath Ahmath ,
您是指信息类型文本吗?
如果是这样,我建议使用CL_HRPA_TEXT_CLUSTER类。
但是 您仍然需要在"自定义"中为信息类型进行设置。
也许会帮助您解决问题。
请注意
安迪
您的问题是什么?
HR_infotype_operation无法正常工作。 我添加下面的代码。 但是仍然无法更新
请提供帮助。
报告ZBDC_SCN1。 STRAS TYPE STRAS","街道和门牌号码
RETURN = FS_RETURN。
信息类型:0021,0412。
*-类型声明
类型:TY_pa0021的开始,
PERNR类型PERNR-PERNR,"人员编号
SUBTY类型 SUBTY,"子类型
ENAME TYPE ENAME,"员工名称
DESGN TYPE DESGN","名称
LOCAT TYPE LOCAT","第二条地址线
ORT01 TYPE ORT01," TY_pa0021的城市
结尾,
数据:TY_pa0021的T_FILE类型标准表,
WA_FILE TY_pa0021。TYPE_TABLE数据:fs_return TYPE bapireturn1,"用于保存消息的结构
G_FILE TYPE IBIPPARMS-PATH。选择画面以块标题TEXT-003在块B3处开始。
parameters:P_FILE1类型STRING修改ID M2。 ""类似于rlgrap文件名的修改ID M2。
B3的选择屏幕结束。
在P_File1的值请求上处于选择屏幕。
调用函数'F4_FILENAME'< br>导出
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME ='P_File1'
IMPORTING
FILE_NAME = G_File。
P_File1 = G_File。
开始选择。
* ---从桌面获取文本文件
调用功能'GUI_UPLOAD'
导出
FILENAME = P_File1
FILETYPE ='ASC'
HAS_FIELD_SEPARATOR ='X'
* HEADER_LENGTH = 0
* READ_BY_LINE ='X'
* DAT_MODE =''
*代码页=''
* IGNORE_CERR = ABAP_TRUE
*替换='#'
* CHECK_BOM =''
* VIRUS_SCAN_PROFILE =
* NO_AUTH_CHECK =''
* ISDOWNLOAD =''
*导入
*文件长度 =
*标题=
表
DATA_TAB = T_FILE
*更改
* ISSCANPERFORMED =''
例外情况
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALI D_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_D = = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
其他= 17
。
如果SY-SUBRC <> 0.
消息ID SY-MSGID类型SY -MSGTY编号SY-MSGNO
与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。
ENDIF。
在T_FILe处循环进入WA_FILE。 >导出
编号= P0021-PERNR
导入
返回= FS_RETURN
。
如果FS_RETURN-id网元空间。
写:/'入队失败'。
退出。
ENDIF。
* ----------------------------------------- ------------------------------------- *
" CALL HR_INFOTYPE_OPERATION FM
*- -------------------------------------------------- --------------------------- *
通话功能'HR_INFOTYPE_OPERATION'
导出
INFTY ='0021 '
编号= P0021-PERNR
子类型= P0021-S UBTY
*对象ID =
* LOCKINDICATOR =
* VALENDITYEND =
* VALIDITYBEGIN =
* RECORDNUMBER =
RECORD = P0021
OPERATION ='MOD'
* TCLAS ='A'
DIALOG_MODE ='1'
* NOCOMMIT =
* VIEW_IDENTIFIER =
* SECONDARY_RECORD =
" KEY = KEY1。< br>
如果FS_RETURN-id等于SPACE。
将WA_FILE附加到T_FILE。
ENDIF。
呼叫功能'BAPI_EMPLOYEE_DEQUEUE'
导出
号码= P0021-PERNR
导入< br> RETURN = FS_RETURN。
ENDLOOP。
一周热门 更多>