SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
loop at mess.
select single text into text from t100 where arbgb = mess-msgid
and msgnr = mess-msgnr
and sprsl = sy-langu.
cnt_times = 1.
do 4 times.
clear len.
case cnt_times.
when 1.
len = strlen( mess-msgv1 ).
if len <> 0.
replace '&' with mess-msgv1(len)
into text.
endif.
when 2.
len = strlen( mess-msgv2 ).
if len <> 0.
replace '&' with mess-msgv2(len)
into text length len.
endif.
when 3.
len = strlen( mess-msgv3 ).
if len <> 0.
replace '&' with mess-msgv3(len)
into text length len.
endif.
when 4.
len = strlen( mess-msgv4 ).
if len <> 0.
replace '&' with mess-msgv4(len)
into text length len.
endif.
endcase.
cnt_times = cnt_times + 1.
enddo.
if mess-msgtyp = 'E' or mess-msgtyp = 'S'.
message-msgty = mess-msgtyp.
message-msgtx = text.
append message.clear message.
endif.
clear:mess,text.
endloop.
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/26856671/viewspace-755837/
,如需转载,请注明出处,否则将追究法律责任。