ZFIVE_002 change

最新推荐文章于 2024-05-13 11:36:56 发布

cssp2014

最新推荐文章于 2024-05-13 11:36:56 发布

阅读量128

点赞数

文章标签：数据库

本文介绍了一个使用ABAP编程语言实现的ALV Grid示例，包括如何设置ALV Grid的基本布局、字段目录、变体等，并展示了如何通过事件处理进行数据验证及更新数据库的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

*&---------------------------------------------------------------------*
*& Module pool ZFIVE_002
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

INCLUDE zfive_002top.
INCLUDE . " global Data

START-OF-SELECTION.
data: l_index TYPE i.
SELECT *
FROM sflight INTO CORRESPONDING FIELDS OF wa_info
WHERE carrid IN p_car
order by primary key.
    wa_info-free = wa_info-seatsmax - wa_info-seatsocc.
    IF wa_info-seatsmax < wa_info-seatsocc.
      wa_info-free_icon = icon_red_light.
    ELSE.
      wa_info-free_icon = icon_green_light.
    ENDIF.
    APPEND wa_info TO it_info.
ENDSELECT.

* loop at it_info into wa_info.
*    if wa_info-seatsmax > 300.
**      wa_info-checkbox = 'X'." can't combine with get_style. value.
*      ls_stylerow-fieldname = 'CHECKBOX' .
*      ls_stylerow-style. = cl_gui_alv_grid=>mc_style_disabled.
*      APPEND ls_stylerow TO wa_info-field_style.
*      modify it_info from wa_info.
*    endif.
*    if wa_info-seatsmax < 300.
*      wa_info-checkbox = 'X'." can't combine with get_style. value.
*      modify it_info from wa_info.
*    endif.
* endloop.
LOOP AT it_info .
   l_index = sy-tabix.
    refresh lt_celltab.
    if wa_info-seatsmax > 300.
        perform. fill_celltab using 'RW'
                             changing lt_celltab.
    else.
        perform. fill_celltab using 'RO'
                             changing lt_celltab.
    endif.
*§2c.Copy your celltab to the celltab of the current row of gt_outtab.
    INSERT LINES OF lt_celltab INTO TABLE it_info-field_style.
    MODIFY it_info INDEX l_index.
ENDLOOP.
CALL SCREEN 100.

INCLUDE zfive_002_status_0100o01.

*&---------------------------------------------------------------------*
*& Include ZFIVE_002TOP Module pool ZFIVE_002
*&
*&---------------------------------------------------------------------*

PROGRAM zfive_002 no standard page heading line-count 10.

types: begin of info,
       checkbox type c,
       carrid like sflight-carrid,
       connid like sflight-connid,
       fldate like sflight-fldate,
       price like sflight-price,
       currency like sflight-currency,
       seatsmax like sflight-seatsmax,
       seatsocc like sflight-seatsocc,
       free like sflight-seatsmax,
       free_icon(30),
       field_style. type lvc_t_styl,
end of info.

DATA:wa_info type info,
it_info type standard table of info with header line.

* Field position
data: pos_free type i value 8,
pos_icon type i value 9.

* Fieldcatalog
data: p_fieldcat type lvc_t_fcat,
w_fieldcat like line of p_fieldcat,
wa_sbook like sbook.

*control
DATA: p_control_contianter TYPE REF TO cl_gui_custom_container,
alv_grid TYPE REF TO cl_gui_alv_grid.

DATA:ok_code LIKE sy-ucomm.
*layout
DATA:gs_layout TYPE lvc_s_layo.

DATA: GS_REPORT TYPE DISVARIANT,
P_SAVE.

data :lt_celltab TYPE lvc_t_styl.

* Local class
class list_d definition.
public section.
    methods on_dblclick for event double_click of cl_gui_alv_grid
       importing e_row e_column.
endclass.                    "list_d DEFINITION

*local class to handle semantic checks
class lcl_event_receiver definition deferred.

data: g_verifier type ref to lcl_event_receiver.

*---------------------------------------------------------------------*
* CLASS lcl_event_receiver DEFINITION
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
class lcl_event_receiver definition.

*.............

public section.

    types: begin of sflight_key.
    types:   carrid type s_carr_id.
    types:   connid type s_conn_id.
    types:   fldate type s_date.
    types: end of sflight_key.

types: sflight_keys type standard table of sflight_key,
sflight_table type standard table of sflight.

    methods:
      handle_data_changed
         for event data_changed of cl_gui_alv_grid
             importing er_data_changed.

    methods:
      get_inserted_rows
           exporting
              inserted_rows type sflight_keys.

    methods:
      get_deleted_rows
          exporting
              deleted_rows type sflight_table.

