增强：MB1A物料价格检查详解编程语言

IF MSEG-MATNR IS NOT INITIAL AND MSEG-BWART = '531'. 
  DATA:S_MSEG TYPE MSEG. 
    DATA: LV_STPRS TYPE MBEW-STPRS, 
        LV_VERPR TYPE MBEW-VERPR. 
    DATA LV_MESSAGE(100) TYPE C. 
 
   CLEAR:LV_STPRS,LV_VERPR,LV_MESSAGE. 
   SELECT SINGLE STPRS VERPR INTO (LV_STPRS,LV_VERPR) FROM MBEW WHERE MATNR = MSEG-MATNR AND BWKEY = MSEG-WERKS. 
    IF LV_STPRS IS INITIAL AND LV_VERPR IS INITIAL. 
      CONCATENATE LV_MESSAGE '物料:' MSEG-MATNR '价格为0' INTO LV_MESSAGE. 
      MESSAGE LV_MESSAGE TYPE 'E'. 
    ENDIF. 
ENDIF.