filmov
tv
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.
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.