NOVEMBER 18

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0148  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0148 OUTPUT.
*  SET PF-STATUS 'XXXXXXXX'.
*  SET TITLEBAR 'XXX'.
  CASE SY-UCOMM.
    WHEN 'SUBMIT'.
      SELECT SINGLE BEHAVIOUR_ISSUE_1 BEHAVIOUR_ISSUE_2 BEHAVIOUR_ISSUE_3 BEHAVIOUR_ISSUE_4 BEHAVIOUR_ISSUE_5
              FROM ZPROJECT_RESULT
           INTO (ZPROJECT_RESULT-BEHAVIOUR_ISSUE_1 ,ZPROJECT_RESULT-BEHAVIOUR_ISSUE_2 ,ZPROJECT_RESULT-BEHAVIOUR_ISSUE_3
           ,ZPROJECT_RESULT-BEHAVIOUR_ISSUE_4 ,ZPROJECT_RESULT-BEHAVIOUR_ISSUE_5 )
           WHERE EMP_ID = ZPROJECT_EMP-EMP_ID AND START_DATE = START_DATE AND END_DATE = END_DATE.
  ENDCASE.
ENDMODULE.                 " STATUS_0148  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0149  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0149 OUTPUT.
*  SET PF-STATUS 'XXXXXXXX'.
*  SET TITLEBAR 'XXX'.
  CASE SY-UCOMM.
    WHEN 'SUBMIT'.
      SELECT SINGLE   REWARD_1  REWARD_2  REWARD_3  REWARD_4  REWARD_5
           FROM ZPROJECT_RESULT
           INTO (ZPROJECT_RESULT-REWARD_1 ,ZPROJECT_RESULT-REWARD_2 ,ZPROJECT_RESULT-REWARD_3
        ,ZPROJECT_RESULT-REWARD_4 ,ZPROJECT_RESULT-REWARD_5)
           WHERE EMP_ID = ZPROJECT_EMP-EMP_ID AND START_DATE = START_DATE AND END_DATE = END_DATE.
  ENDCASE.
ENDMODULE.                 " STATUS_0149  OUTPUT


Output:

behavior modifications

reward given

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

NOVEMBER 14

*&---------------------------------------------------------------------*
*&     TAB 146 : FINALIZE RESULT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TAB_146'
CONSTANTS: BEGIN OF C_TAB_146,
             TAB1 LIKE SY-UCOMM VALUE 'TAB_146_FC1',
             TAB2 LIKE SY-UCOMM VALUE 'TAB_146_FC2',
             TAB3 LIKE SY-UCOMM VALUE 'TAB_146_FC3',
           END OF C_TAB_146.
*&SPWIZARD: DATA FOR TABSTRIP 'TAB_146'
CONTROLS:  TAB_146 TYPE TABSTRIP.
DATA:      BEGIN OF G_TAB_146,
             SUBSCREEN   LIKE SY-DYNNR,
             PROG        LIKE SY-REPID VALUE 'ZPROJECT_EAS',
             PRESSED_TAB LIKE SY-UCOMM VALUE C_TAB_146-TAB1,
           END OF G_TAB_146.

*&SPWIZARD: OUTPUT MODULE FOR TS 'TAB_146'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: SETS ACTIVE TAB
MODULE TAB_146_ACTIVE_TAB_SET OUTPUT.
  TAB_146-ACTIVETAB = G_TAB_146-PRESSED_TAB.
  CASE G_TAB_146-PRESSED_TAB.
    WHEN C_TAB_146-TAB1.
      G_TAB_146-SUBSCREEN = '0147'.
    WHEN C_TAB_146-TAB2.
      G_TAB_146-SUBSCREEN = '0148'.
    WHEN C_TAB_146-TAB3.
      G_TAB_146-SUBSCREEN = '0149'.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
  ENDCASE.
ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TS 'TAB_146'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE TAB_146_ACTIVE_TAB_GET INPUT.
  OK_CODE = SY-UCOMM.
  CASE OK_CODE.
    WHEN C_TAB_146-TAB1.
      G_TAB_146-PRESSED_TAB = C_TAB_146-TAB1.
    WHEN C_TAB_146-TAB2.
      G_TAB_146-PRESSED_TAB = C_TAB_146-TAB2.
    WHEN C_TAB_146-TAB3.
      G_TAB_146-PRESSED_TAB = C_TAB_146-TAB3.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
  ENDCASE.
ENDMODULE.

*&----------------------------------------------------------------------*
*&      MODULE  STATUS_0146  OUTPUT
*&----------------------------------------------------------------------*
*       TEXT
*------------------------------------------------------------------------*
MODULE STATUS_0146 OUTPUT.
  SET PF-STATUS '146'.
  SET TITLEBAR '146'.

  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.

