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.

OCTOBER 21

Due to placement drives conducted by TCS and  Infosys consecutively, I had been on leave from 21st october 2013  to 31 october 2013. 

OCTOBER 18

*&---------------------------------------------------------------------*
*&     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:

table to view complete forms and finalize result

OCTOBER 17

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

    WHEN 'EXIT'.
      LEAVE PROGRAM.

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

    WHEN 'OK'.
      CLEAR : START_DATE , END_DATE , ZPROJECT_KPI , ZPROJECT_MARKS.
      CALL SCREEN 141.

  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0142  INPUT

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0142  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0142 OUTPUT. "MARKS GIVEN FOR KPI'S AS VIEWED BY ACCEPTING OFFICER"
  SET PF-STATUS '142'.
  SET TITLEBAR '142'.

  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.

  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 = ZPROJECT_EMP-EMP_ID AND START_DATE = START_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 = ZPROJECT_EMP-EMP_ID AND START_DATE = START_DATE.

  ENDCASE.
ENDMODULE.                 " STATUS_0142  OUTPUT

Output:

entering mandatory date fields to view form of corresponding year

display of values for selected years