SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L1S31 {
font-style. italic;
color: #808080;
}
.L1S32 {
color: #3399FF;
}
.L1S33 {
color: #4DA619;
}
.L1S52 {
color: #0000FF;
}
*&---------------------------------------------------------------------*
*& Report ZNCTEST01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZNCTEST01.
parameters:
r1 radiobutton group rad1,
r2 radiobutton group rad1,
r3 radiobutton group rad1.
parameters:
p_edit0 type c memory id p1.
data v_r(1).
start-of-selection.
if r1 = 'X'.
v_r = '1'.
elseif r2 = 'X'.
v_r = '2'.
else.
v_r = '3'.
endif.
export m_txt from v_r to memory id 'mid'.
* SUBMIT ZNCTEST02.
CALL TRANSACTION 'ZTST2'.
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } *&---------------------------------------------------------------------*
*& Report ZNCTEST02
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZNCTEST02.
selection-screen begin of block v1 with frame .
parameters p_edit type c memory id p1.
selection-screen end of block v1.
selection-screen begin of block v2 with frame.
parameters p_edit2 type c modif id P2.
selection-screen end of block v2.
data v_txt.
at selection-screen output.
import m_txt to v_txt from memory id 'mid'.
p_edit2 = v_txt.
loop at screen.
if screen-group1 = 'P2'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
endif.
endloop.
start-of-selection.
write:/ 'get memory id text:'.
write:/ v_txt.
*& Report ZNCTEST01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZNCTEST01.
parameters:
r1 radiobutton group rad1,
r2 radiobutton group rad1,
r3 radiobutton group rad1.
parameters:
p_edit0 type c memory id p1.
data v_r(1).
start-of-selection.
if r1 = 'X'.
v_r = '1'.
elseif r2 = 'X'.
v_r = '2'.
else.
v_r = '3'.
endif.
export m_txt from v_r to memory id 'mid'.
* SUBMIT ZNCTEST02.
CALL TRANSACTION 'ZTST2'.
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } *&---------------------------------------------------------------------*
*& Report ZNCTEST02
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZNCTEST02.
selection-screen begin of block v1 with frame .
parameters p_edit type c memory id p1.
selection-screen end of block v1.
selection-screen begin of block v2 with frame.
parameters p_edit2 type c modif id P2.
selection-screen end of block v2.
data v_txt.
at selection-screen output.
import m_txt to v_txt from memory id 'mid'.
p_edit2 = v_txt.
loop at screen.
if screen-group1 = 'P2'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
endif.
endloop.
start-of-selection.
write:/ 'get memory id text:'.
write:/ v_txt.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/166523/viewspace-551902/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
