topic Re: interactive report in Application Development and Automation Discussions

interactive report

former_member8532 — Mon, 19 May 2008 11:23:34 GMT

hello all,

on my first screen i am showing "delivery".when i double clik on any delivery .

then AT LINE-SELECTION called .from there according to particular line selected select query run.

but select is not returning anything. but if i use it before at line-selection i am getting the data.

a line-selection.

SY-LISEL.

SELECT POSNR MATNR WERKS LGORT LFIMG FROM LIPS INTO

CORRESPONDING

FIELDS OF table ITAB2 WHERE VBELN = sy-lisel.

plz give me solution.

points will be rewarded if answer will be helpful

Re: interactive report

Former Member — Mon, 19 May 2008 11:29:38 GMT

Hi,

do not use sy-lisel directly in the where condition.

First check in debugging if the value is coming corectly.

if it is fine, use conversion routine for the delivery number.

it will work

Regards,

lavanya

Re: interactive report

Former Member — Mon, 19 May 2008 11:30:34 GMT

instead of sy-linsel use the variable name you used to print the list for e.g

SELECT POSNR MATNR WERKS LGORT LFIMG FROM LIPS INTO

CORRESPONDING

FIELDS OF table ITAB2 WHERE VBELN = itab-vbeln.

Re: interactive report

Former Member — Mon, 19 May 2008 11:32:17 GMT

Can paste the code?

Re: interactive report

Former Member — Mon, 19 May 2008 11:32:45 GMT

Hi,

move the sy-lisel to a field of type VBELN

and convert it using the FM

"CONVERSION_EXIT_ALPHA_INPUT"

regards,

lavanya

Re: interactive report

Former Member — Mon, 19 May 2008 11:34:15 GMT

Hi,

Check the sample code

REPORT z_demo_3_alv_list.

----

This program is an example with 3 ALV Grid lists *
The customers are displayed in the first list *
When a line is selected, the customer's orders are displayed in *
the second list *
When a line is selected in the second list, the items orders are *
displayed in the second list *

----

Macro definition

DEFINE m_fieldcat.

add 1 to ls_fieldcat-col_pos.

ls_fieldcat-fieldname = &1.

ls_fieldcat-ref_tabname = &2.

append ls_fieldcat to lt_fieldcat.

END-OF-DEFINITION.

TYPE-POOLS: slis. " ALV Global types

SELECTION-SCREEN :

SKIP, BEGIN OF LINE,COMMENT 5(27) v_1 FOR FIELD p_max. "#EC NEEDED

PARAMETERS p_max(2) TYPE n DEFAULT '20' OBLIGATORY.

SELECTION-SCREEN END OF LINE.

TYPES:

Data displayed in the first list

BEGIN OF ty_kna1,

kunnr TYPE kna1-kunnr, " Customer number

name1 TYPE kna1-name1, " Customer name

ort01 TYPE kna1-ort01, " Customer city

END OF ty_kna1,

Data displayed in the second list

BEGIN OF ty_vbak,

vkorg TYPE vbak-vkorg, " Sales organization

kunnr TYPE vbak-kunnr, " Sold-to party

vbeln TYPE vbak-vbeln, " Sales document

netwr TYPE vbak-netwr, " Net Value of the Sales Order

END OF ty_vbak,

Data displayed in the third list

BEGIN OF ty_vbap,

vbeln TYPE vbap-vbeln, " Sales document

posnr TYPE vbap-posnr, " Sales document item

matnr TYPE vbap-matnr, " Material number

arktx TYPE vbap-arktx, " Short text for sales order item

kwmeng TYPE vbap-kwmeng, " Order quantity

netwr TYPE vbap-netwr, " Net value of the order item

END OF ty_vbap.

DATA:

gs_kna1 TYPE ty_kna1,

gt_kna1 TYPE TABLE OF ty_kna1,

gs_vbak TYPE ty_vbak,

gt_vbak TYPE TABLE OF ty_vbak,

gt_vbap TYPE TABLE OF ty_vbap.

