Report for Displaying the details of the Line Plan * * for the given period

REPORT ZVVF_CR009_LINEPLAN .
*---------------------------------------------------------------------*
* Report ZVVF_CR009_LINEPLAN *
* *
* MODULE : Production Planning *
* *
*---------------------------------------------------------------------*
* Objective : Report for Displaying the details of the Line Plan *
* for the given period *
* *
* Program : Update Tables( ) Download Data( ) Outputs List (X) *
* *
* Technical Specs No : *
* *
* Date Created *
* *
* LDB : NOT-USED *
*---------------------------------------------------------------------*

*----------------------------------------------------------------------*
* Type-pools
*----------------------------------------------------------------------*

TYPE-POOLS : slis.


*---------------------------------------------------------------------*
* Tables *
*---------------------------------------------------------------------*
TABLES : ZVVF_CT_MATDISP,
PBIM,
PBED,
PLAF.

*----------------------------------------------------------------------*
*Types *
*----------------------------------------------------------------------*

TYPES : BEGIN OF TY_VALUES,
VERNO LIKE ZVVF_CT_MATDISP-VERNO,
END OF TY_VALUES.

TYPES : BEGIN OF TY_VERVS,
VERVS LIKE PBIM-VERVS,
END OF TY_VERVS.


*----------------------------------------------------------------------*
*Internal tables
*----------------------------------------------------------------------*

DATA : IT_DATA TYPE STANDARD TABLE OF ZVVF_CT_MATDISP WITH HEADER LINE.
DATA : IT_VALUES TYPE STANDARD TABLE OF TY_VALUES WITH HEADER LINE.
DATA : ST_VALUES TYPE TY_VALUES.
DATA : IT_VERVS TYPE STANDARD TABLE OF TY_VERVS WITH HEADER LINE.


*---------------------------------------------------------------------*
* WORK AREAS Begin with WA *
*---------------------------------------------------------------------*


*----------------------------------------------------------------------*
*Constants Begin with C_
*----------------------------------------------------------------------*

*---------------------------------------------------------------------*
* Data Variables Begin with w_
*
*---------------------------------------------------------------------*

*--------FOR ALV

DATA : W_FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
W_LAYOUT TYPE SLIS_LAYOUT_ALV,
W_LISTHEADER TYPE SLIS_T_LISTHEADER,
W_EVENTS TYPE SLIS_T_EVENT,
W_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
W_REPID TYPE SY-REPID.

*------FOR REPORT DATA

DATA : W_INFO(60) TYPE C,
W_WERKS(90) TYPE C,
W_NAME(40) TYPE C,
W_VERSB LIKE ZVVF_CT_MATDISP-VERSB,
W_VERB1(30) TYPE C,
W_NAME1 LIKE ZVVF_CT_MATDISP-NAME1,
W_DATE(20) TYPE C,
W_DATE1(80) TYPE C,
W_VERVS TYPE PBIM-VERVS.

*---------------------------------------------------------------------*
* parameters *
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP 1.

PARAMETERS : PR_WERKS LIKE PBIM-WERKS,
PR_PBDNR LIKE ZVVF_CT_MATDISP-PBDNR,
PR_VERSB LIKE ZVVF_CT_MATDISP-VERSB.
*---------------------------------------------------------------------*
* Select-options *
*---------------------------------------------------------------------*

SELECT-OPTIONS : SO_PSTTR FOR PLAF-PSTTR,
SO_PEDTR FOR PLAF-PEDTR.

SELECTION-SCREEN END OF BLOCK B2 .

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.

SELECT-OPTIONS : SO_VERNO FOR ZVVF_CT_MATDISP-VERNO NO INTERVALS
no-extension.

SELECTION-SCREEN END OF BLOCK B1.


*---------------------------------------------------------------------*
* INITIALIZATION *
*---------------------------------------------------------------------*

INITIALIZATION.

W_REPID = SY-REPID.

REFRESH : IT_DATA.

PERFORM F002_EVENTTAB_BUILD_TEMP USING W_EVENTS[].

*---------------------------------------------------------------------*
* AT SELECTION-SCREEN ON VALUE REQUEST .
*---------------------------------------------------------------------*

At Selection-screen ON VALUE-REQUEST FOR SO_VERNO-LOW.


PERFORM f007_f4_help.

*---------------------------------------------------------------------*
* At selection screen *
*---------------------------------------------------------------------*

At Selection-screen.

PERFORM F006_VALIDATE.



