OO Interactive ALV Problem

Question

I have an OO ALV program that allows the User to change fields in the display and then it will update a data base when they click on the SAVE button.  I need to have an edit to check two fields both of which have the value 'X' or ' '.  I need to edit them when a change occurs to check that if one field is 'X' the other must not be 'X' and produce an error message when it occurs.  I'm stumped on how to do this.  I tried going back to the table when field A is changed and getting field B and doing the check, but that won't work because they may have changed field B and while it was X it may now be ' '.  The best place to check it would be down where I get ready to save it, but I don't know how to set the error indicator on the row/column and produce the message identifying all the rows in error at that point.

Answer 1

Here is the first half of the program that shows the Methods I'm using and what I've tried to do.  Maybe that will help make things clearer.
program  ZPAPAI0022_UPDT_MERIT_ELIG_ONG
MESSAGE-ID ZF.
*Original program data fields copied from ZFIFMR0020_CF_FIXED
        TABLES, ITABS AND STRUCTURES
TABLES:  ZHCM_MERIT_ELIG, "Merit Increase Eligibility Table
         PA0001,
         SSCRFIELDS.     "Screen fields
**Define the structure to hold the header for a journal
TYPES:  BEGIN OF I_MERIT,
         PERNR        LIKE P0001-PERNR,
         GSBER        LIKE P0001-GSBER,
         WERKS        LIKE P0001-WERKS,
         SNAME        LIKE P0001-SNAME,
         BEGDA        LIKE P0001-BEGDA,
         CPLAN        LIKE T71CA-CPLAN,
         ELIGIBLE     LIKE ZHCM_MERIT_ELIG-ELIGIBLE,
         NOT_ELIGIBLE LIKE ZHCM_MERIT_ELIG-NOT_ELIGIBLE,
         EMPCT        LIKE ZHCM_MERIT_ELIG-EMPCT,
         STATUS       LIKE ZHCM_MERIT_ELIG-STATUS,
         CELLTAB      type LVC_T_STYL,
       END OF I_MERIT.
TYPES:  BEGIN OF T_MERIT_OUT_ALV,
         PERNR        LIKE P0001-PERNR,
         GSBER        LIKE P0001-GSBER,
         WERKS        LIKE P0001-WERKS,
         SNAME        LIKE P0001-SNAME,
         BEGDA        LIKE P0001-BEGDA,
         CPLAN        LIKE T71CA-CPLAN,
         ELIGIBLE     LIKE ZHCM_MERIT_ELIG-ELIGIBLE,
         NOT_ELIGIBLE LIKE ZHCM_MERIT_ELIG-NOT_ELIGIBLE,
         EMPCT        LIKE ZHCM_MERIT_ELIG-EMPCT,
         STATUS       LIKE ZHCM_MERIT_ELIG-STATUS,
         CELLTAB      type LVC_T_STYL,
        END OF T_MERIT_OUT_ALV.
DATA:
  I_ALV_MERIT TYPE STANDARD TABLE
      OF T_MERIT_OUT_ALV
      WITH HEADER LINE.
types: begin of ty_merit_change,
      PERNR         LIKE ZHCM_MERIT_ELIG-PERNR,    "Personnel Number
      GSBER         LIKE ZHCM_MERIT_ELIG-GSBER,    "Business Area
      WERKS         LIKE ZHCM_MERIT_ELIG-WERKS,    "Personnel Area
      CPLAN         LIKE ZHCM_MERIT_ELIG-CPLAN,    "Merit Elig Code
      BEGDA         like ZHCM_MERIT_ELIG-BEGDA,    "Effective Date
      ELIGIBLE      LIKE ZHCM_MERIT_ELIG-ELIGIBLE, "Elgibility Indicator
      NOT_ELIGIBLE  LIKE ZHCM_MERIT_ELIG-NOT_ELIGIBLE,
      EMPCT         LIKE ZHCM_MERIT_ELIG-EMPCT,
      STATUS        LIKE ZHCM_MERIT_ELIG-STATUS,
      end of ty_merit_change.
DATA: I_MERIT_CHANGE TYPE HASHED TABLE
      OF ty_merit_change
      WITH UNIQUE KEY PERNR GSBER WERKS
      WITH HEADER LINE.
DATA: ZTIME(6) TYPE C,
      ITAB_EXPORT(10) TYPE C,
      ZDATA_CHNGED    TYPE C VALUE 'N',
      REPLY           TYPE C,
      WS_LINE_CNT TYPE I.
