HELP me in alv HIERARCHY

Question

HI,
Can any one send some hierarchial alv progrms.
with warm regards,
khadar.

Answer 1

Hi,
report  zwmr_pick_status_report no standard page heading
                                message-id zw.
Type Pools                                                           *
type-pools: icon, slis.
Tables                                                               *
tables: tvst,
        likp,
        t30b,
        vekp,
        zpallettr,
        zvantr.
Types                                                                *
types:
  begin of ty_data,
     lgtor       like likp-lgtor,             " door
     vbeln       like likp-vbeln,             " delivery
     wbstk       like vbuk-wbstk,             " Goods movement status
     kostk       like vbuk-kostk,             " Picking status
     posnr       like lips-posnr,             " item
     route       like likp-route,             " route
     wadat       like likp-wadat,             " goods issue date
     lvsta       like vbup-lvsta,             " warehouse status
     packvorschr like vekp-packvorschr,       " pack mnemonic
     exidv       like vekp-exidv,             " handling unit
     zpallet_no(10),  "like zpallettr-zpallet_no,   " pallet no
     zcount_check like zpallettr-zcount_check," count check flag
     zvan_no(10),     "like zvantr-zvan_no,         " van no
     zvan_print  like zvantr-zvan_print,      " van manifest print
     zeod_print  like zvantr-zeod_print,      " eod manifest print
     zzpackclass like vekp-zzpackclass,       " package class
     zzti        like vekp-zzti,              " T.I. value
  end of ty_data.
Data                                                                 *
ranges: r_del   for likp-vbeln,
        r_lgtor for likp-lgtor.
ranges: r_vanno for zvantr-zvan_no,
        r_palno for zpallettr-zpallet_no.
data: begin of number_range occurs 0,
         mark(1),
         id(3),
         num(10) type n,
         desc like zpalletmd-zdesc,
      end of number_range.
data: t_disp_tab  type standard table of zpickdisp,
      t_data_tab  type ty_data  occurs 0 with header line,
      t_disp_head type standard table of zpickhead.
data: w_numrnge like number_range,
      w_number(10) type n.
data: t_likp     like likp      occurs 0 with header line,
      t_lips     like lips      occurs 0 with header line,
      t_vbuk     like vbuk      occurs 0 with header line,
      t_vbup     like vbup      occurs 0 with header line,
      t_vepo     like vepo      occurs 0 with header line,
      t_vekp     like vekp      occurs 0 with header line,
      t_vantr    like zvantr    occurs 0 with header line,
      t_pallettr like zpallettr occurs 0 with header line,
      w_likp     like likp,
      w_lips     like lips,
      w_vbuk     like vbuk,
      w_vbup     like vbup,
      w_vepo     like vepo,
      w_vekp     like vekp.
ALV DATA *****
data:
     g_grid             type ref to cl_gui_alv_grid,
     g_sort             type slis_t_sortinfo_alv,
     g_custom_container type ref to cl_gui_custom_container,
     g_layout           type slis_layout_alv,
     gt_fieldcat        type slis_t_fieldcat_alv,
     t_fldcat           like line of gt_fieldcat,
     g_keyinfo          type slis_keyinfo_alv,
     gt_events          type slis_t_event,
     gs_event           type slis_alv_event,
     w_sy_repid         like sy-repid.
data: begin of seltab occurs 0.
        include structure rsparams.
data: end of seltab.
SYSTEM GENERATED TABLE CONTROL DATA ********
DECLARATION OF TABLECONTROL 'TC_TABCON' ITSELF
controls: tc_tabcon type tableview using screen 0100.
LINES OF TABLECONTROL 'TC_TABCON'
data:     g_tc_tabcon_lines  like sy-loopc.
data:     ok_code like sy-ucomm.
Constants                                                            *
constants: c_data_class like klah-class value 'DG_DATA',
           c_mat_class  like rmclf-klart value '001',
           c_pack       like lips-mtart value 'VERP',
           c_a(1)            value 'A',
           c_b(1)            value 'B',
           c_c(1)            value 'C',
           c_yes(1)          value 'X',
           c_no(1)           value ' '.
