Creation of Dynamic Table

Question

Hello All,
       I want to Create Dynamic Header of the Table and according to the Header have to filter the data. Kindly give me the
Suggestion how shd i resolve the  problem.
Ex. Run time I will create the Heder as 4%, 5%, 12.5% and filter the amount as per %, the No of columns will be depend on the type of INvoice.

Answer 1

Hi,
Check this sample code
DEFINE dy_fields.
  clear gs_fields.
  gs_fields-fieldname = &1.
  gs_fields-datatype  = &2.
  gs_fields-intlen    = &3.
  gs_fields-coltext   = &4.
  gs_fields-quantity  = '3'.
  append gs_fields to git_fields.
END-OF-DEFINITION. "add_field
DEFINE add_field.
  gs_fcat-tabname    = &1.
  gs_fcat-fieldname  = &2.
  gs_fcat-ref_field  = &3.
  gs_fcat-ref_table  = &4.
  gs_fcat-inttype    = &5.
  gs_fcat-coltext    = &6.
  gs_fcat-col_pos    = &7.
  gs_fcat-quantity   = '3'.
  gs_fcat-col_opt    = 'X'.
  append gs_fcat to git_fcat.
END-OF-DEFINITION. "add_field
form form_fieldcatalog .
  dy_fields 'MATNR' 'CHAR' '18' 'Material'(015).
  dy_fields 'KTEXTMAT' 'CHAR' '40' 'Material Description'(003).
  dy_fields 'PRUEFLOS' 'NUMC' '12' 'Inspection Lot Number'(004).
  dy_fields 'ENSTEHDAT' 'DATS' '8' 'Date of Inspection'(005).
  dy_fields 'ARBPL' 'CHAR' '8' 'Blast Fur. No.'(006).
  dy_fields 'USERC1' 'CHAR' '18' 'Plnt No'(007).
  dy_fields 'USERC2' 'CHAR' '10' 'Shift'(008).
  dy_fields 'USERN1' 'NUMC' '10' 'Sample'(009).
LOOP AT git_qamv ASSIGNING <fs_qamv>.
TRANSLATE <fs_qamv>-kurztext TO UPPER CASE.
ENDLOOP.
refresh git_qamv_temp.
git_qamv_temp[] = git_qamv[].
sort git_qamv_temp by kurztext.
v_count = 8.
sort git_output by prueflos.
delete ADJACENT DUPLICATES FROM git_qamv_temp comparing kurztext.
LOOP AT git_qamv_temp into gs_qamv.
  v_count = v_count + 1.
  read table git_output ASSIGNING <fs_output> with key PRUEFLOS = gs_qamv-PRUEFLOS BINARY SEARCH.
  IF sy-subrc = 0.
       dy_fields gs_qamv-merknr 'QUAN' '25' gs_qamv-kurztext.
   add_field 'GIT_FINAL' gs_qamv-merknr '' '' 'C' gs_qamv-kurztext v_count.
  ENDIF.
ENDLOOP.
data v_cnt(4) type n.
clear v_cnt.
LOOP AT git_fcat ASSIGNING <fs_fcat>.
v_cnt = v_cnt + 10.
<fs_fcat>-fieldname = v_cnt.
READ TABLE git_fields ASSIGNING <fs_fields> WITH key coltext = <fs_fcat>-coltext.
if sy-subrc = 0.
  move <fs_fcat>-fieldname to <fs_fields>-fieldname.
  ENDIF.
ENDLOOP.
clear v_cnt.
sort GIT_QAMV by PRUEFLOS MERKNR.
LOOP AT GIT_QASR ASSIGNING <FS_QASR>.
  READ TABLE GIT_QAMV ASSIGNING <fs_qamv> WITH KEY PRUEFLOS = <FS_QASR>-PRUEFLOS
                                                 MERKNR   = <FS_QASR>-MERKNR BINARY SEARCH.
  IF SY-SUBRC = 0.
    MOVE <FS_QAMV>-KURZTEXT TO <FS_QASR>-PRUEFBEMKT.
    ENDIF.
ENDLOOP.
*-> create dynamic internal table and assign to fs
  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = git_fields
    IMPORTING
      ep_table        = git_dy_final.
*-> Assigning The Referencing Pointer To The Field Symbol
  ASSIGN git_dy_final->* TO <git_dy_final>.
Creating Dynamic Work Area And Assigning It To The Field Symbol.
  CREATE DATA gs_dy_final LIKE LINE OF <git_dy_final>.
  ASSIGN gs_dy_final->* TO <gs_dy_final>.
Regards
Ansari