Simple-interactive 2 3
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Simple-interactive 2 3 as PDF for free.
More details
- Words: 254
- Pages: 2
this is sample coding for interactive reporting. ex: report yms_interactivetest line-size 50 no standard page heading. tables: vbap,kna1,vbak. select-options: cust for kna1-kunnr. data: begin of itab occurs 0, kunnr like kna1-kunnr, name1 like kna1-name1, vbeln like vbak-vbeln, audat like vbak-audat, auart like vbak-auart, posnr like vbap-posnr, posar like vbap-posar, end of itab. data: itab1 like itab occurs 0 with header line. initialization. start-of-selection. select kna1~kunnr kna1~name1 into corresponding fields of table itab1 from kna1 where kna1~kunnr in cust. loop at itab1. write:/10 itab1-kunnr hotspot, 30 itab1-name1. hide: itab1-kunnr. endloop. at line-selection. case sy-lsind. when '1'. select kna1~kunnr vbak~vbeln vbak~audat vbak~erdat into corresponding fields of table itab1 from kna1 inner join vbak on kna1~kunnr = vbak~kunnr. loop at itab1. write:/ itab1-vbeln hotspot, itab1-audat, itab1-auart. hide: itab1-vbeln, itab1-audat, itab1-auart. endloop. when '2'. select vbak~vbeln vbap~posnr vbap~posar into corresponding fields of table itab1 from vbak inner join vbap on vbak~vbeln = vbap~vbeln. loop at itab1. write:/ itab1-posnr, itab1-posar. endloop. endcase.
top-of-page. write:/ sy-vline,text-001 color col_negative. uline. ------------------------------------------------------------------data : begin of itab occurs 0, vbeln like vbap-vbeln, matnr like vbap-matnr, erdat like vbak-erdat, ernam like vbak-ernam, auart like vbak-auart, konda like vbkd-konda, kdgrp like vbkd-kdgrp, end of itab. start-of-selection. select a~vbeln a~matnr b~erdat b~ernam b~auart c~konda c~kdgrp into table itab from vbap as a inner join vbak as b on a~vbeln = b~vbeln inner join vbkd as c on a~vbeln = c~vbeln.
if sy-subrc = 0. sort itab by matnr.
loop at itab. write :/1 itab-vbeln, 20 itab-matnr, 40 itab-erdat, 60 itab-ernam, 80 itab-auart, 100 itab-konda. endloop. endif.
top-of-page. write:/ sy-vline,text-001 color col_negative. uline. ------------------------------------------------------------------data : begin of itab occurs 0, vbeln like vbap-vbeln, matnr like vbap-matnr, erdat like vbak-erdat, ernam like vbak-ernam, auart like vbak-auart, konda like vbkd-konda, kdgrp like vbkd-kdgrp, end of itab. start-of-selection. select a~vbeln a~matnr b~erdat b~ernam b~auart c~konda c~kdgrp into table itab from vbap as a inner join vbak as b on a~vbeln = b~vbeln inner join vbkd as c on a~vbeln = c~vbeln.
if sy-subrc = 0. sort itab by matnr.
loop at itab. write :/1 itab-vbeln, 20 itab-matnr, 40 itab-erdat, 60 itab-ernam, 80 itab-auart, 100 itab-konda. endloop. endif.