Selection screen                                                     *
standard report select options block
selection-screen begin of block a with frame title text-002.
select-options:
  s_wadat for likp-wadat no-extension obligatory.  " Goods Issue Date
*parameters:                                           "TR01-
p_vstel like tvst-vstel obligatory. " Shipping Point "TR01-
select-options:                                             "TR01+
  p_vstel for tvst-vstel.            " Shipping Point  "TR01+
select-options:
  s_lfart for likp-lfart,            " Delivery type
  s_lgtor for t30b-lgtor,            " Door selection
  s_exidv for vekp-exidv,            " Handling Unit
  s_vbeln for likp-vbeln.            " Delivery
parameters:
  p_exdata as checkbox.              " Show extra columns flag
selection-screen end of block a.
van/pallet specific select options block
selection-screen begin of block b with frame title text-001.
select-options:
  s_palno for zpallettr-zpallet_no, " no-extension,
  s_vanno for zvantr-zvan_no.       " no-extension.
selection-screen end of block b.
Value Request Events                                                 *
at selection-screen on value-request for s_palno-low.
  clear: number_range, w_number .
  refresh number_range.
select numbers and display pop up screen for selection
  perform select_pal_nos.
  s_palno-low = w_number.
at selection-screen on value-request for s_palno-high.
  clear: number_range, w_number .
  refresh number_range.
select numbers and display pop up screen for selection
  perform select_pal_nos.
  s_palno-high = w_number.
at selection-screen on value-request for s_vanno-low.
  clear: number_range, w_number .
  refresh number_range.
select numbers and display pop up screen for selection
  perform select_van_nos.
  s_vanno-low = w_number.
at selection-screen on value-request for s_vanno-high.
  clear: number_range, w_number .
  refresh number_range.
select numbers and display pop up screen for selection
  perform select_van_nos.
  s_vanno-high = w_number.
At Selection Screen                                                  *
at selection-screen.
  perform validate_selections.
Initialization                                                       *
initialization.
Start of selection                                                   *
start-of-selection.
clear all data tables
  clear: t_likp,
         t_lips,
         t_vbuk,
         t_vbup,
         t_vepo,
         t_vantr,
         t_pallettr,
         w_likp,
         w_lips,
         w_vbuk,
         w_vbup,
         w_vepo,
         w_vekp.
  refresh: t_likp,
           t_lips,
           t_vbuk,
           t_vbup,
           t_vepo,
           t_vantr,
           t_pallettr.
select data for ALV
due to different input parameters being used, to streamline the data
selection process, different selection methods are required
  if not s_vanno is initial
  or not s_palno is initial.
  if selecting by van/pallet number, need to select the data from the
  handling unit upwards to delivery
    perform select_data_up.
  else.
  otherwise the data can be selected from the delivery downwards
    perform select_data_down.
  endif.
End of selection                                                     *
end-of-selection.
call hierarchical ALV display function module
  call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
       exporting
            i_callback_program       = 'ZWMR_PICK_STATUS_REPORT'
            i_callback_pf_status_set = 'SET_STATUS'
            i_callback_user_command =
               'USER_COMMAND' "custom gui status form
            is_layout                = g_layout  "user command form
            it_fieldcat              = gt_fieldcat
            it_sort                  = g_sort
            it_events                = gt_events
            i_tabname_header         = 't_disp_head'
            i_tabname_item           = 't_disp_tab'
            i_structure_name_header  = 'ZPICKHEAD'
            i_structure_name_item    = 'ZPICKDISP'
            is_keyinfo               = g_keyinfo
       tables
            t_outtab_header          = t_disp_head
            t_outtab_item            = t_disp_tab.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
                            FORMS                                    *
Includes inserted by Screen Painter Wizard. DO NOT CHANGE THIS LINE!
  include zwmr_pick_status_reporto01 .
  include zwmr_pick_status_reporti01 .
  include zwmr_pick_status_reportf01 .
*&      Form  select_pal_nos
      select pallet numbers for search help
form select_pal_nos.
  data: begin of t_palno occurs 0,
          zpallet_no like zpallettr-zpallet_no,
        end of t_palno.
