topic Re: smaple code for multiple interactive reports in Application Development and Automation Discussions

smaple code for multiple interactive reports

Former Member — Thu, 31 May 2007 07:31:26 GMT

hi experts,

Pls send me a sample code or link for creating muiltiple interactive reports.

Re: smaple code for multiple interactive reports

Former Member — Thu, 31 May 2007 07:35:06 GMT

Hi Manikandan,

plz see this code.If helpful reward points.

report  zinteractivereportsv1                   .


tables: mara,vbap.

data : begin of itab occurs 0,
       matnr like mara-matnr,
       ernam like mara-ernam,
       end of itab.

data :  begin of itab1 occurs 0,
        matnr like vbap-matnr,
        vbeln like vbap-vbeln,
        end of itab1.
data: fld(20) type c,val like mara-matnr .

selection-screen begin of block blk1 with frame title text-001.
select-options: m for mara-matnr obligatory.
selection-screen end of block blk1.

at selection-screen on m.
  select single matnr from mara into mara-matnr where matnr = m-low.
  if sy-subrc ne 0.
    message e000(zz) with 'invalid ' mara-matnr 'in your ' 'selection'.
  endif.



start-of-selection.
  select matnr ernam into table itab from mara where matnr in m.
  select matnr vbeln into table itab1 from vbap for all entries in itab
  where matnr = itab-matnr.



end-of-selection.
  loop at itab.
    write:/30 itab-matnr,60 itab-ernam.
*    hide itab-matnr.
    clear itab-matnr.
  endloop.
set pf-status 'XX2'.


at line-selection.
    get cursor field fld  value val.
   case fld.
   when 'ITAB-MATNR'.
   write:/ val.
   endcase.
  case sy-lsind.
    when '1'.
      set pf-status 'XX2'.
      set titlebar 'XX2'.
      if itab1[] is initial.
        write:/ 'no data found for itab1 in first secondary list'.
      endif.
      loop at itab1.
        write:/30 itab1-matnr,60 itab1-vbeln.
*        hide itab1-matnr.
      endloop.
      when '2'.
      set pf-status 'XX2'.
      set titlebar 'XX2'.
      loop at itab.
        write:/30 itab-matnr,60 itab-ernam.
      endloop.
  endcase.

at user-command.
case sy-ucomm.
     when 'SET'.
      if sy-lsind = 1.
        window starting at 5 3 ending at 40 10.
        write 'Select line for a second window'.
      elseif sy-lsind = 2.
        window starting at 45 10 ending at 60 12.
        write 'Last window'.
      endif.


    when 'BACK'.
      sy-lsind = sy-lsind - 1.
    when 'ABC'.
      write:/ 'iam great'.

    when 'DOWNLOAD'.

      call function 'GUI_DOWNLOAD'
        exporting
*               BIN_FILESIZE                    =
          filename                        = 'c:temp.txt'
         filetype                        = 'DAT'
*               APPEND                          = ' '
*               WRITE_FIELD_SEPARATOR           = ' '
*               HEADER                          = '00'
*               TRUNC_TRAILING_BLANKS           = ' '
*               WRITE_LF                        = 'X'
*               COL_SELECT                      = ' '
*               COL_SELECT_MASK                 = ' '
*               DAT_MODE                        = ' '
*               CONFIRM_OVERWRITE               = ' '
*               NO_AUTH_CHECK                   = ' '
*               CODEPAGE                        = ' '
*               IGNORE_CERR                     = ABAP_TRUE
*               REPLACEMENT                     = '#'
*               WRITE_BOM                       = ' '
*               TRUNC_TRAILING_BLANKS_EOL       = 'X'
*               WK1_N_FORMAT                    = ' '
*               WK1_N_SIZE                      = ' '
*               WK1_T_FORMAT                    = ' '
*               WK1_T_SIZE                      = ' '
*             IMPORTING
*               FILELENGTH                      =
        tables
          data_tab                        = itab
*               FIELDNAMES                      =
       exceptions
         file_write_error                = 1
         no_batch                        = 2
         gui_refuse_filetransfer         = 3
         invalid_type                    = 4
         no_authority                    = 5
         unknown_error                   = 6
         header_not_allowed              = 7
         separator_not_allowed           = 8
         filesize_not_allowed            = 9
         header_too_long                 = 10
         dp_error_create                 = 11
         dp_error_send                   = 12
         dp_error_write                  = 13
         unknown_dp_error                = 14
         access_denied                   = 15
         dp_out_of_memory                = 16
         disk_full                       = 17
         dp_timeout                      = 18
         file_not_found                  = 19
         dataprovider_exception          = 20
         control_flush_error             = 21
         others                          = 22.
      if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      endif.
  endcase.



