首页 > 其他分享 >SAP 实例- 页签tabsrip

SAP 实例- 页签tabsrip

时间:2022-10-27 10:15:15浏览次数:47  
标签:tabsrip tab1 WHEN 实例 pressed tab tab100 SAP ucomm

abap screen中,不管是控件标签条是否含向导创建的标签,后续如果要新增页签是不需要删了重画,只需要添加即可:https://www.cnblogs.com/JackeyLove/p/13576291.html?ivk_sa=1024320u

本质上添加页签就是在之前存在的页签上增加一个按钮功能码参考字段要和以前的一样

*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TAB100'
CONSTANTS: BEGIN OF c_tab100,
             tab1 LIKE sy-ucomm VALUE 'TAB100_FC1',
             tab2 LIKE sy-ucomm VALUE 'TAB100_FC2',
             tab3 LIKE sy-ucomm VALUE 'TAB100_FC3', “ADD
           END OF c_tab100.

MODULE tab100_active_tab_set OUTPUT.  
  tab100-activetab = g_tab100-pressed_tab.  
  CASE g_tab100-pressed_tab.
    WHEN c_tab100-tab1.      
      g_tab100-subscreen = '0101'.
    WHEN c_tab100-tab2.      
      g_tab100-subscreen = '0102'.
    WHEN c_tab100-tab3.      
      g_tab100-subscreen = '0103'."ADD    
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING  
    ENDCASE.
ENDMODULE.

MODULE tab100_active_tab_get INPUT.  
  ok_code = sy-ucomm.  
  CASE ok_code.
    WHEN c_tab100-tab1.      
      g_tab100-pressed_tab = c_tab100-tab1.
    WHEN c_tab100-tab2.     
      g_tab100-pressed_tab = c_tab100-tab2.
    WHEN c_tab100-tab3.
      g_tab100-pressed_tab = c_tab100-tab3.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING  
    ENDCASE.
ENDMODULE.

 

标签:tabsrip,tab1,WHEN,实例,pressed,tab,tab100,SAP,ucomm
From: https://www.cnblogs.com/seven1314pp/p/16831146.html

相关文章