SAP ABAP

FORM  user_command  USING  r_ucomm  TYPE  sy - ucomm rs_selfield  TYPE  slis_selfield .    DATA  lv_vbeln  TYPE  vbeln .    IF  rs_selfield - sel_tab_field   =  'GT_FINAL-DELIVERY_NO' .      IF  rs_selfield - value  IS  NOT  INITIAL .        CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'          EXPORTING            input   =  rs_selfield - value          IMPORTING            output  =  lv_vbeln .        SET  PARAMETER  ID  'VL'  FIELD  lv_vbeln .        CALL  TRANSACTION  'VL03N'  WITH  AUTHORITY-CHECK  AND  SKIP  FIRST  SCREEN .      ENDIF . *  ELSEIF rs_selfield-sel_tab_field  = 'GT_FINAL-EXCISE_INV'.    ELSEIF  rs_selfield - sel_tab_field   =  'GT_FINAL-INV_NO' .      IF  rs_selfield - value  IS  NOT  INITIAL .        CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'          EXPORTING            input   =  rs_selfield - value          IMPORTING            output  =  lv_vbeln .        SET  PARAMETER  ID  &

   IF  p_fieldname  =  'REASONS' .     wa_fcat - f4availabl  =  'X' .    ENDIF .   PERFORM  dropdown_table  CHANGING  g_grid . FORM  dropdown_table  CHANGING  g_grid  TYPE  REF  TO  cl_gui_alv_grid .    DATA  : lt_dropdown  TYPE  lvc_t_drop  WITH  HEADER  LINE .    DATA :  gs_f4  TYPE  lvc_s_f4 ,         gt_f4  TYPE  lvc_t_f4 .    LOOP  AT  it_fcat  INTO  wa_fcat .      IF  wa_fcat - fieldname  =  'REASONS' .       wa_fcat - drdn_hndl  =  '1' .       wa_fcat - outputlen  =  20 .        MODIFY  it_fcat  FROM  wa_fcat .      ENDIF .    ENDLOOP . *CLEAR GT_F4. *  GS_F4-FIELDNAME  = 'REMARK'. *  GS_F4-REGISTER   = 'X'. *  GS_F4-GETBEFORE  = 'X'. *  GS_F4-CHNGEAFTER = 'X'. *  APPEND GS_F4 to GT_F4.    CALL  METHOD  g_grid -> register_f4_for_fields      EXPORTING       it_f4  =  gt_f4 .   lt_dropdown - handle  =  '1' .   lt_dropdown - value  =  'Loadability Issue' .    APPEND  lt

  SELECT  a ~ MATNR , a ~ WERKS , b ~ bmein , b ~ bmeng , c ~ idnrk , c ~ meins , c ~ menge                                       FROM  mast  as  a INNER  JOIN  stko  as  b  on  b ~ stlnr  =  a ~ stlnr      and  a ~ stlal  =  b ~ stlal INNER  JOIN  stpo  as  c  on  b ~ stlty  =  c ~ stlty  and  b ~ stlnr  =  c ~ stlnr  INTO  TABLE  @data ( gt_mast )                                        FOR  ALL  ENTRIES  IN  @gt_item                                       WHERE  a ~ matnr  eq  @gt_item - matnr                                       and    a ~ werks  eq  @gt_item - werks .