topic Re: Interaactive lists in Application Development and Automation Discussions

Interaactive lists

Former Member — Wed, 17 May 2006 07:21:27 GMT

Hi ,

I want to open two list from one basic list. Is it possible to open more than one list from one basic list.For this I have created check box in my basic list. When user checks two checkbox two detail list should have to be get poped. Can anyone tell me how to do this if possible.

regards

Ashish Kumar

Re: Interaactive lists

vinod_gunaware2 — Wed, 17 May 2006 07:23:56 GMT

Lists in Dialog Boxes

You can display a list in a dialog box instead of on the full screen using the WINDOW statement:

WINDOW STARTING AT <left> <upper> [ENDING AT <right> <lower>].

When you use this statement, the system displays the current list (index SY-LSIND) as a dialog box. Use <left> and <upper> to specify the column and line of the top left-hand corner of the dialog box in relation to the screen containing the basic list. If <upper> is 0, the list appears on a full screen. The coordinates of the lower right-hand corner depend on the space required by the secondary list. You can specify the ENDING option, using <right> and <lower> to set the column and line of the lower right-hand corner. The window will not exceed these values. By default, the system uses the values of the lower right corner of the window on which the event occurred.

If the width of the dialog box is smaller than that of the preceding list, the system creates a horizontal scrollbar on the dialog box. To prevent that, you must adapt the width of the detail list to the width of the dialog box by using the following statement:

NEW-PAGE LINE-SIZE <width>.

The WINDOW statement takes effect only within the processing block of an interactive event, that is, only for detail lists. The list functions for lists in dialog box are the same as for fullscreen lists.

The GUI status type is different for dialog boxes. Dialog boxes have no menu bar and no standard toolbar. The application toolbar appears at the bottom of the dialog box. This is a feature common to all dialog boxes in the R/3 System.

If you do not set your own status but have defined an AT LINE-SELECTION or AT PF<nn> processing block in your program, the system uses a standard list status for a dialog box containing the corresponding function codes.

To define a status for a dialog box, choose Dialog box as the status type in the Menu Painter. The system does not provide a menu bar or a standard toolbar. In the application toolbar, the function codes PRI, %SC, %SC+, and RW are preset to allow the user to print the list, search for patterns, and leave the window.

REPORT demo_list_window NO STANDARD PAGE HEADING.

START-OF_SELECTION.

SET PF-STATUS 'BASIC'.

WRITE 'Select line for a demonstration of windows'.

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'SELE'.

IF sy-lsind = 1.

SET PF-STATUS 'DIALOG'.

SET TITLEBAR 'WI1'.

WINDOW STARTING AT 5 3 ENDING AT 40 10.

WRITE 'Select line for a second window'.

ELSEIF sy-lsind = 2.

SET PF-STATUS 'DIALOG' EXCLUDING 'SELE'.

SET TITLEBAR 'WI2'.

WINDOW STARTING AT 45 10 ENDING AT 60 12.

WRITE 'Last window'.

ENDIF.

ENDCASE.

This program sets status BASIC for the basic list. In status BASIC, the function code PICK proposed for function key F2 is replaced by the user-defined function code SELE (text SELECT) which is also assigned to a pushbutton:

For this reason, SELECT, F2 , and double-clicking the mouse all trigger the event AT USER-COMMAND. In the corresponding processing block, list levels 1 and 2 have the status DIALOG and appear in a dialog box. In the status DIALOG, exactly as for status BASIC, the function code PICK proposed for function key F2 due to status type Dialog box is replaced by the function code SELE and assigned to the application toolbar after RW.

Titles WI1 and WI2 are defined for the dialog boxes. In the second dialog box, the EXCLUDING option of the SET PF-STATUS statement deactivates function code SELE.

The dialog boxes are displayed with horizontal scrollbars, since the list always has the standard list width of the basic list, and cannot be adapted to the dialog box.

regards

vinod

Re: Interaactive lists

Former Member — Wed, 17 May 2006 07:24:00 GMT

Hi ashish,

1. Since alv lists either open in full mode,

or in dialog screen mode (modal dialog box kind)

, we cannot open them simulataneously more than one.

regards,

amit m.

Re: Interaactive lists

Former Member — Wed, 17 May 2006 07:28:50 GMT

Hi Ashok,

you cannot have two list from one list at the same time, but you can have n number of lists from one list. it depends on what you click. based on that you can show different lists, but on one click it is not possible to show two list at a time

regards

vijay

Re: Interaactive lists

Former Member — Wed, 17 May 2006 07:38:03 GMT

Hi Vijay,