select all available pallet numbers
  select distinct zpallet_no from zpallettr
                  into corresponding fields of table t_palno.
  loop at t_palno.
  get pallet id
    select single zpallet_id from zpallettr
                  into number_range-id
                  where zpallet_no = t_palno-zpallet_no.
  get pallet description
    select single zdesc from zpalletmd
                  into number_range-desc
                  where zpallet_id = number_range-id.
    number_range-num = t_palno-zpallet_no.
  append to search help table
    append number_range.
  endloop.
call pop up dialog box
  call screen 0100 starting at 5 5.
endform.                    " select_pal_nos
*&      Form  select_van_nos
      select van numbers for search help
form select_van_nos.
  data: begin of t_vanno occurs 0,
          zvan_no like zvantr-zvan_no,
        end of t_vanno.
select available van numbers
  select distinct zvan_no from zvantr
                  into corresponding fields of table t_vanno.
  loop at t_vanno.
  select van id
    select single zvan_id from zvantr
                  into number_range-id
                  where zvan_no = t_vanno-zvan_no.
  select van description (maintained in pallet tables)
    select single zdesc from zpalletmd
                  into number_range-desc
                  where zpallet_id = number_range-id.
    number_range-num = t_vanno-zvan_no.
  append to search help table
    append number_range.
  endloop.
call pop up dialog box
  call screen 0100 starting at 5 5.
endform.                    " select_van_nos
*&      Form  select_data_down
      select data if selecting from delivery down
form select_data_down.
select all deliveries from LIKP that fulfill selection criteria
  select * from likp into table t_likp
                     where vbeln in s_vbeln
                   and   vstel eq p_vstel                 "TR01-
                     and   vstel in p_vstel
                     and   lgtor in s_lgtor
                     and   wadat in s_wadat
                     and   lfart in s_lfart.
  if sy-subrc ne 0.
  no data found
    message i007.
    exit.
  endif.
  if not t_likp[] is initial.
  select sales document headers from VBUK
    select * from vbuk into table t_vbuk
                  for all entries in t_likp
                  where vbeln eq t_likp-vbeln.
  select all relevant delivery items from LIPS
    select * from lips into table t_lips
                  for all entries in t_likp
                  where vbeln eq t_likp-vbeln
                  and   pstyv ne 'ZPAC'
                  and   pstyv ne 'ZGDP'                     "TR02+
                  and   lfimg gt 0.                         "TR01+
  endif.
  if not t_lips[] is initial.
  select all sales document line items from VBUP
    select * from vbup into table t_vbup
                  for all entries in t_lips
                  where vbeln eq t_lips-vbeln
                  and   posnr = t_lips-posnr.
  select corresponding handling unit ID's (venum)
TR03 Replace start
   select * from vepo appending corresponding fields of table t_vepo
                 for all entries in t_lips
                 where vbeln = t_lips-vbeln
                 and   posnr = t_lips-posnr
                 and   matnr = t_lips-matnr
                 and   charg = t_lips-charg.
    select * from vepo
                  inner join vekp on vepovenum = vekpvenum
                  appending corresponding fields of table t_vepo
                  for all entries in t_lips
                  where vepo~vbeln = t_lips-vbeln
                  and   vepo~posnr = t_lips-posnr
                  and   vepo~matnr = t_lips-matnr
                  and   vepo~charg = t_lips-charg
                  and   vekp~exidv in s_exidv.
TR03 Replace end
  endif.
build process table
  perform move_to_table.
endform.   "select_data_down
*&      Form  select_data_up
      select data if selecting from van/pallet up
