REPORT Z_MSG_CLIENT.
INCLUDE ZMSGTOP.
INCLUDE ZMSGPRO.
AT SELECTION-SCREEN OUTPUT.
APPEND :
'PRIN' TO it_ucomm, "for print
'SPOS' TO it_ucomm,
'E' TO it_ucomm. "for back
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
EXPORTING
p_status = sy-pfkey
TABLES
p_exclude = it_ucomm.
INITIALIZATION.
PERFORM BINT.
START-OF-SELECTION.
PERFORM COL_DATA.
*PERFORM DISPLAY.
Include------------
*&---------------------------------------------------------------------*
*& Include ZUSERTOP
*&---------------------------------------------------------------------*
TABLES : USR02,USR06,USER_ADDR,ZTBUSRLCS.
CONTROLS ZCTRUSER TYPE TABLEVIEW USING SCREEN '100'.
RANGES: R_BEFORE FOR BSIS-BUDAT,
R_CURRENT FOR BSIS-BUDAT.
TYPE-POOLS : slis, icon,vimty.
*Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME.
SELECT-OPTIONS: S_BNAME FOR USR02-BNAME.
PARAMETERS: r_mess(128) DEFAULT ' '."." like T100-TEXT.
*MESSAGE(128) default ' Error ! Please" logoff now ! '.
* r_det RADIOBUTTON GROUP rad1 DEFAULT 'X',
* r_sum RADIOBUTTON GROUP rad1.
SELECTION-SCREEN END OF BLOCK BLOCK1.
* interne Tabelle mit Auftragskopfdaten *
TYPES :
BEGIN OF ty_mod,
row TYPE i,
END OF ty_mod.
DATA :
i_mod TYPE STANDARD TABLE OF ty_mod,
i_del TYPE STANDARD TABLE OF ty_mod.
DATA: it_ucomm TYPE TABLE OF sy-ucomm.
TYPES: BEGIN OF i_usr_s,
BNAME type USER_ADDR-BNAME,
CLASS type USR02-CLASS,
UFLAG type USR02-UFLAG,
TRDAT type USR02-TRDAT,
LTIME type USR02-LTIME,
GLTGV type USR02-GLTGV,
GLTGB type USR02-GLTGB,
ERDAT type USR02-ERDAT,
VONDAT type USR06-VONDAT,
BISDAT type USR06-BISDAT,
LIC_TYPE type USR06-LIC_TYPE,
NAME_FIRST type USER_ADDR-NAME_FIRST,
NAME_LAST type USER_ADDR-NAME_LAST,
NAME_TEXTC type USER_ADDR-NAME_TEXTC,
DEPARTMENT type USER_ADDR-DEPARTMENT,
ctr_stat(15) type C,
no(1) type P,
exp(1) type C,
lockby(30) TYPE C,
END OF i_usr_s.
TYPES: BEGIN OF i_sum,
ctr_stat(15) type C,
bname type usr02-bname,
NO type P, " DECIMALS 0,
gltgb TYPE usr02-gltgb,
exp(1) TYPE C,
NOP(3) type C,
END OF i_sum.
CLASS lcl_event_receiver DEFINITION DEFERRED.
DATA: o_EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.
DATA: i_usr_usr2 LIKE TABLE OF usr02,
i_usr_dat type standard Table OF i_usr_s WITH HEADER LINE,
i_usr_su type standard Table OF i_sum WITH HEADER LINE,
i_usr_susu type standard Table OF i_sum WITH HEADER LINE,
i_usr_sum type standard Table OF i_sum WITH HEADER LINE,
i_usr_summ LIKE TABLE OF ZTBUSRLCS with header line.
DATA: table_n TYPE i,
table_nn TYPE i,
sy_repid_save LIKE sy-repid,
sumrec type i.
DATA : datval type sy-datum,
gstring TYPE c.
DATA : ls_exclude TYPE ui_func,
pt_exclude TYPE ui_functions,
NO TYPE STRING.
DATA: t_fldcat TYPE slis_t_fieldcat_alv,
s_fldcat TYPE slis_fieldcat_alv,
t_sort TYPE slis_t_sortinfo_alv," WITH HEADER LINE,
wa_sortinfo TYPE slis_sortinfo_alv,
t_events TYPE slis_t_event WITH HEADER LINE,
t_event_exit TYPE slis_t_event_exit WITH HEADER LINE,
x_layout TYPE slis_layout_alv,
gd_layout TYPE lvc_s_layo,
x_print TYPE slis_print_alv,
x_variant TYPE disvariant,
d_repid TYPE sy-repid,
ct_type(2) ,
f_fldcat2 type slis_t_fieldcat_alv with header line,
g_layout type slis_layout_alv,
gs_fieldcatalog TYPE lvc_s_fcat OCCURS 0,
gv_fcat LIKE LINE OF gs_fieldcatalog,
gus_fieldcatalog TYPE lvc_s_fcat OCCURS 0.
DATA: BEGIN OF gt_outtab occurs 0 ."with header line.
include structure ZTBUSRLCS.
DATA: celltab type LVC_T_STYL.
DATA: END OF gt_outtab.
DATA: it_table LIKE standard table of gt_outtab WITH HEADER LINE,
t_table LIKE standard table of gt_outtab WITH HEADER LINE.
DATA: OK_CODE LIKE sy-ucomm,
save_ok like sy-ucomm,
g_container TYPE scrfname VALUE 'ZCTRUSER',
grid1 TYPE REF TO cl_gui_alv_grid,
g_custom_container TYPE REF TO cl_gui_custom_container,
gs_layout TYPE lvc_s_layo,
g_max type i value 100.
DATA : user_name LIKE usr02-bname,
user_mess LIKE t100-text.
AT SELECTION-SCREEN.
*--------------------------------------------------------------------
* C L A S S E S
*--------------------------------------------------------------------
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS: handle_data_changed
FOR EVENT data_changed OF cl_gui_alv_grid
IMPORTING er_data_changed.
ENDCLASS. "lcl_event_receiver DEFINITION
*---------------------------------------------------------------------*
* CLASS lcl_event_receiver IMPLEMENTATION
*---------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_data_changed.
*event is ttriggered when data is changed in the output
* PERFORM check_data USING er_data_changed
* i_usr_summ.
ENDMETHOD. "handle_data_changed
ENDCLASS. "lcl_event_receiver IMPLEMENTATION
*&---------------------------------------------------------------------*
*& Include ZUSERPRO
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form BINT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM BINT .
DEFINE f_fldcat.
clear s_fldcat.
s_fldcat-fieldname = &1.
* s_fldcat-key = &2.
s_fldcat-decimals_out = &2.
s_fldcat-seltext_l = &3.
s_fldcat-outputlen = &4.
s_fldcat-just = &5.
s_fldcat-no_out = &6.
s_fldcat-datatype = &7.
s_fldcat-qfieldname = &8.
s_fldcat-no_zero = &9.
* s_fldcat-outputlen = &10.
append s_fldcat to t_fldcat.
END-OF-DEFINITION.
ENDFORM. " BINT
*&---------------------------------------------------------------------*
*& Form SUMMARY
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SUMMARY .
IF NOT i_usr_dat IS INITIAL.
LOOP AT i_usr_dat .
MOVE-CORRESPONDING i_usr_dat to i_usr_su.
Append i_usr_su.
ENDLOOP.
ELSE.
STOP.
ENDIF.
SORT i_usr_su by ctr_stat.
LOOP AT i_usr_su.
AT END OF ctr_stat.
Read table i_usr_su INDEX sy-tabix.
SUM.
i_usr_sum-ctr_stat = i_usr_su-ctr_stat.
i_usr_sum-no = i_usr_su-no.
APPEND i_usr_sum.
ENDAT.
ENDLOOP.
LOOP AT i_usr_sum.
i_usr_sum-nop = i_usr_sum-no.
modify i_usr_sum.
ENDLOOP.
i_usr_sum-ctr_stat = 'TOTAL USER '.
i_usr_sum-nop = sumrec.
APPEND i_usr_sum.
* Update to Summary table
IF SY-SUBRC EQ 0.
LOOP AT i_usr_sum .
i_usr_summ-CLIENT = sy-mandt.
i_usr_summ-USERSAP = i_usr_sum-ctr_stat.
i_usr_summ-SUMOF = i_usr_sum-nop.
* i_usr_summ-SAVEDATE = SY-DATUM. " unmark this after test
append i_usr_summ.
ENDLOOP.
ENDIF.
* Update itab From Table
CLEAR i_usr_summ.
LOOP AT i_usr_summ.
SELECT SINGLE CURRLCS SAVEDATE from ZTBUSRLCS
INTO (i_usr_summ-CURRLCS,i_usr_summ-SAVEDATE)
WHERE USERSAP EQ i_usr_summ-USERSAP.
MODIFY i_usr_summ.
ENDLOOP.
ENDFORM. " SUMMARY
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form COL_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM COL_DATA .
CLEAR : USR02,USR06,USER_ADDR .
SELECT usr02~bname usr02~class usr02~uflag usr02~trdat usr02~ltime
usr02~gltgv usr02~gltgb usr02~erdat
user_addr~name_first user_addr~name_last user_addr~name_textc
user_addr~department
INTO CORRESPONDING FIELDS OF TABLE i_usr_dat
FROM usr02
INNER JOIN user_addr AS user_addr ON user_addr~bname = usr02~bname
WHERE usr02~bname IN s_bname.
table_n = 0.
DESCRIBE TABLE i_usr_dat LINES table_n.
IF table_n EQ 0.
CALL FUNCTION 'C14A_POPUP_NO_HITS'.
STOP.
ENDIF.
LOOP AT i_usr_dat.
user_name = i_usr_dat-bname.
user_mess = r_mess.
CALL FUNCTION 'TH_POPUP'
EXPORTING
CLIENT = sy-mandt
USER = user_name
MESSAGE = r_mess
* MESSAGE_LEN = 0
* CUT_BLANKS = ' '
EXCEPTIONS
USER_NOT_FOUND = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDLOOP.
ENDFORM. " COL_DATA
*
*&---------------------------------------------------------------------*
*& Form SWITCH_EDIT_MODE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SWITCH_EDIT_MODE .
* PERFORM MODIFY_SCR.
IF grid1->is_ready_for_input( ) eq 0.
* set edit enabled cells ready for input
CALL METHOD grid1->set_ready_for_input
EXPORTING
i_ready_for_input = 1.
CALL METHOD GRID1->CHECK_CHANGED_DATA.
* UPDATE ZTBUSRLCS FROM TABLE i_usr_summ.
ELSE.
* lock edit enabled cells against input
CALL METHOD grid1->set_ready_for_input
EXPORTING
i_ready_for_input = 0.
ENDIF.
ENDFORM. " SWITCH_EDIT_MODE
*&---------------------------------------------------------------------*
*& Form SAVEMONEY
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SAVEMONEY .
IF grid1->is_ready_for_input( ) EQ 0.
MESSAGE ' Cannot Save Data in Display Mode' TYPE 'S'.
ELSE.
CALL METHOD grid1->set_table_for_first_display
EXPORTING
i_structure_name = 'ZTBUSRLCS'
is_layout = gs_layout
CHANGING
it_outtab = gt_outtab[].
CALL METHOD grid1->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_modified.
CALL METHOD grid1->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_enter.
CALL METHOD Grid1->REGISTER_EDIT_EVENT
EXPORTING
I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED
EXCEPTIONS
ERROR = 1
OTHERS = 2.
CREATE OBJECT o_event_receiver.
SET HANDLER o_event_receiver->handle_data_changed FOR grid1.
CALL METHOD cl_gui_control=>set_focus
EXPORTING
control = grid1.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'SAVING DATA'
text_question = 'Do you want save the data?'
icon_button_1 = 'icon_booking_ok'
IMPORTING
answer = gstring
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF ( gstring = '1' ).
MESSAGE ' Data Saved' TYPE 'S'.
READ TABLE i_usr_summ INDEX sy-tabix. "l_selfield-tabindex.
* Update or Save Data to Table
Delete from ZTBUSRLCS.
* IF SY-SUBRC EQ 0.
IF i_usr_summ IS NOT INITIAL.
LOOP AT gt_outtab.
gt_outtab-SAVEDATE = SY-DATUM.
ZTBUSRLCS-CLIENT = SY-MANDT.
ZTBUSRLCS-USERSAP = gt_outtab-USERSAP.
ZTBUSRLCS-SUMOF = gt_outtab-SUMOF.
ZTBUSRLCS-CURRLCS = gt_outtab-CURRLCS.
ZTBUSRLCS-SAVEDATE = gt_outtab-SAVEDATE.
MODIFY gt_outtab.
INSERT ZTBUSRLCS.
ENDLOOP.
ENDIF.
ENDIF.
CALL METHOD grid1->set_ready_for_input
EXPORTING
i_ready_for_input = 0.
CALL METHOD grid1->set_table_for_first_display
EXPORTING
* is_variant = l2_layout
i_structure_name = 'ZTBUSRLCS'
i_save = 'A'
it_toolbar_excluding = pt_exclude
is_layout = gs_layout
CHANGING
it_fieldcatalog = gus_fieldcatalog
it_outtab = gt_outtab[].
ENDIF.
ENDFORM. " SAVEMONEY
*&---------------------------------------------------------------------*
*& Form MODIFY_SCR
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM MODIFY_SCR .
SET PF-STATUS 'PF_PUSER'.
refresh it_ucomm.
APPEND :
'PRIN' TO it_ucomm, "for print
'E' TO it_ucomm. "for back
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
EXPORTING
p_status = sy-pfkey
TABLES
p_exclude = it_ucomm.
ENDFORM. " MODIFY_SCR
No comments:
Post a Comment