Example of lights in ALV LIST

Question

Can you please provide me with an example to use Traffic lights in ALV list display?
Thanks,
Amit

Answer 1

Hi,
Description : Pick Status Report                                    
This is an ALV report using the heirarchical ALV list display. The  
report selects all deliveries that fulfil the selection criteria    
and displays a summary of all items in that delivery with reference 
to certain statuses: overall status, goods issue status, transfer   
order status, load to pallet status, pallet count status, loaded to 
van status, van manifest printed status and end of day manifest     
printed status. These statuses have been defined by the business.   
There is extra functionality required to trigger printing of the van
and end of day manifests from this report, and to set the loading   
end status of a shipment if the last handling unit of a particular  
shipment has been loaded onto a van for which the van manifest has  
been triggered.                                                     
REPORT  zwmr_pick_status_report NO STANDARD PAGE HEADING
                                MESSAGE-ID zw.
Type Pools                                                          
TYPE-POOLS: icon, slis.
Tables                                                              
TABLES: tvst,
        likp,
        t30b,
        vekp,
*{   INSERT         UKMK900355                                        4
        zhu_to_link,                                        "AS03
*}   INSERT
        zpallettr,
        vttk,                                               "MB01
        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
     zdep_point  LIKE zpallettr-zdep_point,   "Departur Point "Jvdm01
     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
     tknum       LIKE vttk-tknum,             " Shipment No  "ANV 11523
     zeod_print  LIKE zvantr-zeod_print,      " eod manifest print
     zzpackclass LIKE vekp-zzpackclass,       " package class
     zzti        LIKE vekp-zzti,              " T.I. value
     vstel       LIKE likp-vstel,             "Shipping point RM050906
     anzpk       TYPE znopack,            "No of packages in dlv MB01+
  END OF ty_data.
TYPES:BEGIN OF x_likp ,
      vbeln LIKE likp-vbeln,
      vstel LIKE likp-vstel,                                "RM050906
      lgtor LIKE likp-lgtor,
      zzroute2lgtor LIKE likp-zzroute2lgtor,                "MB01
      route LIKE likp-route,
      wadat LIKE likp-wadat,
      zz2route LIKE likp-zz2route,                          "MB01+
      zzexproute LIKE likp-zzexproute,                      "MB01+
      zzroute2 LIKE likp-zzroute2,                          "MB01+
      anzpk    LIKE likp-anzpk,
      END OF x_likp.
TYPES: BEGIN OF x_vbuk,
       vbeln TYPE vbuk-vbeln,
       wbstk TYPE vbuk-wbstk,             " Goods movement status
       kostk TYPE vbuk-kostk,             " Picking status
       END OF x_vbuk.
TYPES: BEGIN OF x_lips,
      vbeln TYPE lips-vbeln,             " delivery
      posnr TYPE lips-posnr,             " item
      pstyv TYPE lips-pstyv,
      matnr TYPE lips-matnr,
      charg TYPE lips-charg,
      END OF x_lips.
TYPES: BEGIN OF x_vbup,
       vbeln TYPE vbup-vbeln,             " delivery
       posnr TYPE vbup-posnr,             " item
       lvsta TYPE vbup-lvsta,             " warehouse status
       END OF x_vbup.
TYPES: BEGIN OF x_vepo,
       venum TYPE vepo-venum,             "Internal Handling Unit
Number
       vepos TYPE vepo-vepos,             "Handling Unit Item
       vbeln TYPE vepo-vbeln,             " delivery
       posnr TYPE vepo-posnr,             " item
       exidv TYPE vekp-exidv,
       END OF x_vepo.
TYPES: BEGIN OF x_vepo1,
       venum TYPE vekp-venum,             "Internal Handling Unit
Number
       exidv TYPE vekp-exidv,
       END OF x_vepo1.
Start of changes by ANV SR#11523
TYPES: BEGIN OF x_vttp,
         tknum TYPE tknum,                  " Shipment No
         tpnum TYPE tpnum,                  " Item No
         vbeln TYPE vbup-vbeln,             " delivery
         laufk LIKE vttk-laufk,             " leg indicator MB01+
       END OF x_vttp.
