QA32增强

一、QA32报表新增字段

二、QA32报表程序RQEEAL10

结构增加字段，该结构就是报表展示字段列的结构

表新增字段

找到报表展示的子例程

找到程序RQEEAL10，子例程中新增隐式增强

隐式增强参考代码

"-----------------------------------------@斌将军--------------------------------------------
ENHANCEMENT 1  Z101.    "active version

DATA:LS_TAB LIKE LINE OF OBJECT_TAB.
DATA:TMP_NAME TYPE THEAD-TDNAME.
DATA:LT_LINE TYPE STANDARD TABLE OF TLINE,
     LS_LINE TYPE TLINE.
LOOP AT P_OBJECT_TAB INTO LS_TAB.
      IF SY-TCODE = 'QA32' OR SY-TCODE = 'QA33'.
        SELECT SINGLE
          MARA~MATKL

          T023T~WGBEZ
        FROM MARA
        LEFT JOIN T023T ON MARA~MATKL = T023T~MATKL AND T023T~SPRAS = SY-LANGU
        INTO CORRESPONDING FIELDS OF LS_TAB
        WHERE MARA~MATNR = LS_TAB-MATNR.

        SELECT SINGLE
          NAME1
        FROM LFA1
        INTO CORRESPONDING FIELDS OF LS_TAB
        WHERE LIFNR = LS_TAB-LIFNR.
      ENDIF.
    MODIFY P_OBJECT_TAB FROM LS_TAB." TRANSPORTING EBELN_TEXT ZJGH ZLPH ZZBSH ZCLPH ZCJH ZVENDOR ZSCCJ ZGDH.
    CLEAR LS_TAB.
ENDLOOP.
ENDENHANCEMENT.
"-----------------------------------------@斌将军--------------------------------------------

需要将新增的栏位设置到布局中并保存，下次进入显示默认布局带出新增字段

如果未保存布局，查询出报表之后，再显示新增字段，发现字段没有值

如果想在ALV展示之后，再放开字段并保证有值，就要找到更改布局时，调用的子例程

在子例程的最后，加上查询逻辑

"-----------------------------------------@斌将军--------------------------------------------
ENHANCEMENT 2  ZNHMME00101.    "active version
*                     \PR:RQEEAL10\FO:CALL_LISTVIEWER_F14\SE:
DATA:h_fieldcat_wa TYPE slis_fieldcat_alv.

DATA:LS_TAB LIKE LINE OF OBJECT_TAB.
DATA:TMP_NAME TYPE THEAD-TDNAME.
DATA:LT_LINE TYPE STANDARD TABLE OF TLINE,
     LS_LINE TYPE TLINE.
LOOP AT object_tab INTO LS_TAB.
      IF SY-TCODE = 'QA32' OR SY-TCODE = 'QA33'.
        SELECT SINGLE
          MARA~MATKL

          T023T~WGBEZ
        FROM MARA
        LEFT JOIN T023T ON MARA~MATKL = T023T~MATKL AND T023T~SPRAS = SY-LANGU
        INTO CORRESPONDING FIELDS OF LS_TAB
        WHERE MARA~MATNR = LS_TAB-MATNR.

        SELECT SINGLE
          NAME1
        FROM LFA1
        INTO CORRESPONDING FIELDS OF LS_TAB
        WHERE LIFNR = LS_TAB-LIFNR.
      ENDIF.
    MODIFY object_tab FROM LS_TAB." TRANSPORTING EBELN_TEXT ZJGH ZLPH ZZBSH ZCLPH ZCJH ZVENDOR ZSCCJ ZGDH.
    CLEAR LS_TAB.
ENDLOOP.
ENDENHANCEMENT.
"-----------------------------------------@斌将军--------------------------------------------

这样，即使进入时没有该字段，更改布局后，还是可以将字段值带出

定期更文，欢迎关注

 

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