采购订单审批后，价格不允许更改详解编程语言

ENHANCEMENT 1  ZMMU003.    "active version 
 
 DATA : LV_FRGKE TYPE ekko-FRGKE . 
 IMPORT LV_FRGKE FROM  MEMORY ID 'MM2'."来源se38->LMEPOF2T 
if ( sy-tcode = 'ME22N' or sy-tcode = 'ME23N' 
  or sy-tcode = 'ME22' or sy-tcode = 'ME29N' ) 
  and ( LV_FRGKE = '2' OR LV_FRGKE = '3'). 
 
data : lv_tabix TYPE sy-tabix . 
 loop at tctrl_konditionen-cols into acol. 
   lv_tabix = sy-tabix . 
if acol-screen-name eq 'KOMV-KBETR' 
  or   acol-screen-name eq 'RV61A-KOEIN' 
  or   acol-screen-name eq 'KOMV-KPEIN' 
  or   acol-screen-name eq 'KOMV-KMEIN' 
  or   acol-screen-name eq 'KOMV-KUMZA' 
  or   acol-screen-name eq 'KOMV-KUMNE' . 
 
 
   acol-screen-input =  0 . 
    modify tctrl_konditionen-cols from acol index lv_tabix. 
 
endif . 
endloop . 
ENDIF . 
ENDENHANCEMENT.