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. 

NOVEMBER 01

Today only a review of the topics studied so far was done. No new concepts were studied. Due to Diwali festival and some other festival office remained close on 5th November. Training session resumed from 6th November.