SAP_ABAP_SD_销售订单屏幕增强实现步骤

一 实现效果

二 实现步骤

 

 

MODULE mod_init_8309 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
  IF vbak-zzhtlb = '1' AND vbak-zzzsrq IS INITIAL. "正式/备份 日期等于当前日期
    vbak-zzzsrq = sy-datum.
  ENDIF.
  "查底表为正式后 该字段不可修改  CHANGE BY CHL 2021.08.19
  DATA:ls_zzhtlb TYPE vbak.
  SELECT SINGLE * FROM vbak INTO ls_zzhtlb WHERE vbeln = vbak-vbeln.
  IF ls_zzhtlb-zzhtlb =  '1' AND sy-tcode = 'VA02'.
    LOOP AT SCREEN.
      IF screen-name = 'VBAK-ZZHTLB'.
        screen-input = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

  IF  t180-trtyp = 'A'.
    LOOP AT SCREEN.
      screen-input = '0'.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.
ENDMODULE.