methods:
refresh_delta_tables.

methods: set_table_is_initial.

methods: set_table_is_not_initial.

methods: table_is_initial
returning value(initial) type char01.

*..............

private section.

* §4.Define internal tables to remember inserted and deleted lines,
* thus the delta between input made after the last saving.

data: inserted_rows type sflight_keys,
deleted_rows type standard table of sflight.

* This flag is set if any error occured in one of the
* following methods:
data: error_in_data type c.

* This flag signals that no records were read for the flight
* table initially:
    data: initial_table type c.
** Methods to modularize event handler method HANDLE_DATA_CHANGED:
*
    methods:
      update_delta_tables
         importing
            pr_data_changed type ref to cl_alv_changed_data_protocol.

    methods:
      perform_semantic_checks
         importing
            pr_data_changed type ref to cl_alv_changed_data_protocol.

    methods:
      get_cell_values
           importing
             row_id          type int4
             pr_data_changed type ref to cl_alv_changed_data_protocol
           exporting
             key             type sflight_key.

endclass.

**---------------------------------------------------------
class lcl_event_receiver implementation.
method handle_data_changed.
*
    data: ls_good type lvc_s_modi,
          l_price type s_price,
          ls_new type lvc_s_moce.

error_in_data = space.

* remember new or deleted lines for saving
call method update_delta_tables( er_data_changed ).

* check mt_good_cells semantically
call method perform_semantic_checks( er_data_changed ).

    if error_in_data = 'X'.
      call method er_data_changed->display_protocol.
    endif.

endmethod.

*-------------------------------------------------------
method update_delta_tables.
    data: l_ins_row type lvc_s_moce,
          l_del_row type lvc_s_moce,
          ls_key type sflight_key,
          ls_sflight type sflight,
          ls_outtab like line of it_info.

* §6.Use protocol attributes MT_DELETED_ROWS and MT_INSERTED_ROWS
* to remember which lines where deleted or inserted. Save this
* information in your internal tables.

*..........
* deleted rows
*.............
    loop at pr_data_changed->mt_deleted_rows into l_del_row.
      read table it_info into ls_outtab index l_del_row-row_id.
      if sy-subrc ne 0.
        message i000(0k) with text-e01."Fehler beim Löschen
      else.
        move-corresponding ls_outtab to ls_sflight.
* It should no be possible that the same line is deleted twice,
* so we just add the new key line to 'deleted_rows'.
        append ls_sflight to deleted_rows.
* If this line was inserted just before it is deleted:
        delete me->inserted_rows
             where carrid = ls_outtab-carrid
             and   connid = ls_outtab-connid
             and   fldate = ls_outtab-fldate.
      endif.
    endloop.

*..........
* inserted rows
* At this point ALV has not added new lines
* to it_info, so you can not access their values
* by reading it_info.
* Table MT_GOOD_CELLS holds new values that can be
* referenced using the ROW_ID.
*..........
    if me->table_is_initial( ) eq 'X'.
* No flights were selected initially. This is the first new line.
      call method get_cell_values
            exporting row_id          = 1
                      pr_data_changed = pr_data_changed
            importing key             = ls_key.

      append ls_key to inserted_rows.
      call method me->set_table_is_not_initial.
    endif.

    loop at pr_data_changed->mt_inserted_rows into l_ins_row.
      call method get_cell_values
              exporting row_id          = l_ins_row-row_id
                        pr_data_changed = pr_data_changed
              importing key             = ls_key.
*      READ TABLE it_info INTO ls_outtab INDEX l_ins_row-row_id.

* Just insert the new row regardless if the input is wrong
append ls_key to inserted_rows.
endloop.

endmethod.
*---------------------------------------------------------
method get_cell_values.
* get values of key cells of row ROW_ID

* CARRIER
    call method pr_data_changed->get_cell_value
          exporting
                 i_row_id    = row_id
                 i_fieldname = 'CARRID'
               importing
                 e_value = key-carrid.

    if sy-subrc ne 0.
      message i000(0k) with text-e02. "Fehler beim Einfügen
    endif.
* CONNID
    call method pr_data_changed->get_cell_value
          exporting
                 i_row_id    = row_id
                 i_fieldname = 'CONNID'
               importing
                 e_value = key-connid.

    if sy-subrc ne 0.
      message i000(0k) with text-e02. "Fehler beim Einfügen
    endif.