top-of-page during  line-selection.
  case sy-lsind.
    when '1'.
      write:/ 'this is secondary list'.
  endcase.





*  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.

Thanks,

Suma.

Re: smaple code for multiple interactive reports

Former Member — Thu, 31 May 2007 07:35:34 GMT

See the sample programs for interactive lists

REPORT ZTEJ_INTAB1 LINE-SIZE 103 LINE-COUNT 35(5) NO STANDARD PAGE

HEADING.

*TABLES DECLARATION

TABLES : KNA1, VBAK, VBAP.

*SELECT OPTIONS

SELECT-OPTIONS: CUST_NO FOR KNA1-KUNNR.

*INITIALIZATION

INITIALIZATION.

CUST_NO-LOW = '01'.

CUST_NO-HIGH = '5000'.

CUST_NO-SIGN = 'I'.

CUST_NO-OPTION = 'BT'.

APPEND CUST_NO.

*SELECTION SCREEN VALIDATION

AT SELECTION-SCREEN ON CUST_NO.

LOOP AT SCREEN.

IF CUST_NO-LOW < 1 OR CUST_NO-HIGH > 5000.

MESSAGE E001(ZTJ1).

ENDIF.

ENDLOOP.

*BASIC LIST SELECTION

START-OF-SELECTION.

SELECT KUNNR NAME1 ORT01 LAND1 INTO

(KNA1-KUNNR, KNA1-NAME1,KNA1-ORT01,KNA1-LAND1)

FROM KNA1

WHERE KUNNR IN CUST_NO.

WRITE:/1 SY-VLINE,

KNA1-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

KNA1-NAME1 UNDER 'NAME',

61 SY-VLINE,

KNA1-ORT01 UNDER 'CITY',

86 SY-VLINE,

KNA1-LAND1 UNDER 'COUNTRY',

103 SY-VLINE.

HIDE: KNA1-KUNNR.

ENDSELECT.

ULINE.

*SECONDARY LIST ACCESS

AT user-command.

IF SY-UCOMM = 'IONE'.

PERFORM SALES_ORD.

ENDIF.

IF SY-UCOMM = 'ITWO'.

PERFORM ITEM_DET.

ENDIF.

*TOP OF PAGE

TOP-OF-PAGE.

FORMAT COLOR 1.

WRITE : 'CUSTOMER DETAILS'.

FORMAT COLOR 1 OFF.

ULINE.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'NAME',

61 SY-VLINE,

63 'CITY',

86 SY-VLINE,

88 'COUNTRY',

103 SY-VLINE.

ULINE.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR SECONDARY LISTS

TOP-OF-PAGE DURING LINE-SELECTION.

*TOP OF PAGE FOR 1ST SECONDARY LIST

IF SY-UCOMM = 'IONE'.

ULINE.

FORMAT COLOR 1.

WRITE : 'SALES ORDER DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'SALES ORDER NO.',

40 SY-VLINE,

42 'DATE',

60 SY-VLINE,

62 'CREATOR',

85 SY-VLINE,

87 'DOC DATE',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR 2ND SECONDARY LIST

IF SY-UCOMM = 'ITWO'.

ULINE.

FORMAT COLOR 1.

WRITE : 'ITEM DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'SALES ORDER NO.',

40 SY-VLINE,

42 'SALES ITEM NO.',

60 SY-VLINE,

62 'ORDER QUANTITY',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*END OF PAGE

END-OF-PAGE.

ULINE.

WRITE :'USER :',SY-UNAME,/,'DATE :', SY-DATUM, 85 'END OF PAGE:',

SY-PAGNO.

SKIP.

&----

*& Form SALES_ORD

*& FIRST SECONDARY LIST FORM

&----

FORM SALES_ORD .

SELECT KUNNR VBELN ERDAT ERNAM AUDAT INTO

(VBAK-KUNNR, VBAK-VBELN, VBAK-ERDAT, VBAK-ERNAM, VBAK-AUDAT)

FROM VBAK

WHERE KUNNR = KNA1-KUNNR.