End of changes by ANV SR#11523
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,
      it_likp TYPE x_likp OCCURS 0 WITH HEADER LINE,         "SUM
      it_vbuk TYPE x_vbuk OCCURS 0 WITH HEADER LINE,         "SUM
      it_lips TYPE x_lips OCCURS 0 WITH HEADER LINE,         "SUM
      it_vbup TYPE x_vbup OCCURS 0 WITH HEADER LINE,         "SUM
      it_vepo TYPE x_vepo OCCURS 0 WITH HEADER LINE,         "SUM
      it_vepo2 TYPE x_vepo OCCURS 0 WITH HEADER LINE,        "SUM
*{   INSERT         UKMK900355                                        3
      t_vepo_low TYPE x_vepo OCCURS 0 WITH HEADER LINE,     " AS01
*}   INSERT
      it_vepo1 TYPE x_vepo1 OCCURS 0 WITH HEADER LINE,       "SUM
      it_vttp TYPE x_vttp OCCURS 0 WITH HEADER LINE, "ANV SR#11523
t_disp_head TYPE STANDARD TABLE OF zpickhead.
DATA wa_item_tab TYPE zpickdisp OCCURS 0 WITH HEADER LINE.
"ANV SR#11113
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,
      w_vepo     TYPE x_vepo1,
      w_vbup     TYPE x_vbup,
      w_vttp     TYPE x_vttp,    " ANV SR#11523
      w_lips     TYPE x_lips,
      w_vbuk     TYPE x_vbuk,
      w_likp     TYPE x_likp,                               "MB01-+
      w_tplst    LIKE vttk-tplst.                           "MB01+
DATA: s_variant  LIKE disvariant,                           "MB01+
      def_variant LIKE disvariant.
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            "MB01-+
  s_lfdat FOR likp-lfdat.            " Delivery date
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.
SELECT-OPTIONS:
  s_deppnt FOR zpallettr-zdep_point,                        "Jvdm01
  s_tplst  FOR vttk-tplst.                                  "MB01
SELECTION-SCREEN END OF BLOCK b.
MB01 - START - Display variant
SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE text-019.
PARAMETERS: p_vari LIKE disvariant-variant.
SELECTION-SCREEN END OF BLOCK c.
MB01 - END
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.
MB01 - START - display variant
F4-Help for variant
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
  PERFORM f4_for_variant.
MB01 - END
At Selection Screen                                                 
AT SELECTION-SCREEN.
  PERFORM validate_selections.
Initialization                                                      
INITIALIZATION.
MB01 - START INSERT
1.  Transportation planning point
Import transportation planning point from user parameters and
populate
select option.
  GET PARAMETER ID 'TDP' FIELD w_tplst.
  MOVE: 'I'      TO s_tplst-sign,
         'EQ'     TO s_tplst-option,
         w_tplst TO s_tplst-low.
  APPEND s_tplst.
2.  Display variant
  CLEAR s_variant.
  s_variant-report = sy-repid.
Get default variant
s_def_variante = s_variant.
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            i_save     = 'A'
       CHANGING
            cs_variant = s_variant
       EXCEPTIONS
            not_found  = 2.
  IF sy-subrc = 0.
    p_vari = s_variant-variant.
  ENDIF.
MB01 - END INSERT
Start of selection                                                  
START-OF-SELECTION.
clear all data tables
  CLEAR: t_likp,
        it_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,
          it_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
  OR NOT s_deppnt IS INITIAL.                               "Jvdm01
  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
            i_save                   = 'X'                  "MB01+
            is_variant               = s_variant
            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_o01.
  INCLUDE zwmr_pick_status_reporto01 .
INCLUDE zwmr_pick_i01.
  INCLUDE zwmr_pick_status_reporti01 .
INCLUDE zwmr_pick_f01.
  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
Start SU01 optmization changes
SELECT vbeln vstel lgtor route wadat                      "RM050906
  SELECT vbeln vstel lgtor route wadat
         zzroute2lgtor zz2route zzexproute zzroute2 anzpk      "MB01-+
           FROM likp INTO CORRESPONDING FIELDS OF TABLE it_likp"MB01-+
                     WHERE vbeln IN s_vbeln
                     AND   vstel IN p_vstel
                     AND   lfart IN s_lfart
                     AND   wadat IN s_wadat
                     AND   lfdat IN s_lfdat                    "MB01+
                     AND
             ( lgtor IN s_lgtor OR zzroute2lgtor IN s_lgtor ) ."MB01+
  IF sy-subrc NE 0.
  no data found
    MESSAGE i007.
    EXIT.
  ENDIF.
