ABAP选择屏幕页标签的复习

原创 2015年07月08日 11:25:24
*&---------------------------------------------------------------------*
*& Report  ZTEST_TAB
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_TAB.
TABLES MARA.
                                                            "定义子屏幕 100
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECT-OPTIONSS_FG1 FOR MARA-MATNR.
SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECT-OPTIONSS_FG2 FOR MARA-MATNR.
SELECTION-SCREEN END OF SCREEN 200.

SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
SELECT-OPTIONSS_RAW FOR MARA-MATNR.
SELECTION-SCREEN END OF SCREEN 300.

"定义一个TAB空间, 取名为MYTAB, 控件高2行, 共分为三个页签.
"三个页签的功能代码分别为push1, push2, push3.
SELECTION-SCREENBEGIN OF TABBED BLOCK MYTAB FOR LINES,
  TAB (25BUTTON1 USER-COMMAND PUSH1,
  TAB (25BUTTON2 USER-COMMAND PUSH2,
  TAB (25BUTTON3 USER-COMMAND PUSH3,
END OF BLOCK MYTAB.

"为TAB控件分配初始化值

INITIALIZATION.
  BUTTON1 TEXT-010.
  BUTTON2 TEXT-020.
  BUTTON3 TEXT-030.
  MYTAB-PROG SY-REPID.
  MYTAB-DYNNR 100.

  "为控件页签单击事件, 选择不同页签显示不同子屏幕.

AT SELECTION-SCREEN.
  CASE SY-UCOMM.
    WHEN 'PUSH1'.
      MYTAB-DYNNR 100.
      MYTAB-ACTIVETAB 'BUTTON1'.
    WHEN 'PUSH2'.
      MYTAB-DYNNR 200.
      MYTAB-ACTIVETAB 'BUTTON2'.
    WHEN 'PUSH3'.
      MYTAB-DYNNR 300.
      MYTAB-ACTIVETAB 'BUTTON3'.
  ENDCASE.

  "处理各个屏幕的触发

START-OF-SELECTION.
  IF MYTAB-DYNNR 100.
*    PERFORM GET_FG1.
  ELSEIF MYTAB-DYNNR 200.
*    PERFORM GET_FG2.
  ELSEIF MYTAB-DYNNR 300.
*    PERFORM GET_MATNR.
  ENDIF.
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

ABAP 给选择屏幕添加按钮

效果如图: CODE: REPORT Z_WUWEI_0009. TABLES SSCRFIELDS. SELECTION-SCREEN: ULINE /1(83...

abap多标签页实现(tabstrip)

如图: 可以通过画屏幕即call screen或者纯代码实现。以下代码为纯代码实现方式 data flag(1) type c. * SUBSCREEN 1 selection-sc...

ABAP选择屏幕建议

选择屏幕是用户使用报表等大多数程序的第一步,选择屏幕的显示、操作非常丰富,看似简单,但是若不加以统一,一个项目中的程序将会是五花八门。为了改进用户体验,我在写程序的第一部,规范了选择屏幕的定义,设想如...

ABAP 选择屏幕下拉框-listbox

主要代码: *------------------------------------------------------------------------------* * ...

ABAP选择屏幕的例子

下面是一个典型的选择屏幕的典型例子. 1.设置选择屏幕参数. ***begin(end) of block使用屏幕元素逻辑块. SELECTION-SCREEN BEGIN OF BLOC...

ABAP标准列表和选择屏幕

  • 2013-04-25 09:39
  • 606KB
  • 下载

abap (屏幕)表格控制器

在网上看了很多关于这个表格控制器的用法,感觉很多人分享的文章时编辑不太严谨,自己尝试时会出现很多错误,所以现在自己分享一个详细的关于屏幕表格控制器的用法。 1.建立程序和屏幕. 第一步,老生常...

ABAP屏幕基础

Select语句的使用 关键字into后可以加 structure(结构体), internal table(内表) 和 fieldlist(字段列表)     Authority 权限  ...

ABAP DYNP_VALUES_UPDATE 更新屏幕字段的函数及用法

ABAP更新屏幕字段的函数及用法
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)