topic Re: select deselect in table control in Application Development and Automation Discussions

select deselect in table control

Former Member — Sat, 03 Jan 2009 09:00:59 GMT

Hi friends,

am providing two options like select , deselect and how can i delete and modify the selected line in table control .if possible provide the code for both select and deselect and delete modify.But i have done this for select deselect it is not wrking.

CASE SY-UCOMM.

WHEN 'SELECTALL'.

wa_tablecontrol-sel = 'X'. " seletion field on table control

MODIFY it_tbcontrol from wa_tablecontrol TRANSPORTING SEL WHERE SEL IS INITIAL.

WHEN 'DESELECTALL'.

wa_tablecontrol-sel = SPACE.

MODIFY it_tbcontrol from wa_tablecontrol TRANSPORTING SEL WHERE SEL = 'X'.

ENDCASE.

Re: select deselect in table control

Former Member — Sat, 03 Jan 2009 09:07:57 GMT

go through the below demo program

DEMO_DYNPRO_TABLE_CONTROL_1

DEMO_DYNPRO_TABLE_CONTROL_2

refer below link..

http://saptechnical.com/Tutorials/ABAP/TableControl/Demo.htm

Re: select deselect in table control

Former Member — Sat, 03 Jan 2009 09:08:13 GMT

HI,

Go through this link, its will help to to delete and modify the line in table.

http://saptechnical.com/Tutorials/ABAP/TableControl/Demo.htm.

Regards

sathish

Re: select deselect in table control

Former Member — Sat, 03 Jan 2009 09:10:24 GMT

HI,

Check the Function Code SELECTALL & DESELECTALL are proporly defined in the PF-STATUS.

Re: select deselect in table control

KN-Nampoothiry — Sat, 03 Jan 2009 09:18:26 GMT

Hi,

Please ensure your code is after the LOOP statement for the table control in FLOW LOGIC.

Please understand the ORDER in a flow logic matters a lot..for eg. if you have the code given by you before the LOOP. the loop copies data from the screen onto ITAB and that will nullify whatever operation you did on the ITAB.

So please check the Flow Order and confirm if this works.

Please reply if the issue is resolved and if so HOW ..

Thankx

Re: select deselect in table control

KN-Nampoothiry — Sat, 03 Jan 2009 09:18:37 GMT

Hi,

Please ensure your code is after the LOOP statement for the table control in FLOW LOGIC.

So please check the Flow Order and confirm if this works.

Please reply if the issue is resolved and if so HOW ..

Thankx

Re: select deselect in table control

KN-Nampoothiry — Sat, 03 Jan 2009 09:19:05 GMT

Hi,

Please ensure your code is after the LOOP statement for the table control in FLOW LOGIC.

So please check the Flow Order and confirm if this works.

Please reply if the issue is resolved and if so HOW ..

Thankx

Re: select deselect in table control

KN-Nampoothiry — Sat, 03 Jan 2009 09:19:19 GMT

Hi,

Please ensure your code is after the LOOP statement for the table control in FLOW LOGIC.

So please check the Flow Order and confirm if this works.

Please reply if the issue is resolved and if so HOW ..

Thankx

Re: select deselect in table control

Former Member — Sat, 03 Jan 2009 10:20:12 GMT

Modify as below...

CASE SY-UCOMM.

WHEN 'SELECTALL'.

loop at it_tbcontrol into wa_tablecontrol.

wa_tablecontrol-sel = 'X'. " seletion field on table control

MODIFY it_tbcontrol from wa_tablecontrol .

endloop

WHEN 'DESELECTALL'.

loop at it_tbcontrol into wa_tablecontrol.

wa_tablecontrol-sel = SPACE.

MODIFY it_tbcontrol from wa_tablecontrol .

endloop.

ENDCASE.

Re: select deselect in table control

I355602 — Mon, 05 Jan 2009 04:03:12 GMT

Hi Sai,

Use this code to select, deselect, delete and modify data from table control into the database table, its working:-

Take the names of the input/output fields as work_area-field_name and select column in table control as work_area-flag.