WRITE:/1 SY-VLINE,

VBAK-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

VBAK-VBELN UNDER 'SALES ORDER NO.' HOTSPOT ON,

40 SY-VLINE,

VBAK-ERDAT UNDER 'DATE',

60 SY-VLINE,

VBAK-ERNAM UNDER 'CREATOR',

85 SY-VLINE,

VBAK-AUDAT UNDER 'DOC DATE',

103 SY-VLINE.

HIDE : VBAK-VBELN.

ENDSELECT.

ULINE.

ENDFORM. " SALES_ORD

&----

*& Form ITEM_DET

*& SECOND SECONDARY LIST FORM

&----

FORM ITEM_DET .

SELECT VBELN POSNR KWMENG INTO

(VBAP-VBELN, VBAP-POSNR, VBAP-KWMENG)

FROM VBAP

WHERE VBELN = VBAK-VBELN.

WRITE : /1 SY-VLINE,

VBAP-VBELN UNDER 'SALES ORDER NO.',

40 SY-VLINE,

VBAP-POSNR UNDER 'SALES ITEM NO.',

60 SY-VLINE,

VBAP-KWMENG UNDER 'ORDER QUANTITY',

103 SY-VLINE.

ENDSELECT.

ULINE.

ENDFORM. " ITEM_DET

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

REPORT demo_list_at_pf.

START-OF-SELECTION.

WRITE 'Basic List, Press PF5, PF6, PF7, or PF8'.

AT pf5.

PERFORM out.

AT pf6.

PERFORM out.

AT pf7.

PERFORM out.

AT pf8.

PERFORM out.

FORM out.

WRITE: 'Secondary List by PF-Key Selection',

/ 'SY-LSIND =', sy-lsind,

/ 'SY-UCOMM =', sy-ucomm.

ENDFORM.

After executing the program, the system displays the basic list. The user can press the function keys F5 , F6 , F7 , and F8 to create secondary lists. If, for example, the 14th key the user presses is F6 , the output on the displayed secondary list looks as follows:

Secondary List by PF-Key Selection

SY-LSIND = 14

SY-UCOMM = PF06

Example for AT USER-COMMAND.

REPORT demo_list_at_user_command NO STANDARD PAGE HEADING.

START-OF-SELECTION.

WRITE: 'Basic List',

/ 'SY-LSIND:', sy-lsind.

TOP-OF-PAGE.

WRITE 'Top-of-Page'.

ULINE.

TOP-OF-PAGE DURING LINE-SELECTION.

CASE sy-pfkey.

WHEN 'TEST'.

WRITE 'Self-defined GUI for Function Codes'.

ULINE.

ENDCASE.

AT LINE-SELECTION.

SET PF-STATUS 'TEST' EXCLUDING 'PICK'.

PERFORM out.

sy-lsind = sy-lsind - 1.

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'FC1'.

PERFORM out.

WRITE / 'Button FUN 1 was pressed'.

WHEN 'FC2'.

PERFORM out.

WRITE / 'Button FUN 2 was pressed'.

WHEN 'FC3'.

PERFORM out.

WRITE / 'Button FUN 3 was pressed'.

WHEN 'FC4'.

PERFORM out.

WRITE / 'Button FUN 4 was pressed'.

WHEN 'FC5'.

PERFORM out.

WRITE / 'Button FUN 5 was pressed'.

ENDCASE.

sy-lsind = sy-lsind - 1.

FORM out.

WRITE: 'Secondary List',

/ 'SY-LSIND:', sy-lsind,

/ 'SY-PFKEY:', sy-pfkey.

ENDFORM.

When you run the program, the system displays the following basic list with a the page header defined in the program:

You can trigger the AT LINE-SELECTION event by double-clicking a line. The system sets the status TEST and deactivates the function code PICK. The status TEST contains function codes FC1 to FC5. These are assigned to pushbuttons in the application toolbar. The page header of the detail list depends on the status.

Here, double-clicking a line no longer triggers an event. However, there is now an application toolbar containing five user-defined pushbuttons. You can use these to trigger the AT USER-COMMAND event. The CASE statement contains a different reaction for each pushbutton.

For each interactive event, the system decreases the SY-LSIND system field by one, thus canceling out the automatic increase. All detail lists now have the same level as the basic list and thus overwrite it. While the detail list is being created, SY-LSIND still has the value 1.

Reward points if useful

Regards

Anji