日志
读取工单状态
||
SPAN {
font-family: "新宋体";
font-size: 11pt;
color: #000000;
background: #FFFFFF;
}
.L1S31 {
font-style: italic;
color: #808080;
}
.L1S32 {
color: #3399FF;
}
.L1S33 {
color: #4DA619;
}
.L1S52 {
color: #0000FF;
}
DATA: l_objnr TYPE j_objnr.
DATA: l_stext TYPE j_stext.
DATA: l_kdauf LIKE afpo-kdauf.
DATA: l_stext TYPE j_stext.
DATA: l_kdauf LIKE afpo-kdauf.
"由工单得到对象号
SELECT SINGLE objnr INTO l_objnr
FROM aufk
WHERE aufnr EQ 工单.
SELECT SINGLE objnr INTO l_objnr
FROM aufk
WHERE aufnr EQ 工单.
"由对象号得到状态
IF sy-subrc EQ 0.
CALL FUNCTION 'STATUS_TEXT_EDIT'
EXPORTING
objnr = l_objnr
spras = sy-langu
IMPORTING
line = l_stext
EXCEPTIONS
object_not_found = 1
OTHERS = 2.
IF sy-subrc EQ 0.
CALL FUNCTION 'STATUS_TEXT_EDIT'
EXPORTING
objnr = l_objnr
spras = sy-langu
IMPORTING
line = l_stext
EXCEPTIONS
object_not_found = 1
OTHERS = 2.
全部作者的其他最新日志
- • BAPI 实例
- • LIST展示数据时和用户交互的实现
- • OO ALV
- • (转)SAP锁
- • ABAP中的TYPE与LIKE
