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. 

  • 相关阅读:
    关于js的对象原型继承(一)
    js相关小技巧
    一、WCF学习之旅-创建第一个服务
    .net WebService方法之重载、支持Session、支持request请求和response格式的浅析
    关于反射的BindingFlag浅析
    oracle之TRUNC函数
    start with...connect by子句的浅用
    一个在windows电脑上控制比较全的文件夹的设置方式
    javascript的replace之正则表达式的浅析
    抓取错误之onerror
  • 原文地址:https://www.cnblogs.com/xiaomaohai/p/6157228.html
Copyright © 2011-2022 走看看