• 时间:
  • 分类: SAP

原文链接：https://blog.csdn.net/wtxhai/article/details/90698683

1.2、SAP屏幕框架的创建
        SAP页面设计中的框架不但可以保证SAP程序外观设计的美观大方，并可以提供诸如按钮，页签等功能组件。
1.2.1、创建包含文本的基本框架
        基本框架的创建语法如下：
        SELECTION-SCREEN BEGIN OF BLOCK block [ WITH FRAME [ TITLE title ] ] [ NO INTERVALS ]. “限制所创建的框架只有一个输入项”
        SELEDTION-SCREEN END OF BLOCK block.

 

 

 

     1.2.2、实现屏幕元素质检的换行
    通过在框架结构中嵌入代码：SELECTION-SCREEN SKIP [ n ]，能实现屏幕元素间的换行，n表示换行数目。

 

 

 

     1.2.3、在屏幕上输出直线
         通过语句SELECTION-SCREEN ULINE 1(79) [ / ][ pos ] ( len )可以实现在屏幕上画出一条直长度直线，其中[ / ]表示换行，[ pos ]表示直线起始的位置，（ len ）表示长度。

 

 

    1.2.4、在屏幕上输出自定义文本及图表
    SELECTION-SCREEN BEGION OF LINE.
   SELECTION-SCREEN COMMENT [ / ] [ pos ] ( len ) text. "len限制输入文本的长度
    SELECTION-SCREEN END OF LINE.

 

 

     1.2.5、在屏幕中实现按钮效果
     很多桌面程序的设计习惯通过按钮来实现与用户动作的交互。在SAP选择开发中也可以实现按钮功能。
     SELECTION-SCREEN PUSHBUTTON [ \ ] [ pos ] ( len ) button_text  "按钮的位置
                                                                                USER-COMMAND fcode      "为按钮分配事件功能代码
                                                                               [ VISIBLE LENGTH vlen ]      "输出长度
                                                                               [ MODIFY ID modid ]               "编辑组ID号码
    1.2.9、在屏幕上创建页签
      SAP允许直接通过ABAP代码在屏幕上创建一个页签。
      语法：SELECTION-SCREEN BEGIN OF TABBED BLOCK <block> FOR n LINES
      每个页签都是由一个单独的子屏幕控制，n代表分页控件的高度，屏幕载入时必须先通过INITIALIZATION事件对其初始化。

*&---------------------------------------------------------------------**& Report ZTEST_SELECTION_SCREEN*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*
REPORTztest_selection_screen.TABLES: mara.SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.  "定义子屏幕100
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE TEXT-001.SELECT-OPTIONS : mat1 FOR mara-matnr NO INTERVALS.SELECTION-SCREEN SKIP 1.PARAMETERS chk1 AS CHECKBOX DEFAULT 'X'.SELECTION-SCREEN END OF BLOCKa1.SELECTION-SCREEN END OF SCREEN 100.*定义子屏幕200
SELECTION-SCREEN BEGIN OF SCREEN 200AS SUBSCREEN.PARAMETERS : mat2 LIKE mara-matnr.SELECTION-SCREEN END OF SCREEN 200.*定义一个TAB空间，取名为MYTAB，空间高度为5，共分为两个页签，BUTTON1,BUTTON2.*两个也签的功能代码分别为PUSH1，PUSH2
SELECTION-SCREEN : BEGIN OF TABBED BLOCK mytab FOR 5 LINES,

    TAB (20) button1 USER-COMMANDpush1,

    TAB (20) button2 USER-COMMANDpush2,END OF BLOCKmytab.*为TAB控件分配初始化值，引用TEXT element定义为本
INITIALIZATION.

  button1= TEXT-010.

  button2= TEXT-020.

  mytab-prog = sy-repid.

  mytab-dynnr = 100.*为TAB控件页签单击事件，选择不同的页签显示不同的子屏幕
AT SELECTION-SCREEN.CASE sy-ucomm.

    WHEN'PUSH1'.

      mytab-dynnr = 100.

      mytab-activetab = 'BUTTON1'.

    WHEN'PUSH2'.

      mytab-dynnr = 200.

      mytab-activetab = 'BUTTON2'.ENDCASE.

标签: none

添加新评论