DATA: BEGIN OF WS,
        REC_CNT(10) TYPE P,            "Processed records
        CANCELLED(1)  TYPE C,          "file read cancelled
        COMMAND_LINE  LIKE RLGRAP-FILENAME,
        FILENAME      LIKE RLGRAP-FILENAME,
        FILETYPE      LIKE RLGRAP-FILETYPE,
        FILELGTH(40)  TYPE C,
        MAPPE LIKE APQI-GROUPID,                     "jc01182007
        SUM           LIKE BPBY-WLJHR,
        NUMBERS(10)   TYPE C VALUE '0123456789',
        DATETIME(16)  TYPE C,
        E(1)          TYPE C VALUE 'E', "LANGUAGE CODE
        COUNT         TYPE I,           "COUNT FOR FILE HEADER
        DTF(60)       TYPE C,
        DIRFILE(60)   TYPE C,
        NO_RECORDS(1) TYPE C,
        ARK(3)        TYPE C VALUE 'ARK',
        ONE           TYPE C VALUE '1',
        COLON(1)      TYPE C VALUE ':',
        MARK(1)       TYPE C VALUE 'X',
        FYR(4)        TYPE C,
        FILERR(1)     VALUE 'N',
        BUDREL(1)     VALUE 'Y',
        DATE LIKE SY-DATUM,
        date_cur(10),                            "jc01182007
        date_new(10),                            "jc01182007
        date_out type sy-datum,                  "jc01182007
        TIME LIKE SY-UZEIT,
        DOCTYPE LIKE BKPF-BLART,
        LINES TYPE I,
        rfipex like zfmcfblock-fipex,
   END OF WS.
*SYS_HDR constains the system ID and the client
DATA:  BEGIN OF SYS_HDR,
          SYS    LIKE SY-SYSID,
          FIL(1) TYPE C VALUE '/',
          CLT LIKE SY-MANDT,
       END OF SYS_HDR.
*Contains the report name and the user id.
DATA:  BEGIN OF RPT_AND_USER,
          RPT    LIKE SY-REPID,
          FIL(1) TYPE C VALUE '/',
          USR    LIKE SY-UNAME,
       END OF RPT_AND_USER.
*Object oriented data fields
data: ok_code like sy-ucomm,
      save_ok like sy-ucomm,
      g_container type scrfname value 'BCALV_GRID_DEMO_0100_CONT1',
      g_grid  type ref to cl_gui_alv_grid,
      g_custom_container type ref to cl_gui_custom_container,
      gt_fieldcat type lvc_t_fcat,
      gs_layout type lvc_s_layo.
local class to handle semantic checks
class lcl_event_receiver definition deferred.
data: g_event_receiver type ref to lcl_event_receiver.
types: begin of ty_mod_cells,
      row_id like lvc_s_modi-row_id,
      PERNR         LIKE ZHCM_MERIT_ELIG-PERNR,        "Personnel Number
      GSBER         LIKE ZHCM_MERIT_ELIG-GSBER,        "Business area
      WERKS         LIKE ZHCM_MERIT_ELIG-WERKS,        "Personnel Area
      ELIGIBLE      LIKE ZHCM_MERIT_ELIG-ELIGIBLE,     "Eligible Flag
      NOT_ELIGIBLE  LIKE ZHCM_MERIT_ELIG-NOT_ELIGIBLE, "Not Eligible
      end of ty_mod_cells.
data: it_mod_cells type standard table of ty_mod_cells
      with header line.
data: zit_mod_cells type standard table of ty_mod_cells
      with header line.
data: it_hold_mod_cells type standard table of ty_mod_cells
      with header line.
START OF COMMENT ************
LOCAL CLASS Definition
**§4.Define and implement event handler to handle event DATA_CHANGED.
class lcl_event_receiver definition.
  public section.
    methods:
      handle_data_changed
         for event data_changed of cl_gui_alv_grid
             importing er_data_changed,
      handle_top_of_page
        for event print_top_of_page of cl_gui_alv_grid.
  private section.
This flag is set if any error occured in one of the
following methods:
    data: error_in_data type c.
    data: ls_good type lvc_s_modi.
    data: s_mod_cells type ty_mod_cells.
Methods to modularize event handler method HANDLE_DATA_CHANGED:
This is a suggestion how you could comment your checks in each
*method:
CHECK: fieldname(old/new value) !<comp> fieldname(old/new value)
IF NOT: (What to tell the user is wrong about the input)
Remarks:
fieldname:       fieldname of table for the corresponding column
(old/new value): ckeck with value of GT_OUTTAB or MT_GOOD_CELLS.
!<comp>        : the value is valid if the condition <comp> holds.
    methods: check_cplan
         importing
            ps_good_cplan type lvc_s_modi
            pr_data_changed type ref to cl_alv_changed_data_protocol.
    methods: check_eligible
         importing
            ps_good_eligible type lvc_s_modi
            pr_data_changed type ref to cl_alv_changed_data_protocol.
    methods: check_not_eligible
         importing
            ps_good_not_eligible type lvc_s_modi
            pr_data_changed type ref to cl_alv_changed_data_protocol.
    methods: check_begda
         importing
            ps_good_begda type lvc_s_modi
            pr_data_changed type ref to cl_alv_changed_data_protocol.
