屏幕选择条件处理的小例子

最新推荐文章于 2024-03-08 10:48:33 发布

SAPHOME

最新推荐文章于 2024-03-08 10:48:33 发布

阅读量1k

点赞数

文章标签： parameters radiobutton report object exe c

本文链接：https://blog.csdn.net/SAPHOME/article/details/1839929

版权

*&---------------------------------------------------------------------*
*& Report ZSCCE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSCCE.
SELECTION-SCREEN BEGIN OF BLOCK status WITH FRAME TITLE text-007."状态
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 25(15) text-012 FOR FIELD status5.
PARAMETERS: status5 AS CHECKBOX DEFAULT 'X'. "4.维修单一级关闭
SELECTION-SCREEN COMMENT 50(15) text-013 FOR FIELD status6.
PARAMETERS: status6 AS CHECKBOX DEFAULT 'X'. "4.维修单二级关闭
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK status.
*－－－－－－－下拉的例子－－－－－－
PARAMETERS p_carrid(2) TYPE C
                    AS LISTBOX VISIBLE LENGTH 20
                    DEFAULT '40'.
*---------手工指定F4帮助-------
PARAMETERS carrid TYPE s_carr_id
           MATCHCODE OBJECT demo_f4_de.

*－－－－显示其它控制的例子－－－－－－
实例1：
PARAMETERS show_all AS CHECKBOX USER-COMMAND flag.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p1(10) TYPE c,
p2(10) TYPE c,
p3(10) TYPE c.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS: p4(10) TYPE c MODIF ID bl2,
p5(10) TYPE c MODIF ID bl2,
p6(10) TYPE c MODIF ID bl2.
SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF show_all <> 'X' AND
       screen-group1 = 'BL2'."需要隐藏的内容
       screen-active = '0'."隐藏，1是显示
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
实例2：
tables: mbew. "物料评估

selection-screen begin of block b1 with frame title text-001.
parameters: p_bukrs like bkpf-bukrs default '1000' obligatory,
*            p_werks like mseg-werks default '1000',
            p_gjahr like bkpf-gjahr default sy-datum(4) obligatory,
            p_monat like bkpf-monat default sy-datum+4(2) obligatory.
select-options: s_matnr for mbew-matnr.
parameters: r_front radiobutton group exe default 'X'.
parameters: r_back radiobutton group exe.
selection-screen end of block b1.

selection-screen begin of block b2 with frame title text-002.
parameters: r_view radiobutton group typ user-command scr default 'X'.
parameters: r_pass radiobutton group typ.
selection-screen end of block b2.

*******有选择性的输入
at selection-screen output.
loop at screen .
    if screen-name cs 'R_FRONT' or screen-name cs 'R_BACK'
    or screen-name cs 'p_monat'."可以把这几个内容隐藏(R_FRONT,R_BACK,p_monat需要隐藏的内容；)
      if r_pass = 'X'.
        screen-active = 0."隐藏
      else.
        screen-active = 1."显示
      endif.
      modify screen .
    endif.
endloop.

*********屏幕空出几行**********************
SELECTION-SCREEN: BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.
SELECTION-SCREEN: SKIP.
PARAMETERS: p_aufnr LIKE afko-aufnr.
PARAMETERS: p_confm LIKE afko-gamng.
PARAMETERS: p_scrap LIKE afko-gamng.
*PARAMETERS: P_POSDAY LIKE SY-DATUM DEFAULT SY-DATUM.
SELECTION-SCREEN: SKIP.
PARAMETERS: p_file LIKE rlgrap-filename." DEFAULT 'C:/PO LIST.TXT'.
SELECTION-SCREEN END OF BLOCK bk1.

SELECTION-SCREEN: SKIP 5.“空出5行

SELECTION-SCREEN: BEGIN OF BLOCK bk2 WITH FRAME TITLE text-002.
SELECTION-SCREEN: SKIP.
PARAMETERS: p_times TYPE i DEFAULT 6.
PARAMETERS: p_wait_s TYPE i DEFAULT 10.
SELECTION-SCREEN END OF BLOCK bk2.