Trigger MATMAS IDoc using BTE Function
Trigger MATMAS IDoc using BTE Function: this is a sample ABAP Program to generate a MATMAS IDoc for a Material Change using BTE event when a SAP Material is saved in MM02 / MM01.
Trigger MATMAS IDoc using BTE Function ABAP
First Step is to generate IDoc Control Record : EDIDC
The Second Step is to generate IDOC Data Table : EDIDD
The last step is to call the?MASTER_IDOC_DISTRIBUTE to generate the IDoc
This sample ABAP function code is a little particular to generate MATMAS IDoc using BTE Function ABAP. This is a enhanced copy of the standard Function SAMPLE_INTERFACE_00001250.
Find more resource about the?Most important Idocs Tcodes and Idocs Tables?and also .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | FUNCTION ZMATMAS_INTERFACE_00001250. " Trigger MATMAS IDoc using BTE Function " Copy of SAMPLE_INTERFACE_00001250 DATA : gt_idoc_data TYPE STANDARD TABLE OF edidd, ls_idoc_data TYPE edidd, ls_idoc_control LIKE edidc, gt_comm_idocs TYPE STANDARD TABLE OF edidc. DATA: ls_e1maram LIKE e1maram, ls_e1maktm LIKE e1maktm, ls_e1marcm LIKE e1marcm, ls_e1mardm LIKE e1mardm, ls_e1marmm LIKE e1marmm, ls_e1mbewm LIKE e1mbewm, ls_e1mvkem LIKE e1mvkem, ls_e1mlanm LIKE e1mlanm. DATA: ls_marm_new LIKE LINE OF LT_MARW_NEW, ls_MAKT_new LIKE LINE OF LT_MAKT_NEW. "-----------------------------------------------" " Fill IDOC Control "-----------------------------------------------" ls_idoc_control-mestyp = 'MATMAS'. ls_idoc_control-idoctp = 'MATMAS05'. ls_idoc_control-rcvpor = 'REC_PORT'. " Fill the receiver Port ls_idoc_control-rcvprt = 'LS'. ls_idoc_control-rcvprn = 'RECEIVER'. " Fill the receiver system |
The second step is to fill some Data into MATMAS Idoc such
- E1MARAM : MARA
- E1MAKTM : MAKT : Material Description Table
- E1MARCM : MARC : Material Plant Data
- E1MARDM : MARD : Material Storage Location Data
- E1MARMM : MARM : Material Alternative Unit Table
- E1MLANM : MLAN : Tax Classification for Material
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | "-----------------------------------------------" "Filling IDOC Data Table "-----------------------------------------------" " E1MARAM : MARA CLEAR ls_idoc_data. ls_idoc_data-segnam = 'E1MARAM'. MOVE-CORRESPONDING i_mara_new TO ls_e1maram. MOVE ls_e1maram TO ls_idoc_data-sdata. APPEND ls_idoc_data TO gt_idoc_data. " E1MAKTM : MAKT : Material Description Table CLEAR ls_idoc_data. ls_idoc_data-segnam = 'E1MAKTM'. MOVE-CORRESPONDING t_makt_new TO ls_e1maktm. MOVE ls_e1maktm TO ls_idoc_data-sdata. APPEND ls_idoc_data TO gt_idoc_data. " E1MARCM : MARC : Material Plant Data CLEAR ls_idoc_data. ls_idoc_data-segnam = 'E1MARCM'. MOVE-CORRESPONDING i_marc_new TO ls_e1marcm. MOVE ls_e1marcm TO ls_idoc_data-sdata. APPEND ls_idoc_data TO gt_idoc_data. " E1MARDM : MARD : Material Storage Location Data CLEAR ls_idoc_data. ls_idoc_data-segnam = 'E1MARDM'. MOVE-CORRESPONDING i_mard_new TO ls_e1mardm. MOVE ls_e1mardm TO ls_idoc_data-sdata. APPEND ls_idoc_data TO gt_idoc_data. " E1MARMM : MARM : Material Alternative Unit Table LOOP AT t_marm_new into ls_marm_new. CLEAR ls_idoc_data. ls_idoc_data-segnam = 'E1MARMM'. MOVE-CORRESPONDING t_marm_new TO ls_e1mardm. MOVE ls_e1mardm TO ls_idoc_data-sdata. APPEND ls_idoc_data TO gt_idoc_data. ENDLOOP. " E1MBEWM : MBEW : Material Valuation Table CLEAR ls_idoc_data. ls_idoc_data-segnam = 'E1MBEWM'. MOVE-CORRESPONDING i_mbew_new TO ls_e1mardm. MOVE ls_e1mardm TO ls_idoc_data-sdata. APPEND ls_idoc_data TO gt_idoc_data. " E1MVKEM : MVKE : Sales Data for Material Data CLEAR ls_idoc_data. ls_idoc_data-segnam = 'E1MVKEM'. MOVE-CORRESPONDING i_mvke_new TO ls_e1mvkem. MOVE ls_e1mvkem TO ls_idoc_data-sdata. APPEND ls_idoc_data TO gt_idoc_data. " E1MLANM : MLAN : Tax Classification for Material CLEAR ls_idoc_data. ls_idoc_data-segnam = 'E1MLANM'. MOVE-CORRESPONDING i_MLAN_new TO ls_e1mlanm. MOVE ls_e1mlanm TO ls_idoc_data-sdata. APPEND ls_idoc_data TO gt_idoc_data. |
The Last step is to generate the IDoc as following using MASTER_IDOC_DISTRIBUTE BAPI
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | "-----------------------------------------------" " Generate MATMAS IDoc "-----------------------------------------------" " Trigger MATMAS IDoc using BTE Function CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE' EXPORTING master_idoc_control = ls_idoc_control TABLES communication_idoc_control = gt_comm_idocs master_idoc_data = gt_idoc_data EXCEPTIONS error_in_idoc_control = 1 error_writing_idoc_status = 2 error_in_idoc_data = 3 sending_logical_system_unknown = 4 OTHERS = 5 . IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. ENDFUNCTION. |
Here it is the Idoc MATMAS should be created when a material is Saved ( if the ALE configuration is already set-up)