Is it not possible in my case. I selected multiple check boxes .Even then its not possible to open muliple list from one basic list. And one more question is it possible to jump from one 2nd list to 10th list.

regards,

ashish kumar

Re: Interaactive lists

Former Member — Wed, 17 May 2006 07:39:26 GMT

Hai Ashish

Try with the following COde

&----

*& Report ZSSSS1 *

*& *

&----

*& *

&----

REPORT ZSSSS1 LINE-SIZE 120

LINE-COUNT 25(3)

MESSAGE-ID ZSAN.

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

*Program Desc: INTERACTIVE REPORT FOR PURCHASE ORDER DETAILS

BASIC LIST CONTAINS HEADER DETAILS
SECONDARY LIST CONTAINS ITEM DETAILS
AND CONDETION RECORD DETAILS

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

T A B L E S U S E D *

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

TABLES: EKKO,EKPO,KONV,LFA1,T001.

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

S E L E C T I O N S C R E E N *

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

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.

SELECT-OPTIONS:

S_LIFNR FOR EKKO-LIFNR,

S_BUKRS FOR EKKO-BUKRS.

SELECTION-SCREEN END OF BLOCK B1.

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

D A T A D E C L A R A T I O N S *

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

DATA: BEGIN OF IT_EKKO OCCURS 0,

BUKRS LIKE EKKO-BUKRS,

LIFNR LIKE EKKO-LIFNR,

EBELN LIKE EKKO-EBELN,

KNUMV LIKE EKKO-KNUMV,

END OF IT_EKKO.

DATA: BEGIN OF IT_EKPO OCCURS 0,

EBELN LIKE EKPO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

INFNR LIKE EKPO-INFNR,

MENGE LIKE EKPO-MENGE,

MEINS LIKE EKPO-MEINS,

NETPR LIKE EKPO-NETPR,

END OF IT_EKPO.

DATA: BEGIN OF IT_KONV OCCURS 0,

KNUMV LIKE KONV-KNUMV,

KSCHL LIKE KONV-KSCHL,

KAWRT LIKE KONV-KAWRT,

KBETR LIKE KONV-KBETR,

KPOSN LIKE KONV-KPOSN,

END OF IT_KONV.

DATA: BEGIN OF IT_LFA1 OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

NAME1 LIKE LFA1-NAME1,

STRAS LIKE LFA1-STRAS,

ORT01 LIKE LFA1-ORT01,

PSTLZ LIKE LFA1-PSTLZ,

LAND1 LIKE LFA1-LAND1,

END OF IT_LFA1.

DATA: V_BUTXT LIKE T001-BUTXT,

FNAM(20) TYPE C,

FVAL(20) TYPE C.

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

A T S E L E C T I O N - S C R E E N O N <FIELD> *

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

AT SELECTION-SCREEN ON S_BUKRS.

PERFORM VALIDATE.

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

S T A R T - O F - S E L E C T I O N *

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

START-OF-SELECTION.

PERFORM SELECT_DATA. " SELECTION OF ALL DATA

PERFORM DISPLAY_DATA. " DISPLAY OF BASIC LIST

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

A T L I N E S E L E C T I O N *

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

AT LINE-SELECTION.

GET CURSOR FIELD FNAM VALUE FVAL.

CASE FNAM.

WHEN 'IT_EKKO-EBELN'.

PERFORM DISPLAY_SEC1.

WHEN 'IT_EKKO-LIFNR'.

PERFORM DISPLAY_SEC2.

WHEN OTHERS.

PERFORM DISPLAY_SEC3.

ENDCASE.

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

T O P - O F - P A G E *

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

TOP-OF-PAGE.

PERFORM WRITE_HEADER.

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

T O P - O F - P A G E D U R I N G L I N E S E L *

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

TOP-OF-PAGE DURING LINE-SELECTION.

PERFORM WRITE_HEADER2.

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

E N D - O F - P A G E *

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

END-OF-PAGE.

PERFORM WRITE_FOOTER.

&----

*& Form SELECT_DATA

&----

THIS FORM CONTAINS ALL SELECTION OF DATA STATEMENTS

----

form SELECT_DATA.

SELECT BUKRS LIFNR EBELN KNUMV

FROM EKKO

INTO TABLE IT_EKKO

WHERE LIFNR IN S_LIFNR

AND BUKRS IN S_BUKRS.

IF NOT IT_EKKO[] IS INITIAL.

SELECT EBELN EBELP MATNR INFNR MENGE MEINS NETPR

FROM EKPO

INTO TABLE IT_EKPO

FOR ALL ENTRIES IN IT_EKKO

WHERE EBELN = IT_EKKO-EBELN.

