SAP应用界面开发:3)SELECTION-SCREEN对象(4)

简介: 前面几篇文章已经学习了ABAP中SELECTION-SCREEN的大部分对象,既然是大部分对象,那么还遗留有小部分对象还未接触,接下来我们将继续学习。      (1)SELECTION-SCREEN COMMONT fmt name.      用于定义或者修改本地元素的注释,包括PARAMETER、CHECKBOX BUTTON等。

      前面几篇文章已经学习了ABAP中SELECTION-SCREEN的大部分对象,既然是大部分对象,那么还遗留有小部分对象还未接触,接下来我们将继续学习。

     (1)SELECTION-SCREEN COMMONT fmt name.
      用于定义或者修改本地元素的注释,包括PARAMETER、CHECKBOX BUTTON等。通过SELECTION-SCREEN COMMENT语法可以按Text Symbols设置的值对其属性重新定义。
      [For Example]

   SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT (12) TEXT-W03 FOR FIELD parm.
    SELECTION-SCREEN POSITION 14.
    PARAMETERS parm LIKE MARA-MATNR.
   SELECTION-SCREEN END OF LINE.

   SELECTION-SCREEN SKIP 1.
   SELECTION-SCREEN BEGIN OF LINE.
     PARAMETERS:type AS CHECKBOX.
     SELECTION-SCREEN COMMENT (40) TEXT-W04 FOR FIELD type.
   SELECTION-SCREEN END OF LINE.
   Text-Symbols设置如下:
  

   程序运行界面如下:
  

   (2)SELECTION-SCREEN FUNCTION KEY n.
   该对象用于在工具栏上新增一个功能按钮。该按钮的定义保存在系统结构体SSCRFIELDS中,n为一个整数序数最大至5。不要试图让它小于1或者大于5,它不接受这个范围。也就是说工具栏按钮最多可以放5个(whereby a value between 1 and 5 must be entered for n)。当n等于1时,其按钮描述保存在字段SSCRFIELDS-FUNCTXT_01中,其按钮对象命名为