Also take a flag field of size 1 datatype character as the last field in the internal table and work area while declaration.

At Screen Logic:-


PROCESS BEFORE OUTPUT.
  MODULE status_8002. "for pf-status

  LOOP WITH CONTROL po_tab. "po_tab is name of table control
    MODULE pass_data. "to pass data into table control from internal table
  ENDLOOP.

PROCESS AFTER INPUT.
  MODULE user_command_8002. "to handle other user commands (back and exit)

  LOOP WITH CONTROL po_tab. "po_tab is name of table control
    MODULE modify_data. "to modify data from table control into internal table
  ENDLOOP.

  MODULE function. "to select & deselect all records int table control
  MODULE delete. "to delete the selected entries

In PBO,


*&---------------------------------------------------------------------*
*&      Module  PASS_DATA  OUTPUT
*&---------------------------------------------------------------------*
MODULE pass_data OUTPUT.
  READ TABLE it_ekpo into wa_ekpo INDEX po_tab-current_line.
ENDMODULE.                 " PASS_DATA  OUTPUT
"it_ekpo is internal table and wa_ekpo is the work area

In PAI,


*&---------------------------------------------------------------------*
*&      Module  MODIFY_DATA  INPUT
*&---------------------------------------------------------------------*
MODULE MODIFY_DATA INPUT.
  MODIFY IT_EKPO INDEX PO_TAB-CURRENT_LINE FROM WA_EKPO.
  "modify records from table control into the internal table
ENDMODULE.                 " MODIFY_DATA  INPUT

*&---------------------------------------------------------------------*
*&      Module  FUNCTION  INPUT
*&---------------------------------------------------------------------*
MODULE FUNCTION INPUT.
  OK_CODE = SY-UCOMM.

  CASE OK_CODE.

    WHEN 'SELECT'. "to select all records
      LOOP AT IT_EKPO INTO WA_EKPO.
        WA_EKPO-FLAG = 'X'. "set flag field as 'X'
        MODIFY IT_EKPO FROM WA_EKPO.
      ENDLOOP.

    WHEN 'DESEL'. "to de-select all records
      LOOP AT IT_EKPO INTO WA_EKPO.
        WA_EKPO-FLAG = ' '. "set flag field as space
        MODIFY IT_EKPO FROM WA_EKPO.
      ENDLOOP.
  ENDCASE.

ENDMODULE.                 " FUNCTION  INPUT

*&---------------------------------------------------------------------*
*&      Module  DELETE  INPUT
*&---------------------------------------------------------------------*
MODULE DELETE INPUT.
"take one more internal table and work area for deleting the records
"from the initial internal table and delete from the database table
"of same type as of the initial internal table and work area
  OK_CODE = SY-UCOMM.

  CASE OK_CODE.

    WHEN 'DELETE'.
      SORT IT_EKPO BY FLAG DESCENDING. "sort for selected fields
      CLEAR WA_EKPO1.
      CLEAR WA_EKPO.
      REFRESH IT_EKPO1.
      LOOP AT IT_EKPO INTO WA_EKPO WHERE FLAG = 'X'.
        DATA : J TYPE I.
        CLEAR J.
        J = SY-TABIX. "get index of selected record
        MOVE-CORRESPONDING WA_EKPO TO WA_EKPO1. "move selected records
        APPEND WA_EKPO1 TO IT_EKPO1. "into another internal table for processing
        DELETE IT_EKPO. "delete selected records from initial internal table
      ENDLOOP.
      IF J = 0. "if no records selected then message displayed
        MESSAGE I006.
      ELSE.
        DELETE ZEKPO FROM TABLE IT_EKPO1. "delete selected records from db table
        "or you can process them as per your requirement
        "rememeber not to delete records from standard tables
        "in my case i am using a Z table
        COMMIT WORK.
        IF SY-SUBRC = 0.
          MESSAGE S007. "sucess message after deleting selected records
        ENDIF.
      ENDIF.

  ENDCASE.
ENDMODULE.                 " DELETE  INPUT

Hope this solves your problem.

Thanks & Regards,

Tarun Gambhir