REPORT zworkflow.
*-----------------------------------------------------------------------
* T Y P E P O O L S
*-----------------------------------------------------------------------
TYPE-POOLS: slis.
*-----------------------------------------------------------------------
* T A B L E S
*-----------------------------------------------------------------------
TABLES : swwwihead,
usr02.
*-----------------------------------------------------------------------
* T Y P E S
*-----------------------------------------------------------------------
TYPES: BEGIN OF ty_final.
INCLUDE STRUCTURE swwwihead.
TYPES: END OF ty_final.
*-----------------------------------------------------------------------
* I N T E R N A L T A B L E S
*-----------------------------------------------------------------------
DATA: t_mm003 TYPE TABLE OF swwwihead WITH HEADER LINE,
t_mm004 TYPE TABLE OF swwwihead WITH HEADER LINE,
t_mm005 TYPE TABLE OF swwwihead WITH HEADER LINE,
lw_swwuserwi TYPE swwuserwi.
DATA: t_final TYPE TABLE OF swwwihead WITH HEADER LINE.
DATA: t_fieldcat TYPE slis_t_fieldcat_alv,
w_fieldcat LIKE LINE OF t_fieldcat,
w_layout TYPE slis_layout_alv,
wa_indx TYPE indx.
*-----------------------------------------------------------------------
* V A R I A B L E D E C L A R A T I O N S
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* M A C R O S
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* S E L E C T - O P T I O N S A N D P A R A M E T E R S
*-----------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_date FOR sy-datum,
s_task FOR swwwihead-wi_rh_task,
s_stat FOR swwwihead-wi_stat NO INTERVALS.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: r_po RADIOBUTTON GROUP g1,
r_rfq RADIOBUTTON GROUP g1,
r_cont RADIOBUTTON GROUP g1.
SELECT-OPTIONS : s_userid FOR usr02-bname NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK b2.
*-----------------------------------------------------------------------
* I N I T I A L I Z A T I O N
*-----------------------------------------------------------------------
INITIALIZATION.
s_stat-option = 'EQ'.
s_stat-sign = 'I'.
s_stat-low = 'READY'.
APPEND s_stat.
*-----------------------------------------------------------------------
* A T S E L E C T I O N - S C R E E N
*-----------------------------------------------------------------------
AT SELECTION-SCREEN.
*-----------------------------------------------------------------------
* S T A R T - O F - S E L E C T I O N
*-----------------------------------------------------------------------
START-OF-SELECTION.
*-----------------------------------------------------------------------
* T O P - O F - P A G E
*-----------------------------------------------------------------------
TOP-OF-PAGE.
*-----------------------------------------------------------------------
* E N D - O F - S E L E C T I O N
*-----------------------------------------------------------------------
END-OF-SELECTION.
PERFORM build_fieldcat .
PERFORM build_layout.
PERFORM display_alv.
*-----------------------------------------------------------------------
* F O R M S
*-----------------------------------------------------------------------
*&---------------------------------------------------------------------*
*& Form FIELDAT
*----------------------------------------------------------------------*
FORM fieldat USING p_fieldname TYPE slis_fieldcat_main0-fieldname
p_desc TYPE slis_fieldcat_main1-reptext_ddic.
w_fieldcat-fieldname = p_fieldname.
w_fieldcat-reptext_ddic = p_desc.
APPEND w_fieldcat TO t_fieldcat.
CLEAR w_fieldcat.
ENDFORM. " FIELDAT
*&---------------------------------------------------------------------*
*& Form GET_TASKLIST
*----------------------------------------------------------------------*
FORM get_tasklist .
IF r_po = 'X'.
s_task-option = 'EQ'.
s_task-sign = 'I'.
s_task-low = 'TS90000072'.
APPEND s_task.
ELSEIF r_rfq = 'X'.
s_task-option = 'EQ'.
s_task-sign = 'I'.
s_task-low = 'TS90000078'.
APPEND s_task.
ELSEIF r_cont = 'X'.
s_task-option = 'EQ'.
s_task-sign = 'I'.
s_task-low = 'TS90000077'.
APPEND s_task.
ENDIF.
ENDFORM. " GET_TASKLIST
*&---------------------------------------------------------------------*
*& Form GET_WORKFLOW_ITEMS
*----------------------------------------------------------------------*
FORM get_workflow_items .
SELECT * FROM swwwihead
INTO TABLE t_final
WHERE wi_cd IN s_date
AND wi_rh_task IN s_task
AND wi_stat IN s_stat.
IF sy-subrc = 0.
SORT t_final BY wi_text.
ELSE.
MESSAGE i398(00) WITH 'No Data Selected for the given selection'.
LEAVE TO SCREEN 0.
ENDIF.
LOOP AT t_final.
SELECT SINGLE * FROM swwuserwi INTO lw_swwuserwi
WHERE wi_id = t_final-wi_id
AND user_id = sy-uname
AND no_sel = space.
IF sy-subrc NE 0.
DELETE t_final.
ENDIF.
ENDLOOP.
ENDFORM. " GET_WORKFLOW_ITEMS
*&---------------------------------------------------------------------*
*& Form BUILD_FIELDCAT
*----------------------------------------------------------------------*
FORM build_fieldcat .
PERFORM fieldat USING 'WI_TEXT' 'Work item text'.
PERFORM fieldat USING 'WI_CD' 'Created Date'.
PERFORM fieldat USING 'WI_CRUSER' 'Created By'.
PERFORM fieldat USING 'WI_STAT' 'Status'.
ENDFORM. " BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*& Form BUILD_LAYOUT
*----------------------------------------------------------------------*
FORM build_layout .
w_layout-colwidth_optimize = 'X'.
w_layout-zebra = 'X'.
ENDFORM. " BUILD_LAYOUT
*&---------------------------------------------------------------------*
*& Form DISPLAY_ALV
*----------------------------------------------------------------------*
FORM display_alv .
DELETE ADJACENT DUPLICATES FROM t_final COMPARING wi_text.
v_title = sy-title.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_user_command = 'USER_COMMAND'
i_callback_top_of_page = 'TOP_OF_PAGE'
is_layout = w_layout
it_fieldcat = t_fieldcat
TABLES
t_outtab = t_final.
ENDFORM. " DISPLAY_ALV
*&---------------------------------------------------------------------*
*& Form USER_COMMAND
*----------------------------------------------------------------------*
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE :r_ucomm.
WHEN '&IC1'.
READ TABLE t_final INDEX rs_selfield-tabindex.
SET PARAMETER ID 'WID' FIELD t_final-wi_id.
CALL TRANSACTION 'SBWP' AND SKIP FIRST SCREEN.
WHEN 'OTHERS'.
ENDCASE.
rs_selfield-refresh = 'X'.
ENDFORM. " BUILD_LAYOUT
*-----------------------------------------------------------------------
* T Y P E P O O L S
*-----------------------------------------------------------------------
TYPE-POOLS: slis.
*-----------------------------------------------------------------------
* T A B L E S
*-----------------------------------------------------------------------
TABLES : swwwihead,
usr02.
*-----------------------------------------------------------------------
* T Y P E S
*-----------------------------------------------------------------------
TYPES: BEGIN OF ty_final.
INCLUDE STRUCTURE swwwihead.
TYPES: END OF ty_final.
*-----------------------------------------------------------------------
* I N T E R N A L T A B L E S
*-----------------------------------------------------------------------
DATA: t_mm003 TYPE TABLE OF swwwihead WITH HEADER LINE,
t_mm004 TYPE TABLE OF swwwihead WITH HEADER LINE,
t_mm005 TYPE TABLE OF swwwihead WITH HEADER LINE,
lw_swwuserwi TYPE swwuserwi.
DATA: t_final TYPE TABLE OF swwwihead WITH HEADER LINE.
DATA: t_fieldcat TYPE slis_t_fieldcat_alv,
w_fieldcat LIKE LINE OF t_fieldcat,
w_layout TYPE slis_layout_alv,
wa_indx TYPE indx.
*-----------------------------------------------------------------------
* V A R I A B L E D E C L A R A T I O N S
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* M A C R O S
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* S E L E C T - O P T I O N S A N D P A R A M E T E R S
*-----------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_date FOR sy-datum,
s_task FOR swwwihead-wi_rh_task,
s_stat FOR swwwihead-wi_stat NO INTERVALS.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: r_po RADIOBUTTON GROUP g1,
r_rfq RADIOBUTTON GROUP g1,
r_cont RADIOBUTTON GROUP g1.
SELECT-OPTIONS : s_userid FOR usr02-bname NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK b2.
*-----------------------------------------------------------------------
* I N I T I A L I Z A T I O N
*-----------------------------------------------------------------------
INITIALIZATION.
s_stat-option = 'EQ'.
s_stat-sign = 'I'.
s_stat-low = 'READY'.
APPEND s_stat.
*-----------------------------------------------------------------------
* A T S E L E C T I O N - S C R E E N
*-----------------------------------------------------------------------
AT SELECTION-SCREEN.
*-----------------------------------------------------------------------
* S T A R T - O F - S E L E C T I O N
*-----------------------------------------------------------------------
START-OF-SELECTION.
*-----------------------------------------------------------------------
* T O P - O F - P A G E
*-----------------------------------------------------------------------
TOP-OF-PAGE.
*-----------------------------------------------------------------------
* E N D - O F - S E L E C T I O N
*-----------------------------------------------------------------------
END-OF-SELECTION.
PERFORM build_fieldcat .
PERFORM build_layout.
PERFORM display_alv.
*-----------------------------------------------------------------------
* F O R M S
*-----------------------------------------------------------------------
*&---------------------------------------------------------------------*
*& Form FIELDAT
*----------------------------------------------------------------------*
FORM fieldat USING p_fieldname TYPE slis_fieldcat_main0-fieldname
p_desc TYPE slis_fieldcat_main1-reptext_ddic.
w_fieldcat-fieldname = p_fieldname.
w_fieldcat-reptext_ddic = p_desc.
APPEND w_fieldcat TO t_fieldcat.
CLEAR w_fieldcat.
ENDFORM. " FIELDAT
*&---------------------------------------------------------------------*
*& Form GET_TASKLIST
*----------------------------------------------------------------------*
FORM get_tasklist .
IF r_po = 'X'.
s_task-option = 'EQ'.
s_task-sign = 'I'.
s_task-low = 'TS90000072'.
APPEND s_task.
ELSEIF r_rfq = 'X'.
s_task-option = 'EQ'.
s_task-sign = 'I'.
s_task-low = 'TS90000078'.
APPEND s_task.
ELSEIF r_cont = 'X'.
s_task-option = 'EQ'.
s_task-sign = 'I'.
s_task-low = 'TS90000077'.
APPEND s_task.
ENDIF.
ENDFORM. " GET_TASKLIST
*&---------------------------------------------------------------------*
*& Form GET_WORKFLOW_ITEMS
*----------------------------------------------------------------------*
FORM get_workflow_items .
SELECT * FROM swwwihead
INTO TABLE t_final
WHERE wi_cd IN s_date
AND wi_rh_task IN s_task
AND wi_stat IN s_stat.
IF sy-subrc = 0.
SORT t_final BY wi_text.
ELSE.
MESSAGE i398(00) WITH 'No Data Selected for the given selection'.
LEAVE TO SCREEN 0.
ENDIF.
LOOP AT t_final.
SELECT SINGLE * FROM swwuserwi INTO lw_swwuserwi
WHERE wi_id = t_final-wi_id
AND user_id = sy-uname
AND no_sel = space.
IF sy-subrc NE 0.
DELETE t_final.
ENDIF.
ENDLOOP.
ENDFORM. " GET_WORKFLOW_ITEMS
*&---------------------------------------------------------------------*
*& Form BUILD_FIELDCAT
*----------------------------------------------------------------------*
FORM build_fieldcat .
PERFORM fieldat USING 'WI_TEXT' 'Work item text'.
PERFORM fieldat USING 'WI_CD' 'Created Date'.
PERFORM fieldat USING 'WI_CRUSER' 'Created By'.
PERFORM fieldat USING 'WI_STAT' 'Status'.
ENDFORM. " BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*& Form BUILD_LAYOUT
*----------------------------------------------------------------------*
FORM build_layout .
w_layout-colwidth_optimize = 'X'.
w_layout-zebra = 'X'.
ENDFORM. " BUILD_LAYOUT
*&---------------------------------------------------------------------*
*& Form DISPLAY_ALV
*----------------------------------------------------------------------*
FORM display_alv .
DELETE ADJACENT DUPLICATES FROM t_final COMPARING wi_text.
v_title = sy-title.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_user_command = 'USER_COMMAND'
i_callback_top_of_page = 'TOP_OF_PAGE'
is_layout = w_layout
it_fieldcat = t_fieldcat
TABLES
t_outtab = t_final.
ENDFORM. " DISPLAY_ALV
*&---------------------------------------------------------------------*
*& Form USER_COMMAND
*----------------------------------------------------------------------*
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE :r_ucomm.
WHEN '&IC1'.
READ TABLE t_final INDEX rs_selfield-tabindex.
SET PARAMETER ID 'WID' FIELD t_final-wi_id.
CALL TRANSACTION 'SBWP' AND SKIP FIRST SCREEN.
WHEN 'OTHERS'.
ENDCASE.
rs_selfield-refresh = 'X'.
ENDFORM. " BUILD_LAYOUT