*---------------------------------------------------------------------*
* START-OF-SELECTION *
*---------------------------------------------------------------------*


START-OF-SELECTION .

PERFORM F003_FIELDCAT_INIT.

PERFORM F001_FETCH_DATA.

PERFORM F004_DISPLAY_DATA USING W_LISTHEADER[].


*---------------------------------------------------------------------*
* END-OF-SELECTION *
*---------------------------------------------------------------------*

END-OF-SELECTION.

PERFORM F005_DISPLAY_LIST.


*----------------------------------------------------------------------*
* TOP-OF-PAGE *
*----------------------------------------------------------------------*
TOP-OF-PAGE.


*----------------------------------------------------------------------*
* END-OF-PAGE *
*----------------------------------------------------------------------*
END-OF-PAGE.


*&---------------------------------------------------------------------*
*& Form F001_FETCH_DATA
*&---------------------------------------------------------------------*

FORM F001_FETCH_DATA .

SELECT NAME1 ARBPL KTEXT PSTTR PEDTR VERNO VERID MATNR MAKTX PLNUM
GSMNG MATNR1 MAKTX1 FLOWRATE
INTO CORRESPONDING FIELDS OF TABLE IT_DATA
FROM ZVVF_CT_MATDISP
WHERE PBDNR = PR_PBDNR AND
VERSB = PR_VERSB AND
VERNO IN SO_VERNO AND
PSTTR IN SO_PSTTR AND
PEDTR IN SO_PEDTR .




READ TABLE IT_DATA INDEX 1.
W_NAME1 = IT_DATA-NAME1.

CONCATENATE 'Date :' SY-DATUM INTO W_DATE1.
CONCATENATE 'LINE PLAN FOR THE PERIOD :' SO_PSTTR-LOW+6(2) '/'
SO_PSTTR-LOW+4(2) '/' SO_PSTTR-LOW+0(4) ' - '
SO_PEDTR-HIGH+6(2) '/'
SO_PEDTR-HIGH+4(2) '/'
SO_PEDTR-HIGH+0(4)
INTO W_INFO.

CONCATENATE 'Plant Code :' PR_WERKS INTO W_WERKS.
MOVE W_DATE1+0(20) TO W_WERKS+50(20).
CONCATENATE 'Plant Description :' W_NAME1 INTO W_NAME.
CONCATENATE 'Version No :' SO_VERNO-LOW INTO W_VERB1.


SORT IT_DATA BY ARBPL PSTTR.
LOOP AT IT_DATA.
SHIFT IT_DATA-MATNR LEFT DELETING LEADING '0'.
SHIFT IT_DATA-MATNR1 LEFT DELETING LEADING '0'.
SHIFT IT_DATA-PLNUM LEFT DELETING LEADING '0'.
MODIFY IT_DATA.
ENDLOOP.


ENDFORM. " F001_FETCH_DATA

*&---------------------------------------------------------------------*
*& Form F002_EVENTTAB_BUILD_TEMP
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_W_EVENTS[] text
*----------------------------------------------------------------------*

FORM F002_EVENTTAB_BUILD_TEMP USING RT_EVENTS TYPE SLIS_T_EVENT.

DATA : LW_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = RT_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 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.

READ TABLE RT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO LW_EVENT
.

IF SY-SUBRC = 0.
MOVE W_TOP_OF_PAGE TO LW_EVENT-FORM.
APPEND LW_EVENT TO RT_EVENTS.
ENDIF.


ENDFORM. " F002_EVENTTAB_BUILD_TEMP

*&---------------------------------------------------------------------*
*& Form F003_FIELDCAT_INIT
*&---------------------------------------------------------------------*

FORM F003_FIELDCAT_INIT .

DATA : LW_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'ARBPL'.
LW_FIELDCAT-SELTEXT_M = 'Resource'.
LW_FIELDCAT-OUTPUTLEN = 8.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'KTEXT'.
LW_FIELDCAT-SELTEXT_M = 'Resource Description'.
LW_FIELDCAT-OUTPUTLEN = 40.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'PSTTR'.
LW_FIELDCAT-SELTEXT_M = 'Order Start Date'.
LW_FIELDCAT-OUTPUTLEN = 8.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'PEDTR'.
LW_FIELDCAT-SELTEXT_M = 'Order Finish Date'.
LW_FIELDCAT-OUTPUTLEN = 8.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.


CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'VERID'.
LW_FIELDCAT-SELTEXT_M = 'Prod.Ver'.
LW_FIELDCAT-OUTPUTLEN = 4.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MATNR'.
LW_FIELDCAT-SELTEXT_M = 'Material Code'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MAKTX'.
LW_FIELDCAT-SELTEXT_M = 'Material Description'.
LW_FIELDCAT-OUTPUTLEN = 40.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'PLNUM'.
LW_FIELDCAT-SELTEXT_M = 'Planned Order'.
LW_FIELDCAT-OUTPUTLEN = 10.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'GSMNG'.
LW_FIELDCAT-SELTEXT_M = 'Plnd Order Qty'.
LW_FIELDCAT-OUTPUTLEN = 13.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MATNR1'.
LW_FIELDCAT-SELTEXT_M = 'Planned req material'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MAKTX1'.
LW_FIELDCAT-SELTEXT_M = 'Material Desc'.
LW_FIELDCAT-OUTPUTLEN = 40.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'FLOWRATE'.
LW_FIELDCAT-SELTEXT_M = 'FlowRate/Hr'.
LW_FIELDCAT-OUTPUTLEN = 13.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'REMARKS'.
LW_FIELDCAT-SELTEXT_M = 'Remarks'.
LW_FIELDCAT-OUTPUTLEN = 20.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

ENDFORM. " F003_FIELDCAT_INIT

*&---------------------------------------------------------------------*
*& Form F004_DISPLAY_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_W_LISTHEADER[] text
*----------------------------------------------------------------------*

FORM F004_DISPLAY_DATA USING GT_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA : LW_LISTHEADER TYPE SLIS_LISTHEADER.

CLEAR LW_LISTHEADER.
LW_LISTHEADER-TYP = 'H'.
LW_LISTHEADER-INFO = W_INFO.
APPEND LW_LISTHEADER TO GT_LISTHEADER.

*CLEAR LW_LISTHEADER.
*LW_LISTHEADER-TYP = 'S'.
*LW_LISTHEADER-INFO = W_DATE1.
**move sy-datum to LW_LISTHEADER-INFO+30(20).
*APPEND LW_LISTHEADER TO GT_LISTHEADER.


CLEAR LW_LISTHEADER.
LW_LISTHEADER-TYP = 'S'.
LW_LISTHEADER-INFO = W_WERKS.
APPEND LW_LISTHEADER TO GT_LISTHEADER.

CLEAR LW_LISTHEADER.
LW_LISTHEADER-TYP = 'S'.
LW_LISTHEADER-INFO = W_NAME.
APPEND LW_LISTHEADER TO GT_LISTHEADER.

CLEAR LW_LISTHEADER.
LW_LISTHEADER-TYP = 'S'.
LW_LISTHEADER-INFO = W_VERB1.
APPEND LW_LISTHEADER TO GT_LISTHEADER.


ENDFORM. " F004_DISPLAY_DATA

*&---------------------------------------------------------------------*
*& Form F005_DISPLAY_LIST
*&---------------------------------------------------------------------*

FORM F005_DISPLAY_LIST .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = W_REPID
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
I_BACKGROUND_ID = 'ALV_BACKGROUND'
* I_GRID_TITLE =
* I_GRID_SETTINGS =
IS_LAYOUT = W_LAYOUT
IT_FIELDCAT = W_FIELDCATALOG[]
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
IT_EVENTS = W_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
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* I_HTML_HEIGHT_TOP =
* I_HTML_HEIGHT_END =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = IT_DATA
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. " F005_DISPLAY_LIST

*&---------------------------------------------------------------------*
*& Form F006_VALIDATE
*&---------------------------------------------------------------------*
FORM F006_VALIDATE .

SELECT VERVS INTO CORRESPONDING FIELDS OF TABLE IT_VERVS "(W_VERVS)
FROM PBIM
WHERE VERSB = PR_VERSB AND
WERKS = PR_WERKS.
IF SY-SUBRC = 0.

READ TABLE IT_VERVS WITH KEY VERVS = 'X'.

IF SY-SUBRC NE 0.
MESSAGE E000(ZMSG_C007_8_9_PP).
ENDIF.

endif.



*SELECT SINGLE VERVS INTO (W_VERVS)
* FROM PBIM
* WHERE VERSB = PR_VERSB AND
* WERKS = PR_WERKS.
*
* IF SY-SUBRC = 0.
* IF W_VERVS NE 'X'.
* MESSAGE E000(ZMSG_C007_8_9_PP).
* ENDIF.
* ENDIF.


ENDFORM. " F006_VALIDATE