----

INITIALIZATION.

v_1 = 'Maximum of records to read'.

----

START-OF-SELECTION.

PERFORM f_read_data_kna1.

----

END-OF-SELECTION.

PERFORM f_display_data_kna1.

----

Form f_read_data_kna1

----

FORM f_read_data_kna1.

Read customer data with a least one order

SELECT kunnr name1 ort01 INTO TABLE gt_kna1

FROM kna1 AS k

UP TO p_max ROWS

WHERE EXISTS

( SELECT kunnr FROM vbak WHERE kunnr = k~kunnr ).

ENDFORM. " F_READ_DATA_KNA1

----

Form f_display_data_kna1

----

FORM f_display_data_kna1.

DATA:

ls_fieldcat TYPE slis_fieldcat_alv,

lt_fieldcat TYPE slis_t_fieldcat_alv.

Build the field catalog

m_fieldcat 'KUNNR' 'KNA1'.

m_fieldcat 'NAME1' 'KNA1'.

m_fieldcat 'ORT01' 'KNA1'.

Display the first list

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-cprog

i_callback_user_command = 'USER_COMMAND_KNA1'

it_fieldcat = lt_fieldcat

TABLES

t_outtab = gt_kna1.

ENDFORM. " F_DISPLAY_DATA_KNA1

----

FORM USER_COMMAND_KNA1 *

----

FORM user_command_kna1 USING u_ucomm TYPE sy-ucomm

us_selfield TYPE slis_selfield."#EC CALLED

CASE u_ucomm.

WHEN '&IC1'.

READ TABLE gt_kna1 INDEX us_selfield-tabindex INTO gs_kna1.

CHECK sy-subrc EQ 0.

PERFORM f_read_data_vbak. " Read data from VBAK

PERFORM f_display_data_vbak. " Display orders

ENDCASE.

ENDFORM. " USER_COMMAND_KNA1

----

Form f_read_data_vbak

----

FORM f_read_data_vbak.

SELECT vkorg kunnr vbeln netwr

INTO TABLE gt_vbak

FROM vbak

UP TO p_max ROWS

WHERE kunnr = gs_kna1-kunnr.

ENDFORM. " F_READ_DATA_VBAK

----

Form f_display_data_vbak

----

FORM f_display_data_vbak.

DATA:

ls_fieldcat TYPE slis_fieldcat_alv,

lt_fieldcat TYPE slis_t_fieldcat_alv.

Build the field catalog

m_fieldcat 'VKORG' 'VBAK'.

m_fieldcat 'KUNNR' 'VBAK'.

m_fieldcat 'VBELN' 'VBAK'.

m_fieldcat 'NETWR' 'VBAK'.

Display the second list

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-cprog

i_callback_user_command = 'USER_COMMAND_VBAK'

it_fieldcat = lt_fieldcat

TABLES

t_outtab = gt_vbak.

ENDFORM. " F_DISPLAY_DATA_VBAK

----

FORM USER_COMMAND_VBAK *

----

FORM user_command_vbak USING u_ucomm TYPE sy-ucomm

us_selfield TYPE slis_selfield."#EC CALLED

CASE u_ucomm.

WHEN '&IC1'.

READ TABLE gt_vbak INDEX us_selfield-tabindex INTO gs_vbak.

CHECK sy-subrc EQ 0.

PERFORM f_read_data_vbap. " Read data from VBAP

PERFORM f_display_data_vbap. " Display items

ENDCASE.

ENDFORM. " USER_COMMAND_VBAK

----

Form f_read_data_vbap

----

FORM f_read_data_vbap.

SELECT vbeln posnr matnr arktx kwmeng netwr

INTO TABLE gt_vbap

FROM vbap

WHERE vbeln = gs_vbak-vbeln.

ENDFORM. " F_READ_DATA_VBAP

----

Form f_display_data_vbap

----

FORM f_display_data_vbap.

DATA:

ls_fieldcat TYPE slis_fieldcat_alv,

lt_fieldcat TYPE slis_t_fieldcat_alv.