IF SY-SUBRC = 0.

LOOP AT IT_EKKO.

LOOP AT IT_EKPO.

SELECT KNUMV KSCHL KAWRT KBETR KPOSN

FROM KONV

INTO IT_KONV

WHERE KNUMV = IT_EKKO-KNUMV

AND KPOSN = IT_EKPO-EBELP.

APPEND IT_KONV.

ENDSELECT.

ENDLOOP.

ENDIF." END OF IF FOR CHECK OF SY-SUBRC

SELECT LIFNR NAME1 STRAS ORT01 PSTLZ LAND1

INTO TABLE IT_LFA1

FROM LFA1

FOR ALL ENTRIES IN IT_EKKO

WHERE LIFNR = IT_EKKO-LIFNR.

ENDIF." END OF IF FOR IT_EKKO IS NOT INITIAL

endform. " SELECT_DATA

&----

*& Form DISPLAY_DATA

&----

DISPLAY THE BASIC DATA

----

form DISPLAY_DATA.

DATA: LINNO TYPE I.

SORT IT_EKKO BY BUKRS LIFNR EBELN.

LOOP AT IT_EKKO.

READ TABLE IT_LFA1 WITH KEY LIFNR = IT_EKKO-LIFNR.

SELECT SINGLE BUTXT

FROM T001

INTO (V_BUTXT)

WHERE BUKRS = IT_EKKO-BUKRS.

WRITE:/1 SY-VLINE,

(10) IT_EKKO-EBELN HOTSPOT ON,

SY-VLINE,

(10) IT_EKKO-LIFNR HOTSPOT ON,

SY-VLINE,

(15) IT_LFA1-NAME1 HOTSPOT ON,

SY-VLINE,

(10) IT_EKKO-BUKRS HOTSPOT ON,

SY-VLINE,

(15) V_BUTXT,

75 SY-VLINE.

HIDE: IT_EKKO-EBELN,

IT_EKKO-LIFNR.

WRITE:/1(75) SY-ULINE.

AT END OF LIFNR.

LINNO = SY-LINCT - SY-LINNO - 1.

SKIP LINNO.

ENDAT.

ENDLOOP.

endform. " DISPLAY_DATA

&----

*& Form DISPLAY_SEC3

&----

form DISPLAY_SEC3.

LOOP AT IT_EKPO.

CLEAR: IT_EKPO, IT_KONV.

READ TABLE IT_EKPO WITH KEY EBELN = IT_EKKO-EBELN.

IF SY-SUBRC = 0.

FORMAT COLOR 3.

WRITE:/1 SY-VLINE,

(10) IT_EKPO-EBELN,

SY-VLINE,

(10) IT_EKPO-EBELP,

SY-VLINE,

(18) IT_EKPO-MATNR,

SY-VLINE,

(10) IT_EKPO-INFNR,

SY-VLINE,

(15) IT_EKPO-MENGE,

SY-VLINE,

(10) IT_EKPO-MEINS,

SY-VLINE,

(12) IT_EKPO-NETPR,

105 SY-VLINE.

FORMAT COLOR OFF.

WRITE:/1(105) SY-ULINE.

FORMAT COLOR 4.

READ TABLE IT_KONV WITH KEY KPOSN = IT_EKPO-EBELP.

IF SY-SUBRC = 0.

WRITE:/1 SY-VLINE,

(10) IT_KONV-KNUMV,

SY-VLINE,

(10) IT_KONV-KSCHL,

SY-VLINE,

(15) IT_KONV-KAWRT,

SY-VLINE,

(12) IT_KONV-KBETR,

SY-VLINE.

WRITE:/1(95) SY-ULINE.

FORMAT COLOR OFF.

ENDIF.

ENDLOOP.

endform. " DISPLAY_SEC3

&----

*& Form DISPLAY_SEC1

&----

TO CALL TRANSACTION ME23

----

form DISPLAY_SEC1.

SET PARAMETER ID 'BES' FIELD IT_EKKO-EBELN.

CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.

endform. " DISPLAY_SEC1

&----

*& Form WRITE_HEADER

&----

HEADER DISPLAY

----

form WRITE_HEADER.

FORMAT COLOR 3.

WRITE:/1 SY-VLINE,

(10) 'PUR.ORDER',

SY-VLINE,

(10) 'VENDOR',

SY-VLINE,

(15) 'NAME',

SY-VLINE,

(10) 'COMP.CODE',

SY-VLINE,

(15) 'COMP.DESC',

75 SY-VLINE.

WRITE:/1(75) SY-ULINE.

FORMAT COLOR OFF.

