SEPTEMBER 27

manager can view the details of employee belonging to his own department only.

viewing employee details

manager views the project details of his employee.

view project details

manager viewing the KPI details as declared by his employees.

view KPI and marks details

Manager also assign marks to his employee:

*&---------------------------------------------------------------------*
*&      TABLE CONTROL  TBC- 127 FOR MANAGER
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*

*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'TBC_127'
TYPES: BEGIN OF T_TBC_127,
         EMP_ID LIKE ZPROJECT_KPI-EMP_ID,
         START_DATE LIKE ZPROJECT_KPI-START_DATE,
         END_DATE LIKE ZPROJECT_KPI-END_DATE,
         EMP_NAME LIKE ZPROJECT_KPI-EMP_NAME,
         DEPT_NAME LIKE ZPROJECT_KPI-DEPT_NAME,
         MARK LIKE ZPROJECT_KPI-MARK,
       END OF T_TBC_127.

*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'TBC_127'
DATA:     G_TBC_127_ITAB   TYPE T_TBC_127 OCCURS 0,
          G_TBC_127_WA     TYPE T_TBC_127. "WORK AREA
DATA:     G_TBC_127_COPIED.           "COPY FLAG

*&SPWIZARD: DECLARATION OF TABLECONTROL 'TBC_127' ITSELF
CONTROLS: TBC_127 TYPE TABLEVIEW USING SCREEN 0127.

*&SPWIZARD: OUTPUT MODULE FOR TC 'TBC_127'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: COPY DDIC-TABLE TO ITAB
MODULE TBC_127_INIT OUTPUT.
  IF G_TBC_127_COPIED IS INITIAL.
*&SPWIZARD: COPY DDIC-TABLE 'ZPROJECT_KPI'
*&SPWIZARD: INTO INTERNAL TABLE 'G_TBC_127_ITAB'
    SELECT * FROM ZPROJECT_KPI
       INTO CORRESPONDING FIELDS
       OF TABLE G_TBC_127_ITAB WHERE DEPT_NAME = ZPROJECT_MGR-DEPT_NAME.
    G_TBC_127_COPIED = 'X'.
    REFRESH CONTROL 'TBC_127' FROM SCREEN '0127'.
    SORT G_TBC_127_ITAB BY EMP_ID ASCENDING.
  ENDIF.
ENDMODULE.

*&SPWIZARD: OUTPUT MODULE FOR TC 'TBC_127'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MOVE ITAB TO DYNPRO
MODULE TBC_127_MOVE OUTPUT.
  MOVE-CORRESPONDING G_TBC_127_WA TO ZPROJECT_KPI.
ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TC 'TBC_127'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MODIFY TABLE
MODULE TBC_127_MODIFY INPUT.
  MOVE-CORRESPONDING ZPROJECT_KPI TO G_TBC_127_WA .
  MODIFY G_TBC_127_ITAB
    FROM G_TBC_127_WA
    INDEX TBC_127-CURRENT_LINE.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0127  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0127 OUTPUT.
  SET PF-STATUS '127'.
  SET TITLEBAR '127'.
  SELECT SINGLE DEPT_NAME FROM ZPROJECT_MGR INTO ZPROJECT_MGR-DEPT_NAME
    WHERE MGR_ID = USER_ID.

ENDMODULE.                 " STATUS_0127  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0127  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0127 INPUT.
  CASE SY-UCOMM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      CLEAR :USER_ID , PASSWORD , G_TBC_127_COPIED.
      CALL SCREEN 1000.
    WHEN 'BACK'.
      CALL SCREEN 125.
    WHEN 'SUBMIT'.
      READ TABLE  G_TBC_127_ITAB INTO ZPROJECT_KPI  WITH KEY   MARK = 'X'.
      CALL SCREEN 126.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0127  INPUT

Output:

table of employees to select and assign marks