复制物料(参考的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