显示企业用到的IMG

最新推荐文章于 2024-08-12 21:26:58 发布

cixian4909

最新推荐文章于 2024-08-12 21:26:58 发布

阅读量85

点赞数

------------------------------------------------------------------*
*& Report  ZMYTEST009
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZMYTEST009.
Tables:TTREE,TTREET .
Data :begin of ZTypeIMG ,
         id like TTREE-ID,
         text like TTREET-TEXT,
       end of ZTypeIMG .
Data:ZitabIMG like ZTypeIMG occurs 0 with header line,
     ZLinIMG  like ZTypeIMG.

Data: ZFLDNAME  like DD01L-DOMNAME,
      ZFLDVALUE like TTREET-TEXT.
*** Read IMG Strucutre ID
Refresh ZitabIMG.
select a~ID b~Text
  into table  ZitabIMG
  from TTREE as a
  LEFT OUTER JOIN TTREET as b on a~ID = b~ID
  and b~SPRAS = SY-LANGU
  Where a~TYPE = 'IMG' .
*** Write Struture ID to Screen
uline at /1(79).
Loop at ZitabIMG.
  write :/1  '|',ZitabIMG-TEXT,'|'.
  uline at /1(79).
endloop.
uline at /1(79).

AT LINE-SELECTION.
  clear:ZlinIMG,ZFLDNAME, ZFLDVALUE .
  GET CURSOR FIELD ZFLDNAME VALUE ZFLDVALUE .
  if ZFLDNAME = 'ZITABIMG-TEXT' .
    Perform. EXEIMG .
  endif.
Form. EXEIMG.
***Display IMG Structure
  READ TABLE ZitabIMG into ZlinIMG WITH KEY TEXT = ZFLDVALUE.
  CALL FUNCTION 'STREE_EXTERNAL_DISPLAY'
       EXPORTING
            STRUCTURE_ID = ZlinIMG-ID
            LANGUAGE     = SY-LANGU.
ENDFORM.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/9633129/viewspace-536597/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/9633129/viewspace-536597/