endclass.                    "lcl_event_receiver DEFINITION
class lcl_event_receiver implementation.
  method handle_data_changed.
    error_in_data = space.
    clear i_merit_change.
    refresh i_merit_change.
semantic checks
Identify columns which were changed and check input
against output table gt_outtab or other new input values of one row.
Table er_data_changed->mt_good_cells holds all cells that
are valid according to checks against their DDIC data.
No matter in which order the input was made this table is
ordered by rows (row_id). For each row, the entries are
sorted by columns according to their order in the fieldcatalog
(not the defined order using field COL_POS but the order
given by the position of the record in the fieldcatalog).
The order is relevant if new inputs in several columns of
the same row are dependent.
**§5.Loop over table MT_GOOD_CELLS to check all values that are
  valid due to checks according to information of the DDIC.
    data: ls_merit_change type ty_merit_change.
    refresh i_merit_change.
    loop at er_data_changed->mt_good_cells into ls_good.
      case ls_good-fieldname.
check if column CPLAN of this row was changed
        when 'CPLAN'.
          call method check_cplan
            EXPORTING
              ps_good_cplan = ls_good
              pr_data_changed   = er_data_changed.
         when 'ELIGIBLE'.
          call method check_eligible
            EXPORTING
              ps_good_eligible = ls_good
              pr_data_changed   = er_data_changed.
         when 'NOT_ELIGIBLE'.
          call method check_not_eligible
            EXPORTING
              ps_good_not_eligible = ls_good
              pr_data_changed      = er_data_changed.
         when 'BEGDA'.
          call method check_begda
            EXPORTING
              ps_good_begda = ls_good
              pr_data_changed   = er_data_changed.
      endcase.
    endloop.
**§7.Display application log if an error has occured.
    if error_in_data eq 'X'.
      call method er_data_changed->display_protocol.
      refresh it_mod_cells.
    else.
      append lines of it_mod_cells to it_hold_mod_cells.
    endif.
  endmethod.                    "handle_data_changed
  method handle_top_of_page.
    write: /,'Event: PRINT_TOP_OF_PAGE'(001).
  endmethod.                    "handle_top_of_page
  method check_cplan.
Overview of checks according to field CPLAN
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    data: l_cplan type CMP_PLAN.
    data s_alv type t_merit_out_alv.
    data: s_merit_change type ty_merit_change.
Get new cell value to check it.
    call method pr_data_changed->get_cell_value
      EXPORTING
        i_row_id    = ps_good_cplan-row_id
        i_fieldname = ps_good_cplan-fieldname
      IMPORTING
        e_value     = l_cplan.
In case of error, create a protocol entry in the application log.
Possible values for message type ('i_msgty'):
    if L_cplan = 'MERE' OR
       L_cplan = 'MERA' OR
       L_cplan = 'MERS' OR
       L_cplan = 'MERU' OR
       L_cplan = 'NOEV'.
    ELSE.
      call method pr_data_changed->add_protocol_entry
        EXPORTING
          i_msgid     = 'ZF'
          i_msgno     = '095'
          i_msgty     = 'E'
          i_msgv1     = 'Invalid Plan Code'
          i_fieldname = ps_good_cplan-fieldname
          i_row_id    = ps_good_cplan-row_id.
      error_in_data = 'X'.
      exit.
    endif.
    modify table i_merit_change from s_merit_change.
    clear s_mod_cells.
    s_mod_cells-row_id = ls_good-row_id.
    s_mod_cells-pernr = s_alv-pernr.
    s_mod_cells-gsber = s_alv-gsber.
    s_mod_cells-werks = s_alv-werks.
    s_mod_cells-pernr = s_alv-pernr.
    ZDATA_CHNGED = 'Y'.
    append s_mod_cells to it_mod_cells.
  endmethod.                    "check_cplan
  method check_ELIGIBLE.
Overview of checks according to field CPLAN
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    data: l_ELIGIBLE type CMP_CELIG.
    data s_alv type t_merit_out_alv.
    data s_alv2 type t_merit_out_alv.
    data: s_merit_change type ty_merit_change.
    data: znot_eligible like zhcm_merit_elig-not_eligible.
