Code: Alles auswählen.
report Z_MM01_PROGRAMM01
no standard page heading line-size 255.
*************DECLARATIONS******************
tables: RMMG1, MAKT, MARA, MARC.
include bdcrecx1.
data: begin of bdc_data occurs 0.
include structure bdcdata.
data: end of bdc_data.
data: begin of itab occurs 0,
MATNR LIKE RMMG1-MATNR,
MBRSH LIKE RMMG1-MBRSH,
MTART LIKE RMMG1-MTART,
WERKS LIKE RMMG1-WERKS,
MAKTX LIKE MAKT-MAKTX,
MEINS LIKE MARA-MEINS,
MATKL LIKE MARA-MATKL,
SPART LIKE MARA-SPART,
MTPOS_MARA LIKE MARA-MTPOS_MARA,
BRGEW LIKE MARA-BRGEW,
GEWEI LIKE MARA-GEWEI,
NTGEW LIKE MARA-NTGEW,
EKGRP LIKE MARC-EKGRP,
end of itab.
*************INITIALIZATIONS***************
start-of-selection.
CLEAR BDC_DATA.
REFRESH BDC_DATA.
*************UPLOAD*******************
PERFORM DATEN_LADEN USING
'C:\Datenmigration\batch3.txt'.
*************CALL TRANSACTION*************
PERFORM open_group.
loop at itab.
perform bdc_dynpro using 'SAPLMGMM' '0060'.
* perform bdc_field using 'BDC_CURSOR'
* 'RMMG1-MATNR'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
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(09)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_field using 'MSICHTAUSW-KZSEL(01)'
'X'.
perform bdc_field using 'MSICHTAUSW-KZSEL(09)'
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
uhau
Folgende Benutzer bedankten sich beim Autor ralf.wenzel für den Beitrag (Insgesamt 2):
black_adept • uhau