form select_data_up.
  if not s_vanno is initial.
  if van then select van numbers and hence pallet numbers
    select * from zvantr into table t_vantr
                          where zvan_no in s_vanno.
                        and   vstel   eq p_vstel."TR01-
    if not t_vantr[] is initial.
      select * from zpallettr into table t_pallettr
                              for all entries in t_vantr
                              where zpallet_no eq t_vantr-zpallet_no.
                            and   vstel      eq p_vstel."TR01-
    endif.
  else.
  otherwise can get pallet numbers directly
    select * from zpallettr into table t_pallettr
                            where zpallet_no in s_palno.
                          and   vstel      eq p_vstel."TR01-
  endif.
  if not t_pallettr[] is initial.
  from the pallet nos. we can select the handling units
    select * from vekp into table t_vekp
                       for all entries in t_pallettr
                       where exidv eq t_pallettr-exidv
                       and   exidv ne space
                       and   exidv in s_exidv               "TR03+
                       and ( exida = 'E'                    "TR01+
                       or    exida = 'F' ).                 "TR01+
  endif.
  if not t_vekp[] is initial.
  build vbeln range from t_vekp.
    loop at t_vekp.
      r_del-sign = 'I'.
      r_del-option = 'EQ'.
      r_del-low = t_vekp-vpobjkey.
      append r_del.
    endloop.
  select all deliveries from LIKP that correspond to HU's
    select * from likp into table t_likp
                       where vbeln in r_del
                       and   wadat in s_wadat
                       and   lfart in s_lfart.
  endif.
  if not t_likp[] is initial.
  select sales document headers from VBUK
    select * from vbuk into table t_vbuk
                  for all entries in t_likp
                  where vbeln eq t_likp-vbeln.
  select all relevant delivery items from LIPS
    select * from lips into table t_lips
                  for all entries in t_likp
                  where vbeln eq t_likp-vbeln
                  and   pstyv ne 'ZPAC'
                  and   pstyv ne 'ZGDP'                     "TR02+
                  and   lfimg gt 0.                         "TR01+
  endif.
  if not t_lips[] is initial.
  select all sales document line items from VBUP
    select * from vbup into table t_vbup
                  for all entries in t_lips
                  where vbeln eq t_lips-vbeln
                  and   posnr = t_lips-posnr.
  select corresponding handling unit ID's (venum)
    select * from vepo appending corresponding fields of table t_vepo
                  for all entries in t_lips
                  where vbeln = t_lips-vbeln
                  and   posnr = t_lips-posnr
                  and   matnr = t_lips-matnr
                  and   charg = t_lips-charg.
  endif.
build process table
  perform move_to_table.
endform.   "select_data_up
*&      Form  move_to_table
      move data to processing table
form move_to_table.
  loop at t_vepo.
    clear t_data_tab.
  delivery lines.
    clear w_lips.
    read table t_lips with key vbeln = t_vepo-vbeln
                               posnr = t_vepo-posnr
                               into w_lips.
    move-corresponding w_lips to t_data_tab.
  sales document line items
    clear w_vbup.
    read table t_vbup with key vbeln = t_vepo-vbeln
                               posnr = t_vepo-posnr
                               into w_vbup.
  if w_vbup-kosta = space.                   "TR01-
    not relevant for picking
    delete t_vepo.                           "TR01-
    continue.                                "TR01-
  else.                                      "TR01-
    move-corresponding w_vbup to t_data_tab.
  endif.                                     "TR01-
  sales doc header
    clear w_vbuk.
    read table t_vbuk with key vbeln = t_vepo-vbeln
                           into w_vbuk.
    move-corresponding w_vbuk to t_data_tab.
  delivery header
    clear w_likp.
    read table t_likp with key vbeln = t_vepo-vbeln
                           into w_likp.
    move-corresponding w_likp to t_data_tab.
  select handling unit info using vepo entry
    clear w_vekp.
    if t_vekp[] is initial.
      select single * from vekp into w_vekp
                                where venum = t_vepo-venum.
    else.
      read table t_vekp with key venum = t_vepo-venum
                                 into w_vekp.
      if sy-subrc ne 0.
        select single * from vekp into w_vekp
                        where venum = t_vepo-venum.
      endif.
    endif.
    move-corresponding w_vekp to t_data_tab.
  select pallet / van load information
    select single zpallet_no zcount_check from zpallettr
                             into (t_data_tab-zpallet_no,
                                   t_data_tab-zcount_check)
                             where exidv eq w_vekp-exidv.
    if not t_data_tab-zpallet_no in s_palno.                "TR01+
      continue.                                             "TR01+
    endif.                                                  "TR01+
    if sy-subrc = 0.
      select single zvan_no zvan_print zeod_print from zvantr
                    into (t_data_tab-zvan_no,
                          t_data_tab-zvan_print,
                          t_data_tab-zeod_print)
                    where zpallet_no eq t_data_tab-zpallet_no.
      if not t_data_tab-zvan_no in s_vanno.                 "TR01+
        continue.                                           "TR01+
      endif.                                                "TR01+
    endif.
    append t_data_tab.
  endloop.
