SPAN {
font-family: "Courier New";
font-size: 12pt;
color: #000000;
background: #CCE8CF;
}
.L0S52 {
color: #0000FF;
}
user-command 和
SPAN {
font-family: "Courier New";
font-size: 12pt;
color: #000000;
background: #CCE8CF;
}
.L0S52 {
color: #0000FF;
}
modif id
SPAN {
font-family: "Courier New";
font-size: 12pt;
color: #000000;
background: #CCE8CF;
}
.L4S31 {
font-style: italic;
color: #808080;
}
.L4S32 {
color: #3399FF;
}
.L4S33 {
color: #4DA619;
}
.L4S52 {
color: #0000FF;
}
selection-screen begin of block bk1 with frame title text-001.
parameters:rb1 radiobutton group type user-command fla.
parameters:rb2 radiobutton group type default 'X' .
selection-screen end of block bk1.
selection-screen begin of block bk2 with frame title text-002.
*SELECTION-SCREEN COMMENT /1(79) text-002.
parameters: filename like rlgrap-filename modif id kum
default 'D:\导入模板'
obligatory.
selection-screen end of block bk2.
selection-screen begin of block bk3 with frame title text-003.
parameters: ftype like but000-BU_GROUP modif id kun
as listbox
visible length 10." OBLIGATORY,
selection-screen end of block bk3.
at selection-screen output.
loop at screen.
* 输入指定区间
if rb1 eq 'X'.
if screen-group1 = 'KUN'.
screen-input = '0'.
screen-invisible = '1'.
modify screen.
endif.
else.
if screen-group1 = 'KUM'.
screen-input = '0'.
screen-invisible = '1'.
modify screen.
endif.
endif.
endloop.
阅读(2870) | 评论(0) | 转发(0) |
