Providing multiple selection options in Search help

By Virendra Soni, Zaffera Softwares

This document specifies how to include multiple select options for the given fields in the search help. For example below we can see that for material we have single selection possible.  

 

So to convert it in the select option we need to follow certain steps.

We need to create a “Search Help Exit” in search help. Search help exit is a function module with the same interface like “F4IF_SHLP_EXIT_EXAMPLE”.  

 

Double click in the search help exit name and paste the following code lines:  

DATA:type_info LIKE dfies.

  callcontrol-no_maxdisp = 
'X'.

  
IF callcontrol-step EQ 'SELECT'.
    callcontrol-step = 
'DISP'.
  ENDIF.

  CHECK: callcontrol-step 
EQ 'DISP'.

  
CALL FUNCTION 'TABCONTROL_VISIBLE'
    
EXPORTING
      visible = 
'F'
      tab_id  = 
1.

  
SUBMIT zmat_search VIA SELECTION-SCREEN AND RETURN.
  
IMPORT record_tab TO record_tab  FROM MEMORY ID 'REC1'.

  
READ TABLE shlp-fielddescr INDEX INTO type_info.
  type_info-leng = 
18.
  
CLEAR type_info-offset .
  
MODIFY shlp-fielddescr INDEX FROM type_info
                         
TRANSPORTING leng offset.

  callcontrol-step = 
'RETURN'.  

Create a executable program and paste code lines like this:  

REPORT  zmat_search.

TABLES: mara,makt.
TYPE-POOLS: slis.
DATA:   gs_fcat   
TYPE  slis_fieldcat_alv  ,
        gt_fcat   
TYPE STANDARD TABLE OF slis_fieldcat_alv   ,
        gs_layout 
TYPE slis_layout_alv   .

DATA: record_tab 
TYPE STANDARD TABLE OF seahlpres,
      gs_record  
TYPE seahlpres.

DATA:BEGIN 
OF gs_output,
       matnr 
TYPE matnr,
       brand_id 
TYPE mara-brand_id,
       saiso 
TYPE mara-saiso,
       saisj 
TYPE mara-saisj,
       saity 
TYPE mara-saity,
       maktx 
TYPE makt-maktx,
       chk 
TYPE c,
      
END OF gs_output,
      gt_output 
LIKE STANDARD TABLE OF gs_output.

SELECT-OPTIONS:matkl 
FOR mara-matkl matchcode object wwg1,
               brand  
FOR mara-brand_id,
               saiso  
FOR mara-saiso NO INTERVALS NO-EXTENSION,
               saisj  
FOR mara-saisj NO INTERVALS NO-EXTENSION,
               saity  
FOR mara-saity NO INTERVALS NO-EXTENSION.

START-OF-SELECTION.

  
SELECT mara~matnr
         mara~matkl
         mara~brand_id
         mara~saiso
         mara~saisj
         mara~saity
         makt~maktx
     
FROM mara INNER JOIN makt ON mara~matnr = makt~matnr AND makt~spras EQ sy-langu
    
INTO CORRESPONDING FIELDS OF TABLE gt_output
    
WHERE mara~matkl        IN matkl            AND
          mara~brand_id     
IN brand            AND
          mara~saiso        
IN saiso            AND
          mara~saisj        
IN saisj            AND
          mara~saity        
IN saity .

  
PERFORM build_fcat USING :   'MATNR'   'Article'   'X' ,
                               
'BRAND_ID'   'Brand Id' '' ,
                               
'SAISO'   'Season Category' ''       ,
                               
'SAISJ'   'Season Year'    ''    ,
                               
'SAITY'   'Rollout'      ''  ,
                               
'MAKTX'   'Description'  ''    .

  gs_layout-box_fieldname = 
'CHK'.
  gs_layout-colwidth_optimize = 
'X'.

 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    
EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 
'PF_STATUS_ALV'
      i_callback_user_command  = 
'USER_COMMAND_ALV'
      is_layout                = gs_layout
      it_fieldcat              = gt_fcat
    
TABLES
      t_outtab                 = gt_output
    
EXCEPTIONS
      program_error            = 
1
      
OTHERS                   2.
  
IF sy-subrc <> 0.
    
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

*&---------------------------------------------------------------------*
*&      Form  build_fcat
*&-------------------------------------------------------------------FORM build_fcat  USING    us_fieldname TYPE c
                          us_seltext_m 
TYPE c
                          us_key       
TYPE c.

  gs_fcat-fieldname = us_fieldname .
  gs_fcat-seltext_l = us_seltext_m .
  gs_fcat-key       = us_key       .
  
APPEND gs_fcat TO gt_fcat        .
  
CLEAR gs_fcat .

ENDFORM.                    
" build_fcat

*&---------------------------------------------------------------------*
*&      Form  pf_status_alv
*&-------------------------------------------------------------------

FORM pf_status_alv USING rt_extab  TYPE slis_t_extab.
  
SET PF-STATUS 'YSTANDARD' EXCLUDING rt_extab.
ENDFORM.                    
"pf_status_alv

*&---------------------------------------------------------------------*
*&      Form  user_command_alv
*&-------------------------------------------------------------------
FORM user_command_alv USING r_ucomm LIKE sy-ucomm
        rs_selfield 
TYPE slis_selfield.
  
CASE r_ucomm.
    
WHEN 'EXC'.


      
LOOP AT gt_output INTO gs_output WHERE chk EQ 'X'.

        
WRITE gs_output-matnr
                      
TO gs_record-string(18).

        
APPEND gs_record TO record_tab.

      ENDLOOP.

      
EXPORT record_tab TO MEMORY ID 'REC1'.

      
LEAVE PROGRAM.

    
WHEN '&IC1'.

      
READ TABLE gt_output INTO gs_output INDEX rs_selfield-tabindex.
      
IF sy-subrc EQ 0.

        
WRITE gs_output-matnr
                      
TO gs_record-string(18).

        
APPEND gs_record TO record_tab.

        
EXPORT record_tab TO MEMORY ID 'REC1'.

        
LEAVE PROGRAM.

      ENDIF.

    
WHEN '&FB03'.

      
SET SCREEN .
      
LEAVE SCREEN.

  ENDCASE.

ENDFORM.                    
"user_command_alv

Continued...

Please send us your feedback/suggestions at webmaster@SAPTechnical.COM 

HomeContribute About Us Privacy Terms Of Use • Disclaimer • SafeCompanies: Advertise on SAPTechnical.COM | Post JobContact Us  

Graphic Design by Round the Bend Wizards

footer image footer image