SAP-COOIS字段增强

小啊曼

已于 2024-02-01 09:58:35 修改

阅读量409

点赞数 11

分类专栏： SAP-ABAP 文章标签： linux 运维服务器

于 2024-02-01 09:19:00 首次发布

本文链接：https://blog.csdn.net/qq_32198063/article/details/135966242

版权

SAP-ABAP 专栏收录该内容

27 篇文章 2 订阅

订阅专栏

读取相关自定义字段的值:
  METHOD IF_EX_WORKORDER_INFOSYSTEM~TABLES_MODIFY_LAY.
    DATA: ZHEAD LIKE LINE OF CT_IOHEADER.
    DATA: LS_PLAF TYPE PLAF.
    DATA L_NAME TYPE THEAD-TDNAME.
    DATA LT_LINES TYPE TABLE OF TLINE.
    DATA LS_LINE TYPE TLINE.

    LOOP AT CT_IOHEADER INTO ZHEAD.
      SELECT SINGLE *
      INTO LS_PLAF
      FROM PLAF
      WHERE PLNUM = ZHEAD-AUFNR.
      IF SY-SUBRC = 0.
        ZHEAD-ZZVGL = LS_PLAF-ZZVBE.
        ZHEAD-ZZVGP = LS_PLAF-ZZPOS.
        IF ZHEAD-ZZVGL IS NOT INITIAL.
          CONCATENATE ZHEAD-ZZVGL ZHEAD-ZZVGP INTO L_NAME.
        ELSE.
          CONCATENATE LS_PLAF-KDAUF LS_PLAF-KDPOS INTO L_NAME.
        ENDIF.
        IF L_NAME NE ''.
          REFRESH LT_LINES.
          CALL FUNCTION 'READ_TEXT'
            EXPORTING
*             CLIENT                  = SY-MANDT
              ID                      = 'Z002'
              LANGUAGE                = '1'
              NAME                    = L_NAME
              OBJECT                  = 'VBBP'
            TABLES
              LINES                   = LT_LINES
            EXCEPTIONS
              ID                      = 1
              LANGUAGE                = 2
              NAME                    = 3
              NOT_FOUND               = 4
              OBJECT                  = 5
              REFERENCE_CHECK         = 6
              WRONG_ACCESS_TO_ARCHIVE = 7
              OTHERS                  = 8.
          LOOP AT LT_LINES INTO LS_LINE.
            CONCATENATE ZHEAD-ZZTXT1  LS_LINE-TDLINE INTO ZHEAD-ZZTXT1.
          ENDLOOP.
          REFRESH LT_LINES.
          CALL FUNCTION 'READ_TEXT'
            EXPORTING
*             CLIENT                  = SY-MANDT
              ID                      = 'Z003'
              LANGUAGE                = '1'
              NAME                    = L_NAME
              OBJECT                  = 'VBBP'
            TABLES
              LINES                   = LT_LINES
            EXCEPTIONS
              ID                      = 1
              LANGUAGE                = 2
              NAME                    = 3
              NOT_FOUND               = 4
              OBJECT                  = 5
              REFERENCE_CHECK         = 6
              WRONG_ACCESS_TO_ARCHIVE = 7
              OTHERS                  = 8.
          LOOP AT LT_LINES INTO  LS_LINE.
            CONCATENATE ZHEAD-ZZTXT2  LS_LINE-TDLINE INTO ZHEAD-ZZTXT2.
          ENDLOOP.
          REFRESH LT_LINES.
          CALL FUNCTION 'READ_TEXT'
            EXPORTING
*             CLIENT                  = SY-MANDT
              ID                      = 'Z004'
              LANGUAGE                = '1'
              NAME                    = L_NAME
              OBJECT                  = 'VBBP'
            TABLES
              LINES                   = LT_LINES
            EXCEPTIONS
              ID                      = 1
              LANGUAGE                = 2
              NAME                    = 3
              NOT_FOUND               = 4
              OBJECT                  = 5
              REFERENCE_CHECK         = 6
              WRONG_ACCESS_TO_ARCHIVE = 7
              OTHERS                  = 8.
          LOOP AT LT_LINES INTO LS_LINE.
            CONCATENATE ZHEAD-ZZTXT3 LS_LINE-TDLINE INTO ZHEAD-ZZTXT3.
          ENDLOOP.
          REFRESH LT_LINES.
          CALL FUNCTION 'READ_TEXT'
            EXPORTING
*             CLIENT                  = SY-MANDT
              ID                      = 'Z005'
              LANGUAGE                = '1'
              NAME                    = L_NAME
              OBJECT                  = 'VBBP'
            TABLES
              LINES                   = LT_LINES
            EXCEPTIONS
              ID                      = 1
              LANGUAGE                = 2
              NAME                    = 3
              NOT_FOUND               = 4
              OBJECT                  = 5
              REFERENCE_CHECK         = 6
              WRONG_ACCESS_TO_ARCHIVE = 7
              OTHERS                  = 8.
          LOOP AT LT_LINES INTO LS_LINE.
            CONCATENATE ZHEAD-ZZTXT4 LS_LINE-TDLINE INTO ZHEAD-ZZTXT4.
          ENDLOOP.
          REFRESH LT_LINES.
          CALL FUNCTION 'READ_TEXT'
            EXPORTING
*             CLIENT                  = SY-MANDT
              ID                      = 'Z006'
              LANGUAGE                = '1'
              NAME                    = L_NAME
              OBJECT                  = 'VBBP'
            TABLES
              LINES                   = LT_LINES
            EXCEPTIONS
              ID                      = 1
              LANGUAGE                = 2
              NAME                    = 3
              NOT_FOUND               = 4
              OBJECT                  = 5
              REFERENCE_CHECK         = 6
              WRONG_ACCESS_TO_ARCHIVE = 7
              OTHERS                  = 8.
          LOOP AT LT_LINES INTO LS_LINE.
            CONCATENATE ZHEAD-ZZTXT5  LS_LINE-TDLINE INTO ZHEAD-ZZTXT5.
          ENDLOOP.
        ENDIF.

        MODIFY CT_IOHEADER FROM ZHEAD.
        CLEAR ZHEAD.
      ENDIF.
    ENDLOOP.
  ENDMETHOD.