* FLDATE
    call method pr_data_changed->get_cell_value
          exporting
                 i_row_id    = row_id
                 i_fieldname = 'FLDATE'
               importing
                 e_value = key-fldate.

    if sy-subrc ne 0.
      message i000(0k) with text-e02. "Fehler beim Einfügen
    endif.

endmethod.

*---------------------------------------------------------
method perform_semantic_checks.
    data: ls_good type lvc_s_modi,
          l_planetype type s_planetye,
          l_seatsmax type s_seatsmax.

    loop at pr_data_changed->mt_good_cells into ls_good.
      case ls_good-fieldname.
        when 'PLANETYPE'.
          call method pr_data_changed->get_cell_value
             exporting
               i_row_id = ls_good-row_id
               i_fieldname = ls_good-fieldname
             importing
               e_value = l_planetype.

select single seatsmax from saplane into l_seatsmax
where planetype = l_planetype.

          if sy-subrc ne 0.
            call method pr_data_changed->add_protocol_entry
                            exporting
                 i_msgid = '0K' i_msgno = '000' i_msgty = 'E'
                 i_msgv1 = text-m02
                 i_fieldname = ls_good-fieldname
                 i_row_id = ls_good-row_id.

error_in_data = 'X'.
else.

            call method pr_data_changed->modify_cell
              exporting i_row_id    = ls_good-row_id
                        i_fieldname = 'SEATSMAX'
                        i_value     = l_seatsmax.
          endif.
      endcase.
    endloop.
endmethod.

*------------------------------------------------------

method get_inserted_rows.
inserted_rows = me->inserted_rows.
endmethod.
*------------------------------------------------------

method get_deleted_rows.
    deleted_rows = me->deleted_rows.
endmethod.
*------------------------------------------------------
method refresh_delta_tables.
    clear me->inserted_rows[].
    clear me->deleted_rows[].
endmethod.
*------------------------------------------------------
method set_table_is_initial.
    initial_table = 'X'.
endmethod.
*------------------------------------------------------
method set_table_is_not_initial.
    initial_table = space.
endmethod.
*------------------------------------------------------
method table_is_initial.
    if initial_table = 'X'.
      initial = 'X'.
    else.
      initial = space.
    endif.
endmethod.

endclass.

* Double Click
data: p_double type ref to list_d.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
SELECT-OPTIONS:p_car FOR wa_info-carrid.
SELECTION-SCREEN END OF BLOCK b2.

*----------------------------------------------------------------------*
***INCLUDE ZFIVE_002_STATUS_0100O01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'S100'.
SET TITLEBAR 'T100' WITH 'five'.

ENDMODULE.                 " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&      Module CREATE_OBJECTS OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE create_objects OUTPUT.
IF p_control_contianter IS INITIAL.
    CREATE OBJECT p_control_contianter
       EXPORTING container_name = 'P_CONTROL'.
    CREATE OBJECT alv_grid
       EXPORTING i_parent = p_control_contianter.

CREATE OBJECT p_double.
set handler p_double->on_dblclick for alv_grid.
ENDIF.

ENDMODULE.                 " CREATE_OBJECTS OUTPUT
*&---------------------------------------------------------------------*
*&      Module TRANSFER_DATA OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE transfer_data OUTPUT.
CALL METHOD alv_grid->set_table_for_first_display
    EXPORTING
      i_structure_name = 'SFLIGHT'
      is_layout        = gs_layout
      is_variant       = gs_report
      i_save           = p_save
    CHANGING
      it_outtab        = it_info[]
      it_fieldcatalog = p_fieldcat.

ENDMODULE.                 " TRANSFER_DATA OUTPUT
*&---------------------------------------------------------------------*
*&      Module exit INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit INPUT.
LEAVE PROGRAM.
ENDMODULE.                 " exit INPUT
*&---------------------------------------------------------------------*
*&      Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE ok_code.
    WHEN 'BACK'.
      CALL METHOD p_control_contianter->free.
      SET SCREEN 0.
    WHEN 'EXIT'.
     PERFORM. switch_edit_mode.
    when 'SAVE'.
       perform. save_data.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*&      Module layout_data OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE layout_data OUTPUT.
