Re: Dynamic Report

Former Member — Mon, 02 Jun 2008 09:31:51 GMT

your part of the code is present in routine

perform dynamic_table.

&----

*& Report ZCS_NAC_MAT_CHARACTERISTICS

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

2/ Description ...: Business requirement is to get all materials
without any characteristic values maintained in SAP
which are given in the selection screen.

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

REPORT znac_material_char.

TYPE-POOLS : abap,

slis.

TABLES : kssk,

klah,

mara,

makt,

cabn,

t134,

t023.

DATA : i_fieldcat TYPE slis_t_fieldcat_alv ,

wa_fieldcat TYPE slis_fieldcat_alv.

DATA : w_layout TYPE slis_layout_alv.

DATA : st_layout TYPE slis_layout_alv.

DATA : t_header TYPE slis_t_listheader,

w_header TYPE slis_listheader.

TYPES : BEGIN OF ty_cabn,

atinn TYPE cabn-atinn,

atnam TYPE cabn-atnam,

END OF ty_cabn.

DATA : i_cabn TYPE STANDARD TABLE OF ty_cabn WITH HEADER LINE.

DATA : w_cabn LIKE i_cabn.

TYPES : BEGIN OF ty_ausp,

objek TYPE ausp-objek,

atinn TYPE ausp-atinn,

klart TYPE ausp-klart,

END OF ty_ausp.

DATA : i_ausp TYPE STANDARD TABLE OF ty_ausp WITH HEADER LINE.

DATA : w_ausp LIKE i_ausp.

TYPES : BEGIN OF ty_mara,

matnr TYPE mara-matnr,

mtart TYPE mara-mtart,

matkl TYPE mara-matkl,

prdha TYPE mara-prdha,

mstae TYPE mara-mstae,

mstde TYPE mara-mstde,

END OF ty_mara.

DATA : i_mara TYPE STANDARD TABLE OF ty_mara WITH HEADER LINE.

DATA : w_mara LIKE i_mara.

DATA : i_mara_temp TYPE STANDARD TABLE OF ty_mara WITH HEADER LINE.

DATA : w_mara_temp LIKE i_mara_temp.

TYPES :BEGIN OF ty_data,

atnam TYPE cabn-atnam,

atinn TYPE cabn-atinn,

objek TYPE ausp-objek,

klart TYPE ausp-klart,

matnr TYPE mara-matnr,

maktx TYPE makt-maktx,

mtart TYPE mara-mtart,

matkl TYPE mara-matkl,

prdha TYPE mara-prdha,

mstae TYPE mara-mstae,

mstde TYPE mara-mstde,

END OF ty_data.

DATA : i_data TYPE STANDARD TABLE OF ty_data WITH HEADER LINE.

DATA : w_data LIKE i_data.

DATA : i_class TYPE STANDARD TABLE OF sclass WITH HEADER LINE.

DATA : w_class LIKE i_class.

DATA : i_class_temp TYPE STANDARD TABLE OF sclass WITH HEADER LINE.

DATA : w_class_temp LIKE i_class_temp.

DATA : i_objdata TYPE STANDARD TABLE OF clobjdat WITH HEADER LINE.

DATA : w_objdata LIKE i_objdata.

TYPES : BEGIN OF ty_objdata_temp.

TYPES: matnr TYPE mara-matnr.

TYPES: maktx TYPE makt-maktx.

INCLUDE STRUCTURE clobjdat.

TYPES : prdha TYPE mara-prdha.

TYPES : mstde TYPE mara-mstde.

TYPES : END OF ty_objdata_temp.

DATA : i_objdata_temp TYPE STANDARD TABLE OF ty_objdata_temp WITH HEADER LINE.

DATA : w_objdata_temp LIKE i_objdata_temp.

FIELD-SYMBOLS: <t_dyntable> TYPE STANDARD TABLE,

<fs_dyntable>,

<fs_fldval> TYPE ANY.

DATA: t_newtable TYPE REF TO data,

t_newline TYPE REF TO data,

fs_fldcat TYPE slis_t_fieldcat_alv,

t_fldcat1 TYPE lvc_t_fcat,

wa_it_fldcat TYPE lvc_s_fcat,

wa_colno(2) TYPE n,

wa_flname(30) TYPE c.

DATA: fieldname(20) TYPE c.

DATA: fieldvalue(40) TYPE c.

DATA: index(3) TYPE c,

v_time(60) TYPE c.

DATA: wa_cat LIKE LINE OF fs_fldcat.

CONSTANTS : c_nac TYPE klah-class VALUE 'NAC',

c_klart TYPE ausp-klart VALUE '001',

c_check TYPE c VALUE 'X' .

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (28) text-001 .

SELECT-OPTIONS: s_atnam FOR cabn-atnam NO INTERVALS OBLIGATORY. " Characteristic name

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b1 .

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

SELECT-OPTIONS: s_matnr FOR mara-matnr. " material Number