IF NOT t_likp[] IS INITIAL.                             "SUM
  IF NOT it_likp[] IS INITIAL.
    SORT it_likp BY vbeln.                                  "SUM
  select sales document headers from VBUK
    SELECT vbeln wbstk kostk
                FROM vbuk INTO TABLE it_vbuk
                 FOR ALL ENTRIES IN it_likp                "SUM
                 WHERE vbeln EQ it_likp-vbeln.             "SUM
    SORT it_vbuk BY vbeln.
  select all relevant delivery items from LIPS
    SELECT vbeln posnr pstyv matnr charg
                FROM lips INTO TABLE it_lips
                  FOR ALL ENTRIES IN it_likp
                  WHERE vbeln EQ it_likp-vbeln
                  AND   pckpf NE 'B'           "cannot be packed  "AS05
                AND   pstyv NE 'ZPAC'                           "AS05
                AND   pstyv NE 'ZGDP'                    "TR02+ "AS05
                  AND   lfimg GT 0.                         "TR01+
  ENDIF.
  IF NOT it_lips[] IS INITIAL.
  select all sales document line items from VBUP
    SORT it_lips BY vbeln posnr.                      "SUM
    SELECT vbeln posnr lvsta
                FROM vbup INTO TABLE it_vbup
                  FOR ALL ENTRIES IN it_lips
                  WHERE vbeln EQ it_lips-vbeln
                  AND   posnr = it_lips-posnr.
    SORT it_vbup BY vbeln 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 vepoVENUM vepoVEPOS vepovbeln vepoposnr
                 FROM vepo as vepo
                 INNER JOIN vekp as vekp ON vepovenum = vekpvenum
                 APPENDING corresponding fields of table it_vepo
                 FOR ALL ENTRIES IN it_lips
                 WHERE vepo~vbeln = it_lips-vbeln
                 AND   vepo~posnr = it_lips-posnr
                 AND   vepo~matnr = it_lips-matnr
                 AND   vepo~charg = it_lips-charg
                 AND   vekp~exidv IN s_exidv.
    SELECT venum vepos vbeln posnr
                  FROM vepo INTO TABLE it_vepo2
                  FOR ALL ENTRIES IN it_lips
                  WHERE vbeln = it_lips-vbeln
                  AND   posnr = it_lips-posnr
                  AND   matnr = it_lips-matnr
                  AND   charg = it_lips-charg.
    SORT it_vepo2 BY venum vepos.
*{   INSERT         UKMK900355                                        1
  Ice-multis: replace lower-level HUs with highest level       " AS01
    PERFORM replace_highest_hu.                             " AS01
*}   INSERT
Start of changes by ANV SR#11523
MB01 - extract shipment header as well to populate leg indicator
Therefore, join vttp with vttk
Limit as well by transportation planning point
    SELECT vttptknum vttptpnum vttpvbeln vttklaufk
                  FROM vttp INNER JOIN vttk
                  ON vttptknum = vttktknum
                  INTO  TABLE it_vttp
                  FOR ALL ENTRIES IN it_lips
                  WHERE vttp~vbeln = it_lips-vbeln
                  AND   vttk~tplst IN s_tplst.
MB01 - END
End of changes by ANV SR#11523
    IF NOT it_vepo2[] IS INITIAL.
      SELECT venum exidv
                    FROM vekp INTO TABLE it_vepo1
                    FOR ALL ENTRIES IN it_vepo2
                    WHERE venum = it_vepo2-venum
                    AND   exidv IN s_exidv.
    ENDIF.
    SORT it_vepo1 BY venum.
    CLEAR: w_vepo, it_vepo.
    LOOP AT it_vepo1.
      READ TABLE it_vepo2 WITH KEY venum = it_vepo1-venum.
      IF sy-subrc = 0.
        it_vepo2-exidv = it_vepo1-exidv.
        MODIFY it_vepo2 TRANSPORTING exidv
           WHERE venum = it_vepo1-venum .
      ENDIF.
    ENDLOOP.
    DELETE it_vepo2 WHERE exidv IS initial.
    it_vepo[] = it_vepo2[].
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.
      SORT t_vantr BY zvan_id zvan_no vstel zpallet_no.  "SUM
      SELECT * FROM zpallettr INTO TABLE t_pallettr
                              FOR ALL ENTRIES IN t_vantr
                              WHERE zpallet_no EQ t_vantr-zpallet_no
                                AND zdep_point IN s_deppnt. "Jvdm01
                            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 zdep_point IN s_deppnt.   "Jvdm01
                          and   vstel      eq p_vstel."TR01-
  ENDIF.
  IF NOT t_pallettr[] IS INITIAL.
  from the pallet nos. we can select the handling units
    SORT t_pallettr BY zpallet_id zpallet_no vstel exidv.   "SUM
    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.
  SORT t_vekp BY venum.                                    "SUM
  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.
