ABAP--批量建立员工照片关联程序参考代码
2007-08-22 17:09
190 查看
REPORT ZHRLPHOTO NO STANDARD PAGE HEADING .
TABLES: TOAHR, PA0001.
INFOTYPES: 0000, 0001.
PARAMETERS:
PPFNAME LIKE TOAHR-ARC_DOC_ID default '%path% '." <---supply the specifi path
DATA:
PNUM LIKE PA0000-PERNR,
PFNAME LIKE TOAHR-ARC_DOC_ID,
PVAR LIKE TOAHR-ARC_DOC_ID,
PVAR1 LIKE TOAHR-ARC_DOC_ID,
PSAP_OBJ LIKE TOAHR-SAP_OBJECT VALUE 'PREL',
PARC_ID LIKE TOAHR-ARCHIV_ID VALUE 'HR',
PDOC_TYP LIKE TOAHR-AR_OBJECT VALUE 'Z_HRPHOTO',
PDOC_CLS LIKE TOAHR-RESERVE VALUE 'JPG'.
DATA: BEGIN OF ITAB OCCURS 1000,
PERNR LIKE PA0001-PERNR,
ENAME LIKE PA0001-ENAME,
END OF ITAB.
TOAHR-SAP_OBJECT = PSAP_OBJ.
TOAHR-ARCHIV_ID = PARC_ID.
TOAHR-AR_OBJECT = PDOC_TYP.
TOAHR-AR_DATE = SY-DATUM.
TOAHR-RESERVE = PDOC_CLS.
START-OF-SELECTION.
SELECT * FROM PA0001
WHERE BEGDA <= SY-DATUM AND ENDDA >= SY-DATUM
AND PERNR > 0.
MOVE-CORRESPONDING PA0001 TO ITAB.
APPEND ITAB.
ENDSELECT.
LOOP AT ITAB.
WRITE:/ ITAB-PERNR, ITAB-ENAME.
CONCATENATE PPFNAME ITAB-PERNR '.jpg'
INTO PVAR.
SELECT SINGLE ARC_DOC_ID INTO PVAR1 FROM TOAHR
WHERE SAP_OBJECT = PSAP_OBJ
AND AR_OBJECT = PDOC_TYP
AND ARCHIV_ID = PARC_ID
AND RESERVE = PDOC_CLS
AND ARC_DOC_ID = PVAR.
IF SY-SUBRC <> 0.
TOAHR-SAP_OBJECT = PSAP_OBJ.
TOAHR-ARCHIV_ID = PARC_ID.
toahr-arc_doc_id = pvar.
TOAHR-AR_OBJECT = PDOC_TYP.
TOAHR-AR_DATE = SY-DATUM.
TOAHR-RESERVE = PDOC_CLS.
concatenate itab-pernr ' 00000000' into toahr-object_id.
INSERT TOAHR.
write : 'Record successfully inserted.'.
ELSE.
WRITE: 'Record already exist'.
ENDIF.
ENDLOOP.
TABLES: TOAHR, PA0001.
INFOTYPES: 0000, 0001.
PARAMETERS:
PPFNAME LIKE TOAHR-ARC_DOC_ID default '%path% '." <---supply the specifi path
DATA:
PNUM LIKE PA0000-PERNR,
PFNAME LIKE TOAHR-ARC_DOC_ID,
PVAR LIKE TOAHR-ARC_DOC_ID,
PVAR1 LIKE TOAHR-ARC_DOC_ID,
PSAP_OBJ LIKE TOAHR-SAP_OBJECT VALUE 'PREL',
PARC_ID LIKE TOAHR-ARCHIV_ID VALUE 'HR',
PDOC_TYP LIKE TOAHR-AR_OBJECT VALUE 'Z_HRPHOTO',
PDOC_CLS LIKE TOAHR-RESERVE VALUE 'JPG'.
DATA: BEGIN OF ITAB OCCURS 1000,
PERNR LIKE PA0001-PERNR,
ENAME LIKE PA0001-ENAME,
END OF ITAB.
TOAHR-SAP_OBJECT = PSAP_OBJ.
TOAHR-ARCHIV_ID = PARC_ID.
TOAHR-AR_OBJECT = PDOC_TYP.
TOAHR-AR_DATE = SY-DATUM.
TOAHR-RESERVE = PDOC_CLS.
START-OF-SELECTION.
SELECT * FROM PA0001
WHERE BEGDA <= SY-DATUM AND ENDDA >= SY-DATUM
AND PERNR > 0.
MOVE-CORRESPONDING PA0001 TO ITAB.
APPEND ITAB.
ENDSELECT.
LOOP AT ITAB.
WRITE:/ ITAB-PERNR, ITAB-ENAME.
CONCATENATE PPFNAME ITAB-PERNR '.jpg'
INTO PVAR.
SELECT SINGLE ARC_DOC_ID INTO PVAR1 FROM TOAHR
WHERE SAP_OBJECT = PSAP_OBJ
AND AR_OBJECT = PDOC_TYP
AND ARCHIV_ID = PARC_ID
AND RESERVE = PDOC_CLS
AND ARC_DOC_ID = PVAR.
IF SY-SUBRC <> 0.
TOAHR-SAP_OBJECT = PSAP_OBJ.
TOAHR-ARCHIV_ID = PARC_ID.
toahr-arc_doc_id = pvar.
TOAHR-AR_OBJECT = PDOC_TYP.
TOAHR-AR_DATE = SY-DATUM.
TOAHR-RESERVE = PDOC_CLS.
concatenate itab-pernr ' 00000000' into toahr-object_id.
INSERT TOAHR.
write : 'Record successfully inserted.'.
ELSE.
WRITE: 'Record already exist'.
ENDIF.
ENDLOOP.
相关文章推荐
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--通过BDC倒入员工照片的参考代码
- ABAP--通过BDC倒入员工照片的参考代码
- 批量备SAP中CBO ABAP 程序代码为TXT文件备份
- 节假日批量设置的C#.NET程序代码参考 推荐
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- C#写的照片上传代码--建立一个一般处理程序
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- ABAP--通过'ARCHIV_CREATE_FILE'上传员工照片(代码摘抄OAOH)
- 批量备SAP中CBO ABAP 程序代码为TXT文件备份
- Peoplesoft批量导入员工照片AE程序