regarding checkbox

Former Member — Thu, 28 Jun 2007 11:33:19 GMT

Hello experts,

in the below program i have some doubts..help me please.

TYPES: BEGIN OF ttab ,

check TYPE char1,

mandt TYPE t000-mandt,

mtext TYPE t000-mtext,

ort01 TYPE t000-ort01,

MWAER TYPE T000-MWAER,

END OF ttab.

DATA: itab TYPE TABLE OF ttab WITH HEADER LINE.

DATA: v_lines TYPE i.

DATA: v_cnt TYPE i.

DATA: v_counter TYPE i.

SELECT * INTO CORRESPONDING FIELDS OF TABLE itab FROM t000.

LOOP AT itab.

WRITE:/ itab-check AS CHECKBOX,

itab-mandt,

itab-mtext,

ITAB-MWAER.

ENDLOOP..

Press F8 after selecting the checkbox, this code
will tell you which records where selected.

AT PF8.

IF sy-lsind = 1.

DESCRIBE TABLE itab LINES v_lines.

v_cnt = 3. " Initiate value for Count 3 if you're including page header.

DO v_lines TIMES.

READ LINE v_cnt. " Above counter...

READ TABLE itab WITH KEY mandt = sy-lisel+2(3)..

itab-check = sy-lisel(1).

MODIFY itab INDEX sy-tabix.

v_counter = v_counter - 1.

v_cnt = v_cnt + 1.

ENDDO.

WRITE:/ 'SELECTED RECORDS:'.

LOOP AT itab WHERE check = 'X'.

WRITE:/ itab-check, itab-mandt, itab-mtext, itab-ort01.

ENDLOOP.

ENDIF.

in this why we use the

DESCRIBE TABLE itab LINES v_lines.

v_cnt = 3.

READ TABLE itab WITH KEY mandt = sy-lisel+2(3)..

itab-check = sy-lisel(1).

MODIFY itab INDEX sy-tabix.

Re: regarding checkbox

Former Member — Thu, 28 Jun 2007 11:39:43 GMT

DESCRIBE TABLE itab LINES v_lines.

this will give the number of records in the internal table.

So the aim here is you have to change all these records with the read data from ITAB.

In the output first 2 lines there won't be data displayed, which are displayed top of page.so taking the count from 3rd line.

v_cnt = 3.

READ TABLE itab WITH KEY mandt = sy-lisel+2(3).

reading the internal table with the MANDT field which are displayed in 2,3,4 characterers.

and taking the first char field value which is nothing but check box and appending/modifing the itab for each line

this will be done for all records of internal table.

itab-check = sy-lisel(1).

MODIFY itab INDEX sy-tabix.

<b>

Reward points for useful Answers</b>

Regards

Anji

topic Re: regarding checkbox in Application Development and Automation Discussions

regarding checkbox

Re: regarding checkbox