FORM u105 using IS_PROJK TYPE BSEG-PROJK.
DATA L_index type N.
CLEAR L_index.
L_index = 1.
IF sy-TCODE = 'FB01' and L_index = 1 AND BSEG-BSCHL = '01'.
Message '使用F-22记账时,先输入记账码50,再输入记账码01,你输反了' type 'E'.
ENDIF.
IF BSEG-PROJK <> ''.
U105_TEXT = IS_PROJK."copy WBS text to U105_TEXT
ENDIF.
IF BSEG-KOART = 'D'.
BSEG-PROJK = U105_TEXT.
ENDIF.
L_index = L_index + 1.
ENDFORM.