*&--------------------------------------------------------------------*
*& Form TOP_OF_PAGE
*&--------------------------------------------------------------------*

FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = W_LISTHEADER
i_logo = ' '.
ENDFORM. "top_of_page_db

*&---------------------------------------------------------------------*
*& Form f007_f4_help
*&---------------------------------------------------------------------*
FORM f007_f4_help .

DATA : IT_DYNPFIELDS LIKE TABLE OF DYNPREAD,
WA_IT_DYNPFIELDS LIKE LINE OF IT_DYNPFIELDS.

DATA: IT_RET LIKE TABLE OF DDSHRETVAL,
WA_RET LIKE LINE OF IT_RET.


DATA : IT_VALUE LIKE TABLE OF ZVVF_CS_MATDISP,"OF TYPE STRUCTURE
IT_DYNPFLD LIKE TABLE OF DSELC,
WA_IT_DYNPFLD LIKE LINE OF IT_DYNPFLD.


DATA : W_PBDNR LIKE ZVVF_CT_MATDISP-PBDNR,
W_VERSB LIKE ZVVF_CT_MATDISP-VERSB,
W_WERKS LIKE PBIM-WERKS.

MOVE 'PR_PBDNR' TO WA_IT_DYNPFIELDS-FIELDNAME.
APPEND WA_IT_DYNPFIELDS TO IT_DYNPFIELDS.

MOVE 'PR_VERSB' TO WA_IT_DYNPFIELDS-FIELDNAME.
APPEND WA_IT_DYNPFIELDS TO IT_DYNPFIELDS.

MOVE 'PR_WERKS' TO WA_IT_DYNPFIELDS-FIELDNAME.
APPEND WA_IT_DYNPFIELDS TO IT_DYNPFIELDS.


CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = SY-REPID
DYNUMB = '1000'
TRANSLATE_TO_UPPER = 'X'
* REQUEST = ' '
* PERFORM_CONVERSION_EXITS = ' '
* PERFORM_INPUT_CONVERSION = ' '
* DETERMINE_LOOP_INDEX = ' '
TABLES
DYNPFIELDS = it_dynpfields
EXCEPTIONS
INVALID_ABAPWORKAREA = 1
INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
INVALID_PARAMETER = 7
UNDEFIND_ERROR = 8
DOUBLE_CONVERSION = 9
STEPL_NOT_FOUND = 10
OTHERS = 11
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

READ TABLE IT_DYNPFIELDS INTO WA_IT_DYNPFIELDS
WITH KEY FIELDNAME = 'PR_PBDNR'.
W_PBDNR = WA_IT_DYNPFIELDS-FIELDVALUE.

READ TABLE IT_DYNPFIELDS INTO WA_IT_DYNPFIELDS
WITH KEY FIELDNAME = 'PR_VERSB'.
W_VERSB = WA_IT_DYNPFIELDS-FIELDVALUE.

READ TABLE IT_DYNPFIELDS INTO WA_IT_DYNPFIELDS
WITH KEY FIELDNAME = 'PR_WERKS'.
W_WERKS = WA_IT_DYNPFIELDS-FIELDVALUE.



SELECT VERNO FROM ZVVF_CT_MATDISP
INTO CORRESPONDING FIELDS OF TABLE IT_VALUE
WHERE PBDNR = W_PBDNR
AND VERSB = W_VERSB
AND WERKS = W_WERKS.

SORT IT_VALUE BY VERNO.

DELETE ADJACENT DUPLICATES FROM it_value COMPARING VERNO.

****IF WE WANT TO GET DISPLAY OTHER SELECTION-SCREEN VALUES ALONG WITH
*THIS
****F4 HELP VALUE

*MOVE 'ZKRIZ' TO WA_IT_DYNPFLD-FLDNAME.
*MOVE 'PR_GPCNT' TO WA_IT_DYNPFLD-DYFLDNAME.
*APPEND WA_IT_DYNPFLD TO IT_DYNPFLD.


CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
DDIC_STRUCTURE = 'ZVVF_CS_MATDISP'
RETFIELD = 'VERNO'
* PVALKEY = ' '
DYNPPROG = 'ZVVF_CR008_MONTHLYREPORT'
DYNPNR = '1000'
DYNPROFIELD = 'SO_VERNO-LOW'
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ' '
VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
VALUE_TAB = IT_VALUE
* FIELD_TAB =
RETURN_TAB = IT_RET
* DYNPFLD_MAPPING = IT_DYNPFLD
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
.
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. " f007_f4_help
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0100 OUTPUT