topic Re: hi in Application Development and Automation Discussions

hi

Former Member — Thu, 27 Dec 2007 11:48:13 GMT

my prob is i displayed in primary list checkbox and customer id. but when i select few check box i want the other details corresponding to that selected customer id in secondary list.

can u help me.

i used sy-lisel which display default last customer id detail in secondary list can u help me.

Re: hi

Former Member — Thu, 27 Dec 2007 11:54:36 GMT

Hi,

The only way is to use the

Read line.....statement. ( this is not " Read table...)

I worked on the similar object ,,,and i got the result...

As i explained in ur previus thread , do it in the same way.

Revrt back if u have any issues in this.

Regards,

Naveen

Re: hi

Former Member — Thu, 27 Dec 2007 12:06:23 GMT

can u tell in breif i couldn't understand read statement.

Re: hi

Former Member — Thu, 27 Dec 2007 12:09:44 GMT

Hi Ramya,

Can you paste your code please.......

Re: hi

Former Member — Thu, 27 Dec 2007 12:12:08 GMT

my code is.

data :wi_cust is an internal table like zcust_master.

data: chk type c. "is my check box.

select * from zcust_master into table wi_cust.

loop at wi_cust.

write : chk as checkbox , wi_cust-custid.

endloop.

at line-selection.

check sy-lsind = 1.

windows starting at5.4.

ending at ...

write : sy-lisel.

loop at wi_cust.

write: .......

endloop.

can u help me.

it default give last record from table in pop up.

Re: hi

Former Member — Thu, 27 Dec 2007 12:16:51 GMT

HI,

Paste this and execute .

Concentrate th ecode belwo User_command Event.

REPORT demo_list_read_line NO STANDARD PAGE HEADING.

TABLES: sflight.

DATA: box(1) TYPE c, lines TYPE i, free TYPE i.

START-OF-SELECTION.

SET PF-STATUS 'CHECK'.

GET sflight.

WRITE: box AS CHECKBOX, sflight-fldate.

HIDE: sflight-fldate, sflight-carrid, sflight-connid,

sflight-seatsmax, sflight-seatsocc.

END-OF-SELECTION.

lines = sy-linno - 1.

TOP-OF-PAGE.

WRITE: 'List of flight dates'.

ULINE.

TOP-OF-PAGE DURING LINE-SELECTION.

WRITE: 'Date:', sflight-fldate.

ULINE.

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'READ'.

box = space.

SET PF-STATUS 'CHECK' EXCLUDING 'READ'.

DO lines TIMES.

READ LINE sy-index FIELD VALUE box.

IF box = 'X'.

free = sflight-seatsmax - sflight-seatsocc.

IF free > 0.

NEW-PAGE.

WRITE: 'Company:', sflight-carrid,

'Connection: ',sflight-connid,

/ 'Number of free seats:', free.

ENDIF.

ENDDO.

ENDCASE.

Re: hi

Former Member — Thu, 27 Dec 2007 12:17:30 GMT

Hi,

But what is the action (function code) you are doing here?

I mean ..

AT LINE-SELECTION.

CASE fcode.

WHEN 'click'.

-- Here you do your logic and see if it works.

ENDCASE.

Put the break-point at AT LINE-SELECTION and press F5 - line by line execution and see how your program is behaving..

Regards,

Hari

Re: hi

Former Member — Thu, 27 Dec 2007 12:22:05 GMT

Hi ramya,

use read line statement within at line-selection.

Regards

Srimanta

Re: hi

Former Member — Thu, 27 Dec 2007 12:33:30 GMT

Use HIDE statement while writing the primary list.

HIDE f.

The contents of f related to the current output line will be then stored.

If this line is selected, f is filled automatically with the stored value.

Then use READ LINE statement as follows.

AT LINE-SELECTION.

READ LINE sy-lilli FIELD VALUE f INTO f1.

Re: hi

Former Member — Thu, 27 Dec 2007 14:15:35 GMT

Hi Ramya,

Please check the below code.You will clearly understand.

Here based upon the value of the check box we are displaying the ticked check box value in the secondary list.here i have used only one internal table to get values to both primary and secondary list(based upon the check box value).we can also use another internal table for secondary list.

REPORT ZPRACTICE_43_032 .

tables : ekpo.

data:check1(1) type c,

s_line type I.

data:begin of t_ekpo occurs 0,

ebeln like ekpo-ebeln,

ebelp like ekpo-ebelp,

matnr like ekpo-matnr,

txz01 like ekpo-txz01,

end of t_ekpo.

select-options:s_ebeln for ekpo-ebeln modif id m1 no-extension.

start-of-selection.

set pf-status 'ST1'.

select ebeln ebelp matnr txz01

from ekpo

into table t_ekpo

where ebeln in s_ebeln.

if not t_ekpo[] is initial.

sort t_ekpo.

endif.

write:/'EKPO DETAILS'.

write: /07 'EBELN',

20 'EBELP',

35 'MATNR',

40 'TXZ01'.

end-of-selection.

loop at t_ekpo.

write:/01 check1 as CHECKBOX,

04 t_ekpo-ebeln,

20 t_ekpo-ebelp,

35 t_ekpo-matnr,

40 t_ekpo-txz01.

clear t_ekpo.

endloop.

s_line = sy-linno - 1.

at user-command.

case sy-ucomm.

when 'SHOW_PUR'.

do s_line times.

read line sy-index field value check1.

if check1 = 'X'.

data : v_line type sy-tabix.

v_line = sy-index - 4.

read table t_ekpo index v_line.

write:/02 t_ekpo-ebeln,

15 t_ekpo-ebelp,

30 t_ekpo-matnr,

40 t_ekpo-txz01.

endif.

enddo.

endcase.

Please reward points if it s useful..

With Regards,

Thasneem

Re: hi

Former Member — Fri, 28 Dec 2007 06:53:50 GMT

GOT ANSWER FOR PREVIOUS THREAD. tHANK YOU.

NOW , IN THE SAME WAY.. THE FIRST LIST CONTAIN CUSTID. WHEN I SELECT THE CUST ID I GOT THE SECONDARY POP UP WHICH HAD FILEDNAME AVAILABLE IN THE CUSTOMER TABLE WITH CHECK BOX.

NOW WHEN I SELECT THE FIELDS CHECK BOX IN SECONDARY LIST, THE THIRD LIST SHOULD HAVE THE CHECKED FIELDS IN SECONDARY LIST WITH CORRESPONDING CHECKED CUSTID IN PRIMARY LIST.

HELP ME OUT.