*-----> TR01+ start
If the delivery has yet to be packed, then need to include in report
Thus delete t_lips here and if any entries left after looping through
t_vepo, these will also need to be added to t_data_tab
if the selection is by handling unit though we do not want these"TR03+
  if s_exidv is initial.                                          "TR03+
    loop at t_vepo.
      read table t_lips with key vbeln = t_vepo-vbeln
                                 posnr = t_vepo-posnr.
      if sy-subrc = 0.
        delete t_lips index sy-tabix.
      endif.
    endloop.
    if not t_lips[] is initial.
  move any unpacked items to the data table
      perform move_lips_to_table.
    endif.
  endif.                                                          "TR03+
*<---- TR01+ End
get relevant status icons
  perform select_icons.
prepare ALV data
  perform prepare_alv.
endform.                    " select_data
*&      Form  select_icons
      select icons for display and move data to display table
form select_icons.
  data: w_disp_tab like zpickdisp,
        w_disp_head like zpickhead,
        w_color like zpickdisp-color,
        ov_icon like zpickdisp-ov_icon,
        gi_icon like zpickdisp-gi_icon,
        to_icon like zpickdisp-to_icon,
        lp_icon like zpickdisp-lp_icon,
        pc_icon like zpickdisp-pc_icon,
        lv_icon like zpickdisp-lv_icon,
        vm_icon like zpickdisp-vm_icon,
        em_icon like zpickdisp-em_icon,
        t_ovst_tab like t_disp_tab with header line.
  constants: c_col1(3) value 'C10',
             c_col2(3) value 'C20'.
  sort t_data_tab by lgtor vbeln.
  w_color = c_col2.
  loop at t_data_tab.
    at new lgtor.
    fill ALV header table
      clear w_disp_head.
      w_disp_head-lgtor = t_data_tab-lgtor.
      append w_disp_head to t_disp_head.
    endat.
  goods issue status & overall amber/green only
    case t_data_tab-wbstk.
      when c_c.
        move icon_green_light to gi_icon.
        move icon_green_light to ov_icon.
      when others.
        move icon_red_light to gi_icon.
        move icon_yellow_light to ov_icon.
    endcase.
  transfer order status
    case t_data_tab-lvsta.
      when c_a.
        move icon_red_light to to_icon.
      when c_b.
        move icon_yellow_light to to_icon.
      when c_c.
        move icon_green_light to to_icon.
      when space.
      write N/A
        to_icon = 'N/A'.
    endcase.
  loaded to pallet status
    if not t_data_tab-zpallet_no is initial.
      move icon_green_light to lp_icon.
    else.
      move icon_red_light to lp_icon.
    endif.
  pallet count status
    if not t_data_tab-zcount_check is initial.
      move icon_green_light to pc_icon.
    else.
      move icon_red_light to pc_icon.
    endif.
  loaded to van status
    if not t_data_tab-zvan_no is initial.
      move icon_green_light to lv_icon.
    else.
      move icon_red_light to lv_icon.
    endif.
  van manifest status
    if not t_data_tab-zvan_print is initial.
      move icon_green_light to vm_icon.
    else.
      move icon_red_light to vm_icon.
    endif.
  end of day manifest status
    if not t_data_tab-zeod_print is initial.
      move icon_green_light to em_icon.
    else.
      move icon_red_light to em_icon.
    endif.
  move working data table to display table
    move-corresponding t_data_tab to w_disp_tab.
    w_disp_tab-ov_icon = ov_icon.
    w_disp_tab-gi_icon = gi_icon.
    w_disp_tab-to_icon = to_icon.
    w_disp_tab-lp_icon = lp_icon.
    w_disp_tab-pc_icon = pc_icon.
    w_disp_tab-lv_icon = lv_icon.
    w_disp_tab-vm_icon = vm_icon.
    w_disp_tab-em_icon = em_icon.
    w_disp_tab-color = w_color.
  fill N/A values for initial fields for display
    if w_disp_tab-packvorschr is initial.
      w_disp_tab-packvorschr = 'N/A'.
    endif.
    if w_disp_tab-exidv is initial.
      w_disp_tab-exidv = 'N/A'.
    endif.
    if w_disp_tab-zpallet_no is initial.
      write 'N/A' to w_disp_tab-zpallet_no.
    endif.
    if w_disp_tab-zvan_no is initial.
      write 'N/A' to w_disp_tab-zvan_no.
    endif.
  display different color for new doc number
    at end of vbeln.
      if w_color = c_col1.
        w_color = c_col2.
      elseif w_color = c_col2.
        w_color = c_col1.
      endif.
    endat.
    append w_disp_tab to t_disp_tab.
    clear w_disp_tab.
  endloop.
