*& MODULE STATUS_0121 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0121 OUTPUT.
* SET PF-STATUS 'XXXXXXXX'.
* SET TITLEBAR 'XXXXXX'.
SELECT SINGLE EMP_ID EMP_NAME DEPT_NAME
FROM ZPROJECT_KPI
INTO (ZPROJECT_KPI-EMP_ID , ZPROJECT_KPI-EMP_NAME , ZPROJECT_KPI-DEPT_NAME )
WHERE EMP_ID = USER_ID.
CASE SY-UCOMM.
WHEN 'SUBMIT'.
SELECT SINGLE
KPI_1 KPI_2 KPI_3 KPI_4 KPI_5
TIME_1 TIME_2 TIME_3 TIME_4 TIME_5
QUALITY_1 QUALITY_2 QUALITY_3 QUALITY_4 QUALITY_5
FROM ZPROJECT_KPI
INTO (ZPROJECT_KPI-KPI_1 , ZPROJECT_KPI-KPI_2 , ZPROJECT_KPI-KPI_3 ,
ZPROJECT_KPI-KPI_4 ,ZPROJECT_KPI-KPI_5 ,ZPROJECT_KPI-TIME_1 ,
ZPROJECT_KPI-TIME_2 , ZPROJECT_KPI-TIME_3 ,ZPROJECT_KPI-TIME_4 ,
ZPROJECT_KPI-TIME_5, ZPROJECT_KPI-QUALITY_1 ,ZPROJECT_KPI-QUALITY_2 ,
ZPROJECT_KPI-QUALITY_3 , ZPROJECT_KPI-QUALITY_4 , ZPROJECT_KPI-QUALITY_5)
WHERE EMP_ID = USER_ID AND START_DATE = START_DATE AND END_DATE = END_DATE.
SELECT SINGLE MARKS_T1 MARKS_T2 MARKS_T3 MARKS_T4 MARKS_T5 MARKS_Q1 MARKS_Q2
MARKS_Q3 MARKS_Q4 MARKS_Q5
FROM ZPROJECT_MARKS
INTO (ZPROJECT_MARKS-MARKS_T1 , ZPROJECT_MARKS-MARKS_T2 , ZPROJECT_MARKS-MARKS_T3 ,
ZPROJECT_MARKS-MARKS_T4 , ZPROJECT_MARKS-MARKS_T5 , ZPROJECT_MARKS-MARKS_Q1 , ZPROJECT_MARKS-MARKS_Q2 ,
ZPROJECT_MARKS-MARKS_Q3 , ZPROJECT_MARKS-MARKS_Q4 , ZPROJECT_MARKS-MARKS_Q5)
WHERE EMP_ID = USER_ID AND START_DATE = START_DATE AND END_DATE = END_DATE.
ENDCASE.
ENDMODULE. " STATUS_0121 OUTPUT
*&---------------------------------------------------------------------*
*& MODULE STATUS_0122 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0122 OUTPUT.
* SET PF-STATUS 'XXXXXXXX'.
* SET TITLEBAR '122'.
SELECT SINGLE EMP_ID EMP_NAME DEPT_NAME FROM ZPROJECT_EMP
INTO (ZPROJECT_EMP-EMP_ID , ZPROJECT_EMP-EMP_NAME , ZPROJECT_EMP-DEPT_NAME)
WHERE EMP_ID = USER_ID.
CASE SY-UCOMM.
WHEN 'SUBMIT'.
SELECT SINGLE PROJECT_NAME PROJECT_STATUS FROM ZPROJECT_DETAILS
INTO (ZPROJECT_DETAILS-PROJECT_NAME , ZPROJECT_DETAILS-PROJECT_STATUS )
WHERE EMP_ID = USER_ID AND PROJECT_START_DATE BETWEEN START_DATE AND END_DATE.
ZPROJECT_RECORD-MAXIMUM_MARKS_TIME = ZPROJECT_KPI-TIME_1 + ZPROJECT_KPI-TIME_2 + ZPROJECT_KPI-TIME_3 +
ZPROJECT_KPI-TIME_4 + ZPROJECT_KPI-TIME_5.
ZPROJECT_RECORD-MAXIMUM_MARKS_QUALITY = ZPROJECT_KPI-QUALITY_1 + ZPROJECT_KPI-QUALITY_2 + ZPROJECT_KPI-QUALITY_3 +
ZPROJECT_KPI-QUALITY_4 + ZPROJECT_KPI-QUALITY_5 .
ZPROJECT_RECORD-TOTAL_MAXIMUM_MARKS = ZPROJECT_RECORD-MAXIMUM_MARKS_TIME + ZPROJECT_RECORD-MAXIMUM_MARKS_QUALITY.
ZPROJECT_RECORD-MARKS_OBTAINED_TIME = ZPROJECT_MARKS-MARKS_T1 + ZPROJECT_MARKS-MARKS_T2 + ZPROJECT_MARKS-MARKS_T3 +
ZPROJECT_MARKS-MARKS_T4 + ZPROJECT_MARKS-MARKS_T5.
ZPROJECT_RECORD-MARKS_OBTAINED_QUALITY = ZPROJECT_MARKS-MARKS_Q1 + ZPROJECT_MARKS-MARKS_Q2 + ZPROJECT_MARKS-MARKS_Q3 +
ZPROJECT_MARKS-MARKS_Q4 + ZPROJECT_MARKS-MARKS_Q5.
ZPROJECT_RECORD-TOTAL_OBTAINED_MARKS = ZPROJECT_RECORD-MARKS_OBTAINED_TIME + ZPROJECT_RECORD-MARKS_OBTAINED_QUALITY.
IF ZPROJECT_RECORD-TOTAL_OBTAINED_MARKS BETWEEN 0 AND 20.
ZPROJECT_RECORD-PERFORMANCE = 'POOR PERFORMANE'.
ELSEIF ZPROJECT_RECORD-TOTAL_OBTAINED_MARKS BETWEEN 21 AND 40.
ZPROJECT_RECORD-PERFORMANCE = 'BELOW AVERAGE PERFORMANCE'.
ELSEIF ZPROJECT_RECORD-TOTAL_OBTAINED_MARKS BETWEEN 41 AND 60.
ZPROJECT_RECORD-PERFORMANCE = 'AVERAGE PERFORMANCE'.
ELSEIF ZPROJECT_RECORD-TOTAL_OBTAINED_MARKS BETWEEN 61 AND 80.
ZPROJECT_RECORD-PERFORMANCE = 'ABOVE AVERAGE PERFORMANCE'.
ELSEIF ZPROJECT_RECORD-TOTAL_OBTAINED_MARKS BETWEEN 81 AND 100.
ZPROJECT_RECORD-PERFORMANCE = 'EXCELLENT PERFORMANCE'.
ENDIF.
ENDCASE.
ENDMODULE. " STATUS_0122 OUTPUT
Output:
View result screen
when the year is entered and submit buttton is clicked, the following dta appears on the screen according to the appraisal year selected.
marks obtained fro the given appraisal year
performance values for the same year entered
No comments:
Post a Comment