TABLE CONTRL-LINES SELECTED

[dhananjay_khamkar]

Hi All.

I have one table control and I want to find out how many line (rows) are selected .

Can any one help me how to calculate total rows of table control are selected.

Thanks in advance

Dhanu

[Former Member]

Hi,

Check this Document it will be helpful to you...

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/documents/a1-8-4/table control in abap.pdf

[Former Member]

in the pai,

you can count the no. of lines selected.

LOOP AT it_proxy.

FIELD sel.

MODULE selection_check.

ENDLOOP.

IF sel = 'X'.

it_proxy-sel = 'X'.

w_sel = w_sel + 1.

ELSE.

CLEAR it_proxy-sel.

ENDIF.

MODIFY it_proxy INDEX tctrl_proxy-current_line.

w_sel give u the no.of lines selected.

if ur problem is solved, reward points.

[jayanthi_jayaraman]

HI,

If you want to find the no. of rows selected,you have to use a field of length 1 in database[say pick],and update the internal table everytime a field is selected in PAI.Kindly reward points by clicking the star on the left of reply,if it helps.

PROCESS AFTER INPUT.

LOOP AT i_makt.

FIELD i_makt-pick MODULE check.

ENDLOOP.

Here is the complete sample code on table control.

In the flow logic of the screen 9000, write the following code.

PROCESS BEFORE OUTPUT.

MODULE set_status.

MODULE get_t_ctrl_lines.

LOOP AT i_makt WITH CONTROL t_ctrl CURSOR t_ctrl-current_line.

• Dynamic screen modifications

MODULE set_screen_fields.

ENDLOOP.

*

PROCESS AFTER INPUT.

LOOP AT i_makt.

FIELD i_makt-pick MODULE check.

FIELD i_makt-zmatnr MODULE zmatnr .

ENDLOOP.

MODULE user_command_9000.

In the program, write the following code.

PROGRAM SAPMZTC MESSAGE-ID zz.

***********************************************************************

• Tables Declaration

***********************************************************************

TABLES: zzz_makt.

***********************************************************************

• Internal table Declaration

***********************************************************************

DATA : i_makt TYPE STANDARD TABLE OF zzz_makt WITH HEADER LINE.

***********************************************************************

• Table control Declaration

***********************************************************************

CONTROLS: t_ctrl TYPE TABLEVIEW USING SCREEN '9000'.

***********************************************************************

• Variable Declaration

***********************************************************************

DATA : flg, "Flag to set the change mode

ln TYPE i. "No. of records

&----

---

*& Module get_T_CTRL_lines OUTPUT

&----

---

• Populating data

----

---

MODULE get_t_ctrl_lines OUTPUT.

SELECT zmatnr zmaktx

INTO CORRESPONDING FIELDS OF TABLE i_makt

FROM zzz_makt.

DESCRIBE TABLE i_makt LINES ln.

• To make the vertical scroll bar to come on runtime

t_ctrl-lines = ln + 100.

ENDMODULE. " get_T_CTRL_lines OUTPUT

&----

---

*& Module USER_COMMAND_9000 INPUT

&----

---

• Triggering event according to the user command

----

---

MODULE user_command_9000 INPUT.

DATA :lv_fcode LIKE sy-ucomm, "Function Code

lv_answer(1) type c. "Storing the answer

lv_fcode = sy-ucomm.

CASE lv_fcode.

WHEN 'CHANGE'.

• Setting the flag to make the table control in editable mode[excluding

• primary key].

flg = 'Y'.

WHEN 'DELETE'.

• Setting the flag to make the table control in editable mode after

• deleting the selected line

flg = 'Y'.

• Confirmation of delete

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

TITLEBAR = 'Confirm'

text_question = 'Are you sure to delete from database?'

TEXT_BUTTON_1 = 'Yes'(001)

TEXT_BUTTON_2 = 'No'(002)

IMPORTING

ANSWER = lv_answer.

if lv_answer eq '1'.

• Updating the database table from the internal table

UPDATE zzz_makt FROM TABLE i_makt.

• Deleting the selected row from the internal table

DELETE i_makt WHERE pick = 'X'.

• Deleting the selected row from the database table

DELETE FROM zzz_makt WHERE pick = 'X'.

MESSAGE s005 WITH 'Deleted Successfully'.

ENDIF.

WHEN 'SAVE'.

• Inserting new record or updating existing record in database table

• from the internal table

MODIFY zzz_makt FROM TABLE i_makt.

MESSAGE s005 WITH 'Saved Successfully'.

WHEN 'BACK'.

SET SCREEN '0'.

WHEN 'EXIT' OR 'CANCEL'.

• Leaving the program

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_9000 INPUT

&----

---

*& Module set_screen_fields OUTPUT

&----

---

• Setting the screen fields

----

---

MODULE set_screen_fields OUTPUT.

LOOP AT SCREEN.

IF flg IS INITIAL.

screen-input = 0.

ELSEIF ( flg EQ 'Y' ).

IF ( ( screen-name = 'I_MAKT-ZMAKTX'

OR screen-name = 'I_MAKT-CHECK1' )

AND t_ctrl-current_line LE ln ) .

• Making the screen fields as editable

screen-input = 1.

ELSEIF ( ( screen-name = 'I_MAKT-ZMATNR' )

AND t_ctrl-current_line LE ln ).

• Making the screen field as uneditable

screen-input = 0.

ENDIF.

ENDIF.

• Modifying the screen after making changes

MODIFY SCREEN.

ENDLOOP.

ENDMODULE. " set_screen_fields OUTPUT

&----

---

*& Module zmatnr INPUT

&----

---

• Appending records to the internal table

----

---

MODULE zmatnr INPUT.

MODIFY i_makt INDEX t_ctrl-current_line.

IF t_ctrl-current_line GT ln.

READ TABLE i_makt WITH KEY zmatnr = i_makt-zmatnr.

IF sy-subrc NE 0.

• Inserting record if it does not exist in database

APPEND i_makt.

ELSE.

MESSAGE i005 WITH 'Material Number' i_makt-zmatnr 'already exists'.

ENDIF.

ENDIF.

ENDMODULE. " zmatnr INPUT

&----

---

*& Module set_status OUTPUT

&----

---

• Setting the GUI status

----

---

MODULE set_status OUTPUT.

SET PF-STATUS 'ZSTATUS'.

SET TITLEBAR 'ZTITLE'.

ENDMODULE. " set_status OUTPUT

*&----

---

*& Module CHECK INPUT

*&----

---

• Modify the internal table using the current line in table control

*----

---

MODULE check INPUT.

MODIFY i_makt INDEX t_ctrl-current_line.

ENDMODULE. " CHECK INPUT