MB52增强

一、在MB52报表中新增字段

实现如图效果

二、增强实现

MB52程序为RM07MLBS，在程序中找到定义的内表结构bestand，在最后创建隐式增强，加入增强字段，该内表为将来展示的ALV数据

设置ALV列，在子例程最后创建隐式增强，加入列字段，在子例程fieldcatalog和f0300_fieldcat_flat中都添加

form fieldcatalog.

"-----------------------------------------@斌将军--------------------------------------------
"-----------------------------fieldcatalog-------------------------------
ENHANCEMENT 2  ZMB52.    "active version
  CLEAR fieldcat.
  fieldcat-fieldname     = 'ZKHMC'.
  fieldcat-seltext_l = fieldcat-seltext_s     =  fieldcat-seltext_m     = '客户名称'.
  APPEND fieldcat.

    CLEAR fieldcat.
  fieldcat-fieldname     = 'POST1'.
  fieldcat-seltext_l = fieldcat-seltext_s     =  fieldcat-seltext_m     = 'WBS名称'.
  APPEND fieldcat.

    CLEAR fieldcat.
  fieldcat-fieldname     = 'PSPHI'.
  fieldcat-seltext_l = fieldcat-seltext_s     =  fieldcat-seltext_m     = '项目号'.
  APPEND fieldcat.

    CLEAR fieldcat.
  fieldcat-fieldname     = 'ZXMMC'.
  fieldcat-seltext_l = fieldcat-seltext_s     =  fieldcat-seltext_m     = '项目名称'.
  APPEND fieldcat.

ENDENHANCEMENT.

*$*$-End:   (2)---------------------------------------------------------------------------------$*$*
ENDFORM.                               " FELDKATALOG_AUFBAUEN
"-----------------------------------------@斌将军--------------------------------------------

form f0300_fieldcat_flat.

"-----------------------------------------@斌将军--------------------------------------------
"-----------------------------f0300_fieldcat_flat-----------------------
        fieldcat-seltext_l     = '客户名称'.
        macro_fill_fieldcat 'ZKHMC'  ''   c_out.
        fieldcat-seltext_l     = 'WBS名称'.
        macro_fill_fieldcat 'POST1'  ''   c_out.
        fieldcat-seltext_l     = '项目号'.
        macro_fill_fieldcat 'PSPHI'  ''   c_out.
        fieldcat-seltext_l     = '项目名称'.
        macro_fill_fieldcat 'ZXMMC'  ''   c_out.
ENDENHANCEMENT.
*$*$-End:   (4)---------------------------------------------------------------------------------$*$*
ENDFORM.                     "f0300_fieldcat_flat
"-----------------------------------------@斌将军--------------------------------------------

获取数据，在子例程list_output中加入隐式增强，查询字段的数据

"-----------------------------------------@斌将军--------------------------------------------
FORM list_output.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(3) Form LIST_OUTPUT, Anfang                                                                                                                          A
*$*$-Start: (3)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 3  ZMB52.    "active version
  data:l_index type i.
  DATA:LT_CHAR TYPE TABLE OF BAPI1003_ALLOC_VALUES_CHAR WITH HEADER LINE.
  IF bestand[] IS NOT INITIAL.
    SELECT
      KUNNR,
      NAME1
    FROM KNA1
    INTO TABLE @DATA(LT_KNA1)
    FOR ALL ENTRIES IN @bestand
    WHERE KUNNR = @bestand-KUNNR.

    SELECT
      PRPS~PSPNR,
      PRPS~POST1,"WBS名称
      PRPS~PSPHI,"项目号
      PROJ~POST1 AS ZXMMC"项目名称
    FROM PRPS
    INNER JOIN PROJ ON PRPS~PSPHI = PROJ~PSPNR
    INTO TABLE @DATA(LT_PRPS)
    FOR ALL ENTRIES IN @bestand
    WHERE PRPS~PSPNR = @bestand-PSPNR.
  ENDIF.

  LOOP AT bestand  .
    l_index = sy-tabix.

    "客户名称
    READ TABLE lt_kna1 INTO DATA(ls_kna1) WITH KEY kunnr = bestand-kunnr.
    IF sy-subrc EQ 0.
      bestand-zkhmc = ls_kna1-name1.
    ENDIF.

    READ TABLE LT_PRPS INTO DATA(LS_PRPS) WITH KEY PSPNR = bestand-PSPNR.
    IF SY-SUBRC EQ 0.
      bestand-POST1 = LS_PRPS-POST1.
      bestand-PSPHI = LS_PRPS-PSPHI.
      bestand-ZXMMC = LS_PRPS-ZXMMC.
    ENDIF.

    MODIFY bestand INDEX l_index.
  ENDLOOP.

ENDENHANCEMENT.
*$*$-End: (3)---------------------------------------------------------------------------------$*$*

* set pf-status 'STANDARD'.

ENHANCEMENT-SECTION rm07mlbs_09 SPOTS es_rm07mlbs.

"-----------------------------------------@斌将军--------------------------------------------

定期更文，欢迎关注

 

 

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

 

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back

 

 

此页面的语言为英语

 

翻译为中文（简体）

 

 

 

 

• 中文（简体）
• 中文（繁体）
• 丹麦语
• 乌克兰语
• 乌尔都语
• 亚美尼亚语
• 俄语
• 保加利亚语
• 克罗地亚语
• 冰岛语
• 加泰罗尼亚语
• 匈牙利语
• 卡纳达语
• 印地语
• 印尼语
• 古吉拉特语
• 哈萨克语
• 土耳其语
• 威尔士语
• 孟加拉语
• 尼泊尔语
• 布尔语(南非荷兰语)
• 希伯来语
• 希腊语
• 库尔德语
• 德语
• 意大利语
• 拉脱维亚语
• 挪威语
• 捷克语
• 斯洛伐克语
• 斯洛文尼亚语
• 旁遮普语
• 日语
• 普什图语
• 毛利语
• 法语
• 波兰语
• 波斯语
• 泰卢固语
• 泰米尔语
• 泰语
• 海地克里奥尔语
• 爱沙尼亚语
• 瑞典语
• 立陶宛语
• 缅甸语
• 罗马尼亚语
• 老挝语
• 芬兰语
• 英语
• 荷兰语
• 萨摩亚语
• 葡萄牙语
• 西班牙语
• 越南语
• 阿塞拜疆语
• 阿姆哈拉语
• 阿尔巴尼亚语
• 阿拉伯语
• 韩语
• 马尔加什语
• 马拉地语
• 马拉雅拉姆语
• 马来语
• 马耳他语
• 高棉语

 

随时将英语翻译为中文（简体）PRO
一律不翻译英语
一律不翻译i.cnblogs.com