SELECT-OPTIONS: s_mtart FOR mara-mtart. " material type

SELECT-OPTIONS: s_matkl FOR mara-matkl. " material type

SELECT-OPTIONS: s_mstae FOR mara-mstae. " X-Plant material status

PARAMETERS : s_date LIKE sy-datum OBLIGATORY DEFAULT sy-datum . " date

SELECTION-SCREEN END OF BLOCK b2 .

AT SELECTION-SCREEN ON s_atnam.

SELECT SINGLE * FROM cabn WHERE atnam IN s_atnam.

IF sy-subrc <> 0.

MESSAGE text-003 TYPE 'E'.

ENDIF.

AT SELECTION-SCREEN ON s_matnr.

SELECT SINGLE * FROM mara WHERE matnr IN s_matnr.

IF sy-subrc <> 0.

MESSAGE text-004 TYPE 'E'.

ENDIF.

AT SELECTION-SCREEN ON s_mtart.

SELECT SINGLE * FROM t134 WHERE mtart IN s_mtart.

IF sy-subrc <> 0.

MESSAGE text-005 TYPE 'E'.

ENDIF.

AT SELECTION-SCREEN ON s_matkl.

SELECT SINGLE * FROM t023 WHERE matkl IN s_matkl.

IF sy-subrc <> 0.

MESSAGE text-006 TYPE 'E'.

ENDIF.

START-OF-SELECTION.

PERFORM get_data.

PERFORM get_data_keydate.

PERFORM material_all_charname.

PERFORM get_classification.

PERFORM dynamic_table.

&----

*& Form dynamic_table

&----

text

----

--> p1 text
<-- p2 text

----

FORM dynamic_table.

PERFORM fieldcatalog.

PERFORM dynamic_table_create.

PERFORM final_data.

PERFORM final_fieldcatalog.

PERFORM layout_build.

PERFORM grid_display.

ENDFORM. " fieldcat

&----

*& Form layout_build

&----

text

----

FORM layout_build .

st_layout-zebra = c_check.

st_layout-no_vline = ''.

st_layout-colwidth_optimize = c_check.

st_layout-detail_popup = c_check.

st_layout-detail_initial_lines = c_check.

st_layout-detail_titlebar = text-021.

ENDFORM. " layout_build

&----

*& Form alv_top_of_page

&----

text

----

FORM alv_top_of_page.

REFRESH t_header.

CLEAR t_header.

w_header-typ = 'H'. "H=Header, S=Selection, A=Action

w_header-key = ' '.

w_header-info = text-019.

APPEND w_header TO t_header.

CONCATENATE sy-datum4(2) '-' sy-datum6(2) '-' sy-datum0(4) ' / ' sy-uzeit0(2) ':' sy-uzeit2(2) ':' sy-uzeit4(2) INTO v_time.

w_header-typ = 'S'. "H=Header, S=Selection, A=Action

w_header-key = text-020.

w_header-info = v_time.

APPEND w_header TO t_header.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = t_header.

ENDFORM. "alv_top_of_page

&----

*& Form grid_display

&----

text

----

--> p1 text
<-- p2 text

----

FORM grid_display .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_callback_top_of_page = 'ALV_TOP_OF_PAGE'

it_fieldcat = fs_fldcat

is_layout = st_layout

i_default = c_check

i_save = 'A'

it_events = v_events[]

TABLES

t_outtab = <t_dyntable>.

ENDFORM. " grid_display

&----

*& Form FINAL_FIELDCATALOG

&----

text

----

--> p1 text
<-- p2 text

----

FORM final_fieldcatalog .

wa_cat-fieldname = text-009.

wa_cat-seltext_m = text-015.

wa_cat-outputlen = 18.

APPEND wa_cat TO fs_fldcat.

wa_cat-fieldname = text-011.

wa_cat-seltext_m = text-016.

wa_cat-outputlen = 40.

APPEND wa_cat TO fs_fldcat.

LOOP AT s_atnam.

CLEAR wa_cat.

wa_cat-fieldname = s_atnam-low.

wa_cat-seltext_m = s_atnam-low.

wa_cat-outputlen = '15'.

APPEND wa_cat TO fs_fldcat.

ENDLOOP.

wa_cat-fieldname = text-012.

wa_cat-seltext_m = text-017.

wa_cat-outputlen = 18.

APPEND wa_cat TO fs_fldcat.

wa_cat-fieldname = text-013.

wa_cat-seltext_m = text-018.

wa_cat-outputlen = 8.

APPEND wa_cat TO fs_fldcat.

ENDFORM. " FINAL_FIELDCATALOG

&----

*& Form FIELDCATALOG

&----

text

----

--> p1 text
<-- p2 text

----

FORM fieldcatalog .

wa_it_fldcat-fieldname = text-009.

wa_it_fldcat-datatype = text-010.

wa_it_fldcat-intlen = 18.