gs_layout-grid_title = 'five test'.
gs_layout-detailtitl = 'test'.
gs_layout-zebra = 'X'.
gs_layout-cwidth_opt = 'X'.
* gs_layout-EDIT = 'X'.
gs_layout-SEL_MODE = 'C'.
gs_layout-stylefname = 'FIELD_STYLE'.
ENDMODULE.                 " layout_data OUTPUT
*&---------------------------------------------------------------------*
*&      Module field_catalog OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE field_catalog OUTPUT.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'CHECKBOX'.
w_fieldcat-coltext = 'select'.
w_fieldcat-seltext = 'select'.
w_fieldcat-checkbox = 'X'.
w_fieldcat-col_pos = 0 .
w_fieldcat-tooltip = 'sdfasg'.
* w_fieldcat-edit = 'X'.
APPEND w_fieldcat TO p_fieldcat.

CLEAR w_fieldcat.
w_fieldcat-fieldname = 'FREE'.
w_fieldcat-ref_table = 'SFILGHT'.
w_fieldcat-ref_field = 'SEATSMAX'.
w_fieldcat-coltext = 'FIVE TEST'.
w_fieldcat-seltext = 'FIVE TEST'.
w_fieldcat-col_pos = pos_free.
APPEND w_fieldcat TO p_fieldcat.

CLEAR w_fieldcat.
w_fieldcat-fieldname = 'FREE_ICON'.
w_fieldcat-icon = 'X'.

w_fieldcat-coltext = 'FREE_ICON'.
w_fieldcat-seltext = 'FREE_ICON'.
w_fieldcat-col_pos = pos_icon.
APPEND w_fieldcat TO p_fieldcat.
ENDMODULE.                 " field_catalog OUTPUT
*&---------------------------------------------------------------------*
*&      Module VARIANT OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE variant OUTPUT.
gs_report-report = sy-repid.
p_save = 'A'.
ENDMODULE.                 " VARIANT OUTPUT
*&---------------------------------------------------------------------*
*&      Module list OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE list OUTPUT.
SUPPRESS DIALOG.
SET PF-STATUS space.
WRITE:'basic'.
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
FORMAT COLOR COL_NORMAL.
SELECT * FROM sbook INTO CORRESPONDING FIELDS OF wa_sbook
WHERE carrid = wa_info-carrid
    AND connid = wa_info-connid
    AND fldate = wa_info-fldate.
    WRITE:/ sy-vline, wa_sbook-carrid,
              wa_sbook-connid,
              wa_sbook-fldate,
              wa_sbook-customid,
              wa_sbook-bookid, 83 sy-vline.
ENDSELECT.
ENDMODULE.                 " list OUTPUT
*&---------------------------------------------------------------------*
*&       Class (Implementation) list_d
*&---------------------------------------------------------------------*
*        Text
*----------------------------------------------------------------------*
CLASS list_d IMPLEMENTATION.
METHOD on_dblclick.
* valid line check
    IF e_row-rowtype = space AND NOT e_row-index IS INITIAL.
      READ TABLE it_info INDEX e_row-index INTO wa_info.
      CALL SCREEN 101.
    ELSE.
      MESSAGE 'no data' TYPE 'I'.
    ENDIF.
ENDMETHOD.                    "dbclick
ENDCLASS.             "list_d

FORM. fill_celltab using value(p_mode)
CHANGING pt_celltab TYPE lvc_t_styl.
DATA: ls_celltab TYPE lvc_s_styl,
l_mode type raw4.
* This forms sets the style. of column 'PRICE' editable
* according to 'p_mode' and the rest to read only either way.

IF p_mode EQ 'RW'.
*§2a.Use attribute CL_GUI_ALV_GRID=>MC_STYLE_ENABLED to set a cell
*    to status "editable".
    l_mode = cl_gui_alv_grid=>mc_style_enabled.
ELSE. "p_mode eq 'RO'
*§2b.Use attribute CL_GUI_ALV_GRID=>MC_STYLE_DISABLED to set a cell
*    to status "non-editable".
    l_mode = cl_gui_alv_grid=>mc_style_disabled.
ENDIF.

