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.
相关推荐
物料主数据是SAP系统最重要的基础数据之一,是SAP系统中数据量最大的主数据(没有之一),那么如何才能在系统上线之前,在系统中创建物料主数据呢,SAP系统提供了很多中方法,比如一个一个手工在系统中创建(显然...
SAP物料主数据表关系 by Tiger
SAP物料主数据配置视频讲义,后续会有更多。。。。。。。。
SAP物料主数据BOM数据管理制度
ABAP 为物料主数据添加字段 Add field in material master.
用BAPI_TRANSACTION_COMMIT 创建及修改物料主数据 很好的实例
示例-SAP物料主数据详解示例-SAP物料主数据详解示例-SAP物料主数据详解示例-SAP物料主数据详解示例-SAP物料主数据详解示例-SAP物料主数据详解示例-SAP物料主数据详解示例-SAP物料主数据详解示例-SAP物料主数据详解...
SAP物料主数据SAP物料主数据SAP物料主数据SAP物料主数据
SAP系统物料主数据各视图字段详解,包括基本视图、采购视图、MRP视图、会计视图
SAP物料主数据号码段配置操作手册,一步一步操作截图,非常详尽,
该报表整合了物料主数据中各个页签中的主要信息,以列表的形式显示出来,便于查询和查看。主要显示物料主数据基本数据、销售数据、采购数据等信息。代码方便开发人员直接借用参考和修改
SAP-ERP-物料主数据维护操作手册
SAP 最主要的主数据物料,如果不理解物料相关含义,SAP将难以掌握。本文为较为详细地介绍,希望能解你心中的谜团。
SAP物料主数据创建详解
SAP物料主数据完全维护状态表,MRP1、MRP2、MRP3、MRP4、Basic Date1、Basic Date2.
SAP中物料主数据后台设置。介绍的是系统中后台配置方面的内容。
(附件)V1-附件1:操作手册-主数据系统-物料主数据-V1.1.doc
根据物料主数据的内容进行相应的维护操作。对于需要采购的物料,我需要将这个material status改为01;对于不需要采购而是安排在工厂内加工或外协的物料,我需要将这个material status改为02。
SAP物料主数据详解.pptx对SAP物料主数据有基本的了解。了解物料主数据各视图、各关键字段对业务的影响。参与者会使用SAP系统工具(参考模型和在线帮助),并能够自己主动学习更深入的功能。 物料主数据包含了对所有...