*&---------------------------------------------------------------------*
*& TAB 119 - VIEW MARKS AND RESULT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TAB'
CONSTANTS: BEGIN
OF C_TAB,
TAB1 LIKE SY-UCOMM VALUE 'TAB_FC1',
TAB2 LIKE SY-UCOMM VALUE 'TAB_FC2',
END
OF C_TAB.
*&SPWIZARD: DATA FOR TABSTRIP 'TAB'
CONTROLS:
TAB TYPE TABSTRIP.
DATA:
BEGIN OF
G_TAB,
SUBSCREEN LIKE
SY-DYNNR,
PROG LIKE
SY-REPID VALUE 'ZPROJECT_EAS',
PRESSED_TAB LIKE SY-UCOMM VALUE
C_TAB-TAB1,
END
OF G_TAB.
*&SPWIZARD: OUTPUT MODULE FOR TS 'TAB'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: SETS ACTIVE TAB
MODULE TAB_ACTIVE_TAB_SET OUTPUT.
TAB-ACTIVETAB = G_TAB-PRESSED_TAB.
CASE
G_TAB-PRESSED_TAB.
WHEN
C_TAB-TAB1.
G_TAB-SUBSCREEN = '0121'.
WHEN
C_TAB-TAB2.
G_TAB-SUBSCREEN = '0122'.
WHEN OTHERS.
*&SPWIZARD: DO NOTHING
ENDCASE.
ENDMODULE.
*&SPWIZARD: INPUT MODULE FOR TS 'TAB'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE TAB_ACTIVE_TAB_GET INPUT.
OK_CODE = SY-UCOMM.
CASE
OK_CODE.
WHEN
C_TAB-TAB1.
G_TAB-PRESSED_TAB = C_TAB-TAB1.
WHEN
C_TAB-TAB2.
G_TAB-PRESSED_TAB = C_TAB-TAB2.
WHEN OTHERS.
*&SPWIZARD: DO NOTHING
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& MODULE STATUS_0123
OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0123 OUTPUT.
SET
PF-STATUS '123'.
SET TITLEBAR '123'.
TYPE-POOLS
: VRM.
SELECT
*
FROM
ZPROJECT_YEAR
INTO TABLE YEAR_DETAILS WHERE
EMP_ID = ZPROJECT_EMP-EMP_ID.
LOOP AT YEAR_DETAILS INTO
TEMP_YEAR.
WA_LISTBOX-KEY
= TEMP_YEAR-START_DATE.
WA_LISTBOX-TEXT
= TEMP_YEAR-START_DATE.
APPEND
WA_LISTBOX TO IT_LISTBOX.
ENDLOOP.
LD_FIELD = 'START_DATE'.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = LD_FIELD
VALUES = IT_LISTBOX.
REFRESH
IT_LISTBOX.
SELECT
*
FROM
ZPROJECT_YEAR
INTO TABLE YEAR_DETAILS WHERE
EMP_ID = ZPROJECT_EMP-EMP_ID.
LOOP AT YEAR_DETAILS INTO
TEMP_YEAR.
WA_LISTBOX-KEY
= TEMP_YEAR-END_DATE.
WA_LISTBOX-TEXT
= TEMP_YEAR-END_DATE.
APPEND
WA_LISTBOX TO IT_LISTBOX.
ENDLOOP.
LD_FIELD = 'END_DATE'.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = LD_FIELD
VALUES = IT_LISTBOX.
REFRESH
IT_LISTBOX.
SELECT SINGLE EMP_ID EMP_NAME DEPT_NAME FROM ZPROJECT_EMP
INTO
(ZPROJECT_RESULT-EMP_ID , ZPROJECT_RESULT-EMP_NAME , ZPROJECT_RESULT-DEPT_NAME)
WHERE
EMP_ID = USER_ID.