Get new cell value to check it.
    call method pr_data_changed->get_cell_value
      EXPORTING
        i_row_id    = ps_good_eligible-row_id
        i_fieldname = ps_good_eligible-fieldname
      IMPORTING
        e_value     = l_eligible.
    READ TABLE IT_MOD_CELLS INDEX ps_good_eligible-row_id
                                          into zit_mod_cells.
    IF SY-SUBRC = 0.
       MOVE ZIT_MOD_CELLS-NOT_ELIGIBLE TO ZNOT_ELIGIBLE.
    ELSE.
       READ TABLE I_ALV_MERIT INDEX ps_good_eligible-row_id
                                         into s_alv.
       IF SY-SUBRC = 0.
           MOVE S_ALV-NOT_ELIGIBLE TO ZNOT_ELIGIBLE.
       ENDIF.
    ENDIF.
   IF L_ELIGIBLE = 'X' AND
      ZNOT_ELIGIBLE = 'X'.
     call method pr_data_changed->add_protocol_entry
       EXPORTING
         i_msgid     = 'ZF'
         i_msgno     = '095'
         i_msgty     = 'E'
         i_msgv1     = 'ELIGIBLE & NOT ELIGIBLE BOTH = X'
         i_fieldname = ps_good_eligible-fieldname
         i_row_id    = ps_good_eligible-row_id.
     error_in_data = 'X'.
     exit.
   endif.
    READ TABLE I_ALV_MERIT INDEX ps_good_eligible-row_id into s_alv.
    clear s_mod_cells.
    s_mod_cells-row_id = ls_good-row_id.
    s_mod_cells-pernr = s_alv-pernr.
    s_mod_cells-gsber = s_alv-gsber.
    s_mod_cells-werks = s_alv-werks.
    s_mod_cells-pernr = s_alv-pernr.
    s_mod_cells-eligible = l_eligible.
    s_mod_cells-not_eligible = s_alv-not_eligible.
    ZDATA_CHNGED = 'Y'.
    append s_mod_cells to it_mod_cells.
  endmethod.                    "check_eligible
  method check_NOT_ELIGIBLE.
Overview of checks according to field NOT_ELIGIBLE
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    data: l_NOT_ELIGIBLE type CMP_CELIG.
    data s_alv type t_merit_out_alv.
    data s_alv2 type t_merit_out_alv.
    data: s_merit_change type ty_merit_change.
    data: ZELIGIBLE LIKE ZHCM_MERIT_ELIG-ELIGIBLE.
Get new cell value to check it.
    call method pr_data_changed->get_cell_value
      EXPORTING
        i_row_id    = ps_good_not_eligible-row_id
        i_fieldname = ps_good_not_eligible-fieldname
      IMPORTING
        e_value     = l_not_eligible.
    READ TABLE IT_MOD_CELLS INDEX ps_good_not_eligible-row_id
                                          into zit_mod_cells.
    IF SY-SUBRC = 0.
       MOVE ZIT_MOD_CELLS-ELIGIBLE TO ZELIGIBLE.
    ELSE.
       READ TABLE I_ALV_MERIT INDEX ps_good_not_eligible-row_id
                                         into s_alv.
       IF SY-SUBRC = 0.
           MOVE S_ALV-ELIGIBLE TO ZELIGIBLE.
       ENDIF.
    ENDIF.
    IF L_NOT_ELIGIBLE = 'X' AND
       ZELIGIBLE = 'X'.
      call method pr_data_changed->add_protocol_entry
        EXPORTING
          i_msgid     = 'ZF'
          i_msgno     = '095'
          i_msgty     = 'E'
          i_msgv1     = 'ELIGIBLE & NOT ELIGIBLE BOTH = X'
          i_fieldname = ps_good_not_eligible-fieldname
          i_row_id    = ps_good_not_eligible-row_id.
      error_in_data = 'X'.
      exit.
    endif.
  READ TABLE I_ALV_MERIT INDEX ps_good_not_eligible-row_id
           into s_alv.
   IF SY-SUBRC = 0.
      S_MERIT_CHANGE = S_ALV.
      S_ALV-NOT_ELIGIBLE = L_NOT_ELIGIBLE.
      modify table i_merit_change from s_merit_change.
   ENDIF.
    READ TABLE I_ALV_MERIT INDEX ps_good_not_eligible-row_id
                       into s_alv.
    clear s_mod_cells.
    s_mod_cells-row_id = ls_good-row_id.
    s_mod_cells-pernr = s_alv-pernr.
    s_mod_cells-gsber = s_alv-gsber.
    s_mod_cells-werks = s_alv-werks.
    s_mod_cells-pernr = s_alv-pernr.
    s_mod_cells-eligible = zit_mod_cells-eligible.
    s_mod_cells-not_eligible = L_not_eligible.
    ZDATA_CHNGED = 'Y'.
    append s_mod_cells to it_mod_cells.
  endmethod.                    "check_not_eligible