全部博文
-
编辑 删除
获取采购订单审批人
DATA:i_cdhdr LIKE TABLE OF cdhdr, i_cdpos LIKE TABLE OF cdpos, wa_cdpos LIKE cdpos, wa_cdhdr LIKE cdhdr, wa_usr21 LIKE usr21.SELECT * FROM cdhdr INTO TABLE i_cdhdr WHERE objectclas = 'EINKBELEG' AND objectid = is_ekko-ebeln.SELECT * FROM cdpos INTO TABLE i_cdpos WHERE objectclas = 'EINKBELEG' AND objectid = is_ekko-ebeln AND fname = 'FRGZU'.SORT i_cdpos BY changenr DESCENDING.READ TABLE i_cdpos INTO wa_cdpos INDEX 1.IF sy-subrc EQ 0. READ TABLE i_cdhdr INTO