we have all the icons in display but need to check the overall status
as this refers to the line items
green and amber statuses already set and use the same criteria as the
goods issue status unless detected as red here
  data: ov_stat_red(1).
  clear w_disp_tab.
  sort t_disp_tab by vbeln.
  loop at t_disp_tab into w_disp_tab.
    at new vbeln.
    check all line items for delivery
      loop at t_data_tab where vbeln = w_disp_tab-vbeln.
        if t_data_tab-lvsta = c_a.
        set overall status to red
          ov_stat_red = c_yes.
          exit.
        else.
        leave green/amber status icon as previosly determined
        endif.
      endloop.
      if ov_stat_red = c_yes.
      set overall status to red for all items in that delivery
        clear ov_stat_red.
        move icon_red_light to w_disp_tab-ov_icon.
        modify t_disp_tab from w_disp_tab transporting ov_icon
                          where vbeln = w_disp_tab-vbeln.
      endif.
    endat.
  endloop.
endform.                    " select_icons
*&      Form  fill_layout
      fill ALV layout parameters
form fill_layout.
  clear g_layout.
  g_layout-colwidth_optimize = c_yes.   " column width optimisation
  g_layout-zebra = space.               " alternate line colors
  g_layout-box_fieldname = 'MARK'.      " checkbox fieldname
  g_layout-info_fieldname = 'COLOR'.    " highlight row indicator
  g_layout-no_vline = space.            " vertical line
  g_layout-key_hotspot = space.         " hotspot field
  g_layout-f2code = 'PICK'.             " F2 ok_code
  g_layout-numc_sum = c_yes.            " sum numc fields
  g_layout-box_tabname = 't_disp_head'. " checkbox table name
  g_layout-expand_fieldname = 'EXPAND'. " expand field name
endform.                    " fill_layout
*&      Form  fill_sort
      fill ALV sort table
form fill_sort.
  data: w_g_sort type slis_sortinfo_alv.
  w_g_sort-spos      = 1.
  w_g_sort-fieldname = 'LGTOR'.
  w_g_sort-tabname   = 't_disp_tab'.
  w_g_sort-up        = c_yes.
  append w_g_sort to g_sort.
  w_g_sort-spos      = 2.
  w_g_sort-fieldname = 'VBELN'.
  w_g_sort-tabname   = 't_disp_tab'.
  w_g_sort-up        = c_yes.
  append w_g_sort to g_sort.
  w_g_sort-spos      = 3.
  w_g_sort-fieldname = 'POSNR'.
  w_g_sort-tabname   = 't_disp_tab'.
  w_g_sort-up        = c_yes.
  append w_g_sort to g_sort.
  w_g_sort-spos      = 4.
  w_g_sort-fieldname = 'WADAT'.
  w_g_sort-tabname   = 't_disp_tab'.
  w_g_sort-up        = c_yes.
  append w_g_sort to g_sort.
endform.                    " fill_sort
*&      Form  fill_fieldcat
      Fill field category structure for ALV
form fill_fieldcat.
  clear t_fldcat.
