*&---------------------------------------------------------------------*
*& Report ZMMR_MATERIAL_COST2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zmmr_material_cost2.
TYPE-POOLS:slis.
DATA: wa_fieldcat TYPE slis_fieldcat_alv,
it_fieldcat TYPE slis_t_fieldcat_alv.
**Table Declaration**
TABLES:mara, "General Material Data
makt, "Material Descriptions
marc, "Plant Data for Material
mbew. "Material Valuation
**Types declaration***
TYPES:BEGIN OF ty_mara_mbew,
matnr TYPE mara-matnr,
mtart TYPE mara-mtart,
maktx TYPE makt-maktx,
werks TYPE marc-werks,
bwkey TYPE mbew-bwkey,
bwtar TYPE mbew-bwtar,
bklas TYPE mbew-bklas,
lbkum TYPE mbew-lbkum,
verpr TYPE mbew-verpr,
zplp1 TYPE mbew-zplp1,
zplp2 TYPE mbew-zplp2,
zpld1 TYPE mbew-zpld1,
zpld2 TYPE mbew-zpld2,
END OF ty_mara_mbew.
**Internal Table Declaration**
DATA:it_mara_mbew TYPE STANDARD TABLE OF ty_mara_mbew.
**Selection-Screen Declaration****
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_matnr FOR mara-matnr,
s_mtart FOR mara-mtart OBLIGATORY,
s_werks FOR marc-werks OBLIGATORY,
s_bklas FOR mbew-bklas.
SELECTION-SCREEN:END OF BLOCK b1.
START-OF-SELECTION.
PERFORM f_fetch_data.
PERFORM f_display_data.
*&---------------------------------------------------------------------*
*& Form F_FETCH_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f_fetch_data .
SELECT a~matnr
a~mtart
b~maktx
c~werks
d~bwkey
d~bwtar
d~bklas
d~lbkum
d~zplp1
d~zplp2
d~zpld1
d~zpld2
INTO CORRESPONDING FIELDS OF TABLE it_mara_mbew
FROM mara AS a
INNER JOIN makt AS b ON a~matnr = b~matnr
INNER JOIN marc AS c ON a~matnr = c~matnr
INNER JOIN mbew AS d ON a~matnr = d~matnr
WHERE a~matnr IN s_matnr AND
a~mtart IN s_mtart AND
c~werks IN s_werks AND
d~bklas IN s_bklas.
ENDFORM. " F_FETCH_DATA
*&---------------------------------------------------------------------*
*& Form F_DISPLAY_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f_display_data .
wa_fieldcat-fieldname = 'matnr'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 1.
wa_fieldcat-seltext_m = 'Material no'.
wa_fieldcat-outputlen = '15'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'mtart'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 2.
wa_fieldcat-seltext_m = 'Mat type'.
wa_fieldcat-outputlen = '7'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'MAKTX'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 3.
wa_fieldcat-seltext_m = 'Material Desc'.
wa_fieldcat-outputlen = '30'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'WERKS'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 4.
wa_fieldcat-seltext_m = 'Plant'.
wa_fieldcat-outputlen = '4'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'BWKEY'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 5.
wa_fieldcat-seltext_m = 'Val.Area'.
wa_fieldcat-outputlen = '4'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'BWTAR'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 6.
wa_fieldcat-seltext_m = 'Val.Type'.
wa_fieldcat-outputlen = '8'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ZPLP1'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 7.
wa_fieldcat-seltext_m = 'PlanPrice1'.
wa_fieldcat-outputlen = '16'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ZPLP2'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 8.
wa_fieldcat-seltext_m = 'PlanPrice2'.
wa_fieldcat-outputlen = '16'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ZPLD1'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 9.
wa_fieldcat-seltext_m = 'PPdate1'.
wa_fieldcat-outputlen = '10'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ZPLD2'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 10.
wa_fieldcat-seltext_m = 'PPdate2'.
wa_fieldcat-outputlen = '10'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'bklas'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 11.
wa_fieldcat-seltext_m = 'Val.Class'.
wa_fieldcat-outputlen = '8'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'VERPR'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 12.
wa_fieldcat-seltext_m = 'MovAvgPrice'.
wa_fieldcat-outputlen = '10'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LBKUM'.
wa_fieldcat-tabname = 'it_mara_mbew'.
wa_fieldcat-col_pos = 13.
wa_fieldcat-seltext_m = 'Total Stock'.
wa_fieldcat-outputlen = '10'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
* IS_LAYOUT =
it_fieldcat = it_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it_mara_mbew
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " F_DISPLAY_DATA
Download attached file: You must be Loged in to download file