采购订单价格控制     METHOD if_ex_me_process_po_cust~check.     IF sy-uname EQ 'WXJ'.       EXIT.     ENDIF. * d     DATA: lv_bname TYPE  zmmt999-bname  .     CLEAR lv_bname  .     SELECT SINGLE bname I