RainbowSAP: Rainbow - Business Object Navigation to MD04

Business Object Navigation to MD04
Create a Business object at SWO1: 0:10
Customized Navigation: 2:11
Test your work: 2:53

Code snippets below

begin_method display changing container.

SET PARAMETER ID 'MAT' FIELD object-key-material.
SET PARAMETER ID 'BERID' FIELD object-key-mrparea.
SET PARAMETER ID 'WRK' FIELD object-key-plant.
CALL TRANSACTION 'MD04' AND SKIP FIRST SCREEN.

end_method.

begin_method existencecheck changing container.

DATA: lv_matnr_dummy TYPE mara-matnr,
lv_berid_dummy TYPE mdlv-berid,
lv_werks_dummy TYPE t001w-werks.

SELECT SINGLE matnr
INTO lv_matnr_dummy
FROM mara
WHERE matnr = object-key-material
.
IF sy-subrc NE 0.
exit_object_not_found.
ENDIF.

SELECT SINGLE werks
INTO lv_werks_dummy
FROM marc
WHERE matnr = object-key-material
and werks = object-key-plant .
.
IF sy-subrc NE 0.
exit_object_not_found.
ENDIF.

end_method.