Build the field catalog

m_fieldcat 'VBELN' 'VBAP'.

m_fieldcat 'POSNR' 'VBAP'.

m_fieldcat 'MATNR' 'VBAP'.

m_fieldcat 'ARKTX' 'VBAP'.

m_fieldcat 'KWMENG' 'VBAP'.

m_fieldcat 'NETWR' 'VBAP'.

Display the third list

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

it_fieldcat = lt_fieldcat

TABLES

t_outtab = gt_vbap.

ENDFORM. " F_DISPLAY_DATA_VBAP

Regards,

Raj.

Re: interactive report

Former Member — Mon, 19 May 2008 11:35:05 GMT

HI , Try this ,

at line-selection.

read table itab where sy-index = sy-lisel.

SELECT POSNR MATNR WERKS LGORT LFIMG FROM LIPS INTO

CORRESPONDING

FIELDS OF table ITAB2 WHERE VBELN = itab-vbeln.

Cheers

Re: interactive report

former_member8532 — Mon, 19 May 2008 11:35:33 GMT

TABLES: LIKP,LIPS.

DATA: F_NAME TYPE RS38L_FNAM,

P_NAME TYPE TDSFNAME.

DATA: ITAB1 LIKE STANDARD TABLE OF LIKP WITH HEADER LINE,

ITAB2 LIKE STANDARD TABLE OF LIPS WITH HEADER LINE,

IT LIKE LIPS-VBELN.

SELECT-OPTIONS DATE FOR LIKP-ERDAT.

START-OF-SELECTION.

SELECT VBELN ERDAT ERNAM VSTEL LFART FROM LIKP INTO CORRESPONDING

FIELDS OF TABLE ITAB1 WHERE

ERDAT IN DATE.

LOOP AT ITAB1.

WRITE:/ ITAB1-VBELN.

ENDLOOP.

AT LINE-SELECTION.

IT = SY-LISEL.

perform sd.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZKOP_SFORM'

VARIANT = ' '
DIRECT_CALL = ' '

IMPORTING

FM_NAME = F_NAME

EXCEPTIONS

NO_FORM = 1

NO_FUNCTION_MODULE = 2

OTHERS = 3

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION F_NAME

EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =

TABLES

ITAB1 = ITAB1

ITAB2 = ITAB2

EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

form sd.

SELECT POSNR MATNR WERKS LGORT LFIMG FROM LIPS INTO

CORRESPONDING

FIELDS OF TABLE ITAB2 WHERE VBELN = IT.

endform.

THIS IS MY CODE

Re: interactive report

Former Member — Mon, 19 May 2008 11:35:49 GMT

Hi Puneet,

Suppose u have all deliveries in table itab1. Then do it like this:

loop at itab1.

write 😕 itab1-vbeln.

hide itab1-vbeln. -->Dont forget this

endloop.

at line-selection.

SELECT POSNR MATNR WERKS LGORT LFIMG FROM LIPS INTO

CORRESPONDING

FIELDS OF table ITAB2 WHERE VBELN = itab1-vbeln.

Try this and get back to me incase of any queries.

Dont forget to reward points if found useful.

Thanks,

Satyesh

Re: interactive report

prasanth_kasturi — Mon, 19 May 2008 11:50:57 GMT

hi.

The data will not be fetched because there will type mismatch in the vbeln format internally

so for solving the issue do the following way

take a variable of type n and pass IT value to that variable .

and use v_var to select query

data : v_var(10) type n.

AT LINE-SELECTION.

IT = SY-LISEL.

v_var = it.

perform sd.

form sd.

SELECT POSNR MATNR WERKS LGORT LFIMG FROM LIPS INTO

CORRESPONDING

FIELDS OF TABLE ITAB2 WHERE VBELN = v_var.

endform.

REWARD IF USEFUL

PRASANTH

Re: interactive report

former_member8532 — Tue, 20 May 2008 09:42:09 GMT

i got the answer from satyes reply.it is working fine now.

thnaks to all.