create field catalogue for header table
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
       exporting
            i_program_name         = 'ZWMR_PICK_STATUS_REPORT'
            i_internal_tabname     = 't_disp_head'
            i_structure_name       = 'ZPICKHEAD'
            i_client_never_display = c_yes
       changing
            ct_fieldcat            = gt_fieldcat[].
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
ceate field catalogue for items table
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
       exporting
            i_program_name         = 'ZWMR_PICK_STATUS_REPORT'
            i_internal_tabname     = 't_disp_tab'
            i_structure_name       = 'ZPICKDISP'
            i_client_never_display = c_yes
       changing
            ct_fieldcat            = gt_fieldcat[].
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
modify field catalogue for this report
set no display flag if not requested on selection screen
  if p_exdata ne c_yes.
    t_fldcat-no_out    =  c_yes.
    modify gt_fieldcat from t_fldcat transporting no_out
                       where fieldname eq 'PACKVORSCHR'
                       or    fieldname eq 'EXIDV'
                       or    fieldname eq 'ZPALLET_NO'
                       or    fieldname eq 'ZVAN_NO'
                       or    fieldname eq 'ZZPACKCLASS'
                       or    fieldname eq 'ZZTI'.
  endif.
set no display flag for item level LGTOR field
  t_fldcat-no_out    =  c_yes.
  modify gt_fieldcat from t_fldcat transporting no_out
                     where fieldname eq 'LGTOR'
                     and   tabname   eq 't_disp_tab'.
prevent display of technical fields
  t_fldcat-tech = c_yes.
  modify gt_fieldcat from t_fldcat transporting tech
                     where fieldname eq 'EXPAND'
                     or    fieldname eq 'SELKZ'.
set vbeln as key
  t_fldcat-key = c_yes.
  modify gt_fieldcat from t_fldcat transporting key
                     where fieldname eq 'VBELN'.
prevent scrolling for info fields
  t_fldcat-fix_column = c_yes.
  modify gt_fieldcat from t_fldcat transporting fix_column
                     where fieldname eq 'VBELN'.
endform.                    " fill_fieldcat
*&      Form  prepare_ALV
      Fill ALV parameters
form prepare_alv.
fill ALV key info
  g_keyinfo-header01 = 'LGTOR'.
  g_keyinfo-item01   = 'LGTOR'.
fill ALV events
  gs_event-name = 'TOP_OF_PAGE'.
  gs_event-form = 'TOP_OF_PAGE'.
  append gs_event to gt_events.
fill ALV sort table
  perform fill_sort.
fill ALV layout structure
  perform fill_layout.
fill ALV field category
  perform fill_fieldcat.
endform.                    " prepare_ALV
*&      Form  user_command
      form called on user command from ALV list
form user_command using r_ucomm     like sy-ucomm
                        rs_selfield type slis_selfield.
  data: index type i,
        w_disp_head like line of t_disp_head,
        w_door like likp-lgtor.
  clear r_lgtor. refresh r_lgtor.
  case r_ucomm.
    when 'PICK'. " Double click line
    when 'VANM'. " Van Manifest button
    read the header table where has been selected
      loop at t_disp_head into w_disp_head where mark = c_yes.
        r_lgtor-sign   = 'I'.
        r_lgtor-option = 'EQ'.
        r_lgtor-low    = w_disp_head-lgtor.
        append r_lgtor.
      endloop.
    print the van manifest
      perform print_van_manifest tables r_lgtor.
    when 'EODM'. " EOD Manifest button
    read the header table where has been selected
      loop at t_disp_head into w_disp_head where mark = c_yes.
        r_lgtor-sign   = 'I'.
        r_lgtor-option = 'EQ'.
        r_lgtor-low    = w_disp_head-lgtor.
        append r_lgtor.
      endloop.
    print the end of day manifest
      perform print_eod_manifest tables r_lgtor.
    when 'REFR'. "Refresh
    refresh display
      w_sy_repid = sy-repid.
      call function 'RS_REFRESH_FROM_SELECTOPTIONS'
           exporting
                curr_report     = w_sy_repid
           tables
                selection_table = seltab.
          exceptions
              not_found       = 1
              no_report       = 2
              others          = 3.