MMCC这个事务码没用过，也是才听到的，都是业务搞起来的。。。然后感觉这个东西有点意思，就搞搞咯
网上找的一篇文章，自己修改的。改了默认收货工厂为创建时的工厂，因为这边一直报收货工厂必输。。。不管是不是配置问题，反正可以解决。
*&---------------------------------------------------------------------* *& Report ZLYTEST_MATERIAL *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT ZLYTEST_MATERIAL. SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME. PARAMETERS: P_WERKS0 LIKE MARC-WERKS DEFAULT '2001', P_VKORG0 LIKE MVKE-VKORG DEFAULT '2001', P_DISNSO LIKE MVKE-VTWEG DEFAULT '00', P_MBRSH LIKE MARA-MBRSH DEFAULT 'C'. SELECTION-SCREEN: END OF BLOCK B1. SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME. PARAMETERS: P_MATNR LIKE MARA-MATNR DEFAULT '4000888'. PARAMETERS: P_BUKRS LIKE T001-BUKRS. PARAMETERS: P_BWKEY LIKE T001K-BWKEY. PARAMETERS: P_MATCFG LIKE MARA-MATNR DEFAULT '4000020'. SELECTION-SCREEN: END OF BLOCK B2. START-OF-SELECTION. DATA: GT_MARC TYPE TABLE OF MARC. DATA: GT_MARA TYPE TABLE OF MARA. DATA : STR_CLIENTDATA LIKE BAPI_MARA_GA, STR_PLANTDATA LIKE BAPI_MARC_GA, STR_FORECASTPARAMETERS LIKE BAPI_MPOP_GA, STR_PLANNINGDATA LIKE BAPI_MPGD_GA, STR_STORAGELOCATIONDATA LIKE BAPI_MARD_GA, STR_VALUATIONDATA LIKE BAPI_MBEW_GA, STR_SALESDATA LIKE BAPI_MVKE_GA, STR_WAREHOUSENUMBERDATA LIKE BAPI_MLGN_GA, STR_STORAGETYPEDATA LIKE BAPI_MLGT_GA, STR_PRTDATA LIKE BAPI_MFHM_GA, STR_LIFOVALUATIONDATA LIKE BAPI_MYMS_GA, TAB_GET_ALL_R TYPE TABLE OF BAPIRETURN. DATA:TAB_MATERIALDESCRIPTION TYPE TABLE OF BAPI_MAKT_GA WITH HEADER LINE, TAB_UNITSOFMEASURE TYPE TABLE OF BAPI_MARM_GA, TAB_INTERNATIONALARTNOS TYPE TABLE OF BAPI_MEAN_GA, TAB_MATERIALLONGTEXT TYPE TABLE OF BAPI_MLTX_GA, TAB_TAXCLASSIFICATIONS TYPE TABLE OF BAPI_MLAN_GA, TAB_MATERIALDESCRIPTION1 TYPE TABLE OF BAPI_MAKT WITH HEADER LINE. DATA: BEGIN OF TAB_HEAD. INCLUDE STRUCTURE BAPIMATHEAD. DATA: END OF TAB_HEAD. DATA: BEGIN OF TAB_PLANTDATA. INCLUDE STRUCTURE BAPI_MARC. DATA: END OF TAB_PLANTDATA. DATA: BEGIN OF TAB_PLANTDATAX. INCLUDE STRUCTURE BAPI_MARCX. DATA: END OF TAB_PLANTDATAX. DATA: BEGIN OF TAB_CLIENT. INCLUDE STRUCTURE BAPI_MARA. DATA: END OF TAB_CLIENT. DATA: BEGIN OF TAB_CLIENTX. INCLUDE STRUCTURE BAPI_MARAX. DATA: END OF TAB_CLIENTX. DATA: BEGIN OF TAB_SALESDATA. INCLUDE STRUCTURE BAPI_MVKE. DATA: END OF TAB_SALESDATA. DATA: BEGIN OF TAB_SALESDATAX. INCLUDE STRUCTURE BAPI_MVKEX. DATA: END OF TAB_SALESDATAX. DATA : BEGIN OF TAB_RETURN. INCLUDE STRUCTURE BAPIRET2 . DATA : END OF TAB_RETURN. DATA : TAB_RETURN_MSGS TYPE TABLE OF BAPI_MATRETURN2 . DATA: TAB_FORECAST LIKE BAPI_MPOP, TAB_FORECASTX LIKE BAPI_MPOPX, TAB_PLANGDATA LIKE BAPI_MPGD, TAB_PLANGDATAX LIKE BAPI_MPGDX, TAB_STLOCDATA LIKE BAPI_MARD, TAB_STLOCDATAX LIKE BAPI_MARDX, TAB_VALDATA LIKE BAPI_MBEW, TAB_VALDATAX LIKE BAPI_MBEWX, TAB_WAREHOUSE LIKE BAPI_MLGN, TAB_WAREHOUSEX LIKE BAPI_MLGNX, TAB_STORTYPED LIKE BAPI_MLGT, TAB_STORTYPEDX LIKE BAPI_MLGTX. DATA GT_MAKT TYPE TABLE OF BAPI_MAKT. DATA: GV_LEN TYPE I, VIEW, COUNTER TYPE SY-INDEX, GV_I TYPE I, GV_MSG(200). FIELD-SYMBOLS: <FS_MARC> TYPE BAPI_MARA_GA,"MARC, <F1> TYPE ANY, <F2> TYPE ANY, <FMS> TYPE BAPI_MATRETURN2, <FSTRUCT> TYPE ANY, <FSTRUCTX> TYPE ANY. CALL FUNCTION 'BAPI_MATERIAL_GET_ALL' EXPORTING MATERIAL = P_MATCFG COMP_CODE = P_BUKRS VAL_AREA = P_BWKEY * VAL_TYPE = PLANT = P_WERKS0 * STGE_LOC = SALESORG = P_VKORG0 DISTR_CHAN = P_DISNSO * WHSENUMBER = * STGE_TYPE = * LIFO_VALUATION_LEVEL = IMPORTING CLIENTDATA = STR_CLIENTDATA PLANTDATA = STR_PLANTDATA FORECASTPARAMETERS = STR_FORECASTPARAMETERS PLANNINGDATA = STR_PLANNINGDATA STORAGELOCATIONDATA = STR_STORAGELOCATIONDATA VALUATIONDATA = STR_VALUATIONDATA WAREHOUSENUMBERDATA = STR_WAREHOUSENUMBERDATA SALESDATA = STR_SALESDATA STORAGETYPEDATA = STR_STORAGETYPEDATA PRTDATA = STR_PRTDATA LIFOVALUATIONDATA = STR_LIFOVALUATIONDATA TABLES MATERIALDESCRIPTION = TAB_MATERIALDESCRIPTION UNITSOFMEASURE = TAB_UNITSOFMEASURE INTERNATIONALARTNOS = TAB_INTERNATIONALARTNOS MATERIALLONGTEXT = TAB_MATERIALLONGTEXT TAXCLASSIFICATIONS = TAB_TAXCLASSIFICATIONS * EXTENSIONOUT = RETURN = TAB_GET_ALL_R. * Material views update --- * SELECT * FROM MARC INTO TABLE GT_MARC * WHERE MATNR = P_MATCFG * AND WERKS = P_WERKS0. * IF SY-SUBRC = 0. * READ TABLE GT_MARC ASSIGNING <FS_MARC> INDEX 1. * IF SY-SUBRC = 0. ASSIGN STR_CLIENTDATA TO <FS_MARC>. "关于视图这块是本人修改的，原来是读的MARC用的PSTAT，可是我发现，还是用读出来的MAINT_STAT准确点 COUNTER = 0. CLEAR VIEW. GV_I = STRLEN( <FS_MARC>-MAINT_STAT ). DO GV_I TIMES. VIEW = <FS_MARC>-MAINT_STAT+COUNTER(1). IF VIEW IS INITIAL. EXIT. ENDIF. COUNTER = COUNTER + 1. CASE VIEW. WHEN 'K'. TAB_HEAD-BASIC_VIEW = VIEW. WHEN 'V'. TAB_HEAD-SALES_VIEW = VIEW. WHEN 'E'. TAB_HEAD-PURCHASE_VIEW = VIEW. WHEN 'D' . TAB_HEAD-MRP_VIEW = VIEW. WHEN 'P'. TAB_HEAD-FORECAST_VIEW = VIEW. WHEN 'A'. TAB_HEAD-WORK_SCHED_VIEW = VIEW. WHEN 'F'. TAB_HEAD-PRT_VIEW = VIEW. WHEN 'L'. TAB_HEAD-STORAGE_VIEW = VIEW. WHEN 'S'. TAB_HEAD-WAREHOUSE_VIEW = VIEW. WHEN 'Q'. TAB_HEAD-QUALITY_VIEW = VIEW. WHEN 'B'. TAB_HEAD-ACCOUNT_VIEW = VIEW. WHEN 'G'. TAB_HEAD-COST_VIEW = VIEW. WHEN OTHERS. ENDCASE. ENDDO. * ENDIF. * ENDIF. TAB_HEAD-MATERIAL = P_MATNR. TAB_HEAD-IND_SECTOR = STR_CLIENTDATA-IND_SECTOR. TAB_HEAD-MATL_TYPE = STR_CLIENTDATA-MATL_TYPE. MOVE-CORRESPONDING STR_CLIENTDATA TO TAB_CLIENT. MOVE-CORRESPONDING STR_PLANTDATA TO TAB_PLANTDATA. MOVE-CORRESPONDING STR_FORECASTPARAMETERS TO TAB_FORECAST. MOVE-CORRESPONDING STR_PLANNINGDATA TO TAB_PLANGDATA. MOVE-CORRESPONDING STR_STORAGELOCATIONDATA TO TAB_STLOCDATA. MOVE-CORRESPONDING STR_VALUATIONDATA TO TAB_VALDATA. MOVE-CORRESPONDING STR_WAREHOUSENUMBERDATA TO TAB_WAREHOUSE. MOVE-CORRESPONDING STR_SALESDATA TO TAB_SALESDATA. TAB_SALESDATA-DELYG_PLNT = P_WERKS0."默认的工厂 MOVE-CORRESPONDING STR_STORAGETYPEDATA TO TAB_STORTYPED. * Fill the update struktur DO . CASE SY-INDEX. WHEN 1. ASSIGN TAB_CLIENT TO <F1>. ASSIGN TAB_CLIENTX TO <F2>. PERFORM FILL_UPDATE_STRUCT USING <F1> <F2>. WHEN 2. ASSIGN TAB_PLANTDATA TO <F1>. ASSIGN TAB_PLANTDATAX TO <F2>. PERFORM FILL_UPDATE_STRUCT USING <F1> <F2>. WHEN 3. ASSIGN TAB_FORECAST TO <F1>. ASSIGN TAB_FORECASTX TO <F2>. PERFORM FILL_UPDATE_STRUCT USING <F1> <F2>. WHEN 4. ASSIGN TAB_PLANGDATA TO <F1>. ASSIGN TAB_PLANGDATAX TO <F2>. PERFORM FILL_UPDATE_STRUCT USING <F1> <F2>. WHEN 5. ASSIGN TAB_STLOCDATA TO <F1>. ASSIGN TAB_STLOCDATAX TO <F2>. PERFORM FILL_UPDATE_STRUCT USING <F1> <F2>. WHEN 6. ASSIGN TAB_VALDATA TO <F1>. ASSIGN TAB_VALDATAX TO <F2>. PERFORM FILL_UPDATE_STRUCT USING <F1> <F2>. WHEN 7. ASSIGN TAB_WAREHOUSE TO <F1>. ASSIGN TAB_WAREHOUSEX TO <F2>. PERFORM FILL_UPDATE_STRUCT USING <F1> <F2>. WHEN 8. ASSIGN TAB_SALESDATA TO <F1>. ASSIGN TAB_SALESDATAX TO <F2>. PERFORM FILL_UPDATE_STRUCT USING <F1> <F2>. WHEN 9. ASSIGN TAB_STORTYPED TO <F1>. ASSIGN TAB_STORTYPEDX TO <F2>. PERFORM FILL_UPDATE_STRUCT USING <F1> <F2>. WHEN OTHERS. EXIT. ENDCASE. ENDDO. LOOP AT TAB_MATERIALDESCRIPTION. MOVE-CORRESPONDING TAB_MATERIALDESCRIPTION TO TAB_MATERIALDESCRIPTION1. APPEND TAB_MATERIALDESCRIPTION1. ENDLOOP. TAB_SALESDATA-SALES_ORG = P_VKORG0. TAB_SALESDATA-DISTR_CHAN = P_DISNSO. CLEAR: TAB_SALESDATAX-SALES_ORG, TAB_SALESDATAX-DISTR_CHAN. TAB_SALESDATAX-SALES_ORG = TAB_SALESDATA-SALES_ORG. TAB_SALESDATAX-DISTR_CHAN = TAB_SALESDATA-DISTR_CHAN. CLEAR TAB_PLANTDATAX-PLANT. TAB_PLANTDATAX-PLANT = TAB_PLANTDATA-PLANT. CLEAR TAB_VALDATAX-VAL_AREA. TAB_VALDATAX-VAL_AREA = TAB_VALDATA-VAL_AREA. CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA' EXPORTING HEADDATA = TAB_HEAD CLIENTDATA = TAB_CLIENT CLIENTDATAX = TAB_CLIENTX PLANTDATA = TAB_PLANTDATA PLANTDATAX = TAB_PLANTDATAX FORECASTPARAMETERS = TAB_FORECAST FORECASTPARAMETERSX = TAB_FORECASTX PLANNINGDATA = TAB_PLANGDATA PLANNINGDATAX = TAB_PLANGDATAX STORAGELOCATIONDATA = TAB_STLOCDATA STORAGELOCATIONDATAX = TAB_STLOCDATAX VALUATIONDATA = TAB_VALDATA VALUATIONDATAX = TAB_VALDATAX WAREHOUSENUMBERDATA = TAB_WAREHOUSE WAREHOUSENUMBERDATAX = TAB_WAREHOUSEX SALESDATA = TAB_SALESDATA SALESDATAX = TAB_SALESDATAX STORAGETYPEDATA = TAB_STORTYPED STORAGETYPEDATAX = TAB_STORTYPEDX * FLAG_ONLINE = ' ' * FLAG_CAD_CALL = ' ' * NO_DEQUEUE = ' ' IMPORTING RETURN = TAB_RETURN TABLES MATERIALDESCRIPTION = TAB_MATERIALDESCRIPTION1 * UNITSOFMEASURE = * UNITSOFMEASUREX = * INTERNATIONALARTNOS = * MATERIALLONGTEXT = * TAXCLASSIFICATIONS = RETURNMESSAGES = TAB_RETURN_MSGS. IF TAB_RETURN-TYPE = 'S'. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF. LOOP AT TAB_RETURN_MSGS ASSIGNING <FMS>. GV_MSG = <FMS>. WRITE:/ GV_MSG. ENDLOOP. *&---------------------------------------------------------------------* *& Form fill_update_struct *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_<F1> text * -->P_<F2> text *----------------------------------------------------------------------* FORM FILL_UPDATE_STRUCT USING P_F1 TYPE ANY P_F2 TYPE ANY. DO. ASSIGN COMPONENT SY-INDEX OF STRUCTURE P_F1 TO <FSTRUCT>. IF SY-SUBRC <> 0. EXIT. ENDIF. IF <FSTRUCT> IS NOT INITIAL. ASSIGN COMPONENT SY-INDEX OF STRUCTURE P_F2 TO <FSTRUCTX>. IF SY-SUBRC = 0. <FSTRUCTX> = 'X'. ENDIF. ENDIF. ENDDO. ENDFORM. " fill_update_struct
代码应该都能看懂，就不废话了。。。
原创文章，作者：Maggie-Hunter，如若转载，请注明出处：https://blog.ytso.com/tech/pnotes/18650.html