Due to placement drives conducted by TCS and Infosys consecutively, I had been on leave from 21st october 2013 to 31 october 2013.
Monday, 21 October 2013
Friday, 18 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 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
Thursday, 17 October 2013
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:
*& 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
Wednesday, 16 October 2013
OCTOBER 16
*&---------------------------------------------------------------------*
*& TABLE CONTROL 147 - VIEW SUBMITTED FORM
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'TBC_147'
TYPES: BEGIN OF T_TBC_147,
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_147.
*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'TBC_147'
DATA: G_TBC_147_ITAB TYPE T_TBC_147 OCCURS 0,
G_TBC_147_WA TYPE T_TBC_147. "WORK AREA
DATA: G_TBC_147_COPIED. "COPY FLAG
*&SPWIZARD: DECLARATION OF TABLECONTROL 'TBC_147' ITSELF
CONTROLS: TBC_147 TYPE TABLEVIEW USING SCREEN 0141.
*&SPWIZARD: OUTPUT MODULE FOR TC 'TBC_147'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: COPY DDIC-TABLE TO ITAB
MODULE TBC_147_INIT OUTPUT.
IF G_TBC_147_COPIED IS INITIAL.
*&SPWIZARD: COPY DDIC-TABLE 'ZPROJECT_EMP'
*&SPWIZARD: INTO INTERNAL TABLE 'G_TBC_147_ITAB'
SELECT * FROM ZPROJECT_EMP
INTO CORRESPONDING FIELDS
OF TABLE G_TBC_147_ITAB.
G_TBC_147_COPIED = 'X'.
REFRESH CONTROL 'TBC_147' FROM SCREEN '0141'.
SORT G_TBC_147_ITAB BY EMP_ID ASCENDING.
ENDIF.
ENDMODULE.
*&SPWIZARD: OUTPUT MODULE FOR TC 'TBC_147'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MOVE ITAB TO DYNPRO
MODULE TBC_147_MOVE OUTPUT.
MOVE-CORRESPONDING G_TBC_147_WA TO ZPROJECT_EMP.
ENDMODULE.
*&SPWIZARD: INPUT MODULE FOR TC 'TBC_147'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MODIFY TABLE
MODULE TBC_147_MODIFY INPUT.
MOVE-CORRESPONDING ZPROJECT_EMP TO G_TBC_147_WA.
MODIFY G_TBC_147_ITAB
FROM G_TBC_147_WA
INDEX TBC_147-CURRENT_LINE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& MODULE USER_COMMAND_0141 INPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0141 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_147_ITAB INTO ZPROJECT_EMP WITH KEY MARK = 'X'.
CALL SCREEN 142.
ENDCASE.
ENDMODULE. " USER_COMMAND_0141 INPUT
*&---------------------------------------------------------------------*
*& MODULE STATUS_0141 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0141 OUTPUT.
SET PF-STATUS '141'.
SET TITLEBAR '141'.
SELECT SINGLE DEPT_NAME FROM ZPROJECT_AO INTO ZPROJECT_AO-DEPT_NAME WHERE AO_ID = USER_ID.
ENDMODULE. " STATUS_0141 OUTPUT
Output:
*& TABLE CONTROL 147 - VIEW SUBMITTED FORM
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'TBC_147'
TYPES: BEGIN OF T_TBC_147,
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_147.
*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'TBC_147'
DATA: G_TBC_147_ITAB TYPE T_TBC_147 OCCURS 0,
G_TBC_147_WA TYPE T_TBC_147. "WORK AREA
DATA: G_TBC_147_COPIED. "COPY FLAG
*&SPWIZARD: DECLARATION OF TABLECONTROL 'TBC_147' ITSELF
CONTROLS: TBC_147 TYPE TABLEVIEW USING SCREEN 0141.
*&SPWIZARD: OUTPUT MODULE FOR TC 'TBC_147'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: COPY DDIC-TABLE TO ITAB
MODULE TBC_147_INIT OUTPUT.
IF G_TBC_147_COPIED IS INITIAL.
*&SPWIZARD: COPY DDIC-TABLE 'ZPROJECT_EMP'
*&SPWIZARD: INTO INTERNAL TABLE 'G_TBC_147_ITAB'
SELECT * FROM ZPROJECT_EMP
INTO CORRESPONDING FIELDS
OF TABLE G_TBC_147_ITAB.
G_TBC_147_COPIED = 'X'.
REFRESH CONTROL 'TBC_147' FROM SCREEN '0141'.
SORT G_TBC_147_ITAB BY EMP_ID ASCENDING.
ENDIF.
ENDMODULE.
*&SPWIZARD: OUTPUT MODULE FOR TC 'TBC_147'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MOVE ITAB TO DYNPRO
MODULE TBC_147_MOVE OUTPUT.
MOVE-CORRESPONDING G_TBC_147_WA TO ZPROJECT_EMP.
ENDMODULE.
*&SPWIZARD: INPUT MODULE FOR TC 'TBC_147'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MODIFY TABLE
MODULE TBC_147_MODIFY INPUT.
MOVE-CORRESPONDING ZPROJECT_EMP TO G_TBC_147_WA.
MODIFY G_TBC_147_ITAB
FROM G_TBC_147_WA
INDEX TBC_147-CURRENT_LINE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& MODULE USER_COMMAND_0141 INPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0141 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_147_ITAB INTO ZPROJECT_EMP WITH KEY MARK = 'X'.
CALL SCREEN 142.
ENDCASE.
ENDMODULE. " USER_COMMAND_0141 INPUT
*&---------------------------------------------------------------------*
*& MODULE STATUS_0141 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0141 OUTPUT.
SET PF-STATUS '141'.
SET TITLEBAR '141'.
SELECT SINGLE DEPT_NAME FROM ZPROJECT_AO INTO ZPROJECT_AO-DEPT_NAME WHERE AO_ID = USER_ID.
ENDMODULE. " STATUS_0141 OUTPUT
Output:
list of employees to view submitted forms
Tuesday, 15 October 2013
OCTOBER 15
WHEN 'PROJECT_STATUS'.
SELECT * FROM ZPROJECT_DETAILS INTO TABLE PROJECT_DETAILS.
REFRESH IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'EMP_ID'.
WA_FIELDCAT-SELTEXT_M = 'EMP_ID'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'DEPT_NAME'.
WA_FIELDCAT-SELTEXT_M = 'DEPT_NAME'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'PROJECT_NAME'.
WA_FIELDCAT-SELTEXT_M = 'PROJECT_NAME'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'PROJECT_ID'.
WA_FIELDCAT-SELTEXT_M = 'PROJECT_ID'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'PROJECT_START_DATE'.
WA_FIELDCAT-SELTEXT_M = 'PROJECT_START_DATE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'PROJECT_END_DATE'.
WA_FIELDCAT-SELTEXT_M = 'PROJECT_END_DATE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'PROJECT_STATUS'.
WA_FIELDCAT-SELTEXT_M = 'PROJECT_STATUS'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT = IT_FIELDCAT
TABLES
T_OUTTAB = PROJECT_DETAILS.
ENDCASE.
ENDMODULE. " USER_COMMAND_0145 INPUT
Output:
SELECT * FROM ZPROJECT_DETAILS INTO TABLE PROJECT_DETAILS.
REFRESH IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'EMP_ID'.
WA_FIELDCAT-SELTEXT_M = 'EMP_ID'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'DEPT_NAME'.
WA_FIELDCAT-SELTEXT_M = 'DEPT_NAME'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'PROJECT_NAME'.
WA_FIELDCAT-SELTEXT_M = 'PROJECT_NAME'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'PROJECT_ID'.
WA_FIELDCAT-SELTEXT_M = 'PROJECT_ID'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'PROJECT_START_DATE'.
WA_FIELDCAT-SELTEXT_M = 'PROJECT_START_DATE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'PROJECT_END_DATE'.
WA_FIELDCAT-SELTEXT_M = 'PROJECT_END_DATE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'PROJECT_STATUS'.
WA_FIELDCAT-SELTEXT_M = 'PROJECT_STATUS'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT = IT_FIELDCAT
TABLES
T_OUTTAB = PROJECT_DETAILS.
ENDCASE.
ENDMODULE. " USER_COMMAND_0145 INPUT
Output:
view project records of employee
Monday, 14 October 2013
OCTOBER 14
*&---------------------------------------------------------------------*
*& MODULE STATUS_0145 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0145 OUTPUT.
SET PF-STATUS '145'.
SET TITLEBAR '145'.
SELECT SINGLE NAME AO_ID DEPT_NAME FROM ZPROJECT_AO
INTO (ZPROJECT_AO-NAME , ZPROJECT_AO-AO_ID , ZPROJECT_AO-DEPT_NAME)
WHERE AO_ID = USER_ID.
ENDMODULE. " STATUS_0145 OUTPUT
*&---------------------------------------------------------------------*
*& MODULE USER_COMMAND_0145 INPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0145 INPUT.
CASE SY-UCOMM.
WHEN 'BACK'.
CLEAR : USER_ID , PASSWORD.
CALL SCREEN 140.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CMD'.
CALL SCREEN 137.
WHEN 'CANCEL'.
CLEAR : USER_ID , PASSWORD.
CALL SCREEN 1000.
WHEN 'VSF'.
CALL SCREEN 141.
WHEN 'VFR'.
CLEAR : ZPROJECT_DETAILS.
CALL SCREEN 144.
WHEN 'EMPLOYEE_DETAILS'.
SELECT * FROM ZPROJECT_EMP INTO TABLE EMP_DETAILS.
REFRESH IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'EMP_ID'.
WA_FIELDCAT-SELTEXT_M = 'EMP_ID'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'EMP_NAME'.
WA_FIELDCAT-SELTEXT_M = 'EMP_NAME'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'DEPT_NO'.
WA_FIELDCAT-SELTEXT_M = 'DEPARTMENT NO.'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'DEPT_NAME'.
WA_FIELDCAT-SELTEXT_M = 'DEPARTMENT NAME'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'JOINING_DATE'.
WA_FIELDCAT-SELTEXT_M = 'JOINING DATE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'EMP_PHONE'.
WA_FIELDCAT-SELTEXT_M = 'PHONE NO.'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ADDRESS'.
WA_FIELDCAT-SELTEXT_M = 'EMP-ADDRESS'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT = IT_FIELDCAT
TABLES
T_OUTTAB = EMP_DETAILS.
Output:
*& MODULE STATUS_0145 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0145 OUTPUT.
SET PF-STATUS '145'.
SET TITLEBAR '145'.
SELECT SINGLE NAME AO_ID DEPT_NAME FROM ZPROJECT_AO
INTO (ZPROJECT_AO-NAME , ZPROJECT_AO-AO_ID , ZPROJECT_AO-DEPT_NAME)
WHERE AO_ID = USER_ID.
ENDMODULE. " STATUS_0145 OUTPUT
*&---------------------------------------------------------------------*
*& MODULE USER_COMMAND_0145 INPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0145 INPUT.
CASE SY-UCOMM.
WHEN 'BACK'.
CLEAR : USER_ID , PASSWORD.
CALL SCREEN 140.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CMD'.
CALL SCREEN 137.
WHEN 'CANCEL'.
CLEAR : USER_ID , PASSWORD.
CALL SCREEN 1000.
WHEN 'VSF'.
CALL SCREEN 141.
WHEN 'VFR'.
CLEAR : ZPROJECT_DETAILS.
CALL SCREEN 144.
WHEN 'EMPLOYEE_DETAILS'.
SELECT * FROM ZPROJECT_EMP INTO TABLE EMP_DETAILS.
REFRESH IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'EMP_ID'.
WA_FIELDCAT-SELTEXT_M = 'EMP_ID'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'EMP_NAME'.
WA_FIELDCAT-SELTEXT_M = 'EMP_NAME'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'DEPT_NO'.
WA_FIELDCAT-SELTEXT_M = 'DEPARTMENT NO.'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'DEPT_NAME'.
WA_FIELDCAT-SELTEXT_M = 'DEPARTMENT NAME'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'JOINING_DATE'.
WA_FIELDCAT-SELTEXT_M = 'JOINING DATE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'EMP_PHONE'.
WA_FIELDCAT-SELTEXT_M = 'PHONE NO.'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ADDRESS'.
WA_FIELDCAT-SELTEXT_M = 'EMP-ADDRESS'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT = IT_FIELDCAT
TABLES
T_OUTTAB = EMP_DETAILS.
Output:
accepting officer navigation page
view employee details
Friday, 11 October 2013
OCTOBER 11
*&---------------------------------------------------------------------*
*& MODULE STATUS_0140 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0140 OUTPUT.
SET PF-STATUS '140'.
SET TITLEBAR '140'.
ENDMODULE. " STATUS_0140 OUTPUT
*&---------------------------------------------------------------------*
*& MODULE USER_COMMAND_0140 INPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0140 INPUT.
CASE SY-UCOMM.
WHEN 'RESET'.
CLEAR: USER_ID , PASSWORD.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'BACK'.
CLEAR : USER_ID , PASSWORD.
CALL SCREEN 1000.
WHEN 'DISPLAY'.
SELECT SINGLE AO_ID FROM ZPROJECT_AO INTO TEMP_ID
WHERE AO_ID = USER_ID.
SELECT SINGLE PASSCODE FROM ZPROJECT_AO INTO TEMP_PASS
WHERE AO_ID = USER_ID.
IF USER_ID EQ TEMP_ID AND PASSWORD EQ TEMP_PASS .
MESSAGE 'ACCEPTING OFFICER LOGIN' TYPE 'S'.
CLEAR : TEMP_ID , TEMP_PASS.
CALL SCREEN 0145.
ELSEIF USER_ID EQ TEMP_ID AND PASSWORD EQ ' '.
MESSAGE I000(ZMSG_EAS).
ELSEIF USER_ID EQ TEMP_ID AND NOT PASSWORD EQ TEMP_PASS.
CLEAR PASSWORD.
MESSAGE I001(ZMSG_EAS).
ELSE.
CLEAR: USER_ID , PASSWORD.
MESSAGE I002(ZMSG_EAS).
ENDIF.
CLEAR : TEMP_ID , TEMP_PASS.
ENDCASE.
ENDMODULE. " USER_COMMAND_0140 INPUT
Output:
*& MODULE STATUS_0140 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0140 OUTPUT.
SET PF-STATUS '140'.
SET TITLEBAR '140'.
ENDMODULE. " STATUS_0140 OUTPUT
*&---------------------------------------------------------------------*
*& MODULE USER_COMMAND_0140 INPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0140 INPUT.
CASE SY-UCOMM.
WHEN 'RESET'.
CLEAR: USER_ID , PASSWORD.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'BACK'.
CLEAR : USER_ID , PASSWORD.
CALL SCREEN 1000.
WHEN 'DISPLAY'.
SELECT SINGLE AO_ID FROM ZPROJECT_AO INTO TEMP_ID
WHERE AO_ID = USER_ID.
SELECT SINGLE PASSCODE FROM ZPROJECT_AO INTO TEMP_PASS
WHERE AO_ID = USER_ID.
IF USER_ID EQ TEMP_ID AND PASSWORD EQ TEMP_PASS .
MESSAGE 'ACCEPTING OFFICER LOGIN' TYPE 'S'.
CLEAR : TEMP_ID , TEMP_PASS.
CALL SCREEN 0145.
ELSEIF USER_ID EQ TEMP_ID AND PASSWORD EQ ' '.
MESSAGE I000(ZMSG_EAS).
ELSEIF USER_ID EQ TEMP_ID AND NOT PASSWORD EQ TEMP_PASS.
CLEAR PASSWORD.
MESSAGE I001(ZMSG_EAS).
ELSE.
CLEAR: USER_ID , PASSWORD.
MESSAGE I002(ZMSG_EAS).
ENDIF.
CLEAR : TEMP_ID , TEMP_PASS.
ENDCASE.
ENDMODULE. " USER_COMMAND_0140 INPUT
Output:
Accepting officer login page
Thursday, 10 October 2013
OCTOBER 10
*&---------------------------------------------------------------------*
*& MODULE STATUS_0132 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0132 OUTPUT. "EMPLOYEE DETAILS VIEWD BY REVIEWING OFFICER"
* SET PF-STATUS 'XXXX'.
* SET TITLEBAR 'XXXXX'.
SELECT SINGLE EMP_ID EMP_NAME DEPT_NAME
FROM ZPROJECT_EMP
INTO (ZPROJECT_EMP-EMP_ID , ZPROJECT_EMP-EMP_NAME , ZPROJECT_EMP-DEPT_NAME )
WHERE EMP_ID = ZPROJECT_EMP-EMP_ID.
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 = S_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.
ENDMODULE. " STATUS_0132 OUTPUT
Output:
*& MODULE STATUS_0132 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0132 OUTPUT. "EMPLOYEE DETAILS VIEWD BY REVIEWING OFFICER"
* SET PF-STATUS 'XXXX'.
* SET TITLEBAR 'XXXXX'.
SELECT SINGLE EMP_ID EMP_NAME DEPT_NAME
FROM ZPROJECT_EMP
INTO (ZPROJECT_EMP-EMP_ID , ZPROJECT_EMP-EMP_NAME , ZPROJECT_EMP-DEPT_NAME )
WHERE EMP_ID = ZPROJECT_EMP-EMP_ID.
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 = S_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.
ENDMODULE. " STATUS_0132 OUTPUT
Output:
performance details viewed by the reviewing officer
assigning behavioral modifications to employees
giving rewards according to the performance
The result provided by the reviewing officer is submitted into DDIC tables ZPROJECT_RECORD and ZPROJECT_RESULT
data successfully submitted
Wednesday, 9 October 2013
OCTOBER 09
*&---------------------------------------------------------------------*
*& MODULE USER_COMMAND_0131 INPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0131 INPUT.
CASE SY-UCOMM.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CANCEL'.
CLEAR : USER_ID , PASSWORD.
CLEAR : START_DATE , END_DATE.
CLEAR : ZPROJECT_RECORD , START_DATE , END_DATE , ZPROJECT_DETAILS.
CLEAR : CHK1 ,CHK2 ,CHK3 ,CHK4 ,CHK5 ,CHK6 ,CHK7 ,CHK8 ,CHK9 ,CHK10.
CALL SCREEN 1000.
WHEN 'BACK'.
CLEAR : ZPROJECT_RECORD , START_DATE , END_DATE , ZPROJECT_DETAILS.
CLEAR : CHK1 ,CHK2 ,CHK3 ,CHK4 ,CHK5 ,CHK6 ,CHK7 ,CHK8 ,CHK9 ,CHK10.
CALL SCREEN 124.
WHEN 'SUBMIT'.
TEMP_RESULT-EMP_ID = ZPROJECT_EMP-EMP_ID.
TEMP_RESULT-EMP_NAME = ZPROJECT_EMP-EMP_NAME.
TEMP_RESULT-START_DATE = START_DATE.
TEMP_RESULT-END_DATE = END_DATE.
TEMP_RESULT-DEPT_NAME = ZPROJECT_EMP-DEPT_NAME.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_5 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_3 = 'NILL'.
TEMP_RESULT-REWARD_4 = 'NILL'.
TEMP_RESULT-REWARD_5 = 'NILL'.
IF CHK1 = 'X'.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NEEDS SUPERVISION'.
ENDIF.
IF CHK2 = 'X'.
IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'SHOULD BE INITIATIVE'.
ELSE.
TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'SHOULD BE INITIATIVE'.
ENDIF.
ENDIF.
IF CHK3 = 'X'.
IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NEED ENTHUSIASM AND SELF EXPRESSION'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NEED ENTHUSIASM AND SELF EXPRESSION'.
ELSE.
TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NEED ENTHUSIASM AND SELF EXPRESSION'.
ENDIF.
ENDIF.
IF CHK4 = 'X'.
IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'SHOULD POSSES TEAM SPIRIT'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'SHOULD POSSES TEAM SPIRIT'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'SHOULD POSSES TEAM SPIRIT'.
ELSE.
TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'SHOULD POSSES TEAM SPIRIT'.
ENDIF.
ENDIF.
IF CHK5 = 'X'.
IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NEED TO BE COST EFFECTIVE'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NEED TO BE COST EFFECTIVE'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NEED TO BE COST EFFECTIVE'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'NEED TO BE COST EFFECTIVE'.
ELSE.
TEMP_RESULT-BEHAVIOUR_ISSUE_5 = 'NEED TO BE COST EFFECTIVE'.
ENDIF.
ENDIF.
IF CHK6 = 'X'.
IF R1 = 'X'.
TEMP_RESULT-REWARD_1 = 'PROMOTION'.
ENDIF.
IF R2 = 'X'.
TEMP_RESULT-REWARD_1 = 'TRANSFER'.
ENDIF.
ENDIF.
IF CHK7 = 'X'.
IF R3 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'PAY INCREASE'.
ELSE.
TEMP_RESULT-REWARD_2 = 'PAY INCREASE'.
ENDIF.
ENDIF.
IF R4 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'PENSION SCHEME'.
ELSE.
TEMP_RESULT-REWARD_2 = 'PENSION SCHEME'.
ENDIF.
ENDIF.
ENDIF.
IF CHK8 = 'X'.
IF R5 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'INCENTIVES'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'INCENTIVES'.
ELSE.
TEMP_RESULT-REWARD_3 = 'NCENTIVES'.
ENDIF.
ENDIF.
IF R6 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'BONUS'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'BONUS'.
ELSE.
TEMP_RESULT-REWARD_3 = 'BONUS'.
ENDIF.
ENDIF.
ENDIF.
IF CHK9 = 'X'.
IF R7 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'HOLIDAY PACKAGE'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'HOLIDAY PACKAGE'.
ELSEIF TEMP_RESULT-REWARD_3 = 'NILL'.
TEMP_RESULT-REWARD_3 = 'HOLIDAY PACKAGE'.
ELSE.
TEMP_RESULT-REWARD_4 = 'HOLIDAY PACKAGE'.
ENDIF.
ENDIF.
IF R8 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'MEDICAL FACILITY'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'MEDICAL FACILITY'.
ELSEIF TEMP_RESULT-REWARD_3 = 'NILL'.
TEMP_RESULT-REWARD_3 = 'MEDICAL FACILITY'.
ELSE.
TEMP_RESULT-REWARD_4 = 'MEDICAL FACILITY'.
ENDIF.
ENDIF.
ENDIF.
IF CHK10 = 'X'.
IF R9 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'WORK RECOGNITION'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'WORK RECOGNITION'.
ELSEIF TEMP_RESULT-REWARD_3 = 'NILL'.
TEMP_RESULT-REWARD_3 = 'WORK RECOGNITION'.
ELSEIF TEMP_RESULT-REWARD_4 = 'NILL'.
TEMP_RESULT-REWARD_4 = 'WORK RECOGNITION'.
ELSE.
TEMP_RESULT-REWARD_5 = 'WORK RECOGNITION'.
ENDIF.
ENDIF.
IF R10 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'PLACEMENT'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'PLACEMENT'.
ELSEIF TEMP_RESULT-REWARD_3 = 'NILL'.
TEMP_RESULT-REWARD_3 = 'PLACEMENT'.
ELSEIF TEMP_RESULT-REWARD_4 = 'NILL'.
TEMP_RESULT-REWARD_4 = 'PLACEMENT'.
ELSE.
TEMP_RESULT-REWARD_5 = 'PLACEMENT'.
ENDIF.
ENDIF.
ENDIF.
MODIFY ZPROJECT_RESULT FROM TEMP_RESULT.
MESSAGE I005(ZMSG_EAS).
CALL SCREEN 1300.
ENDCASE.
ENDMODULE. " USER_COMMAND_0131 INPUT
*& MODULE USER_COMMAND_0131 INPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0131 INPUT.
CASE SY-UCOMM.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CANCEL'.
CLEAR : USER_ID , PASSWORD.
CLEAR : START_DATE , END_DATE.
CLEAR : ZPROJECT_RECORD , START_DATE , END_DATE , ZPROJECT_DETAILS.
CLEAR : CHK1 ,CHK2 ,CHK3 ,CHK4 ,CHK5 ,CHK6 ,CHK7 ,CHK8 ,CHK9 ,CHK10.
CALL SCREEN 1000.
WHEN 'BACK'.
CLEAR : ZPROJECT_RECORD , START_DATE , END_DATE , ZPROJECT_DETAILS.
CLEAR : CHK1 ,CHK2 ,CHK3 ,CHK4 ,CHK5 ,CHK6 ,CHK7 ,CHK8 ,CHK9 ,CHK10.
CALL SCREEN 124.
WHEN 'SUBMIT'.
TEMP_RESULT-EMP_ID = ZPROJECT_EMP-EMP_ID.
TEMP_RESULT-EMP_NAME = ZPROJECT_EMP-EMP_NAME.
TEMP_RESULT-START_DATE = START_DATE.
TEMP_RESULT-END_DATE = END_DATE.
TEMP_RESULT-DEPT_NAME = ZPROJECT_EMP-DEPT_NAME.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_5 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_3 = 'NILL'.
TEMP_RESULT-REWARD_4 = 'NILL'.
TEMP_RESULT-REWARD_5 = 'NILL'.
IF CHK1 = 'X'.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NEEDS SUPERVISION'.
ENDIF.
IF CHK2 = 'X'.
IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'SHOULD BE INITIATIVE'.
ELSE.
TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'SHOULD BE INITIATIVE'.
ENDIF.
ENDIF.
IF CHK3 = 'X'.
IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NEED ENTHUSIASM AND SELF EXPRESSION'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NEED ENTHUSIASM AND SELF EXPRESSION'.
ELSE.
TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NEED ENTHUSIASM AND SELF EXPRESSION'.
ENDIF.
ENDIF.
IF CHK4 = 'X'.
IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'SHOULD POSSES TEAM SPIRIT'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'SHOULD POSSES TEAM SPIRIT'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'SHOULD POSSES TEAM SPIRIT'.
ELSE.
TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'SHOULD POSSES TEAM SPIRIT'.
ENDIF.
ENDIF.
IF CHK5 = 'X'.
IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NEED TO BE COST EFFECTIVE'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NEED TO BE COST EFFECTIVE'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NEED TO BE COST EFFECTIVE'.
ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'NILL'.
TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'NEED TO BE COST EFFECTIVE'.
ELSE.
TEMP_RESULT-BEHAVIOUR_ISSUE_5 = 'NEED TO BE COST EFFECTIVE'.
ENDIF.
ENDIF.
IF CHK6 = 'X'.
IF R1 = 'X'.
TEMP_RESULT-REWARD_1 = 'PROMOTION'.
ENDIF.
IF R2 = 'X'.
TEMP_RESULT-REWARD_1 = 'TRANSFER'.
ENDIF.
ENDIF.
IF CHK7 = 'X'.
IF R3 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'PAY INCREASE'.
ELSE.
TEMP_RESULT-REWARD_2 = 'PAY INCREASE'.
ENDIF.
ENDIF.
IF R4 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'PENSION SCHEME'.
ELSE.
TEMP_RESULT-REWARD_2 = 'PENSION SCHEME'.
ENDIF.
ENDIF.
ENDIF.
IF CHK8 = 'X'.
IF R5 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'INCENTIVES'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'INCENTIVES'.
ELSE.
TEMP_RESULT-REWARD_3 = 'NCENTIVES'.
ENDIF.
ENDIF.
IF R6 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'BONUS'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'BONUS'.
ELSE.
TEMP_RESULT-REWARD_3 = 'BONUS'.
ENDIF.
ENDIF.
ENDIF.
IF CHK9 = 'X'.
IF R7 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'HOLIDAY PACKAGE'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'HOLIDAY PACKAGE'.
ELSEIF TEMP_RESULT-REWARD_3 = 'NILL'.
TEMP_RESULT-REWARD_3 = 'HOLIDAY PACKAGE'.
ELSE.
TEMP_RESULT-REWARD_4 = 'HOLIDAY PACKAGE'.
ENDIF.
ENDIF.
IF R8 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'MEDICAL FACILITY'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'MEDICAL FACILITY'.
ELSEIF TEMP_RESULT-REWARD_3 = 'NILL'.
TEMP_RESULT-REWARD_3 = 'MEDICAL FACILITY'.
ELSE.
TEMP_RESULT-REWARD_4 = 'MEDICAL FACILITY'.
ENDIF.
ENDIF.
ENDIF.
IF CHK10 = 'X'.
IF R9 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'WORK RECOGNITION'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'WORK RECOGNITION'.
ELSEIF TEMP_RESULT-REWARD_3 = 'NILL'.
TEMP_RESULT-REWARD_3 = 'WORK RECOGNITION'.
ELSEIF TEMP_RESULT-REWARD_4 = 'NILL'.
TEMP_RESULT-REWARD_4 = 'WORK RECOGNITION'.
ELSE.
TEMP_RESULT-REWARD_5 = 'WORK RECOGNITION'.
ENDIF.
ENDIF.
IF R10 = 'X'.
IF TEMP_RESULT-REWARD_1 = 'NILL'.
TEMP_RESULT-REWARD_1 = 'PLACEMENT'.
ELSEIF TEMP_RESULT-REWARD_2 = 'NILL'.
TEMP_RESULT-REWARD_2 = 'PLACEMENT'.
ELSEIF TEMP_RESULT-REWARD_3 = 'NILL'.
TEMP_RESULT-REWARD_3 = 'PLACEMENT'.
ELSEIF TEMP_RESULT-REWARD_4 = 'NILL'.
TEMP_RESULT-REWARD_4 = 'PLACEMENT'.
ELSE.
TEMP_RESULT-REWARD_5 = 'PLACEMENT'.
ENDIF.
ENDIF.
ENDIF.
MODIFY ZPROJECT_RESULT FROM TEMP_RESULT.
MESSAGE I005(ZMSG_EAS).
CALL SCREEN 1300.
ENDCASE.
ENDMODULE. " USER_COMMAND_0131 INPUT
Tuesday, 8 October 2013
OCTOBER 08
*&---------------------------------------------------------------------*
*& TAB 131 - ASSIGN RESULT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TAB_131'
CONSTANTS: BEGIN OF C_TAB_131,
TAB1 LIKE SY-UCOMM VALUE 'TAB_131_FC1',
TAB2 LIKE SY-UCOMM VALUE 'TAB_131_FC2',
TAB3 LIKE SY-UCOMM VALUE 'TAB_131_FC3',
END OF C_TAB_131.
*&SPWIZARD: DATA FOR TABSTRIP 'TAB_131'
CONTROLS: TAB_131 TYPE TABSTRIP.
DATA: BEGIN OF G_TAB_131,
SUBSCREEN LIKE SY-DYNNR,
PROG LIKE SY-REPID VALUE 'ZPROJECT_EAS',
PRESSED_TAB LIKE SY-UCOMM VALUE C_TAB_131-TAB1,
END OF G_TAB_131.
*&SPWIZARD: OUTPUT MODULE FOR TS 'TAB_131'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: SETS ACTIVE TAB
MODULE TAB_131_ACTIVE_TAB_SET OUTPUT.
TAB_131-ACTIVETAB = G_TAB_131-PRESSED_TAB.
CASE G_TAB_131-PRESSED_TAB.
WHEN C_TAB_131-TAB1.
G_TAB_131-SUBSCREEN = '0132'.
WHEN C_TAB_131-TAB2.
G_TAB_131-SUBSCREEN = '0133'.
WHEN C_TAB_131-TAB3.
G_TAB_131-SUBSCREEN = '0134'.
WHEN OTHERS.
*&SPWIZARD: DO NOTHING
ENDCASE.
ENDMODULE.
*&SPWIZARD: INPUT MODULE FOR TS 'TAB_131'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE TAB_131_ACTIVE_TAB_GET INPUT.
OK_CODE = SY-UCOMM.
CASE OK_CODE.
WHEN C_TAB_131-TAB1.
G_TAB_131-PRESSED_TAB = C_TAB_131-TAB1.
WHEN C_TAB_131-TAB2.
G_TAB_131-PRESSED_TAB = C_TAB_131-TAB2.
WHEN C_TAB_131-TAB3.
G_TAB_131-PRESSED_TAB = C_TAB_131-TAB3.
WHEN OTHERS.
*&SPWIZARD: DO NOTHING
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& MODULE STATUS_0131 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0131 OUTPUT.
SET PF-STATUS '131'.
SET TITLEBAR '131'.
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_0131 OUTPUT
Output:
*& TAB 131 - ASSIGN RESULT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TAB_131'
CONSTANTS: BEGIN OF C_TAB_131,
TAB1 LIKE SY-UCOMM VALUE 'TAB_131_FC1',
TAB2 LIKE SY-UCOMM VALUE 'TAB_131_FC2',
TAB3 LIKE SY-UCOMM VALUE 'TAB_131_FC3',
END OF C_TAB_131.
*&SPWIZARD: DATA FOR TABSTRIP 'TAB_131'
CONTROLS: TAB_131 TYPE TABSTRIP.
DATA: BEGIN OF G_TAB_131,
SUBSCREEN LIKE SY-DYNNR,
PROG LIKE SY-REPID VALUE 'ZPROJECT_EAS',
PRESSED_TAB LIKE SY-UCOMM VALUE C_TAB_131-TAB1,
END OF G_TAB_131.
*&SPWIZARD: OUTPUT MODULE FOR TS 'TAB_131'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: SETS ACTIVE TAB
MODULE TAB_131_ACTIVE_TAB_SET OUTPUT.
TAB_131-ACTIVETAB = G_TAB_131-PRESSED_TAB.
CASE G_TAB_131-PRESSED_TAB.
WHEN C_TAB_131-TAB1.
G_TAB_131-SUBSCREEN = '0132'.
WHEN C_TAB_131-TAB2.
G_TAB_131-SUBSCREEN = '0133'.
WHEN C_TAB_131-TAB3.
G_TAB_131-SUBSCREEN = '0134'.
WHEN OTHERS.
*&SPWIZARD: DO NOTHING
ENDCASE.
ENDMODULE.
*&SPWIZARD: INPUT MODULE FOR TS 'TAB_131'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE TAB_131_ACTIVE_TAB_GET INPUT.
OK_CODE = SY-UCOMM.
CASE OK_CODE.
WHEN C_TAB_131-TAB1.
G_TAB_131-PRESSED_TAB = C_TAB_131-TAB1.
WHEN C_TAB_131-TAB2.
G_TAB_131-PRESSED_TAB = C_TAB_131-TAB2.
WHEN C_TAB_131-TAB3.
G_TAB_131-PRESSED_TAB = C_TAB_131-TAB3.
WHEN OTHERS.
*&SPWIZARD: DO NOTHING
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& MODULE STATUS_0131 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0131 OUTPUT.
SET PF-STATUS '131'.
SET TITLEBAR '131'.
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_0131 OUTPUT
Output:
mandatory date fields to be entered
values entered by the reviewing officer
Subscribe to:
Posts (Atom)