Пример программы экрана выбора


Синтаксис для группы переключателя

Радиокнопки

selection-screen begin of block rad_blk with frame title text-000.

parameters: rad_ex1 radiobutton group one,

rad_ex2 radiobutton group one,

rad_ex3 radiobutton group one.

selection-screen end of block rad_blk.

report YJACOBJX message-id Y6.

* Database Table Definitions

tables: mara.

selection-screen skip 1.

selection-screen begin of block block0 with frame title text-000.

selection-screen skip 1.

selection-screen begin of line.

selection-screen pushbutton 10(20) text-003 user-command engl.

selection-screen pushbutton 50(20) text-004 user-command germ.

selection-screen end of line.

selection-screen end of block block0.

* Selection parameters

selection-screen skip 2.

selection-screen begin of block block1 with frame title text-001

no intervals.

selection-screen begin of line.

parameters: p_ex1 radiobutton group rad1 .

selection-screen comment 5(30) text-ex1.

selection-screen end of line.

parameters: p_jdate1 type d default sy-datum.

selection-screen skip 1.

selection-screen begin of line.

parameters: p_ex2 radiobutton group rad1 .

selection-screen comment 5(30) text-ex2.

selection-screen end of line.

select-options: s_jdate2 for mara-laeda.

selection-screen skip 1.

selection-screen begin of line.

parameters: p_ex3 radiobutton group rad1.

selection-screen comment 5(20) text-ex3.

selection-screen end of line.

parameters: p_jdate3 like mara-laeda.

selection-screen skip 1.

selection-screen begin of line.

parameters: p_ex4 radiobutton group rad1 .

selection-screen comment 5(30) text-ex4.

selection-screen end of line.

select-options: s_jdate4 for mara-laeda no-extension no intervals.

selection-screen end of block block1.

selection-screen skip.

selection-screen begin of block block2 with frame title text-002

no intervals.

selection-screen begin of line.

parameters: P_ex5 as checkbox.

selection-screen comment 5(30) text-ex5.

selection-screen end of line.

selection-screen skip.

selection-screen begin of line.

parameters: P_ex6 as checkbox.

selection-screen comment 5(30) text-ex6.

selection-screen end of line.

selection-screen skip.

selection-screen begin of line.

parameters: P_ex7 as checkbox.

selection-screen comment 5(30) text-ex7.

selection-screen end of line.

selection-screen end of block block2.

* AT selection-screen.

AT selection-screen.

if ( p_ex1 = 'X' ) and

( ( p_jdate1 = 'IEQ?' ) or ( p_jdate1 is initial ) ).

message E017 with 'Selection Option with Default field has no value'.

elseif ( p_ex1 = 'X' ) and

not ( ( p_jdate1 = 'IEQ?' ) or ( p_jdate1 is initial ) ).

message I017 with 'We are now using Example 1'.

endif.

if ( p_ex2 = 'X' ) and

( ( s_jdate2 = 'IEQ?' ) or ( s_jdate2 is initial ) ).

message E017 with 'Selection Option using for field has no value'.

elseif ( p_ex2 = 'X' ) and

not ( ( s_jdate2 = 'IEQ?' ) or ( s_jdate2 is initial ) ).

message I017 with 'And now Example 2 is selected'.

endif.

if ( p_ex3 = 'X' ) and

( ( p_jdate3 = 'IEQ?' ) or ( p_jdate3 is initial ) ).

message E017 with 'Parameter w/ like statement field has no value'.

elseif ( p_ex3 = 'X' ) and

not ( ( p_jdate3 = 'IEQ?' ) or ( p_jdate3 is initial ) ).

message I017 with 'We are now using Example 3'.

endif.

if ( p_ex4 = 'X' ) and

( ( s_jdate4 = 'IEQ?' ) or ( s_jdate4 is initial ) ).

message E017 with 'Selection Option with no interval has no value'.

elseif ( p_ex4 = 'X' ) and

not ( ( s_jdate4 = 'IEQ?' ) or ( s_jdate4 is initial ) ).

message I017 with 'We are now using Example 4'.

endif.

if p_ex5 = 'X'.

perform get_price_data.

else.

message I017 with 'No Pricing Data selected'.

endif.

if p_ex6 = 'X'.

perform get_cost_data.

else.

message I017 with 'No Costing Data selected'.

endif.

if p_ex7 = 'X'.

perform get_revenue_data.

else.

message I017 with 'No Revenue Data selected'.

endif.

form get_cost_data.

...

endform.

form get_revenue_data.

...

endform.

form get_price_data.

...

endform.