Trigger MATMAS IDoc Using BTE Function

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 .

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

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

"-----------------------------------------------"
  "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.

"-----------------------------------------------"

"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

  "-----------------------------------------------"
  " 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.