Index in classical report?

i want the serial numbers for my final output table to be displayed, ie. 1,2,..n.
iam using classical report. pls tel the procedure.

Hi,
If you want the serial numbers to be displayed on the list with out storing then you can do it in two ways..
Assign a counter variable to 1 firstly and as you loop the internal table to write the contents on the list then before writing the contents in the loop assign counter variable  = SY-TABIX or directly print SY-TABIX.... If you are loop it in DO-ENDDO then write SY-INDEX....
Or if you want that serial no in internal table then specify that field in your structure of internal table you defined. and after you had retrieved that data into internal table using query or what ever loop that internal table using LOOP--ENDLOOP and  assign SY-TABIX to the particular field of internal table structure and modify that field.
Hope you got helpful information.
Any queries please revert back.
Regards
Narin Nandivada

Similar Messages

  • Classical Report on clicking button on ALV Report

    I have a requirement where I have to display a classical report based on the user-click on a "custom button" on my ALV. I am unable to display the classical report. Please help with code example..

    Hi,
    See the example.Change the code according to your requirement.
    *& Report  ZDEMO_ALVGRID                                               *
    *& Example of a simple ALV Grid Report                                 *
    *& The basic requirement for this demo is to display a number of       *
    *& fields from the EKKO table.                                         *
    REPORT  zdemo_alvgrid                 .
    TABLES:     ekko.
    type-pools: slis.                                 "ALV Declarations
    *Data Declaration
    TYPES: BEGIN OF t_ekko,
      ebeln TYPE ekpo-ebeln,
      ebelp TYPE ekpo-ebelp,
      statu TYPE ekpo-statu,
      aedat TYPE ekpo-aedat,
      matnr TYPE ekpo-matnr,
      menge TYPE ekpo-menge,
      meins TYPE ekpo-meins,
      netpr TYPE ekpo-netpr,
      peinh TYPE ekpo-peinh,
    END OF t_ekko.
    DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
          wa_ekko TYPE t_ekko.
    *ALV data declarations
    data: fieldcatalog type slis_t_fieldcat_alv with header line,
          gd_tab_group type slis_t_sp_group_alv,
          gd_layout    type slis_layout_alv,
          gd_repid     like sy-repid,
          gt_events     type slis_t_event,
          gd_prntparams type slis_print_alv.
    *Start-of-selection.
    START-OF-SELECTION.
    perform data_retrieval.
    perform build_fieldcatalog.
    perform build_layout.
    perform build_events.
    perform build_print_params.
    perform display_alv_report.
    *&      Form  BUILD_FIELDCATALOG
          Build Fieldcatalog for ALV Report
    form build_fieldcatalog.
    There are a number of ways to create a fieldcat.
    For the purpose of this example i will build the fieldcatalog manualy
    by populating the internal table fields individually and then
    appending the rows. This method can be the most time consuming but can
    also allow you  more control of the final product.
    Beware though, you need to ensure that all fields required are
    populated. When using some of functionality available via ALV, such as
    total. You may need to provide more information than if you were
    simply displaying the result
                  I.e. Field type may be required in-order for
                       the 'TOTAL' function to work.
      fieldcatalog-fieldname   = 'EBELN'.
      fieldcatalog-seltext_m   = 'Purchase Order'.
      fieldcatalog-col_pos     = 0.
      fieldcatalog-outputlen   = 10.
      fieldcatalog-emphasize   = 'X'.
      fieldcatalog-key         = 'X'.
    fieldcatalog-do_sum      = 'X'.
    fieldcatalog-no_zero     = 'X'.
      append fieldcatalog to fieldcatalog.
      clear  fieldcatalog.
      fieldcatalog-fieldname   = 'EBELP'.
      fieldcatalog-seltext_m   = 'PO Item'.
      fieldcatalog-col_pos     = 1.
      append fieldcatalog to fieldcatalog.
      clear  fieldcatalog.
      fieldcatalog-fieldname   = 'STATU'.
      fieldcatalog-seltext_m   = 'Status'.
      fieldcatalog-col_pos     = 2.
      append fieldcatalog to fieldcatalog.
      clear  fieldcatalog.
      fieldcatalog-fieldname   = 'AEDAT'.
      fieldcatalog-seltext_m   = 'Item change date'.
      fieldcatalog-col_pos     = 3.
      append fieldcatalog to fieldcatalog.
      clear  fieldcatalog.
      fieldcatalog-fieldname   = 'MATNR'.
      fieldcatalog-seltext_m   = 'Material Number'.
      fieldcatalog-col_pos     = 4.
      append fieldcatalog to fieldcatalog.
      clear  fieldcatalog.
      fieldcatalog-fieldname   = 'MENGE'.
      fieldcatalog-seltext_m   = 'PO quantity'.
      fieldcatalog-col_pos     = 5.
      append fieldcatalog to fieldcatalog.
      clear  fieldcatalog.
      fieldcatalog-fieldname   = 'MEINS'.
      fieldcatalog-seltext_m   = 'Order Unit'.
      fieldcatalog-col_pos     = 6.
      append fieldcatalog to fieldcatalog.
      clear  fieldcatalog.
      fieldcatalog-fieldname   = 'NETPR'.
      fieldcatalog-seltext_m   = 'Net Price'.
      fieldcatalog-col_pos     = 7.
      fieldcatalog-outputlen   = 15.
      fieldcatalog-do_sum      = 'X'.
      fieldcatalog-datatype     = 'CURR'.
      append fieldcatalog to fieldcatalog.
      clear  fieldcatalog.
      fieldcatalog-fieldname   = 'PEINH'.
      fieldcatalog-seltext_m   = 'Price Unit'.
      fieldcatalog-col_pos     = 8.
      append fieldcatalog to fieldcatalog.
      clear  fieldcatalog.
    endform.                    " BUILD_FIELDCATALOG
    *&      Form  BUILD_LAYOUT
          Build layout for ALV grid report
    form build_layout.
      gd_layout-no_input          = 'X'.
      gd_layout-colwidth_optimize = 'X'.
      gd_layout-totals_text       = 'Totals'(201).
    gd_layout-totals_only        = 'X'.
    gd_layout-f2code            = 'DISP'.  "Sets fcode for when double
                                            "click(press f2)
    gd_layout-zebra             = 'X'.
    gd_layout-group_change_edit = 'X'.
    gd_layout-header_text       = 'helllllo'.
    endform.                    " BUILD_LAYOUT
    *&      Form  DISPLAY_ALV_REPORT
          Display report using ALV grid
    form display_alv_report.
      gd_repid = sy-repid.
      call function 'REUSE_ALV_GRID_DISPLAY'
           exporting
                i_callback_program      = gd_repid
                i_callback_top_of_page   = 'TOP-OF-PAGE'  "see FORM
                i_callback_user_command = 'USER_COMMAND'
               i_grid_title           = outtext
                is_layout               = gd_layout
                it_fieldcat             = fieldcatalog[]
               it_special_groups       = gd_tabgroup
                it_events               = gt_events
                is_print                = gd_prntparams
                i_save                  = 'X'
               is_variant              = z_template
           tables
                t_outtab                = it_ekko
           exceptions
                program_error           = 1
                others                  = 2.
      if sy-subrc  0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      endif.
    endform.                    " DISPLAY_ALV_REPORT
    *&      Form  DATA_RETRIEVAL
          Retrieve data form EKPO table and populate itab it_ekko
    form data_retrieval.
    select ebeln ebelp statu aedat matnr menge meins netpr peinh
    up to 10 rows
      from ekpo
      into table it_ekko.
    endform.                    " DATA_RETRIEVAL
    Form  TOP-OF-PAGE                                                 *
    ALV Report Header                                                 *
    Form top-of-page.
    *ALV Header declarations
    data: t_header type slis_t_listheader,
          wa_header type slis_listheader,
          t_line like wa_header-info,
          ld_lines type i,
          ld_linesc(10) type c.
    Title
      wa_header-typ  = 'H'.
      wa_header-info = 'EKKO Table Report'.
      append wa_header to t_header.
      clear wa_header.
    Date
      wa_header-typ  = 'S'.
      wa_header-key = 'Date: '.
      CONCATENATE  sy-datum+6(2) '.'
                   sy-datum+4(2) '.'
                   sy-datum(4) INTO wa_header-info.   "todays date
      append wa_header to t_header.
      clear: wa_header.
    Total No. of Records Selected
      describe table it_ekko lines ld_lines.
      ld_linesc = ld_lines.
      concatenate 'Total No. of Records Selected: ' ld_linesc
                        into t_line separated by space.
      wa_header-typ  = 'A'.
      wa_header-info = t_line.
      append wa_header to t_header.
      clear: wa_header, t_line.
      call function 'REUSE_ALV_COMMENTARY_WRITE'
           exporting
                it_list_commentary = t_header.
               i_logo             = 'Z_LOGO'.
    endform.
          FORM USER_COMMAND                                          *
          --> R_UCOMM                                                *
          --> RS_SELFIELD                                            *
    FORM user_command USING r_ucomm LIKE sy-ucomm
                      rs_selfield TYPE slis_selfield.
    Check function code
      CASE r_ucomm.
        WHEN '&IC1'.
      Check field clicked on within ALVgrid report
        IF rs_selfield-fieldname = 'EBELN'.
        Read data table, using index of row user clicked on
          READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
        Set parameter ID for transaction screen field
          SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
        Sxecute transaction ME23N, and skip initial data entry screen
          CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
        ENDIF.
      ENDCASE.
    ENDFORM.
    *&      Form  BUILD_EVENTS
          Build events table
    form build_events.
      data: ls_event type slis_alv_event.
      call function 'REUSE_ALV_EVENTS_GET'
           exporting
                i_list_type = 0
           importing
                et_events   = gt_events[].
      read table gt_events with key name =  slis_ev_end_of_page
                               into ls_event.
      if sy-subrc = 0.
        move 'END_OF_PAGE' to ls_event-form.
        append ls_event to gt_events.
      endif.
        read table gt_events with key name =  slis_ev_end_of_list
                               into ls_event.
      if sy-subrc = 0.
        move 'END_OF_LIST' to ls_event-form.
        append ls_event to gt_events.
      endif.
    endform.                    " BUILD_EVENTS
    *&      Form  BUILD_PRINT_PARAMS
          Setup print parameters
    form build_print_params.
      gd_prntparams-reserve_lines = '3'.   "Lines reserved for footer
      gd_prntparams-no_coverpage = 'X'.
    endform.                    " BUILD_PRINT_PARAMS
    *&      Form  END_OF_PAGE
    form END_OF_PAGE.
      data: listwidth type i,
            ld_pagepos(10) type c,
            ld_page(10)    type c.
      write: sy-uline(50).
      skip.
      write:/40 'Page:', sy-pagno .
    endform.
    *&      Form  END_OF_LIST
    form END_OF_LIST.
      data: listwidth type i,
            ld_pagepos(10) type c,
            ld_page(10)    type c.
      skip.
      write:/40 'Page:', sy-pagno .
    endform.
    Pls. reward if useful...

  • Checkbox in classic report

    I have question about checkbox in classic report.
    I need to choose only one checkbox in every row, hot to ensure that only one checkbox can be checked at same time?
    Checkboxes are defined in SQL query as:
    apex_item.checkbox(1,msisdn,'UNCHECKED') as clear,
    apex_item.checkbox(2,msisdn,'UNCHECKED') as to_analysis,
    apex_item.checkbox(3,msisdn,'UNCHECKED') as to_barring
    here is the picture:
    http://www.deviantpics.com/images/mNgGR.jpg
    Tnx!

    amend your api calls to add onclick event to every checkbox column
       apex_item.checkbox(1,msisdn,'UNCHECKED onclick="chkckbox(1,this);"' ) as clear,
       apex_item.checkbox(2,msisdn,'UNCHECKED  onclick="chkckbox(2,this);"') as to_analysis,
       apex_item.checkbox(3,msisdn,'UNCHECKED  onclick="chkckbox(3,this);"') as to_barringCreate a javascript function in your page header > Javascript
    function chkckbox(pId, pThis) {
    //get current row index
        var currIndex = $('input[name="f0'+pId+'"]').index(pThis);
         if (pThis.checked) {
       //simply uncheck other check boxes
              if (pId == 1) {
                   $('select[name="f02"]')[currIndex].checked = false;
                   $('select[name="f03"]')[currIndex].checked = false;
              } else if (pId == 2) {
                   $('select[name="f01"]')[currIndex].checked = false;
                   $('select[name="f03"]')[currIndex].checked = false;
              } else if (pId == 3) {
                   $('select[name="f02"]')[currIndex].checked = false;
                   $('select[name="f03"]')[currIndex].checked = false;
    }Please note that I have not tested this code but it should work, if you have any problem just try debugging using console.log

  • 2 Classic Reports with edit fields on the same page

    Hi All, need your help.
    I am trying to have 2 classic reports on one page with edit fields like date, list values, text
    I have noticed that the element indexes are the same f01_0001 have both first elements from both reports.
    This is making my code go crazy.
    Also i have a problem with Date Picker, if i select it as a column type for a first element in second report the icon shows up in the first report.
    I think this is because of indexing, but... Classic Date Picker put the icon on second report but when i select the date, the values is populated to first column in first report
    Does anyone have a solution for this problem! (for example change the indexing for second report)
    DB is 11.2g
    Apex is 4.2.0.00.27
    Thank you,
    Andrei
    Edited by: aracila on Feb 20, 2013 9:03 AM

    Are these tabular forms, ie updteable.
    If so, you can only have one per page
    Gus

  • Enter command in Classical Report

    Hi ,
      I have a classical report with one of the fields editable , when the user modifed  one of the rows and presses enter i want to do some processing , how can this be implemeted. i.e. how can i handle ENTER command in a classical report.
    Regards,
    Arun

    Hi Arun,
              You have to set your own GUI staus and then set the function code for enter key in Function key of the GUI STATUS  .After that write the code in At user-command event to handle the user-input in the list.
    The following code change the color of the list line in which user has entered the telephone no for vendor.
    START-OF-SELECTION.
      SET PF-STATUS 'GUI_LIST1'.
      SELECT * FROM lfa1 INTO TABLE it_lfa1 WHERE lifnr IN s_lifnr.
       FORMAT COLOR 2 ON.
      LOOP AT it_lfa1 INTO x_lfa1.
        val = sy-tabix MOD 2.
        IF val = 0.
          FORMAT INTENSIFIED ON.
        ELSE.
          FORMAT INTENSIFIED OFF.
        ENDIF.
        WRITE :/2 x_lfa1-sel AS CHECKBOX,6 x_lfa1-lifnr,17 x_lfa1-name1,
         46 x_lfa1-telf1 INPUT.
        HIDE: x_lfa1-sel,x_lfa1-lifnr.
      ENDLOOP.
    AT USER-COMMAND.
    CASE sy-ucomm .
        WHEN 'ENTER'.
          CLEAR cnt.
          DO.
            READ LINE sy-index FIELD VALUE x_lfa1-sel x_lfa1-lifnr x_lfa1-telf1.
            IF sy-subrc = 0 .
        MODIFY LINE sy-index FIELD VALUE x_lfa1-sel LINE FORMAT COLOR 4   INTENSIFIED ON.     
            ELSE.
              EXIT.
            ENDIF.
        ENDDO. 
      ENDCASE.

  • Download a classical Report output to excel

    Hi All,
    We have a requirement to download the output of a classical report into a Excel sheet and it should be in the same format as the report output.We don't  just want to dump the internal table data into excel but need to display the classical report outputas it is in the excel sheet.
    Regards,
    Ashish

    Hi there,
    I am not sure on your requirement, but if you want to write a program that manipulates Excel, you can choose to use OLE objects. Below is some sample code.
    REPORT  ZTEST_EXCEL.
    INCLUDE ole2incl.
    DATA: application TYPE ole2_object,
    workbook TYPE ole2_object,
    sheet TYPE ole2_object,
    cells TYPE ole2_object.
    CONSTANTS: row_max TYPE i VALUE 256.
    DATA index TYPE i.
    DATA: BEGIN OF itab1 OCCURS 0, first_name(10), END OF itab1.
    DATA: BEGIN OF itab2 OCCURS 0, last_name(10), END OF itab2.
    DATA: BEGIN OF itab3 OCCURS 0, formula(50), END OF itab3.
    *START-OF-SELECTION
    START-OF-SELECTION.
    APPEND: 'Peter' TO itab1, 'Ivanov' TO itab2,
    '=Sheet1!A1 & " " & Sheet2!A1' TO itab3,
    'John' TO itab1, 'Smith' TO itab2,
    '=Sheet1!A2 & " " & Sheet2!A2' TO itab3.
    CREATE OBJECT application 'excel.application'.
    SET PROPERTY OF application 'visible' = 1.
    CALL METHOD OF application 'Workbooks' = workbook.
    CALL METHOD OF workbook 'Add'.
    * Create first Excel Sheet
    CALL METHOD OF application 'Worksheets' = sheet
    EXPORTING #1 = 1.
    CALL METHOD OF sheet 'Activate'.
    SET PROPERTY OF sheet 'Name' = 'Sheet1'.
    LOOP AT itab1.
    index = row_max * ( sy-tabix - 1 ) + 1. " 1 - column name
    CALL METHOD OF sheet 'Cells' = cells EXPORTING #1 = index.
    SET PROPERTY OF cells 'Value' = itab1-first_name.
    ENDLOOP.
    * Create second Excel sheet
    CALL METHOD OF application 'Worksheets' = sheet
    EXPORTING #1 = 2.
    SET PROPERTY OF sheet 'Name' = 'Sheet2'.
    CALL METHOD OF sheet 'Activate'.
    LOOP AT itab2.
    index = row_max * ( sy-tabix - 1 ) + 1. " 1 - column name
    CALL METHOD OF sheet 'Cells' = cells EXPORTING #1 = index.
    SET PROPERTY OF cells 'Value' = itab2-last_name.
    ENDLOOP.
    * Create third Excel sheet
    CALL METHOD OF application 'Worksheets' = sheet
    EXPORTING #1 = 3.
    SET PROPERTY OF sheet 'Name' = 'Sheet3'.
    CALL METHOD OF sheet 'Activate'.
    LOOP AT itab3.
    index = row_max * ( sy-tabix - 1 ) + 1. " 1 - column name
    CALL METHOD OF sheet 'Cells' = cells EXPORTING #1 = index.
    SET PROPERTY OF cells 'Formula' = itab3-formula.
    SET PROPERTY OF cells 'Value' = itab3-formula.
    ENDLOOP.
    * Save excel speadsheet to particular filename
    CALL METHOD OF sheet 'SaveAs'
    EXPORTING #1 = 'c:\temp\exceldoc1.xls' "filename
    #2 = 1. "fileFormat
    * Closes excel window, data is lost if not saved
    * SET PROPERTY OF application 'visible' = 0.
    Edited by: Thung Yuen Yap on Aug 10, 2010 1:52 PM

  • How to convert Classical Report into PDF format..........

    Hi Experts,
    I have written a classical report with write statements and when i am downloading in excel the format is mismatching and now i want to convert into PDF format.
    How to convert into PDF format from Classical report ?
    Yusuf

    Hi yusuf,
    please find the below report,,
    please make two include programs before executing it,
    there codes are pasted below,
    INCLUDE zimpr_data_declaration.
    INCLUDE zimpr_performs_wrap.
    REPORT  zimpr_word_wrap NO STANDARD PAGE HEADING LINE-SIZE 115..
                INCLUDE for DATA DECLARATION                               *
    INCLUDE zimpr_data_declaration.
                INCLUDE for all performs.                                  *
    INCLUDE zimpr_performs_wrap.
    TOP-OF-PAGE--
    TOP-OF-PAGE.
      PERFORM f_top_page.                     "TOP OF THE REPORT PAGE,I.E. HEADER.
    START-OF-SELECTION.
      SET PF-STATUS 'SEL_SCREEN'.             "PF-STATUS OF THE SELECTION SCREEN.
      PERFORM f_data_retrieval.               "PERFORM FOR ALL SELECT STATEMENTS.
      PERFORM f_report_display.               "REPORT DISPLAY,WRITE STATEMENTS.
    --Define the actions to be performed for pf-status-----
    AT USER-COMMAND.
      wf_ok_code = sy-ucomm.
      wf_save_ok = wf_ok_code.
      CLEAR wf_ok_code.
      CASE wf_save_ok.
        WHEN 'PDF'.          "WHEN PDF ICON IS CLICKED,REPORT WILL CONVERT INTO PDF.
          loc_repid  = sy-repid.   "PROGRAM NAME
    --THIS FM SETS  THE PARAMETERS FOR LAYOUT OF PDF OUTPUT--
          CALL FUNCTION 'GET_PRINT_PARAMETERS'
            EXPORTING
              layout                 = loc_paart             "LANDSCAPE LAYOUT
              line_size              = loc_linsz                  "CHARACTER WIDTH OF REPORT
              no_dialog              = 'X'
              user                   = sy-uname              "USERNAME
            IMPORTING
              out_parameters         = loc_print_parms        "OUTPUT PARAMETERS WILL BE COLLECTED HERE.
              valid                  = loc_valid
            EXCEPTIONS
              archive_info_not_found = 1
              invalid_print_params   = 2
              invalid_archive_params = 3
              OTHERS                 = 4.
    --FOR GENERATING THE SPOOL NUMBER--
          NEW-PAGE PRINT ON NO DIALOG PARAMETERS loc_print_parms.                        " This allocates the spool no
          "to the screen without the dialog screen.
          PERFORM f_top_page.
          PERFORM f_report_display.
          NEW-PAGE PRINT OFF.                                                      "This marks the end of the screen for which the spool no was generated.
          wf_id = sy-spono.                                                      " This assign the spool no of the screen to the variable.
    --PERFORM FOR GETTING THE PDF OUTPUT--
          PERFORM f_pdf_display.
    --PERFORM FOR DOWLOADING FILE TO A LOCAL DISK--
          PERFORM f_download_local.
        WHEN 'BACK'.
          LEAVE PROGRAM.
      ENDCASE.
    include data declaration----
    *&  Include           ZIMPR_DATA_DECLARATION
    TYPE-POOLS : shlp.
    DATA : wf_ordert TYPE aufk-auart.                      "ORDER TYPE
    DATA : wf_order TYPE aufk-aufnr.                       "ORDER NUMBER
    DATA : wf_bdate TYPE afko-gstrp.                       "BASIC START DATE
    DATA : wf_status(4) TYPE c ."rihea-i_astatin.                 "STATUS
    DATA : wf_objnr TYPE jest-objnr VALUE 'OR%'.           "Object number
    DATA : wf_aufnr TYPE aufk-aufnr.
    DATA : wf_name TYPE thead-tdname.                      "NAME TO PASS IN FM READ_TEXT
    DATA : wf_date1(12) TYPE c.                            "DATE
    DATA : wf_i1(3) TYPE n,wc_i1(3) TYPE n VALUE '1'.      "COUNTERS FOR REPORT DISPLAY
    DATA : wf_i2(3) TYPE n,wc_i2(3) TYPE n VALUE '1'.
    DATA : wf_kopf TYPE tdid VALUE 'KOPF',wf_aufk TYPE tdobject VALUE 'AUFK'.
    DATA : wf_save_ok TYPE sy-ucomm ,wf_ok_code TYPE sy-ucomm.
    DATA: wf_id TYPE tsp01-rqident ,                         " For storing Spool request number
          wf_bytes TYPE i .                                  " For storing the bytes of data to be converted to PDF.
    DATA : wf_langu(2) TYPE c VALUE 'EN'.
    DATA: wf_pripar TYPE pri_params,                         " Structure for Passing Print Parameters
          wf_rcpar TYPE arc_params.                          " ImageLink structure
    DATA : wf_statu TYPE dfies-fieldname VALUE 'STATUS',
           wf_field TYPE help_info-dynprofld VALUE 'S_STATUS'.
    &--SELECTION SCREEN--
    SELECTION-SCREEN BEGIN OF BLOCK b_1 WITH FRAME TITLE text-000.
    SELECTION-SCREEN SKIP 1.
    SELECT-OPTIONS:  s_ordert FOR wf_ordert .                  "ORDER TYPE
    SELECT-OPTIONS:  s_order FOR wf_order OBLIGATORY.          "ORDER NUMBER
    SELECT-OPTIONS:  s_bdate FOR wf_bdate.                      "BASIC START DATE
    SELECT-OPTIONS:  s_status FOR wf_status matchcode object zei_sys .  "SYSTEM STATUS
    SELECTION-SCREEN SKIP 1.
    SELECTION-SCREEN END OF BLOCK b_1.
    *--INTERNAL TABLES--
    TYPES : BEGIN OF ty_aufk,
          aufnr TYPE aufk-aufnr,              "OREDR NUMBER
          auart TYPE aufk-auart,              "ORDER TYPE
          objnr TYPE aufk-objnr,              "OBJECT NUMBER
          ktext type aufk-ktext,              "SHORT TEXT
          gstrp TYPE afko-gstrp,              "BASIC START DATE
          END OF ty_aufk.
    TYPES : BEGIN OF ty_tj02t,
          objnr TYPE aufk-objnr,              "OBJECT NUMBER
          txt04 TYPE tj02t-txt04,             "STATUS
          istat TYPE tj02t-istat,             "Object status
          spras TYPE tj02t-spras,             "LANGUAGE KEY
          END OF ty_tj02t.
    TYPES : BEGIN OF ty_temp,
          objnr TYPE aufk-objnr,
          status(300) TYPE c,
           END OF ty_temp.
    TYPES : BEGIN OF ty_wrap,
           line(54) TYPE c,                     "LONG TEXT
           END OF ty_wrap.
    TYPES : BEGIN OF ty_wrap2,
           line(25) TYPE c,                     "STATUS
           END OF ty_wrap2.
    TYPES : BEGIN OF ty_f4,
            txt04 TYPE tj02t-txt04,
            txt30 TYPE tj02t-txt30,
            END OF ty_f4.
    types :  begin of ty_sta,
            istat type tj02t-istat,
            objnr type jest-objnr,
            end of ty_sta.
    data : int_sta type table of ty_sta with header line.
    DATA : int_f4 TYPE TABLE OF ty_f4 WITH HEADER LINE.
    DATA: int_pdf TYPE TABLE OF tline WITH HEADER LINE.            "TABLE FOR PDF CONVERSION
    DATA: int_wrap TYPE TABLE OF ty_wrap WITH HEADER LINE.         "TABLE FOR LONGTEXT
    DATA: int_wrap2 TYPE TABLE OF ty_wrap2 WITH HEADER LINE.       "TABLE FOR STATUS
    DATA: int_temp TYPE TABLE OF ty_temp WITH HEADER LINE.         "Table for concatenation of system status.
    DATA: int_aufk TYPE TABLE OF ty_aufk WITH HEADER LINE.
    DATA: int_tj02t TYPE TABLE OF ty_tj02t WITH HEADER LINE.
    DATA: int_tline TYPE STANDARD TABLE OF tline WITH HEADER LINE. "TABLE FOR READ_TEXT.
    DATA : int_fld TYPE TABLE OF dfies ,wa_fld LIKE LINE OF int_fld.                     " Field Type for FM for F4 help
    DATA :int_return   TYPE TABLE OF ddshretval WITH HEADER LINE .
    DATA:
      loc_print_parms LIKE pri_params,          "PRINT PARAMETERS
      loc_valid(1)      TYPE c,
      loc_file type SDOK_CHTRD,
      loc_bytecount     TYPE i,                 "NUMBER OF BYTES TRANSFERRED
      loc_length        TYPE i,                 "LINE-LENGTH
      loc_rqident       LIKE tsp01-rqident,     "SPOOL NUMBER
      loc_rq2name(12)   TYPE c.
    DATA: loc_filename LIKE rlgrap-filename.     "FILENAME
    DATA:loc_repid LIKE sy-repid,                    " Report to execute
         loc_linsz LIKE sy-linsz VALUE 115,          " Line size
         loc_paart LIKE sy-paart VALUE 'X_65_132'.   " Paper Format
    Include           ZIMPR_PERFORMS_WRAP----
    *&  Include           ZIMPR_PERFORMS_WRAP
    *&      Form  f_top_page
         top-of the page
    -->  p1        text
    <--  p2        text
    FORM f_top_page .
    *--HEADER--
      FORMAT COLOR 1 .
      WRITE : text-010.
      FORMAT COLOR 1 OFF.
      WRITE : / text-011,sy-datum NO-GAP.
      WRITE : / text-012,sy-uzeit NO-GAP,90 text-013,101 sy-uname.
      ULINE .
      FORMAT COLOR 1 INTENSIFIED OFF .
      WRITE : 1 sy-vline,                "HEADINGS
      2 text-014 NO-GAP,
      7 sy-vline,
      8 text-015 NO-GAP,
      20 sy-vline,
      21 text-016 NO-GAP,
      76 sy-vline,
      77 text-017 NO-GAP,
      88 sy-vline,
       89 text-018  NO-GAP,
      115 sy-vline.
      WRITE : /1 sy-vline,
        2 text-019 NO-GAP,7 sy-vline,
        20 sy-vline,76 sy-vline,77 text-020 NO-GAP,88 sy-vline,115 sy-vline.
      ULINE.
      FORMAT COLOR 1 OFF.
    ENDFORM.                    " f_top_page
    *&      Form  f_data_retrieval
         select statements
    -->  p1        text
    <--  p2        text
    FORM f_data_retrieval .
    SELECTING ORDER TYPE,ORDER NO.,OBJECT NO. AND BASIC START DATE
      SELECT  p~aufnr
               p~auart
               p~objnr
               p~ktext
               r~gstrp
               FROM  ( aufk AS p INNER JOIN afko AS r ON raufnr = paufnr )
               INTO TABLE int_aufk
               WHERE p~aufnr IN s_order AND
                     p~auart IN s_ordert AND
                     r~gstrp IN  s_bdate AND
                     p~objnr LIKE wf_objnr.
      IF sy-subrc <> 0.
        MESSAGE s101(zipm).                "no values found for selection criteria.
        STOP.
      ENDIF.
      SORT int_aufk BY aufnr.
      DELETE ADJACENT DUPLICATES FROM int_aufk.
      SELECT q~istat
           p~objnr
           FROM ( jest AS p INNER JOIN tj02t AS q ON pstat = qistat )
           INTO TABLE int_sta
           FOR ALL ENTRIES IN int_aufk
           WHERE p~objnr = int_aufk-objnr
                 AND q~txt04 IN s_status and
                 q~spras = wf_langu and
                 p~inact = ''.
      IF sy-subrc <> 0.
        MESSAGE s101(zipm).                "no values found for selection criteria.
        STOP.
      ENDIF.
      SORT int_sta BY objnr.
      DELETE ADJACENT DUPLICATES FROM int_sta.
    *--SELECTING OBJECT NO.,STATUS AND LANGUAGE--
      IF int_sta[] IS NOT INITIAL.
        SELECT p~objnr
               q~txt04
               q~istat
               q~spras
               FROM ( jest AS p INNER JOIN tj02t AS q ON pstat = qistat )
               INTO TABLE int_tj02t
               FOR ALL ENTRIES IN int_sta
               WHERE p~inact = '' AND
                     p~objnr = int_sta-objnr AND
                     q~spras = wf_langu AND
                    q~txt04 IN s_status AND
                     p~objnr LIKE wf_objnr.
        IF sy-subrc <> 0.
          MESSAGE s101(zipm).               "no values found for selection criteria.
          STOP.
        ENDIF.
      ENDIF.
    ENDFORM.                    " f_data_retrieval
    *&      Form  f_report_display
          report display
    -->  p1        text
    <--  p2        text
    FORM f_report_display .
      LOOP AT int_tj02t.              "concatenating the status into a internal table
        AT NEW objnr.
          CLEAR int_temp-status.
        ENDAT.
        CONCATENATE int_temp-status int_tj02t-txt04 INTO int_temp-status SEPARATED BY space.
        AT END OF objnr.
          int_temp-objnr = int_tj02t-objnr.       "key field.
          APPEND int_temp.
          CLEAR int_temp.
        ENDAT.
        CLEAR int_tj02t.
      ENDLOOP.
      LOOP AT int_aufk.
        CONCATENATE sy-mandt int_aufk-aufnr INTO wf_name .    "concatenating client number and order number
    *--THIS FM CAPTURES THE LONG TEXT AND STORES IT IN INTERNAL TABLE--
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            id                      = wf_kopf         "TEXT ID
            language                = sy-langu       "LANGUAGE
            name                    = wf_name        "TEXT NAME
            object                  = wf_aufk         "TEXT OBJECT
          TABLES
            lines                   = int_tline      "LINES OF LONG TEXT.
          EXCEPTIONS
            id                      = 1
            language                = 2
            name                    = 3
            not_found               = 4
            object                  = 5
            reference_check         = 6
            wrong_access_to_archive = 7
            OTHERS                  = 8.
        IF sy-subrc <> 0.
          int_tline-tdline = int_aufk-ktext.
          APPEND int_tline.
          CLEAR :int_tline.
        ENDIF.
        LOOP AT int_tline.
    *--THIS FM WRAPS THE LONG TEXT INTO 54 CHARACTERS EACH--
          CALL FUNCTION 'RKD_WORD_WRAP'
            EXPORTING
              textline            = int_tline-tdline          "LONG TEXT LINE
              outputlen           = 54                        "OUTPUT LENGTH
            TABLES
              out_lines           = int_wrap                  "INTERNAL TABLE
            EXCEPTIONS
              outputlen_too_large = 1
              OTHERS              = 2.
          IF sy-subrc <> 0.
            CLEAR :int_tline.
          ENDIF.
        ENDLOOP.
    *-- THIS FM WRAPS THE STATUS INTO 25 CHARACTERS EACH--
        READ TABLE int_temp WITH KEY objnr = int_aufk-objnr.
        CALL FUNCTION 'RKD_WORD_WRAP'
          EXPORTING
            textline            = int_temp-status
            outputlen           = 25
          TABLES
            out_lines           = int_wrap2
          EXCEPTIONS
            outputlen_too_large = 1
            OTHERS              = 2.
        IF sy-subrc <> 0.
         CONTINUE.
        ENDIF.
        IF NOT int_wrap2[] IS INITIAL.
          ULINE AT (115).
        ENDIF.
        DESCRIBE TABLE int_wrap LINES wf_i2.         "COUNTING THE NO. OF LINES FOR TABLE INT_WRAP
        DESCRIBE TABLE int_wrap2 LINES wf_i1.        "COUNTING THE NO. OF LINES FOR TABLE INT_WRAP2
        WHILE ( wc_i1 LE wf_i1 OR wc_i2 LE wf_i2 ).
          IF ( wc_i2 LE wf_i2 ).
            READ TABLE int_wrap INDEX wc_i2 .        "READING THE INTERNAL TABLE INT_WRAP WITH INDEX
            wc_i2 = wc_i2 + 1.
          ENDIF.
          IF ( wc_i1 LE wf_i1 ).
            READ TABLE int_wrap2 INDEX wc_i1 .       "READING THE INTERNAL TABLE INT_WRAP2 WITH INDEX
            wc_i1 = wc_i1 + 1.
          ENDIF.
    *--THIS FM CONVERTS THE DATE FROM SYSTEM FORMAT TO OUTPUT FORMAT--
          CALL FUNCTION 'CONVERSION_EXIT_SDATE_OUTPUT'
            EXPORTING
              input  = int_aufk-gstrp
            IMPORTING
              output = wf_date1.
          IF NOT int_wrap2[] IS INITIAL .
    *--REPORT DISPLAY--
            WRITE : /1 sy-vline, 2 int_aufk-auart COLOR = 4 INTENSIFIED OFF NO-GAP ,
                    7 sy-vline ,8 int_aufk-aufnr COLOR = 4 INTENSIFIED OFF NO-GAP,
                    20 sy-vline,21 int_wrap-line,
                    76 sy-vline ,77  wf_date1 ,
                    88 sy-vline ,89 int_wrap2-line,
                    115 sy-vline.
    *--CLEARING THE VARIABLES--
            wf_date1 = ''.
            CLEAR: int_aufk,int_temp,int_wrap2-line,int_wrap-line.
          ENDIF.
        ENDWHILE.
        wc_i1 = 1.
        wc_i2 = 1.
        CLEAR :int_wrap,int_wrap2.
        REFRESH : int_wrap,int_wrap2,int_tline.
      ENDLOOP.
      ULINE AT (115).
    ENDFORM.                    " f_report_display
    *&      Form  F_PDF_DISPLAY
         pdf conversion
    -->  p1        text
    <--  p2        text
    FORM f_pdf_display .
    *--THIS FM CONVERTS THE SPOOL REQUEST INTO PDF REPORT--
      CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
        EXPORTING
          src_spoolid              = wf_id                 "SPOOL NUMBER
          no_dialog                = space
          pdf_destination          = 'X'
        IMPORTING
          pdf_bytecount            = loc_bytecount        "NUMBER OF BYTES TRANSFERRED
        TABLES
          pdf                      = int_pdf                                  "TABLE FOR PDF REPORT
        EXCEPTIONS
          err_no_abap_spooljob     = 1
          err_no_spooljob          = 2
          err_no_permission        = 3
          err_conv_not_possible    = 4
          err_bad_destdevice       = 5
          user_cancelled           = 6
          err_spoolerror           = 7
          err_temseerror           = 8
          err_btcjob_open_failed   = 9
          err_btcjob_submit_failed = 10
          err_btcjob_close_failed  = 11
          OTHERS                   = 12.
    ENDFORM.                    " F_PDF_DISPLAY
    *&      Form  f_download_local
         download to local system
    -->  p1        text
    <--  p2        text
    FORM f_download_local .
    ---------------------THIS FM DOWNLOADS THE PDF REPORT INTO LOCAL MACHINE
    data  loc_ret TYPE iwerrormsg.
      CALL FUNCTION 'IW_C_GET_SAPWORKDIR'
       IMPORTING
         SAPWORKDIR       = loc_file
        ERROR_MSG        =  loc_ret
      loc_filename = loc_file.
      if loc_ret is initial.
      concatenate loc_filename '\work order header long text_  ' sy-timlo '.pdf' into loc_filename.
      endif.
      CALL FUNCTION 'DOWNLOAD'
        EXPORTING
          bin_filesize = loc_bytecount      "NO. OF BYTES
          filename     = loc_filename       "DEFAULT FILE NAME
          filetype     = 'BIN'
        IMPORTING
          act_filename = loc_filename
        TABLES
          data_tab     = int_pdf.
    ENDFORM.                    " f_download_local
    if you have any doubts,,
    please revert
    Regards,
    Talwinder

  • Bold text in Classical Report

    hi,
    I am developing classical report for printing. In that I want some letters in bold text.
    How I will get that?
    Manoj..

    Hi,
    check out this...
    DATA col TYPE i VALUE 0.
    DO 8 TIMES.
      col = sy-index - 1.
      FORMAT COLOR = col.
      WRITE: /  col              COLOR OFF,
               'INTENSIFIED ON'  INTENSIFIED ON,
               'INTENSIFIED OFF' INTENSIFIED OFF,
               'INVERSE ON'      INVERSE ON.
    ENDDO.
    Regards,
    Venkatesh

  • Drill Down  In classical report

    Hi
    i had done a classical report ,but now user wants in in drill down ,
    My output now is
    Planned Downtime
    IDLE MACHINE TIME (DUE TO) 25.50 47.60 %
    PREVENTATIVE MAINTENANCE 88.50 0.32 %
    HOLIDAYS 288 1.05 %
    Unplanned Downtime 0.00 0.00 %
    SHIFT START-UP 0.00 0.00 %
    PRODUCT TO PRODUCT CLEANING 0.00 0.00 %
    BATCH TO BATCH CLEANING 0.00 0.00 %
    Now he want a plus sign at planned and unplanned down time
    when click on that pplus sign i should get details of that
    similarly same for unplanned and rest  and also Minus ..
    Most importantly iam using sy-vline uline all in normal list to display.
    Is it possible in classical report ..if yes then pls help me
    out in this if possible with code.
    Regards
    Answers will be rewarded points.

    Hi,
    see this example.
    REPORT ZRJNTRIAL_TREE LINE-COUNT 65
    LINE-SIZE 80
                                                   NO STANDARD PAGE
    HEADING.
    DATA: BEGIN OF ITEMS OCCURS 100,
             ID(10),
             PARENT_ID(10),
             TEXT(20),
             SYMBOL,
          END OF ITEMS,
          TABIX_STACK LIKE SY-TABIX OCCURS 10 WITH HEADER LINE,
          ITEMS_SHOW LIKE ITEMS OCCURS 100 WITH HEADER LINE.
    INCLUDE <SYMBOL>.
    append sample items (mixed order)
    PERFORM APPEND_ITEM USING:
        '1'  ''        'Food',
        '2'  ''        'Drinks',
        '12' '9'       'Jack Daniels',
        '17' '11'      'Bosch',
        '3'  ''        'Tools',
        '4'  '1'       'Meat',
        '16' '11'      'Metabo',
        '5'  '1'       'Chocolate',
        '6'  '2'       'Alcoholic',
        '8'  '4'       'Pork',
        '10' '5'       'Milka',
        '11' '3'       'Drills',
        '13' '9'       'Jim Beam',
        '7'  '4'       'Beef',
        '14' '2'       'Non-alcoholic',
        '35' '31'      'Teran',
        '9'  '6'       'Whiskey',
        '15' '14'      'Coca-cola',
        '18' '6'       'Wine',
        '28' '18'      'Croatia',
        '33' '28'      'Slavonia',
        '34' '28'      'Istria',
        '29' '18'      'Hungary',
        '30' '29'      'Tokaj',
        '19' '33'      'Enjingi',
        '20' '33'      'Zdjelarevic',
        '22' '19'      'Riesling',
        '23' '19'      'Chardonnay',
        '24' '20'      'Riesling',
        '32' '31'      'Malvazija',
        '25' '20'      'Merlot',
        '31' '34'      'Tomasevic'.
    show initial list (items with level 0 - parentless items)
    LOOP AT ITEMS WHERE PARENT_ID = ''.
      MOVE-CORRESPONDING ITEMS TO ITEMS_SHOW.
      ITEMS_SHOW-SYMBOL = '+'.
      APPEND ITEMS_SHOW.
    ENDLOOP.
    PERFORM PRINT_TREE TABLES ITEMS_SHOW.
    at line-selection - when the node is opened/closed or item double-clk
    AT LINE-SELECTION.
      READ TABLE ITEMS WITH KEY PARENT_ID = ITEMS_SHOW-ID. "see 'hide'
      IF SY-SUBRC = 0. "item has children - expand or collapse
        SY-LSIND = 0.
        PERFORM EXPAND_COLLAPSE USING ITEMS_SHOW-ID.
        PERFORM PRINT_TREE TABLES ITEMS_SHOW.
      ELSE.            "item has NO children - perform some action
        READ TABLE ITEMS WITH KEY ID = ITEMS_SHOW-ID.
        WRITE: 'Action performed on item "' NO-GAP, ITEMS-TEXT NO-GAP,
               '", id.', ITEMS-ID.
      ENDIF.
    form print_tree
    FORM PRINT_TREE TABLES ITEMS STRUCTURE ITEMS.
      DATA: V_TABIX LIKE SY-TABIX,
            START_TABIX LIKE SY-TABIX,
            V_LEVEL LIKE SY-TFILL,
            V_OFFSET TYPE I,
            V_ID LIKE ITEMS-ID,
            V_PARENT_ID LIKE ITEMS-PARENT_ID,
            V_PARENT_ID_FOR_VLINE LIKE ITEMS-PARENT_ID,
            V_PREV_LEVEL TYPE I,
            V_ITEMS_COUNT LIKE SY-TFILL,
            V_VLINES_STRING(200).
      CHECK NOT ITEMS[] IS INITIAL.
      SORT ITEMS BY PARENT_ID ID.
      READ TABLE ITEMS INDEX 1.
      V_PARENT_ID = ITEMS-PARENT_ID.
      START_TABIX = 1.
      REFRESH TABIX_STACK.
      DO.
        LOOP AT ITEMS FROM START_TABIX.
          V_TABIX = START_TABIX = SY-TABIX."remember current index
          V_ID = ITEMS-ID.
          V_PARENT_ID_FOR_VLINE = ITEMS-PARENT_ID.
        decrease level and exit loop if parent not the same as previous
          IF ITEMS-PARENT_ID NE V_PARENT_ID.
            PERFORM READ_FROM_STACK CHANGING START_TABIX. "level = NoOfRecs
            READ TABLE ITEMS INDEX START_TABIX.
            V_PARENT_ID = ITEMS-PARENT_ID.
            ADD 1 TO START_TABIX.   "next loop starts from parent index + 1
           clear vline
            IF V_LEVEL > 1.
              V_OFFSET = 2 + ( V_LEVEL - 2 ) * 3.
              IF V_LEVEL = 1. V_OFFSET = 1. ENDIF.
              V_VLINES_STRING+V_OFFSET = ' '.
            ENDIF.
            EXIT.
          ENDIF.
          V_PARENT_ID = ITEMS-PARENT_ID.
        write item
          FORMAT COLOR OFF.
          DESCRIBE TABLE TABIX_STACK LINES V_LEVEL."level is no of StackRecs
          WRITE: / V_VLINES_STRING.
          V_OFFSET = V_LEVEL * 3.
          IF V_LEVEL NE 0.
            IF V_PREV_LEVEL < V_LEVEL.
              WRITE: AT V_OFFSET '|', / ''.
              WRITE: / V_VLINES_STRING.
            ENDIF.
            V_OFFSET = V_LEVEL * 3.
            WRITE AT V_OFFSET '|--'.
          ENDIF.
          V_OFFSET = V_OFFSET + 3.
          CASE ITEMS-SYMBOL.
            WHEN '+'.
              WRITE AT V_OFFSET SYM_PLUS_FOLDER AS SYMBOL
                    COLOR 4 INTENSIFIED HOTSPOT.
            WHEN '-'.
              WRITE AT V_OFFSET SYM_MINUS_FOLDER AS SYMBOL
                    COLOR 4 INTENSIFIED HOTSPOT.
            WHEN OTHERS. FORMAT COLOR 5.
          ENDCASE.
          WRITE: ITEMS-TEXT.
          V_PREV_LEVEL = V_LEVEL.
          HIDE: ITEMS-ID.
          ADD 1 TO V_ITEMS_COUNT.
          READ TABLE ITEMS WITH KEY PARENT_ID = ITEMS-ID.
        increase level and exit loop if item has children
          IF SY-SUBRC = 0.
            START_TABIX = SY-TABIX.
            APPEND V_TABIX TO TABIX_STACK. "level is no of recs in stack
            V_PARENT_ID = ITEMS-PARENT_ID.
           set vline
            V_TABIX = V_TABIX + 1.
            READ TABLE ITEMS INDEX V_TABIX.
            V_OFFSET = 2 + ( V_LEVEL - 1 ) * 3.
            IF V_LEVEL > 0.
              IF ITEMS-PARENT_ID = V_PARENT_ID_FOR_VLINE AND SY-SUBRC = 0.
                V_VLINES_STRING+V_OFFSET = '|'.
              ELSE.
                V_VLINES_STRING+V_OFFSET = ' '.
              ENDIF.
            ENDIF.
            EXIT.
          ENDIF.
        at last - decrease level
          AT LAST.
           clear vline
            IF V_LEVEL > 1.
              V_OFFSET = 2 + ( V_LEVEL - 2 ) * 3.
              IF V_LEVEL = 1. V_OFFSET = 1. ENDIF.
              V_VLINES_STRING+V_OFFSET = ' '.
            ENDIF.
            " next loop starts from parent index, not parent index + 1
            " because of different parents level will decrease anyway
            PERFORM READ_FROM_STACK CHANGING START_TABIX.
            APPEND START_TABIX TO TABIX_STACK. "must return index to stack
          ENDAT.
        ENDLOOP.
        DESCRIBE TABLE ITEMS.
        IF START_TABIX > SY-TFILL OR V_ITEMS_COUNT >= SY-TFILL.
          EXIT.
        ENDIF.
      ENDDO.
    ENDFORM.
    form expand_collapse
    FORM EXPAND_COLLAPSE USING VALUE(V_ID).
      DATA: V_NO_MORE_ORPHANS,
            ITEMS_TEMP LIKE ITEMS OCCURS 100 WITH HEADER LINE.
      DELETE ITEMS_SHOW WHERE PARENT_ID = V_ID. "try to collapse
      IF SY-SUBRC = 0.                     "succesfull first collapse
        DO.            "cascade collapse - delete 'orphans' that are left
          REFRESH ITEMS_TEMP.
          MOVE ITEMS_SHOW[] TO ITEMS_TEMP[].
          SORT ITEMS_TEMP BY ID.
          V_NO_MORE_ORPHANS = 'X'.
          LOOP AT ITEMS_SHOW WHERE PARENT_ID NE ''.
            READ TABLE ITEMS_TEMP WITH KEY ID = ITEMS_SHOW-PARENT_ID
                                   BINARY SEARCH TRANSPORTING NO FIELDS.
            IF SY-SUBRC NE 0.              "no parent - it's an orphan
              CLEAR V_NO_MORE_ORPHANS.
              DELETE ITEMS_SHOW.
            ENDIF.
          ENDLOOP.
          IF V_NO_MORE_ORPHANS = 'X'. EXIT. ENDIF.
        ENDDO.
        ITEMS_SHOW-SYMBOL = '+'.
        MODIFY ITEMS_SHOW TRANSPORTING SYMBOL WHERE ID = V_ID.
      ELSE.                                "unsuccessfull collapse - expand
        ITEMS_SHOW-SYMBOL = '-'.
        MODIFY ITEMS_SHOW TRANSPORTING SYMBOL WHERE ID = V_ID.
        LOOP AT ITEMS WHERE PARENT_ID = V_ID.      "show children
          APPEND ITEMS TO ITEMS_SHOW.
        ENDLOOP.
        LOOP AT ITEMS_SHOW WHERE PARENT_ID = V_ID. "check grandchildren
          READ TABLE ITEMS WITH KEY PARENT_ID = ITEMS_SHOW-ID.
          IF SY-SUBRC = 0.
            ITEMS_SHOW-SYMBOL = '+'.
          ELSE.
            ITEMS_SHOW-SYMBOL = ''.
          ENDIF.
          MODIFY ITEMS_SHOW.
        ENDLOOP.
      ENDIF.
    ENDFORM.
    form append_item
    FORM APPEND_ITEM USING VALUE(ID) VALUE(PARENT_ID) VALUE(TEXT).
      ITEMS-ID = ID.
      ITEMS-PARENT_ID = PARENT_ID.
      ITEMS-TEXT = TEXT.
      APPEND ITEMS.
    ENDFORM.
    form read_from_stack
    FORM READ_FROM_STACK CHANGING TABIX LIKE SY-TABIX.
      DESCRIBE TABLE TABIX_STACK.
      CHECK SY-TFILL NE 0.
      READ TABLE TABIX_STACK INDEX SY-TFILL.
      TABIX = TABIX_STACK.
      DELETE TABIX_STACK INDEX SY-TFILL.
    ENDFORM.
    rgds,
    bharat.

  • Refresh Classical report/basic list

    Hi,
    I have created a classical report/basic list where user can select check boxes and adjacent rows should be deleted. But after the action, I wish to refresh the report and remove the selected lines from displaying.
    Please let me know how to achieve this.
    Thanks in advance.
    Nitin

    Hi Nitin,
    Check the following program.
    Here on pressing the delete push button(FCODE: DELETE) it will delete all
    rows which has adjacent checkboxes checked.
    REPORT ztest_list_processing NO STANDARD PAGE HEADING .
    TYPES: BEGIN OF ty_tab,
           delete,
           f1(3) TYPE c,
           f2(3) TYPE c,
           f3(3) TYPE c,
           END OF ty_tab.
    DATA: it_tab TYPE TABLE OF ty_tab,
          wa_tab TYPE ty_tab.
    DATA: w_delete TYPE c,
          w_lines TYPE i,
          w_ind TYPE i.
    wa_tab-f1 = '111'.
    wa_tab-f2 = 'ABC'.
    wa_tab-f3 = '123'.
    APPEND wa_tab TO it_tab.
    wa_tab-f1 = '222'.
    wa_tab-f2 = 'DEF'.
    wa_tab-f3 = '456'.
    APPEND wa_tab TO it_tab.
    wa_tab-f1 = '333'.
    wa_tab-f2 = 'GHI'.
    wa_tab-f3 = '789'.
    APPEND wa_tab TO it_tab.
    wa_tab-f1 = '444'.
    wa_tab-f2 = 'JKL'.
    wa_tab-f3 = '987'.
    APPEND wa_tab TO it_tab.
    wa_tab-f1 = '555'.
    wa_tab-f2 = 'MNO'.
    wa_tab-f3 = '654'.
    APPEND wa_tab TO it_tab.
    SET PF-STATUS '100'. "Contains Delete button
    PERFORM print_output.
    "Logic which you can implement
    AT USER-COMMAND.
      CASE sy-ucomm.
        WHEN 'DELETE'.
          DESCRIBE TABLE it_tab LINES w_lines.
          DO w_lines TIMES. "To read all rows
            CLEAR: wa_tab.
            READ LINE w_ind FIELD VALUE wa_tab-delete
                                           wa_tab-f1. "Getting the values
            IF wa_tab-delete EQ 'X'. "Delete when check box is 'X'
              DELETE it_tab WHERE f1 = wa_tab-f1.
            ENDIF.
            ADD 1 TO w_ind."Index for next line
          ENDDO.
          IF it_tab IS INITIAL.
            WRITE: / 'There are no data in the table'.
          ELSE.
            PERFORM print_output. "Reprint the updated data(like refreshing)
          ENDIF.
          "Modified the existing Back button in standard Toolbar so that on
          "pressin the back button it will come to program and not to
          "previous displayed list
        WHEN '&BACK'.
          LEAVE SCREEN.
      ENDCASE.
    *&      Form  print_output
    *       text
    *  -->  p1        text
    *  <--  p2        text
    FORM print_output.
      LOOP AT it_tab INTO wa_tab.
        WRITE:/ wa_tab-delete AS CHECKBOX INPUT ON, "Display as checkbox
              wa_tab-f1,
              wa_tab-f2,
              wa_tab-f3.
        IF sy-tabix EQ 1.
          w_ind = sy-linno. "Get the line position of first row
        ENDIF.
      ENDLOOP.
    Hope this helps you.
    Regards,
    Manoj Kumar P

  • Totals in classical report

    Hi,
    Please tell how to get totals of a field in classical report.
    please help with sample code.
    thanks in advance.

    HI,
    refer the code:
    reward fi help ful
    Umakanth
    *& Report  ZSD_SALES_INTER_REPORT1
    REPORT  ZSD_SALES_INTER_REPORT1  NO STANDARD PAGE HEADING MESSAGE-ID ZMSG44
                                        LINE-SIZE 230 LINE-COUNT 65(3).
                                Tables
    TABLES : VBKD,VEPVG.  "Sales document business data
                          "Delivery Index
                             Internal table
    DATA : BEGIN OF I_SALES OCCURS 0,
              CH TYPE CHECKBOX,
              VBELN LIKE VBAK-VBELN,                                                               "Sales document no
              NETWR LIKE VBAK-NETWR,                                                        "Net value of the sales order in Document currency
              WAERK LIKE VBAK-WAERK,                                                               "SD Document currency
              MATNR LIKE VBAP-MATNR,                                                               "Material no
              AUDAT LIKE VAPMA-AUDAT,                                                              "DOCUMENT DATE
           END OF I_SALES .
    data : NEWSALES LIKE I_SALES OCCURS 0 WITH HEADER LINE.
    DATA : AMOUNT LIKE VBAK-NETWR.
    DATA : V_LIN TYPE I .                                                                    "Screens vertical cursor position at PAI
    DATA : CHECKBOX TYPE C.
    DATA : DATE LIKE VAPMA-AUDAT.
    DATA : V_SEL LIKE SY-LISEL.
                             SELECTION-SCREEN
    SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
        PARAMETERS : P_VKORG LIKE VEPVG-VKORG. "value check .                                        "Sales organization
        PARAMETERS : P_VTWEG LIKE VEPVG-VTWEG ."value check.                                         "Distribution channel
        PARAMETERS : P_SPART LIKE VEPVG-SPART ."Value check.                                         "Division
       SELECT-OPTIONS : S_DATE FOR VBKD-BSTDK DEFAULT SY-DATUM TO SY-DATUM  OBLIGATORY.
    SELECTION-SCREEN END OF BLOCK B1.
    SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
      SELECTION-SCREEN BEGIN OF LINE.
        PARAMETERS : CHK AS CHECKBOX .
        selection-screen comment 5(20) text-003 for field chk.
      SELECTION-SCREEN END OF LINE.
      PARAMETERS : P_KUNNR LIKE VBPA-KUNNR MODIF ID S2.                                               "Customer
    SELECTION-SCREEN END OF BLOCK B2.
    START-OF-SELECTION.
    set pf-status 'UKG9'.
      IF CHK <>  'X'.
         IF P_VKORG  <> ''.
           PERFORM ORGANIZATION.
         ELSE.
           PERFORM ORGANIZATION_ELSE.
         ENDIF.
      ELSE.
        IF P_VKORG  <> ''.
           PERFORM CUST_ORGA.
         ELSE.
           PERFORM CUST_ORGA_ELSE.
         ENDIF.
    ENDIF.
    Displaying the contents with some alterations
    sort i_sales by AUDAT.
    LOOP AT I_SALES.
        WRITE : / I_SALES-CH,I_SALES-VBELN,I_SALES-NETWR,I_SALES-WAERK,I_SALES-MATNR,I_SALES-AUDAT.
    ENDLOOP.
    WRITE : / '******************************************************************************************'.
    LOOP AT I_SALES.
       ON CHANGE OF I_SALES-AUDAT.
          IF SY-TABIX = 1.
             WRITE :  / SY-VLINE,I_SALES-CH AS CHECKBOX,I_SALES-AUDAT.
             CLEAR AMOUNT.
          ELSE.
             WRITE : SY-VLINE,AMOUNT,60 sy-vline,/ SY-VLINE,I_SALES-CH AS CHECKBOX,I_SALES-AUDAT.
             CLEAR AMOUNT.
          ENDIF.
       ENDON.
       AMOUNT = AMOUNT + I_SALES-NETWR.
       AT LAST.
          WRITE : SY-VLINE,AMOUNT,60 sy-vline.
          uline at /2(60).
         ULINE.
          SUM.
          FORMAT COLOR  = 3.
          WRITE : /'TOTAL AMOUNT: ' ,I_SALES-NETWR UNDER AMOUNT .
       ENDAT.
    ENDLOOP.
         top-of-page
    top-of-page.
       uline at /2(60).
        write : / sy-vline,3 'Document date' ,16 sy-vline ,17 'Amount(net value of the sales document )' ,60 sy-vline .
       uline at /2(60).
    at user-command.
    if sy-ucomm = 'DISP'.
      LOOP AT I_SALES.
      REFRESH NEWSALES.
      V_LIN = SY-TABIX + 3.
      READ LINE V_LIN FIELD VALUE I_SALES-CH INTO CHECKBOX.
      IF CHECKBOX = 'X'.
        newsales-ch = 'X'.
        NEWSALES-VBELN = I_SALES-VBELN.
        NEWSALES-NETWR = I_SALES-NETWR.
        NEWSALES-WAERK = I_SALES-WAERK.
        NEWSALES-MATNR = I_SALES-MATNR.
        NEWSALES-AUDAT = I_SALES-AUDAT.
        APPEND NEWSALES.
        CLEAR NEWSALES.
        LOOP AT NEWSALES where audat = i_sales-audat .
         WRITE : / NEWSALES-CH as checkbox,NEWSALES-VBELN,NEWSALES-NETWR,NEWSALES-WAERK,NEWSALES-MATNR,NEWSALES-AUDAT.
        ENDLOOP.
       perform selection.
      ENDIF.
    ENDLOOP.
    ENDIF.
    *&      Form  ORGANIZATION
          text
    -->  p1        text
    <--  p2        text
    FORM ORGANIZATION .
      SELECT F~VBELN
             C~NETWR
             C~WAERK
             P~MATNR
             P~AUDAT
        INTO CORRESPONDING FIELDS OF TABLE I_SALES
        FROM ( VAKPA AS F INNER JOIN VBAK AS C ON FVBELN = CVBELN )
                 INNER JOIN VAPMA AS P ON FVBELN = PVBELN
        WHERE P~AUDAT IN S_DATE
         AND P~VKORG = P_VKORG.
    ENDFORM.                    " ORGANIZATION
    *&      Form  ORGANIZATION_ELSE
          text
    -->  p1        text
    <--  p2        text
    FORM ORGANIZATION_ELSE .
      SELECT F~VBELN
             C~NETWR
             C~WAERK
             P~MATNR
             P~AUDAT
        INTO CORRESPONDING FIELDS OF TABLE I_SALES
        FROM ( VAKPA AS F INNER JOIN VBAK AS C ON FVBELN = CVBELN )
                 INNER JOIN VAPMA AS P ON FVBELN = PVBELN
        WHERE P~AUDAT IN S_DATE.
    ENDFORM.                    " ORGANIZATION_ELSE
    *&      Form  CUST_ORGA
          text
    -->  p1        text
    <--  p2        text
    FORM CUST_ORGA .
    SELECT   F~VBELN
             C~NETWR
             C~WAERK
             P~MATNR
             P~AUDAT
        INTO CORRESPONDING FIELDS OF TABLE I_SALES
        FROM ( VAKPA AS F INNER JOIN VBAK AS C ON FVBELN = CVBELN )
                 INNER JOIN VAPMA AS P ON FVBELN = PVBELN
        WHERE P~AUDAT IN S_DATE
         AND P~VKORG = P_VKORG
         and P~KUNNR = P_KUNNR.
    ENDFORM.                    " CUST_ORGA
    *&      Form  CUST_ORGA_ELSE
          text
    -->  p1        text
    <--  p2        text
    FORM CUST_ORGA_ELSE .
    SELECT   F~VBELN
             C~NETWR
             C~WAERK
             P~MATNR
             P~AUDAT
        INTO CORRESPONDING FIELDS OF TABLE I_SALES
        FROM ( VAKPA AS F INNER JOIN VBAK AS C ON FVBELN = CVBELN )
                 INNER JOIN VAPMA AS P ON FVBELN = PVBELN
        WHERE P~AUDAT IN S_DATE
         AND P~KUNNR = P_KUNNR .
    ENDFORM.                    " CUST_ORGA_ELSE
    *&      Form  selection
          text
    -->  p1        text
    <--  p2        text
    FORM selection .
      LOOP AT NEWSALES.
         ON CHANGE OF NEWSALES-AUDAT.
           IF SY-TABIX <> 1.
              WRITE : / SY-VLINE,NEWSALES-AUDAT,SY-VLINE,27 SY-VLINE,48 SY-VLINE.
           ELSE.
             WRITE : / SY-VLINE,NEWSALES-AUDAT,SY-VLINE,27 SY-VLINE,48 SY-VLINE.
           ENDIF.
         ENDON.
         WRITE : / SY-VLINE,2 NEWSALES-VBELN,13 SY-VLINE,14 NEWSALES-NETWR,30 SY-VLINE,31 NEWSALES-WAERK,37 SY-VLINE ,38 NEWSALES-MATNR,57 SY-VLINE,58 NEWSALES-AUDAT.
         at last.
          sum .
          uline.
          format color = 3.
          write : /  sy-vline, 15 'Total amount:', newsales-netwr under newsales-netwr.
          format color off.
          uline.
         endat.
    ENDLOOP.
       v_lin = 1.
       free newsales.
    ENDFORM.                    " SELECTION

  • Check box in classical report

    Hi all,
    I have developed one classical report, in that we have check boxes.
    My requirement is, I want to add button in my pf status, so that user can select all check boxes in one click.
    Please advise me how to do this, I have checked in lot of ways but I didnu2019t get the syntax.
    Here my check box is not a field of internal table.
    Regards,
    Sreenu.

    hi,
    See the below pseudo code, hope it helps you.
    data : checkbox.
    END-OF-SELECTION.
    SET PF-STATUS 'ZSTATUS'.
    LOOP AT it INTO wa.
    "this is to display checkbox on basic list
      .    WRITE : /5 checkbox AS CHECKBOX ,
                10 wa_-matnr COLOR 3,
                25 wa_-charg COLOR 1,
                36 wa_-clabs ,                        
                55 wa_-vfdat COLOR 1.
        HIDE wa.
      ENDLOOP.
    CLEAR sy-ucomm.
    AT USER-COMMAND.
      CASE sy-ucomm.
    ******************for select all button
        WHEN '&ALL'.
          DO .
      " READ THE RECORD FROM THE LIST DEPEND ON VALUE OF THE CHECKBOX
            READ LINE sy-index FIELD VALUE checkbox.         
            IF sy-subrc <> 0.
              EXIT.
            ELSE.
              IF checkbox = ' '.
                checkbox = 'X'.
              ENDIF.
    "BLANK CHECKBOX FILLED WITH CHECK SYMBOL
              MODIFY LINE sy-index FIELD VALUE checkbox FROM checkbox.   
            ENDIF.
          ENDDO.
    *****************for deselectall button
        WHEN '&SAL'.
          DO .
            READ LINE sy-index FIELD VALUE checkbox.
            IF sy-subrc <> 0.
              EXIT.
            ELSE.
              IF checkbox = 'X'.
                checkbox = ' '.
    "CHECK CHECKBOX REPLACED WITH EMPTY
                MODIFY LINE sy-index FIELD VALUE checkbox FROM checkbox.  CHECKBOX
             ENDIF.
            ENDIF.
          ENDDO.

  • ALV classical report

    hi,
    can any one of you send me the simple classical report using ALV functionality.
    and if you can send me also an interactive report on ALV functionality plsssssss.
    advance thanks and also i will give points .
    yours,
    sara.

    Hi,
    For <b>Classical Report</b> Example refer to link,
    http://www.sapmaterial.com/?gclid=CN322K28t4sCFQ-WbgodSGbK2g
    For <b>Interactive Report</b> check the following Example,
    Check this sample code which provides exact info.
    REPORT YMS_ALVINTER1.
    TABLE DECLARATION
    TABLES: vbak , "Sales Document: Header Data
    vbap , "Sales Document: Item Data
    makt , "Material Descriptions
    lips . "SD document: Delivery: Item data
    DECLARATION OF TYPE-POOL
    *THIS TYPE-POOL CONTAINS THE EVENTS,
    TYPE-POOLS : slis.
    DECLARATION OF EVENTS
    DATA: i_event TYPE slis_t_event.
    DATA: t_event TYPE slis_alv_event.
    DECLARATION OF LIST HEADER
    DATA: i_listheader TYPE slis_t_listheader.
    DECLARATION OF FIELD CATALOG FOR SCREEN 1
    DATA: i_fldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
    DECLARATION OF FIELD CATALOG FOR SCREEN 2
    DATA: i_fldcat2 TYPE slis_t_fieldcat_alv WITH HEADER LINE.
    DECLARATION OF FIELD LAYOUT
    DATA: i_layout TYPE slis_layout_alv.
    SORTING OF OUTPUT
    DATA: i_sort TYPE slis_t_sortinfo_alv.
    *DATA DECLARATION
    DATA: v_auart TYPE tvak-auart,
    v_vkorg TYPE tvko-vkorg,
    v_kunnr TYPE kna1-kunnr,
    v_matnr TYPE mara-matnr ,
    v_spart TYPE tvta-spart .
    TYPES: BEGIN OF it_so ,
    vbeln TYPE vbeln_va , "SALES ORDER NO.
    auart TYPE auart , "SALES DOC. TYPE
    vkorg TYPE vkorg , "SALES ORG.
    spart TYPE spart , "DIVISION
    kunnr TYPE kunag , "SOLD TO PARTY
    posnr TYPE posnr_va , "SALES DOC. ITEM
    matnr TYPE matnr , "MATERIAL NO
    maktx TYPE maktx , "DESCRIPTION
    kwmeng TYPE kwmeng , "QUANTITY
    vrkme TYPE vrkme , "SALES UNIT
    line_color(4) TYPE c ,
    END OF it_so .
    TYPES: BEGIN OF it_del ,
    vbeln TYPE vbeln_vl , "SALES ORDER NO.
    posnr TYPE posnr_vl , "SALES DOC. ITEM
    matnr TYPE matnr , "MATERIAL NO
    werks TYPE werks_d , "PLANT
    lgort TYPE lgort_d , "STORAGE LOCATION
    charg TYPE charg_d , "BATCH NO.
    lfimg TYPE lfimg , "ACTUAL DELIVERY QTY.
    vrkme TYPE vrkme , "SALES UNIT
    END OF it_del .
    TYPES: BEGIN OF type_vbfa ,
    vbelv TYPE vbeln_von , "Preceding sales and distribution document
    posnv TYPE posnr_von , "Preceding item of an SD document
    vbeln TYPE vbeln_nach, "Subsequent sales and distribution document
    posnn TYPE posnr_nach, "Document category of subsequent document
    vbtyp_n TYPE vbtyp_n ,
    END OF type_vbfa .
    DATA: it_so1 TYPE STANDARD TABLE OF it_so ,
    it_del1 TYPE STANDARD TABLE OF it_del ,
    it_vbfa TYPE STANDARD TABLE OF type_vbfa,
    it_del_ful TYPE STANDARD TABLE OF it_del.
    DATA: wa_so TYPE it_so ,
    wa_del TYPE it_del ,
    wa_vbfa TYPE type_vbfa,
    wa_it_del_ful TYPE it_del.
    DATA: i_title_vbfa TYPE lvc_title VALUE 'SALES ORDER LIST DISPLAYED'.
    DATA: i_title_vbpa TYPE lvc_title VALUE
    'DELIVERY DETAILS DISPLAYED AGAINST GIVEN SALES ORDER'.
    *SELECTION SCREEN *
    SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-004 .
    SELECT-OPTIONS: s_vbeln FOR vbak-vbeln ,
    s_auart FOR v_auart ,
    s_vkorg FOR v_vkorg ,
    s_spart FOR v_spart ,
    s_kunnr FOR v_kunnr ,
    s_matnr FOR v_matnr .
    SELECTION-SCREEN END OF BLOCK blk1 .
    *AT SELECTION SCREEN *
    AT SELECTION-SCREEN.
    SELECT SINGLE vbeln
    FROM vbak INTO vbak-vbeln
    WHERE vbeln IN s_vbeln.
    IF sy-subrc <> 0.
    MESSAGE e202.
    ENDIF.
    *START OF SELECTION *
    START-OF-SELECTION .
    PERFORM data_select.
    PERFORM t_sort USING i_sort .
    PERFORM event_cat USING i_event .
    PERFORM fld_cat USING i_fldcat[] .
    PERFORM t_layout USING i_layout .
    PERFORM fld_cat2 USING i_fldcat2[] .
    PERFORM call_alv.
    DATA SELECT *
    *& Form DATA_SELECT
    text
    --> p1 text
    <-- p2 text
    FORM data_select .
    REFRESH: it_vbfa, it_so1, it_del_ful ,it_del1 .
    BREAK-POINT.
    SELECT
    a~vbeln
    a~auart
    a~vkorg
    a~spart
    a~kunnr
    b~posnr
    b~matnr
    c~maktx
    b~kwmeng
    b~vrkme
    INTO TABLE it_so1 FROM vbak AS a
    JOIN vbap AS b ON bvbeln = avbeln
    JOIN makt AS c ON cmatnr = bmatnr
    AND c~spras = sy-langu
    WHERE a~vbeln IN s_vbeln .
    COLURING DISPLAY *
    DATA: ld_color(1) TYPE c .
    LOOP AT it_so1 INTO wa_so.
    Populate color variable with colour properties
    Char 1 = C (This is a color property)
    Char 2 = 3 (Color codes: 1 - 7)
    Char 3 = Intensified on/off ( 1 or 0 )
    Char 4 = Inverse display on/off ( 1 or 0 )
    i.e. wa_ekko-line_color = 'C410'
    ld_color = ld_color + 1.
    Only 7 colours so need to reset color value
    IF ld_color = 8.
    ld_color = 1.
    ENDIF.
    CONCATENATE 'C' ld_color '10' INTO wa_so-line_color.
    wa_ekko-line_color = 'C410'.
    MODIFY it_so1 FROM wa_so.
    ENDLOOP .
    IF sy-subrc = 0.
    SELECT vbelv
    posnv
    vbeln
    posnn
    vbtyp_n
    INTO TABLE it_vbfa
    FROM vbfa
    FOR ALL ENTRIES IN it_so1
    WHERE vbelv = it_so1-vbeln
    AND posnn = it_so1-posnr
    AND vbtyp_n ='J' .
    IF sy-subrc = 0.
    SELECT vbeln
    posnr
    matnr
    werks
    lgort
    charg
    lfimg
    vrkme
    FROM lips INTO TABLE it_del_ful
    FOR ALL ENTRIES IN it_vbfa
    WHERE vbeln = it_vbfa-vbeln
    AND posnr = it_vbfa-posnn.
    ENDIF.
    ENDIF.
    ENDFORM. " DATA_SELECT
    EVENT CATALOG ****************************************
    *& Form EVENT_CAT
    text
    -->P_I_EVENT text
    FORM event_cat USING p_i_event TYPE slis_t_event .
    REFRESH p_i_event .
    CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
    I_LIST_TYPE = 0
    IMPORTING
    et_events = p_i_event
    EXCEPTIONS
    LIST_TYPE_WRONG = 1
    OTHERS = 2
    IF sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    READ TABLE p_i_event WITH KEY name = slis_ev_top_of_page INTO t_event.
    IF sy-subrc = 0.
    MOVE 'TOP_OF_PAGE' TO t_event-form.
    MODIFY p_i_event FROM t_event INDEX sy-tabix TRANSPORTING form.
    ENDIF.
    CLEAR t_event .
    ENDFORM. " EVENT_CAT
    *********FORM FOR EVENT TOP_OF_PAGE*********************************
    FORM top_of_page .
    REFRESH i_listheader.
    DATA: t_header TYPE slis_listheader.
    DATA: v_text(50).
    WRITE sy-datum TO v_text.
    CLEAR t_header.
    t_header-typ = 'S'.
    t_header-key = 'Date'.
    t_header-info = v_text.
    APPEND t_header TO i_listheader.
    CLEAR t_header.
    CLEAR v_text.
    WRITE: 'SALES ORDER REPORT ' TO v_text .
    t_header-typ = 'S'.
    t_header-key = 'TITLE'.
    t_header-info = v_text.
    APPEND t_header TO i_listheader.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
    it_list_commentary = i_listheader
    I_LOGO = 'ENJOYSAP_LOGO' .
    I_END_OF_LIST_GRID =
    ENDFORM. "TOP_OF_PAGE
    FIRST ALV GRID DISPLAY ***************************************
    *& Form CALL_ALV
    text
    --> p1 text
    <-- p2 text
    FORM call_alv .
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
    i_callback_program = sy-repid
    I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
    i_callback_user_command = 'USER_COMMAND1'
    i_callback_top_of_page = 'TOP_OF_PAGE'
    I_BACKGROUND_ID = 'ALV_BACKGROUND'
    i_grid_title = i_title_vbfa
    is_layout = i_layout
    it_fieldcat = i_fldcat[]
    it_sort = i_sort
    it_events = i_event
    TABLES
    t_outtab = it_so1
    IF sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    ENDFORM. " CALL_ALV
    FIRST FIELDCATALOG *************************************
    *& Form FLD_CAT
    text
    -->P_I_FLDCAT[] text
    FORM fld_cat USING p_i_fldcat TYPE slis_t_fieldcat_alv.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat-tabname = 'IT_SO1'."TABLE NAME
    i_fldcat-seltext_m = 'SALES ORDER NO.'.
    i_fldcat-col_pos = 1. " POSITION OF THE COLUMN.
    i_fldcat-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat-just(1) = 'C'.
    APPEND i_fldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'AUART'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat-tabname = 'IT_SO1'."TABLE NAME
    i_fldcat-seltext_m = 'SALES DOC. TYPE'.
    i_fldcat-col_pos = 2. " POSITION OF THE COLUMN.
    i_fldcat-outputlen = 15. " SET THE OUTPUT LENGTH.
    i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat-just(1) = 'C'.
    APPEND i_fldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'VKORG'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat-tabname = 'IT_SO1'.
    i_fldcat-seltext_m = 'SALES ORG.'.
    i_fldcat-col_pos = 3. " POSITION OF THE COLUMN.
    i_fldcat-outputlen = 12. " SET THE OUTPUT LENGTH.
    i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat-just(1) = 'C'.
    APPEND i_fldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'SPART'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat-tabname = 'IT_SO1'.
    i_fldcat-seltext_m = 'DIVISION'.
    i_fldcat-col_pos = 4. " POSITION OF THE COLUMN.
    i_fldcat-outputlen = 10. " SET THE OUTPUT LENGTH.
    i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat-just(1) = 'C'.
    APPEND i_fldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'KUNNR'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat-tabname = 'IT_SO1'.
    i_fldcat-seltext_m = 'SOLD TO PARTY'.
    i_fldcat-col_pos = 5. " POSITION OF THE COLUMN.
    i_fldcat-outputlen = 15. " SET THE OUTPUT LENGTH.
    i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat-just(1) = 'C'.
    APPEND i_fldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat-tabname = 'IT_SO1'.
    i_fldcat-seltext_m = 'SALES DOC. ITEM'.
    i_fldcat-col_pos = 6. " POSITION OF THE COLUMN.
    i_fldcat-outputlen = 17. " SET THE OUTPUT LENGTH.
    i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat-just(1) = 'C'.
    APPEND i_fldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat-tabname = 'IT_SO1'.
    i_fldcat-seltext_m = 'MATERIAL NO.'.
    i_fldcat-col_pos = 7. " POSITION OF THE COLUMN.
    i_fldcat-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat-just(1) = 'C'.
    APPEND i_fldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'MAKTX'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat-tabname = 'IT_SO1'.
    i_fldcat-seltext_m = 'DESCRIPTION'.
    i_fldcat-col_pos = 8. " POSITION OF THE COLUMN.
    i_fldcat-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat-just(1) = 'C'.
    APPEND i_fldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'KWMENG'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat-tabname = 'IT_SO1'.
    i_fldcat-seltext_m = 'QUANTITY'.
    i_fldcat-col_pos = 9. " POSITION OF THE COLUMN.
    i_fldcat-outputlen = 15. " SET THE OUTPUT LENGTH.
    i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat-do_sum = 'X'. " For doing "SUM"
    i_fldcat-just(1) = 'C'.
    APPEND i_fldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat-tabname = 'IT_SO1'.
    i_fldcat-seltext_m = 'SALES UNIT'.
    i_fldcat-col_pos = 10. " POSITION OF THE COLUMN.
    i_fldcat-outputlen = 10. " SET THE OUTPUT LENGTH.
    i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat-just(1) = 'C'.
    APPEND i_fldcat.
    ENDFORM. " FLD_CAT
    ALV SORTING ***************************************
    *& Form SORT
    text
    -->P_I_SORT text
    FORM t_sort USING p_i_sort TYPE slis_t_sortinfo_alv .
    DATA: i_sort TYPE slis_sortinfo_alv .
    REFRESH p_i_sort .
    CLEAR i_sort.
    i_sort-spos = 1.
    i_sort-tabname = 'IT_SO1'.
    i_sort-fieldname = 'VBELN'.
    i_sort-up = 'X'.
    i_sort-subtot = 'X'.
    i_sort-group = '*'.
    APPEND i_sort TO p_i_sort.
    ENDFORM. " SORT
    *FORM SET_PF_STATUS USING rt_extab TYPE slis_t_extab.
    SET PF-STATUS 'ZSTANDARD'.
    *ENDFORM. "Set_pf_status
    **********FORM FOR EVENT USER_COMMAND1*******************************
    FORM user_command1 USING r_ucomm LIKE sy-ucomm
    rs_selfield TYPE slis_selfield.
    *CASE R_UCOMM .
    WHEN '&IC1' .
    IF rs_selfield-FIELDNAME = 'VBELN' .
    ENDIF .
    WHEN OTHERS .
    ENDCASE .
    CLEAR wa_so.
    REFRESH: it_del1 .
    IF r_ucomm = '&IC1' AND rs_selfield-fieldname = 'VBELN' AND
    rs_selfield-value IS NOT INITIAL.
    READ TABLE it_so1 INTO wa_so INDEX rs_selfield-tabindex.
    IF sy-subrc = 0.
    LOOP AT it_vbfa INTO wa_vbfa WHERE vbelv = wa_so-vbeln
    AND posnv = wa_so-posnr.
    READ TABLE it_del_ful INTO wa_it_del_ful
    WITH KEY vbeln = wa_vbfa-vbelv
    posnr = wa_vbfa-posnn.
    IF sy-subrc = 0.
    CLEAR wa_del.
    MOVE wa_it_del_ful TO wa_del.
    APPEND wa_del TO it_del1.
    ENDIF.
    ENDLOOP.
    ENDIF.
    ENDIF.
    SECOND ALV GRID DISPLAY ***********************************
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
    i_callback_program = sy-repid
    I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
    i_callback_user_command = 'USER_COMMAND2'
    i_callback_top_of_page = 'TOP_OF_PAGE'
    I_BACKGROUND_ID = 'ALV_BACKGROUND'
    i_grid_title = i_title_vbpa
    it_fieldcat = i_fldcat2[]
    it_sort = i_sort
    TABLES
    t_outtab = it_del_ful
    IF sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    ENDFORM . "USER_COMMAND1
    FORM FOR EVENT USER_COMMAND 2 ******************************
    FORM user_command2 USING r_ucomm LIKE sy-ucomm
    rs_selfield TYPE slis_selfield.
    CLEAR wa_so.
    REFRESH: it_del1 .
    IF r_ucomm = '&IC1' AND rs_selfield-fieldname = 'VBELN' AND
    rs_selfield-value IS NOT INITIAL.
    READ TABLE it_so1 INTO wa_so INDEX rs_selfield-tabindex.
    IF SY-SUBRC = 0.
    LOOP AT it_vbfa INTO wa_vbfa WHERE vbelv = WA_SO-vbeln
    AND posnv = WA_SO-posnr.
    READ TABLE it_del_ful INTO wa_it_del_ful
    WITH KEY vbeln = rs_selfield-value
    posnr = wa_vbfa-posnn.
    IF rs_selfield-fieldname = 'VBELN'.
    SET PARAMETER ID 'VL' FIELD wa_vbfa-vbeln .
    CALL TRANSACTION 'VL03' AND SKIP FIRST SCREEN.
    ENDIF .
    ENDLOOP.
    ENDIF.
    ENDIF.
    ENDFORM . "USER_COMMAND2
    SECOND FIELDCATALOG ******************************************
    *& Form FLD_CAT2
    text
    -->P_I_FLDCAT2[] text
    FORM fld_cat2 USING p_i_fldcat2 TYPE slis_t_fieldcat_alv .
    CLEAR i_fldcat2.
    i_fldcat2-fieldname = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat2-tabname = 'IT_DEL_FUL'."TABLE NAME
    i_fldcat2-seltext_m = 'DELIVERY NO.'.
    i_fldcat2-col_pos = 1. " POSITION OF THE COLUMN.
    i_fldcat2-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat2-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat2-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat2-hotspot = 'X'.
    i_fldcat2-just(1) = 'C'.
    APPEND i_fldcat2.
    CLEAR i_fldcat2.
    i_fldcat2-fieldname = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat2-seltext_m = 'DELIVERY ITEM'.
    i_fldcat2-col_pos = 2. " POSITION OF THE COLUMN.
    i_fldcat2-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat2-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat2-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat2-just(1) = 'C'.
    APPEND i_fldcat2.
    CLEAR i_fldcat2.
    i_fldcat2-fieldname = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat2-seltext_m = 'MATERIAL NO.'.
    i_fldcat2-col_pos = 3. " POSITION OF THE COLUMN.
    i_fldcat2-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat2-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat2-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat2-just(1) = 'C'.
    APPEND i_fldcat2.
    CLEAR i_fldcat2.
    i_fldcat2-fieldname = 'WERKS'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat2-seltext_m = 'PLANT.'.
    i_fldcat2-col_pos = 4. " POSITION OF THE COLUMN.
    i_fldcat2-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat2-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat2-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat2-just(1) = 'C'.
    APPEND i_fldcat2.
    CLEAR i_fldcat2.
    i_fldcat2-fieldname = 'LGORT'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat2-seltext_m = 'ST. LOCATION'.
    i_fldcat2-col_pos = 5. " POSITION OF THE COLUMN.
    i_fldcat2-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat2-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat2-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat2-just(1) = 'C'.
    APPEND i_fldcat2.
    CLEAR i_fldcat2.
    i_fldcat2-fieldname = 'CHARG'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat2-seltext_m = 'BATCH NO.'.
    i_fldcat2-col_pos = 6. " POSITION OF THE COLUMN.
    i_fldcat2-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat2-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat2-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat2-just(1) = 'C'.
    APPEND i_fldcat2.
    CLEAR i_fldcat2.
    i_fldcat2-fieldname = 'LFIMG'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat2-seltext_m = 'ACT. DEL. QTY.'.
    i_fldcat2-col_pos = 7. " POSITION OF THE COLUMN.
    i_fldcat2-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat2-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat2-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat2-just(1) = 'C'.
    APPEND i_fldcat2.
    CLEAR i_fldcat2.
    i_fldcat2-fieldname = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED
    i_fldcat2-seltext_m = 'SALES UNIT.'.
    i_fldcat2-col_pos = 8. " POSITION OF THE COLUMN.
    i_fldcat2-outputlen = 20. " SET THE OUTPUT LENGTH.
    i_fldcat2-emphasize = 'X'. " COLOR OF THIS COLUMN.
    i_fldcat2-key = 'X'. " SO THAT THIS FIELD IS NOT
    "SCROLLABLE AND HIDDABLE.
    i_fldcat2-just(1) = 'C'.
    APPEND i_fldcat2.
    ENDFORM. " FLD_CAT2
    ALV LAYOUT *******************************************
    *& Form LAYOUT
    text
    -->P_I_LAYOUT text
    FORM t_layout USING p_i_layout TYPE slis_layout_alv .
    p_i_layout-zebra = 'X'.
    p_i_layout-totals_text = 'GRAND TOTAL ='.
    p_i_layout-CONFIRMATION_PROMPT = 'X'.
    p_i_layout-DEF_STATUS = ' '.
    p_i_layout-info_fieldname = 'LINE_COLOR'.
    ENDFORM. " LAYOUT
    Regards,
    Padmam.

  • Classic Report + jQuery help me understand

    Hi All, need some help to understand couple of things
    I had a theoretically small thing to achieve on one of my APEX page (inline editing of one column).
    Classic report allow me to select a named LOV as a type of the column, and using ajax i was able to update changes into database.
    But the method i have achieved this functionality totally blocked me.
    Here how I did it:
    1) I have assign a static id to my report region (Move)
    2) In Element Attributes on that column i add on change event onchange="javascript:save(this);" 3) In function save() i have next record to select the value and primary key to be able to update the change in the database
    function save(pThis) {
    var newVal = pThis.value;
    var currIndex = $('select[name="'+pThis.name+'"]').index($x(pThis.id));
    currIndex  = currIndex + 1;
    var myid = $("#report_Move table.uReport tr:eq("+currIndex+") td[headers='PK_ID']").text();
    ... ajax call here is ususal using myid as PK and newVal
    }My HTML generated by APEX:
    <section class="uRegion  clearfix" id="Move" aria-live="polite">
      <div class="uRegionHeading">
        <h1>Test<a class="eLink" title="Edit" href="javascript:apex.navigation.popup.url('f?p=4000:374:1058298648647::::P374_ID,FB_FLOW_ID,FB_FLOW_PAGE_ID:5508319451889760,555,6');"><img src="/i/e.gif" alt="Edit" class="eLink"></a></h1>
        <span class="uButtonContainer">
        </span>
      </div>
      <div class="uRegionContent clearfix">
        <div id="report_5508319451889760_catch"><table class="uReportContainer" id="report_Move" summary="">
    <tbody class="uReportPagination">
    <tr><td></td></tr>
    </tbody>
    <tbody class="uReportBody">
    <tr><td>
    <table summary="Test" class="uReport uReportStandard">
    <thead><tr><th align="left" id="PK_ID">PK_ID</th><th align="left" id="USER_NAME">USER_NAME</th><th align="left" id="CART_DATE">CART_DATE</th><th align="left" id="SELECTED">SELECTED</th><th align="left" id="EDIT_LINK">Edit Link</th></tr></thead>
    <tbody>
    <tr><td headers="PK_ID">1210161455014</td><td headers="USER_NAME"><label for="f01_0001" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0001"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">05-DEC-12</td><td headers="SELECTED">Y</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455009</td><td headers="USER_NAME"><label for="f01_0002" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0002"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">05-DEC-12</td><td headers="SELECTED">N</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455013</td><td headers="USER_NAME"><label for="f01_0003" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0003"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">05-DEC-12</td><td headers="SELECTED">Y</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455017</td><td headers="USER_NAME"><label for="f01_0004" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0004"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">05-DEC-12</td><td headers="SELECTED">N</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455032</td><td headers="USER_NAME"><label for="f01_0005" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0005"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">05-DEC-12</td><td headers="SELECTED">N</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455031</td><td headers="USER_NAME"><label for="f01_0006" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0006"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">05-DEC-12</td><td headers="SELECTED">N</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455021</td><td headers="USER_NAME"><label for="f01_0007" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0007"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">05-DEC-12</td><td headers="SELECTED">N</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455007</td><td headers="USER_NAME"><label for="f01_0008" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0008"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">04-DEC-12</td><td headers="SELECTED">N</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455010</td><td headers="USER_NAME"><label for="f01_0009" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0009"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">03-DEC-12</td><td headers="SELECTED">Y</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455008</td><td headers="USER_NAME"><label for="f01_0010" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0010"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">03-DEC-12</td><td headers="SELECTED">Y</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455006</td><td headers="USER_NAME"><label for="f01_0011" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0011"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">03-DEC-12</td><td headers="SELECTED">Y</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455004</td><td headers="USER_NAME"><label for="f01_0012" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0012"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">03-DEC-12</td><td headers="SELECTED">Y</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455003</td><td headers="USER_NAME"><label for="f01_0013" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0013"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">03-DEC-12</td><td headers="SELECTED">N</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455019</td><td headers="USER_NAME"><label for="f01_0014" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0014"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">03-DEC-12</td><td headers="SELECTED">N</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    <tr><td headers="PK_ID">1210161455028</td><td headers="USER_NAME"><label for="f01_0015" class="hideMeButHearMe">USER_NAME</label><select name="f01" onchange="javascript:test(this);" id="f01_0015"><option value="0"></option><option value="11">SHELF 1</option><option value="12">SHELF 2</option><option value="13">SHELF 3</option><option value="14">SHELF 4</option><option value="15">SHELF 5</option><td headers="CART_DATE">03-DEC-12</td><td headers="SELECTED">N</td><td headers="EDIT_LINK"><a href="#"><img src="/i/edit_big.gif" alt=""></a></td></tr>
    </tbody>
    </table>
    </td>
    </tr>
    </tbody>
    <tbody class="uReportPagination">
    <tr><td colspan="5" align="right"><table summary=""><tbody><tr><td class="pagination"></td><td class="pagination"></td><td nowrap="nowrap" class="pagination"><span class="fielddata">1 - 15</span></td><td class="pagination"><a href="javascript:apex.widget.report.paginate('5508319451889760', {min:16,max:15,fetched:15});" class="uPaginationNext">Next <img src="/i/f_spacer.gif" alt=""></a></td><td class="pagination"></td></tr></tbody></table></td></tr>
    </tbody>
    </table>
    <div class="uReportDownloadLinks"></div></div>
      </div>
    </section>Is there any other more elegant solution to achieve this inline editing? because this one is relaying on theme on uReport class, on things that i can't control.
    Also can you tell me please if table.uReport is correct or table.uReportStandard is correct? How to address the class in jQuery if in HTML it is "uReport uReportStandard"?
    Thanks a lot
    Andrei

    There is probably nothing wrong with the logic board. The panic was certainly not caused by the manufacturing defect common in that model.
    Remove the Sophos product by following the instructions on this page. If you have a different version, the procedure may be different.
    Back up all data before making any changes.

  • Classical report ON INPUT

    in the output of a classical report i have allowed a field with <b>INPUT ON,</b>
    and i want to read all the lines of the report output and the values entered in the INPUT ON field.
    how this can be achieved.
    rewards if helpful.

    WRITE - ext_format_options
    Syntax
    ... [COLOR       {{{color [ON]}|OFF}|{= col}}]
        [INTENSIFIED [{ON|OFF}|{= flag}]]
        [INVERSE     [{ON|OFF}|{= flag}]]
        [HOTSPOT     [{ON|OFF}|{= flag}]]
        <b>[INPUT       [{ON|OFF}|{= flag}]]</b>     [FRAMES      [{ON|OFF}|{= flag}]]
        [RESET] ... .
    Effect
    The meaning of the additions is the same as for the statement FORMAT, with the difference that they only affect the output of the current WRITE statement. If the additions are not specified, the standard settings described in FORMAT or the settings set by the previous FORMAT statements are used.
    Note
    The use of such an addition in the WRITE statement overrides the standard settings or the formats set by the previous FORMAT statements for exactly one output and for exactly the property concerned. All the other properties and the subsequent WRITE statements are not affected.
    Example
    Changing the background color for output of the data oject sum. All the other outputs and spaces between the outputs have the background color that is set in the FORMAT statement.
    DATA sum TYPE i.
    FORMAT COLOR COL_NORMAL.
    DO 10 TIMES.
      WRITE / sy-index.
      sum = sum + sy-index.
      WRITE sum COLOR COL_TOTAL.
    ENDDO.
    ULINE.
    WRITE sum UNDER sum COLOR COL_GROUP.

Maybe you are looking for

  • Still not seeing times in week view

    *I still have not gotten a solution* to why the hourly times (eg 8 a.m., 9 a.m., etc.) no longer show in the left column of iCal in either the daily and weekly screen views. Only Noon shows in the column under the year header (2008). If I print a cal

  • BDC ---Data maintainance at flat file

    Hi All, Iam a BI resource learning ABAP. I have started learning abap in that currently working with BDC. Here iam trying to extract data from flat file(note pad) for practice purpose and extraxting data by session method fore ground process. Here in

  • Statistic on throughput of data loader utility

    Hi All Can you guys share some statistics on throughput of data loader utility ? If you are looking for number of records you may consider 1 Million, how long it would take to import this ?. I need these number to make a call on using Web Service or

  • My whole computer screen enlarged (desk top, and internt) how do i get it back to normal?

    my whole computer screen enlarged (desk top, and internt) how do i get it back to normal?

  • Wacom pen hanging when using spot removal brush

    Whenever I use my new wacom tablet to attempt to clone or heal a line, the white spot stops after a short space and the program hangs. I can still move the cursor, but do no work. Eventually, it recovers, sometimes going on with the action, sometimes