zoukankan      html  css  js  c++  java
  • ABAP批量建立员工照片关联程序参考代码

    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. 

  • 相关阅读:
    hdu 4614 线段树 二分
    cf 1066d 思维 二分
    lca 最大生成树 逆向思维 2018 徐州赛区网络预赛j
    rmq学习
    hdu 5692 dfs序 线段树
    dfs序介绍
    poj 3321 dfs序 树状数组 前向星
    cf 1060d 思维贪心
    【PAT甲级】1126 Eulerian Path (25分)
    【PAT甲级】1125 Chain the Ropes (25分)
  • 原文地址:https://www.cnblogs.com/xiaomaohai/p/6157228.html
Copyright © 2011-2022 走看看