"FC01",保存在字段SSCRFIELDS-UCOMM中,以下为示例代码:
    [For Example]

    PARAMETERS para LIKE MARA-MATNR.
    TABLES: SSCRFIELDS.
    SELECTION-SCREEN FUNCTION KEY 1.
    SELECTION-SCREEN FUNCTION KEY 2.
    SELECTION-SCREEN FUNCTION KEY 5.

    INITIALIZATION.  "初始公屏幕时,就给它们一些值吧,让它们看起来更像是个按钮,按钮也需要有尊严的活着。

       MOVE 'Add BUTTON' TO SSCRFIELDS-FUNCTXT_01.
       MOVE 'Minus BUTTON' TO SSCRFIELDS-FUNCTXT_02.
       MOVE 'MODIFY BUTTON' TO SSCRFIELDS-FUNCTXT_05.
 
    AT SELECTION-SCREEN.
      IF SSCRFIELDS-UCOMM = 'FC05'"触发 FC05工具栏按钮,将要执行什么操作
        CALL SELECTION-SCREEN 1234."调用程序中的子屏幕
      ENDIF.

    运行界面如下:
   
   

    以下代码来自官方网站上面的例子:

   *官方菜单SELECTION-SCREEN FUNCTION KEY n (demo:http://help.sap.com/abapdocu_70/en/ABAPSELECTION-SCREEN_FUNCTIONKEY.htm)
   TYPE-POOLS ICON. "Program Icon Library
   TABLES SSCRFIELDS.
   DATA functxt TYPE SMP_DYNTXT. "SMP_DYNTXT(菜单制作器:动态文本的程序接口)

   PARAMETERS: p_carrid TYPE s_carr_id,
               p_cityfr TYPE s_from_cit.
   SELECTION-SCREEN: FUNCTION KEY 1,
                     FUNCTION KEY 2.
  

   INITIALIZATION. "屏幕初始化
     functxt-icon_id   = icon_ws_plane.  "文本字段中的图标(替换显示,别名) 
     functxt-quickinfo = 'Preselected Carrier'.  "菜单制作器:信息文本 (4.0),滑鼠移去过去显示的信息TIP
     functxt-icon_text = 'LH'.  "菜单制作器:图标文本 (4.0),菜单名称
     sscrfields-functxt_01 = functxt.
     functxt-icon_text = 'UA'.
     sscrfields-functxt_02 = functxt.
  
   AT SELECTION-SCREEN.
    CASE SSCRFIELDS-UCOMM.
      WHEN 'FC01'.
        p_carrid = 'LH'.
        p_cityfr = 'Frankfurt'.
      WHEN 'FC02'.
        p_carrid = 'UA'.
        p_cityfr = 'Chicago'.
   ENDCASE.
   运行界面如下:
  
   

  
(3)SELECTION-SCREEN BEGIN OF TABBED BLOCK <block> FOR n LINES.
    定义选项卡或者其他类似于选择页切换的功能组件。具体语法如下:
   [Syntax]
   SELECTION-SCREEN: BEGIN OF TABBED BLOCK <sub_area> FOR n LINES,
                     [......]
                     END OF BLOCK <sub_area>.
   其中 n代表高度,此高度为选择控件的高度。
   例1:
   [Code]

   TABLES:MARA.
   *定义子屏幕100 SUBSCREEN
   SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
     SELECTION-SCREEN BEGIN OF BLOCK blockA WITH FRAME TITLE TEXT-W01.
      SELECT-OPTIONS:mantra FOR MARA-MATNR NO INTERVALS.
      SELECTION-SCREEN SKIP 1.
      PARAMETERS: check01 AS CHECKBOX DEFAULT 'X'.
     SELECTION-SCREEN END OF BLOCK blockA.
   SELECTION-SCREEN END OF SCREEN 100.

   *定义子屏幕200 SUBSCREEN
   SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
    PARAMETERS: mantrb LIKE MARA-MATNR.
   SELECTION-SCREEN END OF SCREEN 200.
  
   *选择页TAB功能,定义两个TAB
   SELECTION-SCREEN:
    BEGIN OF TABBED BLOCK MyTab FOR LINES,
     TAB (20) BUTTON1 USER-COMMAND PUSH1,  *(20)代表要显示在TAB内容的长度,最大长度为79,不相信?你可以试下.哈哈
     TAB (20) BUTTON2 USER-COMMAND PUSH2,
    END OF BLOCK MyTab.

   INITIALIZATION.
    BUTTON1 = 'FirstTab'.
    BUTTON2 = 'SecondTab'.
    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'.
    ENDCASE.
    运行界面如下:
   
    

    例2:
    [CODE] The Official Demo

    TABLES SSCRFIELDS.
    * SUBSCREEN 100
    SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
     SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-010.
      PARAMETERS: p1(10) TYPE c,
                 p2(10) TYPE c,
                 p3(10) TYPE c.
     SELECTION-SCREEN END OF BLOCK b1.
    SELECTION-SCREEN END OF SCREEN 100.

    * SUBSCREEN 200
    SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
     SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-020.
      PARAMETERS: q1(10) TYPE c,
                  q2(10) TYPE c,
                  q3(10) TYPE c.
     SELECTION-SCREEN END OF BLOCK b2.
    SELECTION-SCREEN END OF SCREEN 200.

    * SUBSCREEN 300
    SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
     SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-030.
      PARAMETERS: r1(10) TYPE c,
                  r2(10) TYPE c,
                  r3(10) TYPE c.
     SELECTION-SCREEN END OF BLOCK b3.
    SELECTION-SCREEN END OF SCREEN 300.

   * STANDARD SELECTION SCREEN
   SELECTION-SCREEN: FUNCTION KEY 1, "工具栏按钮
                     FUNCTION KEY 2.

   SELECTION-SCREEN: BEGIN OF TABBED BLOCK sub FOR 10 LINES,
                     END OF BLOCK sub.

   INITIALIZATION.
     sscrfields-functxt_01 = '@0D@'"按钮描述字段,图标形貌
     sscrfields-functxt_02 = '@0E@'"按钮描述字段,图标形貌
     sub-prog = SY-REPID. "必选项,倔强的孩子.
     sub-dynnr = 100.

   AT SELECTION-SCREEN.
    CASE SY-DYNNR. "当前显示屏幕的名称
     WHEN 100.
      IF SSCRFIELDS-UCOMM = 'FC01'"触发事件的TOOL BAR CONTROL
        sub-dynnr = 300.  "指定显示哪个屏幕
      ELSEIF SSCRFIELDS-UCOMM = 'FC02'.
        sub-dynnr = 200.
      ENDIF.
    WHEN 200.
      IF SSCRFIELDS-UCOMM = 'FC01'.
        sub-dynnr = 100.
      ELSEIF SSCRFIELDS-UCOMM = 'FC02'.
        sub-dynnr = 300.
      ENDIF.
    WHEN 300.
      IF SSCRFIELDS-UCOMM = 'FC01'.
        sub-dynnr = 200.
      ELSEIF SSCRFIELDS-UCOMM = 'FC02'.
        sub-dynnr = 100.
      ENDIF.
  ENDCASE.

  START-OF-SELECTION.
   WRITE: / 'P1:', p1,'Q1:', q1, 'R1:', r1,
          / 'P2:', p2,'Q2:', q2, 'R2:', r2,
          / 'P3:', p3,'Q3:', q3, 'R3:', r3.
  运行界面如下:
 

目录
相关文章
|
4月前
|
Linux C++ Windows
【Azure 应用服务】Azure App Service(Windows)环境中如何让.NET应用调用SAP NetWeaver RFC函数
【Azure 应用服务】Azure App Service(Windows)环境中如何让.NET应用调用SAP NetWeaver RFC函数
【Azure 应用服务】Azure App Service(Windows)环境中如何让.NET应用调用SAP NetWeaver RFC函数
|
4月前
数字化核心构建问题之SAP为应用软件扎根客户打基础如何解决
数字化核心构建问题之SAP为应用软件扎根客户打基础如何解决
29 0
|
SQL 设计模式 前端开发
【置顶】SAP ABAP开发实战——从入门到精通系列目录
本文章为SAP ABAP开发实战——从入门到精通系列的目录以及关于该教程的后续写作计划表
1615 0
【置顶】SAP ABAP开发实战——从入门到精通系列目录
SAP 金额转中文大写自开发函数
关于凭证打印时需将金额转换成中文大写
120 0
|
BI
SAP ABAP在线预览文档对象的开发实现
应用场景:有些定制化开发(报表/功能增强等)完成之后,客户需要将其操作手册或者相关文档放在某个报表的初始画面,供实际操作者在线查阅,当然这个功能也同样类似于模板的下载,这里就以在线预览(直接打开)为例进行说明。
225 0
SAP DALOG开发-代码触发回车事件
对于指定输入框:触发屏幕回车事件
239 0
|
开发者
SAP MM/FI_运费处理方式
常见的采购运费处理方式
SAP MM 途损处理方式
通常客户采购业务需求提到货物运输有损耗,需要针对此业务给出合理方案输出,下面笔者针对此类业务分析下各种实现方案的可行性!