ABAP--通过BDC倒入员工照片的参考代码
2007-12-14 17:07
399 查看
REPORT ZHR_BDC_UPLOADPIC
NO STANDARD PAGE HEADING LINE-SIZE 255.
INCLUDE BDCRECX1.
*I N T E R N A L T A B L E S
DATA : BEGIN OF IT_DATA OCCURS 0,
RP50G-PERNR(8), " LIKE RP50G-PERNR,
RLGRAP-FILENAME(128),
END OF IT_DATA.
*S T A R T - O F - S E L E C T I O N
START-OF-SELECTION.
PERFORM OPEN_GROUP.
CALL FUNCTION 'UPLOAD'
EXPORTING
FILENAME = 'C:/PICTURE.TXT'
FILETYPE = 'DAT'
TABLES
DATA_TAB = IT_DATA
EXCEPTIONS
CONVERSION_ERROR = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
OTHERS = 7.
IF SY-SUBRC NE 0.
WRITE : / 'Unable to upload data'.
STOP.
ENDIF.
LOOP AT IT_DATA.
PERFORM BDC_DYNPRO USING 'OANEWCON' '0100'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'TOAOM-AR_OBJECT'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=NEW'.
PERFORM BDC_FIELD USING 'TOAOM-SAP_OBJECT'
'PREL'.
PERFORM BDC_FIELD USING 'TOAOM-AR_OBJECT'
'HRICOLFOTO'.
PERFORM BDC_DYNPRO USING 'SAPLSJ01' '0200'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'FIELD_VALUES-INPUT(02)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=OK'.
PERFORM BDC_FIELD USING 'FIELD_VALUES-INPUT(01)'
IT_DATA-RP50G-PERNR. "'10002'.
PERFORM BDC_FIELD USING 'FIELD_VALUES-INPUT(02)'
'0002'.
PERFORM BDC_DYNPRO USING 'SAPLOPTM' '0105'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'SAPB-SAPPOOLINF'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=OKAY'.
PERFORM BDC_FIELD USING 'SAPB-SAPPOOLINF'
IT_DATA-RLGRAP-FILENAME. "JPG'.
PERFORM BDC_TRANSACTION USING 'OAOH'.
clear IT_DATA-RLGRAP-FILENAME.
ENDLOOP.
PERFORM CLOSE_GROUP.
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1754976
NO STANDARD PAGE HEADING LINE-SIZE 255.
INCLUDE BDCRECX1.
*I N T E R N A L T A B L E S
DATA : BEGIN OF IT_DATA OCCURS 0,
RP50G-PERNR(8), " LIKE RP50G-PERNR,
RLGRAP-FILENAME(128),
END OF IT_DATA.
*S T A R T - O F - S E L E C T I O N
START-OF-SELECTION.
PERFORM OPEN_GROUP.
CALL FUNCTION 'UPLOAD'
EXPORTING
FILENAME = 'C:/PICTURE.TXT'
FILETYPE = 'DAT'
TABLES
DATA_TAB = IT_DATA
EXCEPTIONS
CONVERSION_ERROR = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
OTHERS = 7.
IF SY-SUBRC NE 0.
WRITE : / 'Unable to upload data'.
STOP.
ENDIF.
LOOP AT IT_DATA.
PERFORM BDC_DYNPRO USING 'OANEWCON' '0100'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'TOAOM-AR_OBJECT'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=NEW'.
PERFORM BDC_FIELD USING 'TOAOM-SAP_OBJECT'
'PREL'.
PERFORM BDC_FIELD USING 'TOAOM-AR_OBJECT'
'HRICOLFOTO'.
PERFORM BDC_DYNPRO USING 'SAPLSJ01' '0200'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'FIELD_VALUES-INPUT(02)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=OK'.
PERFORM BDC_FIELD USING 'FIELD_VALUES-INPUT(01)'
IT_DATA-RP50G-PERNR. "'10002'.
PERFORM BDC_FIELD USING 'FIELD_VALUES-INPUT(02)'
'0002'.
PERFORM BDC_DYNPRO USING 'SAPLOPTM' '0105'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'SAPB-SAPPOOLINF'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=OKAY'.
PERFORM BDC_FIELD USING 'SAPB-SAPPOOLINF'
IT_DATA-RLGRAP-FILENAME. "JPG'.
PERFORM BDC_TRANSACTION USING 'OAOH'.
clear IT_DATA-RLGRAP-FILENAME.
ENDLOOP.
PERFORM CLOSE_GROUP.
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1754976
相关文章推荐
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- ABAP--通过OLE操作OFFICE(代码)
- 发送端用Jrtplib库进行发送,接收端通过VLC接收并播放——有参考代码
- Java,JavaScript和ABAP通过代码取得当前代码的调用栈Callstack
- s3c2410+linux通过SPI驱动双数码管参考代码
- SAP-ABAP 通过公司代码和日期,去对应的会计期间和年度函数:G_PERIOD_GET