zoukankan      html  css  js  c++  java
  • ABAP通过BDC倒入员工照片的参考代码

    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.
     

  • 相关阅读:
    烂泥:学习ubuntu之快速搭建LNMP环境
    烂泥:学习ubuntu远程桌面(二):远程桌面会话管理
    烂泥:学习ubuntu远程桌面(一):配置远程桌面
    烂泥:学习ssh之ssh密钥随身携带
    烂泥:学习ssh之ssh无密码登陆
    JS 获取浏览器窗口大小
    connect() failed (111: Connection refused) while connecting to upstream的解决
    css加载没效果,查看网络显示类型为 text/plain 的解决方法
    empty和isset的区别
    SQLite3命令操作大全
  • 原文地址:https://www.cnblogs.com/xiaomaohai/p/6157225.html
Copyright © 2011-2022 走看看