MB01- START
   SELECT vbeln lgtor route wadat
                FROM likp INTO TABLE it_likp
                    WHERE vbeln IN r_del
                    AND   wadat IN s_wadat
                    AND   lfart IN s_lfart.
    SELECT vbeln vstel lgtor route wadat
           zzroute2lgtor zz2route zzexproute zzroute2 anzpk "MB01-+
             FROM likp INTO CORRESPONDING FIELDS OF TABLE it_likp
                       WHERE vbeln IN r_del
                       AND   lfart IN s_lfart
                       AND   wadat IN s_wadat               "MB01-+
                       AND   lfdat IN s_lfdat.              "MB01+
MB01- END
  ENDIF.
  IF NOT it_likp[] IS INITIAL.
    SORT it_likp BY vbeln .                                   "SUM
  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 vbeln wbstk kostk
              FROM vbuk INTO TABLE it_vbuk
                 FOR ALL ENTRIES IN it_likp
                 WHERE vbeln EQ it_likp-vbeln.
    SORT it_vbuk BY vbeln.                                   "SUM
  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+
    SELECT vbeln posnr pstyv matnr charg
                      FROM lips INTO TABLE it_lips
                      FOR ALL ENTRIES IN it_likp
                      WHERE vbeln EQ it_likp-vbeln
                      AND   pckpf NE 'B'       "cannot be packed  "AS05
                    AND   pstyv NE 'ZPAC'                       "AS05
                    AND   pstyv NE 'ZGDP'                "TR02+ "AS05
                      AND   lfimg GT 0.                     "TR01+
  ENDIF.
  IF NOT it_lips[] IS INITIAL.
    SORT it_lips BY vbeln posnr.                              "SUM
  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.
Start of changes by ANV SR#11523
MB01 - START
join vttp with vttk to obtain leg indicator
   SELECT tknum tpnum vbeln
                 FROM vttp INTO TABLE it_vttp
                 FOR ALL ENTRIES IN it_lips
                 WHERE vbeln = it_lips-vbeln.
    SELECT vttptknum vttptpnum vttpvbeln vttklaufk
                  FROM vttp INNER JOIN vttk
                  ON vttptknum = vttktknum
                  INTO  TABLE it_vttp
                  FOR ALL ENTRIES IN it_lips
                  WHERE vttp~vbeln = it_lips-vbeln
                  AND   vttk~tplst IN s_tplst.
MB01 - END
End of changes by ANV SR#11523
    SELECT vbeln posnr lvsta
                FROM vbup INTO TABLE it_vbup
                FOR ALL ENTRIES IN it_lips
                  WHERE vbeln EQ it_lips-vbeln
                  AND   posnr = it_lips-posnr.
    SORT t_vbup BY vbeln posnr.                                "SUM
  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.
    SELECT venum vepos vbeln posnr
    FROM vepo APPENDING CORRESPONDING FIELDS OF TABLE it_vepo
                     FOR ALL ENTRIES IN it_lips
                     WHERE vbeln = it_lips-vbeln
                     AND   posnr = it_lips-posnr
                     AND   matnr = it_lips-matnr
                     AND   charg = it_lips-charg.
