*&---------------------------------------------------------------------*
*& 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'EXPORTINGMATERIAL            = P_MATCFGCOMP_CODE           = P_BUKRSVAL_AREA            = P_BWKEY
*     VAL_TYPE            =PLANT               = P_WERKS0
*     STGE_LOC            =SALESORG            = P_VKORG0DISTR_CHAN          = P_DISNSO
*     WHSENUMBER          =
*     STGE_TYPE           =
*     LIFO_VALUATION_LEVEL =IMPORTINGCLIENTDATA          = STR_CLIENTDATAPLANTDATA           = STR_PLANTDATAFORECASTPARAMETERS  = STR_FORECASTPARAMETERSPLANNINGDATA        = STR_PLANNINGDATASTORAGELOCATIONDATA = STR_STORAGELOCATIONDATAVALUATIONDATA       = STR_VALUATIONDATAWAREHOUSENUMBERDATA = STR_WAREHOUSENUMBERDATASALESDATA           = STR_SALESDATASTORAGETYPEDATA     = STR_STORAGETYPEDATAPRTDATA             = STR_PRTDATALIFOVALUATIONDATA   = STR_LIFOVALUATIONDATATABLESMATERIALDESCRIPTION = TAB_MATERIALDESCRIPTIONUNITSOFMEASURE      = TAB_UNITSOFMEASUREINTERNATIONALARTNOS = TAB_INTERNATIONALARTNOSMATERIALLONGTEXT    = TAB_MATERIALLONGTEXTTAXCLASSIFICATIONS  = 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 strukturDO .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'EXPORTINGHEADDATA             = TAB_HEADCLIENTDATA           = TAB_CLIENTCLIENTDATAX          = TAB_CLIENTXPLANTDATA            = TAB_PLANTDATAPLANTDATAX           = TAB_PLANTDATAXFORECASTPARAMETERS   = TAB_FORECASTFORECASTPARAMETERSX  = TAB_FORECASTXPLANNINGDATA         = TAB_PLANGDATAPLANNINGDATAX        = TAB_PLANGDATAXSTORAGELOCATIONDATA  = TAB_STLOCDATASTORAGELOCATIONDATAX = TAB_STLOCDATAXVALUATIONDATA        = TAB_VALDATAVALUATIONDATAX       = TAB_VALDATAXWAREHOUSENUMBERDATA  = TAB_WAREHOUSEWAREHOUSENUMBERDATAX = TAB_WAREHOUSEXSALESDATA            = TAB_SALESDATASALESDATAX           = TAB_SALESDATAXSTORAGETYPEDATA      = TAB_STORTYPEDSTORAGETYPEDATAX     = TAB_STORTYPEDX
*     FLAG_ONLINE          = ' '
*     FLAG_CAD_CALL        = ' '
*     NO_DEQUEUE           = ' 'IMPORTINGRETURN               = TAB_RETURNTABLESMATERIALDESCRIPTION  = TAB_MATERIALDESCRIPTION1
*     UNITSOFMEASURE       =
*     UNITSOFMEASUREX      =
*     INTERNATIONALARTNOS  =
*     MATERIALLONGTEXT     =
*     TAXCLASSIFICATIONS   =RETURNMESSAGES       = TAB_RETURN_MSGS.IF TAB_RETURN-TYPE = 'S'.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = '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