Simple Report using oops

Former Member — Fri, 23 Nov 2012 08:41:01 GMT

Hi Experts,

Am trying to display simple reprt using report, actually i dnt want to displayy using oops through module pool programming.

please look my below code. am not able to dispaly the report.

plz correct.

tables: vbak.

types: begin of ty_data,
         vbeln type vbeln,
         auart type AUART, " Sales Document Type
         vkorg type VKORG, "Sales Organization
*        VTWEG type VTWEG, "Distribution Channel
*        SPART type SPART, "Ditvision
        end of ty_data.
data: it_data type table of ty_data,
       wa_data like line of it_data,
       it_fcat type LVC_T_FCAT,
       wa_fcat type LVC_S_FCAT.
*      gv_repid TYPE sy-repid,
*      gv_dynnr TYPE sy-dynnr.
data: oref_cc type ref to cl_gui_container,
*      oref_dc type ref to cl_gui_docking_container,
       oref_grid type ref to cl_gui_alv_grid.
select-options s_vbeln for vbak-vbeln obligatory.
start-of-selection.
perform preapre_data.
*perform prepare_layout.
perform prepare_fieldcatalog.
perform display_alv.
*&---------------------------------------------------------------------*
*&      Form PREAPRE_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
FORM PREAPRE_DATA .
select vbeln auart vkorg from vbak
         into table it_data
         where vbeln in s_vbeln.
if it_data[] is initial.
    leave to list-processing.
endif.
ENDFORM.                    " PREAPRE_DATA
*&---------------------------------------------------------------------*
*&      Form PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
FORM PREPARE_LAYOUT .

ENDFORM.                    " PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*&      Form DISPLAY_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
FORM DISPLAY_ALV .

   CREATE OBJECT OREF_GRID
     EXPORTING
       I_PARENT          = CL_GUI_CUSTOM_CONTAINER=>DEFAULT_SCREEN.
   IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.
CALL METHOD OREF_GRID->SET_TABLE_FOR_FIRST_DISPLAY
   EXPORTING
*    I_BUFFER_ACTIVE               =
*    I_BYPASSING_BUFFER            =
*    I_CONSISTENCY_CHECK           =
*    I_STRUCTURE_NAME              =
*    IS_VARIANT                    =
*    I_SAVE                        = 'X'
     I_DEFAULT                     = 'X'
*    IS_LAYOUT                     =
*    IS_PRINT                      =
*    IT_SPECIAL_GROUPS             =
*    IT_TOOLBAR_EXCLUDING          =
*    IT_HYPERLINK                  =
*    IT_ALV_GRAPHICS               =
*    IT_EXCEPT_QINFO               =
*    IR_SALV_ADAPTER               =
   CHANGING
     IT_OUTTAB                     = it_data
     IT_FIELDCATALOG               = it_fcat
*    IT_SORT                       =
*    IT_FILTER                     =
   EXCEPTIONS
     INVALID_PARAMETER_COMBINATION = 1
     PROGRAM_ERROR                 = 2
     TOO_MANY_LINES                = 3
     others                   = 4
         .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

oref_grid->refresh_table_display( ).

ENDFORM.                    " DISPLAY_ALV
*&---------------------------------------------------------------------*
*&      Form PREPARE_FIELDCATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
FORM PREPARE_FIELDCATALOG .
wa_fcat-tabname = 'IT_DATA'.
wa_fcat-fieldname = 'VBELN' .
wa_fcat-outputlen = '6' .
wa_fcat-coltext = 'Sales Order'.
append wa_fcat to it_fcat.
clear wa_fcat.
wa_fcat-tabname = 'IT_DATA'.
wa_fcat-fieldname = 'AUART' .
wa_fcat-outputlen = '12' .
wa_fcat-coltext = 'Sales Doc Type'.
append wa_fcat to it_fcat.
clear wa_fcat.
wa_fcat-tabname = 'IT_DATA'.
wa_fcat-fieldname = 'VKORG' .
wa_fcat-outputlen = '12' .
wa_fcat-coltext = 'Sales Orga'.
append wa_fcat to it_fcat.
clear wa_fcat.
ENDFORM.                    " PREPARE_FIELDCATALOG

Re: Simple Report using oops

Former Member — Fri, 23 Nov 2012 09:08:16 GMT

Srinath,

Your getting any error can you please debug the program then you can find the issue..

Then you can post the issue what you faced...

Thanks,

Raj

Re: Simple Report using oops

Former Member — Fri, 23 Nov 2012 09:32:31 GMT

am not getting any error...

data is not displaying...i mean the grid itself not displaying..

Re: Simple Report using oops

ravi_lanjewar — Fri, 23 Nov 2012 09:47:58 GMT

Hi Srinath,

Your program is correct. You where missing the following point

1. Call screen 100 before call perform display alv. Double click on screen number. it will asked for create the screen 100. give the description and click on yes.

2. Create the container on the screen.

3. Givet the container name as define name in the program.

Kind Regards

Ravishankar

Re: Simple Report using oops

Former Member — Fri, 23 Nov 2012 10:58:46 GMT

hi Ravishankar,

I know that procedure...am trying to display alv on selection screen itself,

any how thanks for your reply.

Thanks

Srinath P

Re: Simple Report using oops

Aashish28 — Fri, 23 Nov 2012 11:14:22 GMT

Hiii,

1) In SE38 search salv* you will get several example of class CL_SALV_TABLE with this class you do not need to create container .

http://wiki.sdn.sap.com/wiki/display/Snippets/TOP+OF+PAGE+AND+END+OF+PAGE+IN+CLASS+cl_salv_table

2) You can use docking container for displaying data on same selection screen .

http://zevolving.com/2008/10/display-alv-report-output-in-the-same-selection-screen/

Search on Google - displaying alv on same selection screen

topic Simple Report using oops in Application Development and Automation Discussions

Simple Report using oops

Re: Simple Report using oops

Re: Simple Report using oops

Re: Simple Report using oops

Re: Simple Report using oops

Re: Simple Report using oops