*{   INSERT         UKMK900355                                        1
    it_vepo2[] = it_vepo[].                                 " DS01
    PERFORM replace_highest_hu.                             " DS01
    it_vepo[] = it_vepo2[].                                 " DS01
*}   INSERT
  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 it_vepo.
    CLEAR t_data_tab.
  delivery lines.
    CLEAR w_lips.
    READ TABLE it_lips WITH KEY vbeln = it_vepo-vbeln
                               posnr = it_vepo-posnr
                               INTO w_lips BINARY SEARCH.     "SUM
    MOVE-CORRESPONDING w_lips TO t_data_tab.
  sales document line items
    CLEAR w_vbup.
    READ TABLE it_vbup WITH KEY vbeln = it_vepo-vbeln
                               posnr = it_vepo-posnr
                               INTO w_vbup BINARY SEARCH.     "SUM
  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 it_vbuk WITH KEY vbeln = it_vepo-vbeln
                           INTO w_vbuk   BINARY SEARCH.       "SUM
    MOVE-CORRESPONDING w_vbuk TO t_data_tab.
  delivery header
    CLEAR w_likp.
    READ TABLE it_likp WITH KEY vbeln = it_vepo-vbeln
                           INTO w_likp BINARY SEARCH.         "SUM
    MOVE-CORRESPONDING w_likp TO t_data_tab.
MB01 - START
  DATA: w_routetype TYPE i. "0=non-global,1=1st route,2=2nd
route,3=both
At this point move DOOR2 if it falls within the global route scenario
and the door2 is satisfies the selection criteria for door
1.   Does delivery fall within global route scenario
    CLEAR w_routetype.
    IF  w_likp-zz2route = 'Y' .
1.a. First route - does door1 satisfy the selection criteria
      IF w_likp-lgtor IN s_lgtor.
        w_routetype = 1.
        MOVE w_likp-zzexproute TO t_data_tab-route.
1.b. Second route - does door2 satisfy the selection criteria
      ELSEIF w_likp-zzroute2lgtor IN s_lgtor.
  here we need to move door2 to lgtor
        w_routetype = 2.
        MOVE w_likp-zzroute2lgtor TO t_data_tab-lgtor.
        MOVE w_likp-zzroute2 TO t_data_tab-route.
      ENDIF.
If both routes satsify the criteria, append for 2nd leg  ***REVISIT!
      IF w_likp-lgtor IN s_lgtor AND w_likp-zzroute2lgtor IN s_lgtor.
        w_routetype = 3.
      ENDIF.
    ENDIF.
MB01 - END
Start of changes by ANV SR#11523
MB01 - If the delivery falls within the global route scenario... need
to select either preliminary shipment leg OR subsequent leg
when laufk= 1 (prelim) and linked to route1, if laufk = 2 (subseq) &
linked to route2
  Shipment Number
    SORT it_vttp BY vbeln laufk.
    CLEAR w_vttp.
    CASE w_routetype.
      WHEN 0.
        READ TABLE it_vttp WITH KEY vbeln = it_vepo-vbeln
                               INTO w_vttp BINARY SEARCH.
      WHEN 1.
        READ TABLE it_vttp WITH KEY vbeln = it_vepo-vbeln
                                    laufk  = '1'
                               INTO w_vttp BINARY SEARCH.
      WHEN 2.
        READ TABLE it_vttp WITH KEY vbeln = it_vepo-vbeln
                                    laufk  = '3'
                               INTO w_vttp BINARY SEARCH.
      WHEN 3.  "REVISIT
    ENDCASE.
    MOVE w_vttp-tknum TO t_data_tab-tknum.
MB01 - END
End of changes by ANV SR#11523
  select handling unit info using vepo entry
    CLEAR w_vekp.
    IF t_vekp[] IS INITIAL.
      SELECT SINGLE * FROM vekp INTO w_vekp
                                WHERE venum = it_vepo-venum.
    ELSE.
      READ TABLE t_vekp WITH KEY venum = it_vepo-venum
                                 INTO w_vekp  BINARY SEARCH.     "SUM
      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.
*{   INSERT         UKMK900355                                        2
  WM status for HU                                              "AS03
    SELECT SINGLE * FROM zhu_to_link WHERE lgnum EQ w_vekp-lgnum"AS03
                                     AND   exidv EQ w_vekp-exidv."AS03
    IF  sy-subrc EQ 0.                                      "AS03
      IF zhu_to_link-zpick_comp EQ space.                   "AS03
        t_data_tab-lvsta = 'B'.                             "AS03