zoukankan      html  css  js  c++  java
  • 关联带出字段内容

    TYPES:
      BEGIN OF TYP_HELP,
        F1 TYPE VBAK-VBELN,
        F2 TYPE CHAR10,
      END OF TYP_HELP.
    
    DATA:
      TD_HELP TYPE TABLE OF TYP_HELP,
      TH_HELP LIKE LINE OF TD_HELP.
    
    DATA:
      TD_FIELD TYPE TABLE OF DFIES,
      TH_FIELD LIKE LINE OF TD_FIELD,
      TD_MAP   TYPE TABLE OF DSELC,
      TH_MAP   LIKE LINE OF TD_MAP.
    
    DATA:
      W_INDEX TYPE SY-INDEX,
      W_HLP(60) TYPE C,
      W_TABNAME TYPE DD03P-TABNAME,
      W_FIELDNAME TYPE DFIES-LFIELDNAME.
    
    DATA:
      ST_DTELINFO TYPE DTELINFO.
    
    FIELD-SYMBOLS <FS> TYPE ANY.
    
    PARAMETERS P_FIELD1 TYPE CHAR10.
    PARAMETERS P_FIELD2 TYPE CHAR10.
    
    INITIALIZATION.
    
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FIELD1.
      REFRESH: TD_HELP,
               TD_MAP,
               TD_FIELD.
      TH_HELP-F1 = 'AA'.
      TH_HELP-F2 = '11'.
      APPEND TH_HELP TO TD_HELP.
      TH_HELP-F1 = 'BB'.
      TH_HELP-F2 = '22'.
      APPEND TH_HELP TO TD_HELP.
      TH_MAP-FLDNAME = 'F1'.
      TH_MAP-DYFLDNAME = 'P_FIELD1'.
      APPEND TH_MAP TO TD_MAP.
      TH_MAP-FLDNAME = 'F2'.
      TH_MAP-DYFLDNAME = 'P_FIELD2'.
      APPEND TH_MAP TO TD_MAP.
    
      DO.
        W_INDEX = SY-INDEX.
        ASSIGN COMPONENT W_INDEX OF STRUCTURE TH_HELP TO <FS>.
        IF SY-SUBRC <> 0.
          EXIT.
        ENDIF.
        DESCRIBE FIELD <FS> HELP-ID W_HLP.
        SPLIT W_HLP AT '-' INTO W_TABNAME W_FIELDNAME.
        CALL FUNCTION 'DDIF_FIELDINFO_GET'
          EXPORTING
            TABNAME              = W_TABNAME
            LFIELDNAME           = W_FIELDNAME
            ALL_TYPES            = 'X'
          IMPORTING
            DFIES_WA             = TH_FIELD
          EXCEPTIONS
            NOT_FOUND            = 1
            INTERNAL_ERROR       = 2
            OTHERS               = 3
                  .
        CHECK SY-SUBRC = 0.
        DESCRIBE DISTANCE BETWEEN TH_HELP AND <FS>
                 INTO TH_FIELD-OFFSET IN BYTE MODE.
        CLEAR TH_FIELD-TABNAME.
        TH_FIELD-POSITION = W_INDEX.
        IF W_INDEX = 1.
          TH_FIELD-FIELDNAME = 'F1'.
        ELSE.
          TH_FIELD-FIELDNAME = 'F2'.
        ENDIF.
    *    TH_FIELD-MASK+2(1) = 'X'.
    *    CLEAR:
    *      TH_FIELD-f4availabl,
    *      ST_DTELINFO.
    *    CALL FUNCTION 'DDIF_NAMETAB_GET'
    *      EXPORTING
    *        TABNAME     = TH_FIELD-ROLLNAME
    *        ALL_TYPES   = 'X'
    *      IMPORTING
    *        DTELINFO_WA = ST_DTELINFO
    *      EXCEPTIONS
    *        OTHERS      = 0.
    *    TH_FIELD-f4availabl = ST_DTELINFO-F4AVAILABL.
        APPEND TH_FIELD TO TD_FIELD.
        CLEAR TH_FIELD.
      ENDDO.
    
      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
        EXPORTING
          RETFIELD               = 'KKYCD'
          DYNPPROG               = SY-CPROG
          DYNPNR                 = SY-DYNNR
          DYNPROFIELD            = 'P_FIELD1'
          WINDOW_TITLE           = 'HELP'
          VALUE_ORG              = 'S'
        TABLES
          VALUE_TAB              = TD_HELP
          FIELD_TAB              = TD_FIELD
    *   RETURN_TAB             =
          DYNPFLD_MAPPING        = TD_MAP
        EXCEPTIONS
          PARAMETER_ERROR        = 1
          NO_VALUES_FOUND        = 2
          OTHERS                 = 3
                  .
      IF SY-SUBRC <> 0.
        MESSAGE 'error!!' TYPE 'E'.
      ENDIF.

     

  • 相关阅读:
    WCF 第十二章 对等网 实现一个自定义对等网解析器
    WCF 第十二章 对等网 System.Net.PeerToPeer.Collaboration
    WCF 第十二章 对等网 使用Windows Vista 来进行合作
    WCF 第十二章 对等网 使用PNRP解决对等网络问题
    WCF 第十二章 对等网 点对点应用程序
    WCF 第十二章 对等网 限制一条消息的跳数
    WCF 第十二章 对等网 创建P2P应用程序
    C#解析HTML
    C#中的DLL注入
    VC简单实现淡入淡出效果
  • 原文地址:https://www.cnblogs.com/youleng/p/9553852.html
Copyright © 2011-2022 走看看