ls_celltab-fieldname = 'CARRID'.
ls_celltab-style. = cl_gui_alv_grid=>mc_style_disabled.
INSERT ls_celltab INTO TABLE pt_celltab.
ls_celltab-fieldname = 'CONNID'.
ls_celltab-style. = cl_gui_alv_grid=>mc_style_disabled.
INSERT ls_celltab INTO TABLE pt_celltab.
ls_celltab-fieldname = 'FLDATE'.
ls_celltab-style. = cl_gui_alv_grid=>mc_style_disabled.
INSERT ls_celltab INTO TABLE pt_celltab.
ls_celltab-fieldname = 'PRICE'.
ls_celltab-style. = l_mode.
INSERT ls_celltab INTO TABLE pt_celltab.
ls_celltab-fieldname = 'CURRENCY'.
ls_celltab-style. = cl_gui_alv_grid=>mc_style_disabled.
INSERT ls_celltab INTO TABLE pt_celltab.
ls_celltab-fieldname = 'SEATSMAX'.
ls_celltab-style. = cl_gui_alv_grid=>mc_style_disabled.
INSERT ls_celltab INTO TABLE pt_celltab.
ls_celltab-fieldname = 'SEATSOCC'.
ls_celltab-style. = cl_gui_alv_grid=>mc_style_disabled.
INSERT ls_celltab INTO TABLE pt_celltab.

ENDFORM. " FILL_CELLTAB

FORM. switch_edit_mode.

IF alv_grid->is_ready_for_input( ) eq 0.
* set edit enabled cells ready for input
CALL METHOD alv_grid->set_ready_for_input
EXPORTING i_ready_for_input = 1.

ELSE.
* lock edit enabled cells against input
    CALL METHOD alv_grid->set_ready_for_input
                    EXPORTING i_ready_for_input = 0.
ENDIF.
ENDFORM.                               " SWITCH_EDIT_MODE

form. save_data.
data: l_valid type c.
* §7.Check if any errors exist in protocol by using method
* CHECK_CHANGED_DATA of your ALV Grid instance.

* The method CHECK_CHANGED_DATA checks all new cells syntactically,
* raises event DATA_CHANGED and looks then for any entries
* in the error protocol. If any exist the parameter e_valid
* is initial ('X' in the other case).
*
*DATA: ANSWER(1)    TYPE C.
*
*
*CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
*EXPORTING TITLE          = 'Make selection'
*          DIAGNOSISTEXT1 = 'No plan alternative'
*          DIAGNOSISTEXT2 = 'exists for the specified'
*          DIAGNOSISTEXT3 = 'selection criteria.'
*          TEXTLINE1      = 'Do you want to create a'
*          TEXTLINE2      = 'new plan alternative?'
*IMPORTING ANSWER         = ANSWER.

call method ALV_GRID->check_changed_data
importing e_valid = l_valid.

if l_valid is initial.
    call function 'POPUP_TO_INFORM'
         exporting
              titel = 'pls choose the data'
              txt1 = text-i07
              txt2 = text-i08
              txt3 = text-i09.

else.
perform. update_database.
message s000(0k) with text-s01.
endif.
endform.

form. update_database.
data: lt_del_rows type table of sflight,
        lt_ins_keys type g_verifier->sflight_keys,
        l_ins_key type g_verifier->sflight_key,
        ls_sflight type sflight,
        ls_outtab like line of it_info,
        lt_instab type table of sflight.

* §8.When all values are valid, use your internal tables
* to update your table on the database.

*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
* IMPORTANT: This method has been disabled, as the program logic
* was erroneous: if a user doubled a line (insert with copied values)
* the data is not accepted by alv, so the line inserted in the table
* had initial values. If he then deleted the line, the deleted line
* also had initial values. On the other hand, the line stored as
* inserted was the line with the original, copied values. So the
* data base was updated with hte copied values which lead to a
* short dump.
*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

* First delete lines in data base according to the
* keys you remembered within 'g_verifier'.
* Imagine a user deleted a row and then entered one with
* the same key fields like the deleted ones.
* Then both tables (deleted_rows, inserted_rows) have got
* an entry of this row.
* So if you first inserted the new rows in the data base
* and then deleted rows according to 'deleted_rows'
* The reentered rows would be lost.
*
* 1.Delete Lines:
call method g_verifier->get_deleted_rows
importing deleted_rows = lt_del_rows.

delete sflight from table lt_del_rows.

* 2.Insert Lines:
call method g_verifier->get_inserted_rows
importing inserted_rows = lt_ins_keys.

loop at lt_ins_keys into l_ins_key.
    read table it_info into ls_outtab
     with key carrid = l_ins_key-carrid
              connid = l_ins_key-connid
              fldate = l_ins_key-fldate.
    if sy-subrc eq 0.
      move-corresponding ls_outtab to ls_sflight.
      append ls_sflight to lt_instab.
    endif.
endloop.

insert sflight from table lt_instab.

* §9.Refresh your internal tables.

call method g_verifier->refresh_delta_tables.

endform.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/14397246/viewspace-611072/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/14397246/viewspace-611072/