Interactive report

[Former Member]

Iam not able to get the output to my code. Please any one suggest if i have any errors.

REPORT ZINTERACTIVE1 .

TABLES : KNA1,

VBAK,

VBAP.

• BASIC LIST *

TOP-OF-PAGE.

WRITE : /05 'CUSTOMER NO',

20 'CUSTOMER NAME',

55 'COUNTRY'.

ULINE.

SELECT * FROM KNA1 ORDER BY KUNNR.

WRITE :/05 KNA1-KUNNR HOTSPOT ON,

20 KNA1-NAME1,

55 KNA1-LAND1.

HIDE KNA1-KUNNR.

ENDSELECT.

AT LINE-SELECTION.

CASE SY-LSIND.

WHEN '1'.

WRITE : /05 'ORDER NO',

20 'ORDER DATE',

55 'ORDER VALUE'.

ULINE.

SELECT * FROM VBAK WHERE KUNNR = KNA1-KUNNR.

WRITE : /05 VBAK-VBELN,

20 VBAK-ERDAT,

55 VBAK-NETWR,

65 VBAK-WAERK.

HIDE VBAK-VBELN.

ENDSELECT.

IF SY-SUBRC NE 0.

MESSAGE E000(ZMESSAGE).

ENDIF.

WHEN '3'.

SET PARAMETER ID 'AUN' FIELD VBAK-VBELN.

CALL TRANSACTION 'VAO2' AND SKIP FIRST SCREEN.

• WRITE :/30 'ORDER DETAIL INFORMATION LIST'.

• ULINE.

*

*

• WRITE :/05 'ITEM NO',

• 20 'ITEM DESCRIPTION',

• 55 'PLANT'.

• ULINE.

*

• SELECT * FROM VBAP WHERE VBELN = VBAK-VBELN.

• WRITE : /05 VBAP-POSNR,

• 20 VBAP-ARKTX,

• 55 VBAP-WERKS.

*

• ENDSELECT.

ENDCASE.

Thanks,

Snigdha.

[Former Member]

I think you can not use "write:xxxx" in Select sentence.You should use the internal table:

select * into corresponding fields of table ikan1 from kan1 where xxxxxxx.

loop at ikan1.

write:xxxx.

endloop.

[aris_hidalgo]

Hi,

Put START-OF-SELECTION event before your select statement. Please take a look at the code below:

REPORT zinteractive1 .

TABLES : kna1,
vbak,
vbap.

* BASIC LIST *

START-OF-SELECTION.

  SELECT * FROM kna1 ORDER BY kunnr.
    WRITE :/05 kna1-kunnr HOTSPOT ON,
    20 kna1-name1,
    55 kna1-land1.
    HIDE kna1-kunnr.
  ENDSELECT.

TOP-OF-PAGE.

  WRITE : /05 'CUSTOMER NO',
  20 'CUSTOMER NAME',
  55 'COUNTRY'.
  ULINE.

AT LINE-SELECTION.
  CASE sy-lsind.
    WHEN '1'.
      WRITE : /05 'ORDER NO',
      20 'ORDER DATE',
      55 'ORDER VALUE'.

      ULINE.

      SELECT * FROM vbak WHERE kunnr = kna1-kunnr.

        WRITE : /05 vbak-vbeln,
        20 vbak-erdat,
        55 vbak-netwr,
        65 vbak-waerk.

        HIDE vbak-vbeln.
      ENDSELECT.


      IF sy-subrc NE 0.
        MESSAGE e000(zmessage).
      ENDIF.

    WHEN '3'.

      SET PARAMETER ID 'AUN' FIELD vbak-vbeln.
      CALL TRANSACTION 'VAO2' AND SKIP FIRST SCREEN.
* WRITE :/30 'ORDER DETAIL INFORMATION LIST'.
* ULINE.
*
*
* WRITE :/05 'ITEM NO',
* 20 'ITEM DESCRIPTION',
* 55 'PLANT'.
* ULINE.
*
* SELECT * FROM VBAP WHERE VBELN = VBAK-VBELN.
* WRITE : /05 VBAP-POSNR,
* 20 VBAP-ARKTX,
* 55 VBAP-WERKS.
*
* ENDSELECT.
  ENDCASE.

Hope it helps...

P.S. Please award points if it helps...

[Former Member]

You should keep start-of-selection before the select statement.whenever u r writing the events u should definitely give start-of-selection or else it wont consider the select statement.

If u r not giving any events then it is not a problem but if u give atleast one event then u should definitely give start-of-selection.

[Former Member]

Hi Snigdha,

Use <b>START_OF_SELECTION</b> event before writing any select query. as u are not wtiting start-of-selection.U r not able to get output.

<b>START-OF-SELECTION</b>

SELECT * FROM KNA1 ORDER BY KUNNR.

WRITE :/05 KNA1-KUNNR HOTSPOT ON,

20 KNA1-NAME1,

55 KNA1-LAND1.

HIDE KNA1-KUNNR.

ENDSELECT.

AT LINE-SELECTION.

CASE SY-LSIND.

WHEN '1'.

WRITE : /05 'ORDER NO',

20 'ORDER DATE',

55 'ORDER VALUE'.

ULINE.

SELECT * FROM VBAK WHERE KUNNR = KNA1-KUNNR.

WRITE : /05 VBAK-VBELN,

20 VBAK-ERDAT,

55 VBAK-NETWR,

65 VBAK-WAERK.

HIDE VBAK-VBELN.

ENDSELECT.

IF SY-SUBRC NE 0.

MESSAGE E000(ZMESSAGE).

ENDIF.

WHEN '3'.

SET PARAMETER ID 'AUN' FIELD VBAK-VBELN.

CALL TRANSACTION 'VAO2' AND SKIP FIRST SCREEN.

• WRITE :/30 'ORDER DETAIL INFORMATION LIST'.

• ULINE.

*

*

• WRITE :/05 'ITEM NO',

• 20 'ITEM DESCRIPTION',

• 55 'PLANT'.

• ULINE.

*

• SELECT * FROM VBAP WHERE VBELN = VBAK-VBELN.

• WRITE : /05 VBAP-POSNR,

• 20 VBAP-ARKTX,

• 55 VBAP-WERKS.

*

• ENDSELECT.

ENDCASE.

REPORT ZINTERACTIVE1 .

TABLES : KNA1,

VBAK,

VBAP.

• BASIC LIST *

TOP-OF-PAGE.

WRITE : /05 'CUSTOMER NO',

20 'CUSTOMER NAME',

55 'COUNTRY'.

ULINE.

Regards,

Hemant

[Former Member]

Hi,

There is no Start-of-selection event in your code.

Add this event at the beginning of your select statement.

Regards,

Hema.