Complex ALV Report On Stock Statement Plantwise (MMBE)
Complex ALV Report On Stock Statement Plantwise (MMBE)
Complex ALV Report On Stock Statement Plantwise (MMBE)
REPORT ZAP_STOCK_STATEMENT_PLANTWISE.
TABLES: MARA,MAKT,MARD.
TYPE-POOLS SLIS.
INITIALIZATION.
SELECT MATNR FROM MARA INTO TABLE IT_MARA WHERE MATNR IN S_MATNR AND MTART IN ('FERT').
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SCREEN-NAME EQ 'S_MATNR-LOW' OR
SCREEN-NAME EQ 'S_MATNR-HIGH'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM COMBINE_DATA.
PERFORM FILL_CAT.
PERFORM SORT.
PERFORM LAYOUT.
PERFORM FILL_EVENT.
PERFORM DISPLAY_DATA.
FORM GET_DATA.
SELECT A~MATNR B~MAKTX A~WERKS A~LABST A~INSME A~RETME A~SPEME A~EINME INTO TABLE IT_MARD
FROM MARD AS A INNER JOIN MAKT AS B ON
A~MATNR = B~MATNR WHERE
A~MATNR IN S_MATNR AND
A~WERKS IN S_WERKS.
FORM COMBINE_DATA .
WA_FINAL-MATNR = WA_MARD-MATNR.
WA_FINAL-MAKTX = WA_MARD-MAKTX.
IF WA_MARD-WERKS EQ '1000'.
WA_FINAl-LABST = WA_FINAL-LABST + WA_MARD-LABST.
WA_FINAL-REST = WA_FINAL-REST + ( WA_MARD-INSME + WA_MARD-EINME + WA_MARD-SPEME + WA_MARD-R
FORM FILL_CAT.
WA_FCAT-FIELDNAME = 'MATNR'.
WA_FCAT-OUTPUTLEN = '15'.
WA_FCAT-SELTEXT_M = 'MATERIAL CODE'.
WA_FCAT-TABNAME = 'IT_FINAL'.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'MAKTX'.
WA_FCAT-OUTPUTLEN = '25'.
WA_FCAT-SELTEXT_M = 'MATERIAL DESC'.
WA_FCAT-TABNAME = 'IT_FINAL'.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'LABST'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = '10'.
WA_FCAT-SELTEXT_M = 'HYD. UNS'.
WA_FCAT-DO_SUM = 'X'.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'REST'.
WA_FCAT-OUTPUTLEN = '10'.
WA_FCAT-SELTEXT_M = 'HYD.RES'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-DO_SUM = 'X'.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'LABST1'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-SELTEXT_M = 'PUNE UNS'.
WA_FCAT-OUTPUTLEN = '10'.
WA_FCAT-DO_SUM = 'X'.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'REST1'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = '10'.
WA_FCAT-SELTEXT_M = 'PUNE RES'.
WA_FCAT-DO_SUM = 'X'.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'TOTUNS'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = '10'.
WA_FCAT-SELTEXT_M = 'TOTAL UNS'.
WA_FCAT-DO_SUM = 'X'.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'TOTRES'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = '10'.
WA_FCAT-SELTEXT_M = 'TOTAL RES'.
WA_FCAT-DO_SUM = 'X'.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'TOTAL'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = '10'.
WA_FCAT-SELTEXT_M = 'TOTAL'.
WA_FCAT-DO_SUM = 'X'.
APPEND WA_FCAT TO IT_FCAT.
ENDFORM.
FORM SORT.
WA_SORT-FIELDNAME = 'MATNR'.
WA_SORT-UP = 'X'.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
ENDFORM.
FORM LAYOUT.
WA_LAYOUT-ZEBRA = 'X'.
ENDFORM.
FORM FILL_EVENT.
WA_EVENT-FORM = 'PRINT_HEADING'.
WA_EVENT-NAME = 'TOP_OF_PAGE'.
APPEND WA_EVENT TO IT_EVENT.
ENDFORM.
FORM PRINT_HEADING.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = 'COEP PHARMA'.
APPEND WA_HEADER TO IT_HEADER.
ENDFORM.
FORM DISPLAY_DATA.
ENDFORM.