ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
来源:互联网 发布:less.js中文文档 编辑:程序博客网 时间:2024/06/10 10:09
1) Store the Photograph of the Employee as the PERNR.JPG (PERNR = EMPLPYEES PERSONNEL NUMBER) at a predifined location.
2) Have a text file with all the pernr for whom you want to upload the photo and the JPGs you have in the folder.
3) Use this Function module with the loop for all the PERNR
* Function module to update Tran OAAD
* Create file path (Directory)-(Employee No.).JPG
CONCATENATE 'dir where the file is stored' wa_pernr-pernr '.' 'jpg' INTO lw_path.
************************************************************************
* Copyright 2004 C-Bons Wuhan *
* All Rights Reserved *
*----------------------------------------------------------------------*
* Program Name : ZHRIPHOTO *
* Project : SAP Implementation Project *
* Program Title: 照片导入 *
* Created by : DEV01 *
* Created on : 2007/09/15 *
* Version : 1.0 *
*----------------------------------------------------------------------*
* Function Description: *
* 照片导入 *
*----------------------------------------------------------------------*
* Data Table List: *
* *
*----------------------------------------------------------------------*
* Refrence Table List: *
* *
*----------------------------------------------------------------------*
* Modification Log: *
* Date Programmer Correction Number *
************************************************************************
REPORT zhriphoto NO STANDARD PAGE HEADING LINE-SIZE 255
MESSAGE-ID zdev .
*I N T E R N A L T A B L E S
DATA : BEGIN OF gt_photo OCCURS 0,
pernr(8),
END OF gt_photo.
DATA: g_path LIKE draw-filep,
g_sapobjid LIKE sapb-sapobjid,
g_filename TYPE string,
g_sappfad LIKE sapb-sappfad.
PARAMETERS: p_file LIKE rlgrap-filename OBLIGATORY. " 文件路径
************************************************************************
*& Initialization
************************************************************************
INITIALIZATION.
* CONCATENATE sy-uname sy-datum+4(4) INTO group.
************************************************************************
* START-OF-SELECTION
************************************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING " DEF_FILENAME = ' '
def_path = 'C:/'
mask = ',Text Files,*.txt;*.prn,All Files,*.*.'
mode = 'O'
title = '选取导入文件'(100)
IMPORTING
filename = p_file
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc <> 0 AND sy-subrc <> 3.
MESSAGE e102(zdev) WITH 'Error Selecting File'(007).
ENDIF.
************************************************************************
* START-OF-SELECTION
************************************************************************
START-OF-SELECTION.
g_path = p_file.
CALL FUNCTION 'CV120_SPLIT_PATH'
EXPORTING
pf_path = g_path
IMPORTING
pfx_path = g_path.
g_filename = p_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = g_filename
* FILETYPE = 'ASC'
* has_field_separator = 'X'
* dat_mode = 'X'
TABLES
data_tab = gt_photo
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_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_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
IF sy-subrc <> 0.
MESSAGE s306 .
ENDIF.
LOOP AT gt_photo.
CONCATENATE g_path gt_photo-pernr '.JPG' INTO g_sappfad.
CONCATENATE gt_photo-pernr '0002' INTO g_sapobjid.
CALL FUNCTION 'ARCHIV_CREATE_FILE'
EXPORTING
ar_object = 'HRICOLFOTO'
object_id = g_sapobjid
sap_object = 'PREL'
doc_type = 'JPG'
path = g_sappfad
EXCEPTIONS
error_conectiontable = 1
error_parameter = 2
error_archiv = 3
error_upload = 4
error_kernel = 5
no_entry_possible = 6
error_comunicationtable = 7
OTHERS = 8.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CLEAR g_filename.
ENDLOOP.
************************************************************************
* END-OF-SELECTION
************************************************************************
END-OF-SELECTION.
WRITE / '执行完毕!'.
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1755145
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- 上传员工照片到数据库
- 上传照片代码
- ABAP--如何将月份转化为对应文本(代码摘抄)
- ABAP--如何将月份转化为对应文本(代码摘抄)
- ABAP-读取应用服务器目录信息的函数代码摘抄
- ABAP-读取应用服务器目录信息的函数代码摘抄
- 如何通过html上传照片(自定义上传图标)
- 【代码笔记】iOS-图片手势,上传照片
- 打开相册相机上传照片代码
- ABAP动态生成代码上传EXCEL数据
- ABAP动态生成代码上传TXT数据
- C++如何修改SDI程序的默认背景颜色
- SD--定价过程的16个字段的作用说明
- C++--在单文档的应用程序增加多个视图
- 祝愿我所有的朋友身体健康,事业有成,天天快乐,幸福永远.....
- BASIS--使用DELETE_USER_ON_DB批量删除用户
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- SD--Message Control Configure
- HR--配置HR的员工照片存储和上载的步骤
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--批量建立员工照片关联程序参考代码
- 同学走了,我的心很承重,一位才子就这么远去了,他远离我们而去,为他的离去而悲...
- SD-- SAP定义的几个标准Cost Condition的说明
- HTML--如何实现通过鼠标事件拖动页面图像(代码)
- ABAP--ALV_BLOCK_LIAST的函数使用样例