Code: Alles auswählen.
SUBMIT RM07DOCS
VIA SELECTION-SCREEN
AND RETURN.
Code: Alles auswählen.
REPORT.
DATA: lt_bdcdata TYPE tab_bdcdata,
ls_ctu_params TYPE ctu_params.
*append value #( program = 'RM07DOCS' dynpro = '1000' dynbegin = 'X' ) to lt_bdcdata. " Startdynpro auslassen, damit der Modus E ihn zur Anzeige bringt
*append value #( fnam = 'BDC_OKCODE' fval = '=??' ) to lt_bdcdata.
APPEND VALUE #( program = 'SAPMSSY0' dynpro = '0120' dynbegin = 'X' ) TO lt_bdcdata.
APPEND VALUE #( fnam = 'BDC_OKCODE' fval = '/00' ) TO lt_bdcdata. " Einfach ENTER drücken. Damit wird wieder Modus E getriggert, weil wir auf dem gleichen Screen bleiben aber der nächste erwartete Dynpro ist der Startbildschirm
APPEND VALUE #( program = 'RM07DOCS' dynpro = '1000' dynbegin = 'X' ) TO lt_bdcdata.
APPEND VALUE #( fnam = 'BDC_OKCODE' fval = '/EE' ) TO lt_bdcdata. " Beim Rücksprung auf Startbild diesen gleich verlassen
ls_ctu_params = VALUE #( dismode = 'E' ).
CALL TRANSACTION 'MB51' WITH AUTHORITY-CHECK USING lt_bdcdata OPTIONS FROM ls_ctu_params.
Code: Alles auswählen.
REPORT.
PARAMETERS: p_matnr type matnr OBLIGATORY.
EXPORT flag FROM 'X' TO MEMORY ID 'MB51_FLAG'.
SUBMIT rm07docs AND RETURN EXPORTING LIST TO MEMORY
with matnr = p_matnr.
DATA: BEGIN OF export_list OCCURS 0,
matnr TYPE mseg-matnr,
maktx TYPE makt-maktx,
werks TYPE mseg-werks,
name1 TYPE t001w-name1,
lgort TYPE mseg-lgort,
charg TYPE mseg-charg, "351455
bwtar TYPE mseg-bwtar, "351455
bwart TYPE mseg-bwart,
sobkz TYPE mseg-sobkz,
btext TYPE t156t-btext,
mblnr TYPE mseg-mblnr,
mjahr TYPE mseg-mjahr,
zeile TYPE mseg-zeile,
budat TYPE mkpf-budat,
erfmg TYPE mseg-erfmg,
erfme TYPE mseg-erfme,
lifnr TYPE mseg-lifnr,
vgart TYPE mkpf-vgart,
END OF export_list.
IMPORT export_list FROM MEMORY ID 'MB51_EXPORT_LIST'.
BREAK-POINT .