物料主数据屏幕增强

FUNCTION-POOL ZMGD10
                   MESSAGE-ID M3.



*TF 4.6C Materialfixierung=================================
INCLUDE <icon>.
*TF 4.6C Materialfixierung=================================

INCLUDE MMMGTRBB.
INCLUDE MMMGBBAU.
*-----------------------------
INCLUDE wstr_definition. "Holds BADI global definition
MODULE DISABLE_FIELD OUTPUT.
      IF SY-TCODE = 'MM03'.
      LOOP AT SCREEN.
      SCREEN-INPUT = '0'.
      MODIFY SCREEN.
      ENDLOOP.
      ENDIF.
      ENDMODULE.

 MODULE GET_DATA OUTPUT.
    TABLES:ZZQ001.
    DATA:W_MATNR TYPE MATNR.
    DATA:W_werks TYPE marc-werks.
    IF SY-TCODE = 'MM02' OR SY-TCODE = 'MM03'.
    GET PARAMETER ID 'MAT' FIELD W_MATNR.
    GET PARAMETER ID 'MAT' FIELD W_werks.
    SELECT SINGLE * FROM ZZQ001 WHERE MATNR = W_MATNR.
    SELECT SINGLE * FROM ZZQ001 WHERE MATNR = W_werks.
    ZZQ001-F4 = '888888'. "给一个默认值
    ENDIF.
    ENDMODULE.



INCLUDE LMGD1IV0.   "IS2ERP

ENHANCEMENT-POINT LMGD1TOP_01 SPOTS ZMGD10 STATIC.

 

*&---------------------------------------------------------------------*
*&      Module  ASSIGN_DATA  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE ASSIGN_DATA INPUT.
 DATA: test type i.
* data: w_zzq001 type zzq001.
 test = STRLEN( ZZQ001-F1 ).
* w_zzq001 = zzq001.
 IF ZZQ001-F1 IS INITIAL OR TEST <> 5.
 MESSAGE 'F1字段不能为空或长度只能为5' TYPE 'E'.
 ENDIF.
 CLEAR test.
 EXPORT zzq001 TO MEMORY ID 'ZZQ001'.
ENDMODULE.                 " ASSIGN_DATA  INPUT

 

 

 

*&---------------------------------------------------------------------*
*&  Include           ZXMG0U02
*&---------------------------------------------------------------------*
"break tb.
"CHARU ZTEST1.
TABLES: ZTEST01,zzq001.
data:w_zzq001 type zzq001.
DATA GT_DATA TYPE STANDARD TABLE OF ZTEST01 WITH HEADER LINE.
SELECT * FROM ZTEST01 INTO CORRESPONDING FIELDS OF TABLE GT_DATA.
DATA: NUM TYPE I,
      J TYPE I.
NUM = LINES( GT_DATA ).
J = NUM + 1.
GT_DATA-NAME = J.
GT_DATA-LOG = 'COME IN'.
GT_DATA-HAHA = 'SDLJFLSJDF'.

APPEND GT_DATA.
INSERT ZTEST01 FROM GT_DATA .
IF SY-SUBRC = 0.
  MESSAGE 'INSERT INTO TABLE SECCESS' TYPE 'S'.
ENDIF.

TABLES: zaugus_tab.

data: zwerks like marc-werks.

IF sy-ucomm = 'BU' OR sy-ucomm = 'YES'.
  IMPORT zaugus_tab FROM MEMORY ID 'ZAUGUS_TAB'."abap内存，同一会话有效
  zaugus_tab-matnr = cmara-matnr.
  zaugus_tab-werks = WMARC-werks.

   IMPORT zzq001 FROM MEMORY ID 'ZZQ001'."abap内存，同一会话有效
      zzq001-f1 = ZZQ001-F1.
  zzq001-MATNR = cmara-matnr.
* zzq001-f1 = ZZQ001-F1.
   IF zzq001-f1 IS INITIAL.
      zzq001-f2 = 'aaa'.
      else.
      zzq001-f3 = 'bbb'.
      ENDIF.
     MODIFY zzq001 FROM zzq001.
  MODIFY zaugus_tab FROM zaugus_tab.
ENDIF.

"物料描述不让修改
*DATA L_MAKTX TYPE MAKT-MAKTX.
*SELECT SINGLE MAKTX INTO L_MAKTX FROM MAKT
*  WHERE MATNR = WMARA-MATNR
*        AND SPRAS = SY-LANGU.
*READ TABLE STEXT WITH KEY SPRAS = SY-LANGU.
*IF L_MAKTX <> STEXT-MAKTX.
*  MESSAGE '物料描述不能修改,ZXMG0U02 实现增强' TYPE 'E'.
*ENDIF.
*
*tables ZPARTAPPEND.
*
*IF SY-UCOMM = 'BU' OR SY-UCOMM = 'YES'.
*
*    IMPORT ZPARTAPPEND FROM MEMORY ID 'ZPARTAPPEND'.
*
*    ZPARTAPPEND-MATNR = CMARA-MATNR.
*    MODIFY ZPARTAPPEND FROM ZPARTAPPEND.
*
*  ENDIF.