设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[fmalv] 在ALV中用不同语言展示报表数据

Twilight发表于 2014-07-17 10:43Twilight 最后回复于 2014-07-17 10:43 [复制链接] 4415 0

选择屏幕：
in various languages using ALV.png

程序代码：
  1. REPORT  ydamon_011 NO STANDARD PAGE HEADING.
  2. *"Table declarations.......................................................
  3. TABLES:
  4.   mara,
  5.   makt.
  6. *"Type-pools..............................................................
  7. TYPE-POOLS: slis.
  8. *" DATA declarations.......................................................
  9. *"-------------------------------------------------------------------- *
  10. * Data declaration for the internal table to hold the material *
  11. * data   table MARA.                                                    *
  12. *"--------------------------------------------------------------------  *
  13. DATA: BEGIN OF t_mara OCCURS 0,
  14. matnr LIKE mara-matnr,
  15. meins LIKE mara-meins,
  16. mtart LIKE mara-mtart,
  17. END OF t_mara.
  18. *" DATA declarations.......................................................
  19. *"-------------------------------------------------------------------- *
  20. * Data declaration for the internal table to hold the material *
  21. * Descriptions table MAKT.                                              *
  22. *"--------------------------------------------------------------------  *
  23. DATA: BEGIN OF t_makt OCCURS 0,
  24. matnr LIKE mara-matnr,
  25. maktx LIKE makt-maktx,
  26. spras LIKE makt-spras,
  27. END OF t_makt.
  28. *" DATA declarations......................................................
  29. *"--------------------------------------------------------------------*
  30. * Data declaration for the final internal table                        *
  31. *"--------------------------------------------------------------------*
  32. DATA: BEGIN OF t_final OCCURS 0,
  33. matnr LIKE mara-matnr,
  34. meins LIKE mara-meins,
  35. mtart LIKE mara-mtart,
  36. maktx LIKE makt-maktx,
  37. END OF t_final.
  38. *" DATA declarations.....................................................
  39. *"--------------------------------------------------------------------*
  40. * Data declaration for the fieldcat                                     *
  41. *"--------------------------------------------------------------------*
  42. DATA:
  43.   t_fieldcat TYPE slis_t_fieldcat_ALV,
  44.   l_fieldcat TYPE slis_fieldcat_alv,
  45.   t_layout TYPE slis_layout_alv.

  47. *"Selection screen elements............................................
  48. SELECTION-SCREEN BEGIN OF BLOCK blck WITH FRAME.
  49. SELECT-OPTIONS:s_matnr FOR mara-matnr.
  50. SELECTION-SCREEN END OF BLOCK blck.
  51. *"Selection screen elements............................................
  52. SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.
  53. *"Parameters...........................................................
  54. PARAMETERS:
  55.   p_lang LIKE sy-langu.
  56. *"Parameters...........................................................
  57. PARAMETERS:
  58.   p_rd1 RADIOBUTTON GROUP rg1 DEFAULT 'X' USER-COMMAND usr1,
  59.   p_rd2 RADIOBUTTON GROUP rg1,
  60.   p_rd3 RADIOBUTTON GROUP rg1.
  61. SELECTION-SCREEN END OF BLOCK blk.
  62. *"--------------------------------------------------------------------*
  63. *   AT SELECTION-SCREEN OUTPUT                            *
  64. *"--------------------------------------------------------------------*
  65. AT SELECTION-SCREEN OUTPUT.
  66. *"IF p_rd1............................................................
  67.   IF p_rd1 = 'X'.
  68.     p_lang = 'EN'.
  69.   ENDIF.                               " IF p_rad1 = 'X'.
  70. *"IF p_rd2............................................................
  71.   IF p_rd2 = 'X'.
  72.     p_lang = 'DE'.
  73.   ENDIF.                               " IF p_rad2 = 'X'.
  74. *"IF p_rd3............................................................
  75.   IF p_rd3 = 'X'.
  76.     p_lang = 'FR'.
  77.   ENDIF.                               " IF p_rad3 = 'X'.
  78. *"-------------------------------------------------------------------- *
  79. *   START-OF-SELECTION                                                *
  80. *"-------------------------------------------------------------------- *
  81. START-OF-SELECTION.
  82. *"--------------------------------------------------------------------*
  83. * Selection from MARA                                                  *
  84. *"--------------------------------------------------------------------*
  85.   SELECT matnr
  86.   meins
  87.   mtart
  88.   FROM mara
  89.   INTO TABLE t_mara
  90.   WHERE matnr IN s_matnr.
  91. *"--------------------------------------------------------------------*
  92. * Selection From MAKT                                                 *
  93. *"--------------------------------------------------------------------*
  94.   SELECT matnr
  95.   maktx
  96.   spras
  97.   FROM makt
  98.   INTO TABLE t_makt
  99.   FOR ALL ENTRIES IN t_mara
  100.   WHERE matnr = t_mara-matnr
  101.   AND spras = p_lang.
  102. *"LOOP AT t_mara.......................................................
  103.   LOOP AT t_mara.
  104.     t_final-matnr = t_mara-matnr.
  105.     t_final-meins = t_mara-meins.
  106.     t_final-mtart = t_mara-mtart.
  107.     READ TABLE t_makt WITH KEY matnr = t_mara-matnr.
  108.     t_final-maktx = t_makt-maktx.
  109.     APPEND t_final.
  110.     CLEAR  t_final.
  111.   ENDLOOP.
  112. *&--------------------------------------------------------------------*
  113. *&      Subroutines for the data display...                           *
  114. *&--------------------------------------------------------------------*
  115.   PERFORM t_fieldcat.
  116.   PERFORM reuse_alv.
  117. *&---------------------------------------------------------------------*
  118. *&      Form  T_FIELDCAT                                               *
  119. *&---------------------------------------------------------------------*
  120. *  This Subroutine fill the fieldcatlog with the necessary        *
  121. * fields..                                                               *
  122. *----------------------------------------------------------------------  *
  123. * There are no interface parameters to be passed to this s       *
  124. * Subroutine.                                                            *
  125. *----------------------------------------------------------------------  *
  126. FORM t_fieldcat .
  127.   PERFORM fill_field USING 'MATNR' 'Material Number'.
  128.   PERFORM fill_field USING 'MEINS' 'Base Unit of Measure'.
  129.   PERFORM fill_field USING 'MTART' 'Material Type'.
  130.   PERFORM fill_field USING 'MAKTX' 'Material Description'.
  131. ENDFORM.                    "T_FIELDCAT
  132. *&---------------------------------------------------------------------*
  133. *&      Form  FILL_FIELD
  134. *&---------------------------------------------------------------------*
  135. *      This subroutine specifies the data for the fieldcatlog
  136. *----------------------------------------------------------------------*
  137. *  -->  p1        fieldname                                            *
  138. *  <--  p2        seltext                                              *
  139. *----------------------------------------------------------------------*
  140. FORM fill_field USING   p_fieldname
  141.                         p_seltext.
  142.   l_fieldcat-fieldname  = p_fieldname.
  143.   l_fieldcat-tabname    = 'T_FINAL'.
  144.   l_fieldcat-seltext_m  = p_seltext.
  145.   APPEND l_fieldcat TO t_fieldcat.
  146.   CLEAR l_fieldcat.
  147. ENDFORM.                    " FILL_FIELD
  148. *&---------------------------------------------------------------------*
  149. *&      Form  REUSE_ALV
  150. *&---------------------------------------------------------------------*
  151. * This Subroutine to call the function module                        *
  152. * REUSE_ALV_GRID_DISPLAY                                        *
  153. *---------------------------------------------------------------------- *
  154. * There are no interface parameters to be passed to this         *
  155. * Subroutine.                                                           *
  156. *----------------------------------------------------------------------*
  157. FORM reuse_alv .
  158.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  159.     EXPORTING
  160.       is_layout     = t_layout
  161.       it_fieldcat   = t_fieldcat
  162.     TABLES
  163.       t_outtab      = t_final
  164.     EXCEPTIONS
  165.       program_error = 1
  166.       OTHERS        = 2.
  167.   IF sy-subrc <> 0.
  168. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  169. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  170.   ENDIF.
  171. ENDFORM.                    " REUSE_ALV
复制代码

alv, Language

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 840 主题
  2. 125 回帖
  3. 10823 积分
收听TA 发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-5-22 08:21 , Processed in 0.059383 second(s), 9 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表