How can I insert, modify and delete entries on my table control?

Question

Hi,
I already have build a table control. Now I want to make manipulations on it. Therefore I have created 3 buttons, insert, modify and delete. But how can I get actions on table control.
This is my code for the internal table:
BEGIN OF its OCCURS 0,
mark TYPE C VALUE ' ',
artikel_nr TYPE ZARTIKEL-ARTIKEL_NR,
artikel_typ TYPE ZARTIKEL-TYPE,
bezeichnung TYPE ZARTIKEL-BEZEICHNUNG,
preis TYPE ZARTIKEL-PREIS,
mwst TYPE ZARTIKEL-MWST,
END OF its.
and this is the code which i wanted to  delete a row in my table control:
WHEN 'DELETE'.
LOOP AT its WHERE mark EQ 'X'.
DELETE its WHERE mark = 'X'.
MOVE its TO ZARTIKEL.
ENDLOOP.
ENDCASE.
ENDMODULE:
and my PBO and PAI:
PROCESS BEFORE OUTPUT.
LOOP AT its INTO ZARTIKEL WITH CONTROL ARTIKEL.
ENDLOOP.
PROCESS AFTER INPUT.
MODULE EXIT.
LOOP AT its.
MODULE V1.
ENDLOOP.
MODULE user_command_1060.
But if I now open my table control and mark the line that I wanted to delete, nothing happens, not on my internal table and the data even not deleted on my table ZARTIKEL. Have you an idea what I did wrong??

Answer 1

Hi,
In the attributes of table control take the SELCOL as wa_zekpo-flag
And in the internal table and work area add a field as flag(1) TYPE c
Refer:
At screen logic:-
PROCESS BEFORE OUTPUT.
  MODULE status_8002.
  LOOP WITH CONTROL po_tab.
    MODULE pass_data.
  ENDLOOP.
PROCESS AFTER INPUT.
  MODULE user_command_8002.
  LOOP WITH CONTROL po_tab.
    MODULE modify_data.
  ENDLOOP.
  MODULE function.
In PBO,
MODULE status_8002 OUTPUT.
  SET PF-STATUS 'ZTG_SELTB'.
  DATA : line_count TYPE i.
  DESCRIBE TABLE it_ekpo
  LINES line_count.
  po_tab-lines = line_count + 5.
ENDMODULE.                 " STATUS_8002  OUTPUT
*&      Module  PASS_DATA  OUTPUT
MODULE pass_data OUTPUT.
  READ TABLE it_ekpo into wa_ekpo INDEX po_tab-current_line.
ENDMODULE.                 " PASS_DATA  OUTPUT
In PAI,
*&      Module  USER_COMMAND_8002  INPUT
MODULE USER_COMMAND_8002 INPUT.
  OK_CODE = SY-UCOMM.
  CASE OK_CODE.
    WHEN 'BACK'.
      LEAVE TO SCREEN 8001.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_8002  INPUT
*&      Module  MODIFY_DATA  INPUT
MODULE DISPLAY_DATA INPUT.
  MODIFY IT_EKPO INDEX PO_TAB-CURRENT_LINE FROM WA_EKPO.
ENDMODULE.                 " MODIFY_DATA  INPUT
*&      Module  FUNCTION  INPUT
MODULE FUNCTION INPUT.
  OK_CODE = SY-UCOMM.
  CASE OK_CODE.
    WHEN 'SELECT'. "<--select all records
      LOOP AT IT_EKPO INTO WA_EKPO.
        WA_EKPO-FLAG = 'X'.
        MODIFY IT_EKPO FROM WA_EKPO.
      ENDLOOP.
    WHEN 'DESEL'. "<--deselect all records
      LOOP AT IT_EKPO INTO WA_EKPO.
        WA_EKPO-FLAG = ' '.
        MODIFY IT_EKPO FROM WA_EKPO.
      ENDLOOP.
    WHEN 'DELETE'.
      DELETE FROM it_ekpo WHERE flag = 'X'.
  ENDCASE.
ENDMODULE.                 " FUNCTION  INPUT
Regards,
Tarun