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.
Friday, 8 November 2013
Friday, 1 November 2013
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.
Monday, 21 October 2013
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.
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
Subscribe to:
Posts (Atom)