i want bdc recording for mm01 .

[Former Member]

i want bdc recording for mm01 .

all views with out---- foriegn trade data...exportdata

-

---

sales text

-

---

foriegn trade data...importdata views.

pls help i want recording for mm01.... its urgentttttttttt.. i want complete coding for that.....

[Former Member]

This is just an example you an add coding chsnges according to your requirement,

Revert back in case of any problem email: suvendu.swain@sap.com.

Reward if Helpful

REPORT zsuvi_mm01_test

NO STANDARD PAGE HEADING LINE-SIZE 255.

*INCLUDE bdcrecx1.

DATA: BEGIN OF itab OCCURS 0,

matnr TYPE mara-matnr,

mbrsh TYPE mara-mbrsh,

mtart TYPE mara-mtart,

END OF itab.

DATA: x_file TYPE string.

DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

• messages of call transaction

DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.

PARAMETER s_file TYPE rlgrap-filename.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_file.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

CHANGING

file_name = s_file.

IF s_file IS INITIAL.

MESSAGE 'Please give a proper file path' TYPE 'E'.

ENDIF.

x_file = s_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = x_file

filetype = 'ASC'

has_field_separator = 'X'

TABLES

data_tab = itab.

START-OF-SELECTION.

LOOP AT itab.

REFRESH bdcdata.

• PERFORM open_group.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMMG1-MTART'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'RMMG1-MATNR'

itab-matnr.

PERFORM bdc_field USING 'RMMG1-MBRSH'

itab-mbrsh.

PERFORM bdc_field USING 'RMMG1-MTART'

itab-mtart.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTR'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)'

'X'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'Finished Product'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARA-MEINS'.

PERFORM bdc_field USING 'MARA-MEINS'

'ea'.

PERFORM bdc_field USING 'MARA-MTPOS_MARA'

'NORM'.

PERFORM bdc_dynpro USING 'SAPLSPO1' '0300'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=YES'.

• PERFORM bdc_transaction USING 'MM01'.

• PERFORM close_group.

CALL TRANSACTION 'MM01'

USING bdcdata

MODE 'N'

UPDATE 'A'

MESSAGES INTO messtab.

CLEAR itab.

ENDLOOP.

END-OF-SELECTION.

LOOP AT messtab.

WRITE: / messtab-msgtyp.

ENDLOOP.

&----

---

*& Form BDC_DYNPRO

&----

---

• text

----

---

• -->PROGRAM text

• -->DYNPRO text

----

---

FORM bdc_dynpro USING program dynpro.

CLEAR bdcdata.

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

APPEND bdcdata.

ENDFORM. "BDC_DYNPRO

----

---

• Insert field *

----

---

FORM bdc_field USING fnam fval.

• IF FVAL <> NODATA.

CLEAR bdcdata.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

APPEND bdcdata.

• ENDIF.

ENDFORM. "BDC_FIELD

please

Reward if Helpful