ENDMODULE.                 " STATUS_0146  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0146  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0146 INPUT.
  CASE SY-UCOMM.

    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'CANCEL'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 1000.

    WHEN 'BACK'.
      CLEAR : START_DATE , END_DATE , ZPROJECT_DETAILS , ZPROJECT_RECORD , ZPROJECT_EMP , ZPROJECT_RESULT.
      CALL SCREEN 145.

    WHEN 'OK'.
      CLEAR : START_DATE , END_DATE , ZPROJECT_DETAILS , ZPROJECT_RECORD , ZPROJECT_EMP , ZPROJECT_RESULT.
      CALL SCREEN 144.

  ENDCASE .
ENDMODULE.                 " USER_COMMAND_0146  INPUT

NOVEMBER 13

*&---------------------------------------------------------------------*
*&     TABLE CONTROL 144: FINALIZE RESULT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'TBC_144'
TYPES: BEGIN OF T_TBC_144,
         EMP_ID LIKE ZPROJECT_EMP-EMP_ID,
         EMP_NAME LIKE ZPROJECT_EMP-EMP_NAME,
         DEPT_NO LIKE ZPROJECT_EMP-DEPT_NO,
         DEPT_NAME LIKE ZPROJECT_EMP-DEPT_NAME,
         MARK LIKE ZPROJECT_EMP-MARK,
       END OF T_TBC_144.

*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'TBC_144'
DATA:     G_TBC_144_ITAB   TYPE T_TBC_144 OCCURS 0,
          G_TBC_144_WA     TYPE T_TBC_144. "WORK AREA
DATA:     G_TBC_144_COPIED.           "COPY FLAG

*&SPWIZARD: DECLARATION OF TABLECONTROL 'TBC_144' ITSELF
CONTROLS: TBC_144 TYPE TABLEVIEW USING SCREEN 0144.

*&SPWIZARD: OUTPUT MODULE FOR TC 'TBC_144'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: COPY DDIC-TABLE TO ITAB
MODULE TBC_144_INIT OUTPUT.
  IF G_TBC_144_COPIED IS INITIAL.
*&SPWIZARD: COPY DDIC-TABLE 'ZPROJECT_EMP'
*&SPWIZARD: INTO INTERNAL TABLE 'G_TBC_144_ITAB'
    SELECT * FROM ZPROJECT_EMP
       INTO CORRESPONDING FIELDS
       OF TABLE G_TBC_144_ITAB.
    G_TBC_144_COPIED = 'X'.
    REFRESH CONTROL 'TBC_144' FROM SCREEN '0144'.
    SORT G_TBC_144_ITAB BY EMP_ID ASCENDING.
  ENDIF.
ENDMODULE.

*&SPWIZARD: OUTPUT MODULE FOR TC 'TBC_144'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MOVE ITAB TO DYNPRO
MODULE TBC_144_MOVE OUTPUT.
  MOVE-CORRESPONDING G_TBC_144_WA TO ZPROJECT_EMP.
ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TC 'TBC_144'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MODIFY TABLE
MODULE TBC_144_MODIFY INPUT.
  MOVE-CORRESPONDING ZPROJECT_EMP TO G_TBC_144_WA.
  MODIFY G_TBC_144_ITAB
    FROM G_TBC_144_WA
    INDEX TBC_144-CURRENT_LINE.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0144  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0144 OUTPUT.
  SET PF-STATUS '144'.
  SET TITLEBAR '144'.

ENDMODULE.                 " STATUS_0144  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0144  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0144 INPUT.
  CASE SY-UCOMM.

    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'CANCEL'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 1000.

    WHEN 'BACK'.
      CALL SCREEN 145.

    WHEN 'SUBMIT'.
      READ TABLE G_TBC_144_ITAB INTO ZPROJECT_EMP  WITH KEY MARK = 'X'.
      CALL SCREEN 146.

  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0144  INPUT



Output:

employee list to view result

NOVEMBER 12

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0137  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0137 OUTPUT.
  SET PF-STATUS '137'.
  SET TITLEBAR '137'.
  SELECT SINGLE AO_ID NAME DEPT_NO DEPT_NAME PASSCODE PHONE_NO ADDRESS
    FROM ZPROJECT_AO
    INTO (ZPROJECT_AO-AO_ID , ZPROJECT_AO-NAME, ZPROJECT_AO-DEPT_NO ,
     ZPROJECT_AO-DEPT_NAME ,ZPROJECT_AO-PASSCODE , ZPROJECT_AO-PHONE_NO ,
    ZPROJECT_AO-ADDRESS)
    WHERE AO_ID = USER_ID.

