Friday 15 November 2013

NOVEMBER 15

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0147  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0147 OUTPUT.
*  SET PF-STATUS 'XXXXXXXX'.
*  SET TITLEBAR 'XXX'.
  CASE SY-UCOMM.
    WHEN 'SUBMIT'.

      SELECT SINGLE PROJECT_NAME PROJECT_START_DATE PROJECT_END_DATE FROM ZPROJECT_DETAILS
        INTO (ZPROJECT_DETAILS-PROJECT_NAME ,ZPROJECT_DETAILS-PROJECT_START_DATE , ZPROJECT_DETAILS-PROJECT_END_DATE )
        WHERE EMP_ID = ZPROJECT_EMP-EMP_ID AND PROJECT_START_DATE BETWEEN START_DATE AND END_DATE.

      SELECT SINGLE MAXIMUM_MARKS_TIME MAXIMUM_MARKS_QUALITY TOTAL_MAXIMUM_MARKS MARKS_OBTAINED_TIME
         MARKS_OBTAINED_QUALITY TOTAL_OBTAINED_MARKS PERFORMANCE
         FROM ZPROJECT_RECORD
         INTO (ZPROJECT_RECORD-MAXIMUM_MARKS_TIME , ZPROJECT_RECORD-MAXIMUM_MARKS_QUALITY ,
         ZPROJECT_RECORD-TOTAL_MAXIMUM_MARKS , ZPROJECT_RECORD-MARKS_OBTAINED_TIME ,
         ZPROJECT_RECORD-MARKS_OBTAINED_QUALITY , ZPROJECT_RECORD-TOTAL_OBTAINED_MARKS ,
          ZPROJECT_RECORD-PERFORMANCE)
         WHERE EMP_ID = ZPROJECT_EMP-EMP_ID AND START_DATE = START_DATE AND END_DATE = END_DATE.
  ENDCASE.
ENDMODULE.                 " STATUS_0147  OUTPUT


Output:

mandatory date fields to display values


display of values for selected year