endform. " WRITE_HEADER

&----

*& Form WRITE_FOOTER

&----

FOOTER OF LIST

----

form WRITE_FOOTER.

FORMAT COLOR 4.

WRITE: /1 'USER:',SY-UNAME,

45 'DATE:', SY-DATUM.

FORMAT COLOR OFF.

endform. " WRITE_FOOTER

&----

*& Form WRITE_HEADER2

&----

HEADER FOR SECONDARY LIST

----

form WRITE_HEADER2.

FORMAT COLOR 4.

WRITE: /30 'INTELLIGROUP ASIA PVT LTD' CENTERED.

WRITE:/50 'HYDERABAD' CENTERED.

FORMAT COLOR 5.

WRITE:/1 SY-VLINE,

(10) 'PUR.ORDR',

SY-VLINE,

(10) 'ITEM',

SY-VLINE,

(18) 'MATERIAL NUMBER',

SY-VLINE,

(10) 'INFO.RECD',

SY-VLINE,

(15) 'QUANTITY',

SY-VLINE,

(10) 'UNITS',

SY-VLINE,

(12) 'NETPRICE',

105 SY-VLINE.

FORMAT COLOR OFF.

WRITE:/1(105) SY-ULINE.

FORMAT COLOR 6.

WRITE:/1 SY-VLINE,

(10) 'COND.RECD',

SY-VLINE,

(10) 'TYPE',

SY-VLINE,

(15) 'BASE VALUE',

SY-VLINE,

(12) 'AMOUNT',

SY-VLINE.

FORMAT COLOR OFF.

WRITE:/1(95) SY-ULINE.

endform. " WRITE_HEADER2

&----

*& Form DISPLAY_SEC2

&----

TO DISPLAY VENDOR DETAILS IN POP UP WINDOW

----

form DISPLAY_SEC2.

READ TABLE IT_LFA1 WITH KEY LIFNR = IT_EKKO-LIFNR.

IF SY-SUBRC = 0.

WRITE:/ 'NAME IS:' , IT_LFA1-NAME1,

/ 'STREET IS:', IT_LFA1-STRAS,

/ 'CITY IS:', IT_LFA1-ORT01,

/ 'POSTEL CODE IS:',IT_LFA1-PSTLZ,

/ 'COUNTRY IS: ', IT_LFA1-LAND1.

WINDOW STARTING AT 1 15

ENDING AT 50 20.

ENDIF.

endform. " DISPLAY_SEC2

&----

*& Form VALIDATE

&----

VALIDATE BUKRS

----

form VALIDATE.

SELECT SINGLE *

FROM T001

WHERE BUKRS IN S_BUKRS.

IF SY-SUBRC <> 0.

MESSAGE E001.

ENDIF.

endform. " VALIDATE

Thanks & regards

Sreenivasulu P

Re: Interaactive lists

Former Member — Wed, 17 May 2006 07:43:44 GMT

yes it is possible , it depends on your condition from where to where you want to navigate. when you click on second list, then it should display 10th list content.

at line-selection.
if sy-lsind = 1.
"show your 10th list here using write statements/...
endif.

Regards

vijay

Re: Interaactive lists

Former Member — Wed, 17 May 2006 07:47:59 GMT

HII

CHECK OUT THIS PROGRAM

REPORT Z_CHECKBOX NO STANDARD PAGE HEADING.

SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1

NO INTERVALS.

SELECT-OPTIONS SEL1 FOR SY-SUBRC.

PARAMETERS: CHECK1 AS CHECKBOX ,

CHECK2 AS CHECKBOX .

SELECTION-SCREEN COMMENT /10(20) TEXT-COM.

SELECTION-SCREEN END OF BLOCK BL1.

START-OF-SELECTION.

SET PF-STATUS 'STATUS'.

WRITE 'CHECK THE CHECK BOXES'.

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'SELE'.

IF CHECK1 = 'X'.

SET PF-STATUS 'DIALOG'.

SET TITLEBAR 'FIRST BASIC LIST'.

WINDOW STARTING AT 8 5 ENDING AT 45 15.

WRITE 'CHECK SECOND BOX FOR SECOND LIST'.

ELSEIF CHECK2 = 'X'.

SET PF-STATUS 'DIALOG' EXCLUDING 'SELE'.

SET TITLEBAR 'SECOND BASIC LIST'.

WINDOW STARTING AT 55 10 ENDING AT 70 12.

WRITE 'SECOND BASIC LIST'.

ENDIF.

ENDCASE.

ALSO CHK OUT THIS DEMO PROGRAM

DEMO_LIST_WINDOW

REGARDS

Naresh