ENDMODULE.                 " STATUS_0137  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0137  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0137 INPUT.
  CASE SY-UCOMM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCL'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 1000.
    WHEN 'BACK'.
      CALL SCREEN 145.
    WHEN 'SUBMIT'.
      TEMP_AO-AO_ID = ZPROJECT_AO-AO_ID.
      TEMP_AO-NAME = ZPROJECT_AO-NAME.
      TEMP_AO-DEPT_NO = ZPROJECT_AO-DEPT_NO.
      TEMP_AO-DEPT_NAME = ZPROJECT_AO-DEPT_NAME.
      TEMP_AO-PASSCODE = ZPROJECT_AO-PASSCODE.
      TEMP_AO-PHONE_NO = ZPROJECT_AO-PHONE_NO.
      TEMP_AO-ADDRESS = ZPROJECT_AO-ADDRESS.
      MODIFY ZPROJECT_AO FROM TEMP_AO.
      MESSAGE I005(ZMSG_EAS).
      CALL SCREEN 0145.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0137  INPUT



*&---------------------------------------------------------------------*
*&      MODULE  EXIT  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE EXIT INPUT.
  CASE SY-UCOMM.

    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'BACK'.
      LEAVE TO SCREEN 0.

    WHEN 'CANCEL'.
      CLEAR : USER_ID , PASSWORD.
      LEAVE TO SCREEN 1000.

  ENDCASE.
ENDMODULE.                 " EXIT  INPUT


Output:

update basic details for accepting officer

NOVEMBER 11

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0129  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0129 OUTPUT.
  SET PF-STATUS '129'.
  SET TITLEBAR '129'.
  SELECT SINGLE MGR_ID MGR_NAME DEPT_NO DEPT_NAME PASSCODE PHONE_NO
    ADDRESS
    FROM ZPROJECT_MGR
    INTO (ZPROJECT_MGR-MGR_ID , ZPROJECT_MGR-MGR_NAME , ZPROJECT_MGR-DEPT_NO ,
    ZPROJECT_MGR-DEPT_NAME , ZPROJECT_MGR-PASSCODE , ZPROJECT_MGR-PHONE_NO
    ,ZPROJECT_MGR-ADDRESS)
    WHERE MGR_ID = USER_ID.

ENDMODULE.                 " STATUS_0129  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0129  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0129 INPUT.
  CASE SY-UCOMM.

    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 1000.
    WHEN 'BACK'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 125.
    WHEN 'SUBMIT'.
      TEMP_MGR-MGR_ID = ZPROJECT_MGR-MGR_ID.
      TEMP_MGR-MGR_NAME = ZPROJECT_MGR-MGR_NAME.
      TEMP_MGR-DEPT_NO = ZPROJECT_MGR-DEPT_NO.
      TEMP_MGR-DEPT_NAME = ZPROJECT_MGR-DEPT_NAME.
      TEMP_MGR-PASSCODE = ZPROJECT_MGR-PASSCODE.
      TEMP_MGR-PHONE_NO = ZPROJECT_MGR-PHONE_NO.
      TEMP_MGR-ADDRESS = ZPROJECT_MGR-ADDRESS.
      MODIFY ZPROJECT_MGR FROM TEMP_MGR.
      MESSAGE I005(ZMSG_EAS).
      CALL SCREEN 0125.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0129  INPUT

Output:

update basic details for manager

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0136  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0136 OUTPUT.
  SET PF-STATUS '136'.
  SET TITLEBAR '136'.
  SELECT SINGLE RO_ID NAME DEPT_NO DEPT_NAME PASSCODE ADDRESS PHONE_NO
    FROM ZPROJECT_RO
    INTO (ZPROJECT_RO-RO_ID, ZPROJECT_RO-NAME , ZPROJECT_RO-DEPT_NO,
    ZPROJECT_RO-DEPT_NAME , ZPROJECT_RO-PASSCODE , ZPROJECT_RO-ADDRESS , ZPROJECT_RO-PHONE_NO)
    WHERE RO_ID = USER_ID.

ENDMODULE.                 " STATUS_0136  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0136  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0136 INPUT.
  CASE SY-UCOMM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 1000.
    WHEN 'BACK'.
      CALL SCREEN 135.
    WHEN 'SUBMIT'.
      TEMP_RO-RO_ID = ZPROJECT_RO-RO_ID.
      TEMP_RO-NAME = ZPROJECT_RO-NAME.
      TEMP_RO-DEPT_NO = ZPROJECT_RO-DEPT_NO.
      TEMP_RO-DEPT_NAME = ZPROJECT_RO-DEPT_NAME.
      TEMP_RO-PASSCODE = ZPROJECT_RO-PASSCODE.
      TEMP_RO-PHONE_NO = ZPROJECT_RO-PHONE_NO.
      TEMP_RO-ADDRESS = ZPROJECT_RO-ADDRESS.
      MODIFY ZPROJECT_RO FROM TEMP_RO.
      MESSAGE I005(ZMSG_EAS).
      CALL SCREEN 0135.

  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0136  INPUT


Output:

update basic details for reviewing officer

NOVEMBER 08

SAP server was down for last three days. Due to certain up-gradation, the problem had occurred. So, Log-in into the system was not possible. No additional project work could be done these days.