Working With Enhanced Search Functionality

-
You may have already noticed below Screen the new behaviour in standard transaction such as FV60 and MIR7 while typing in the number of VENDOR.
As a developer, you can now enhance the functionality of a search help object (F4 Help) with the type-ahead function and Fuzzy Search by just selecting the appropriate settings in the relevant search helps in the ABAP dictionary (SE11).
In the above enhanced search list I added new column (Tax Number 3)i.e GST Number.
Below Steps need to Fallow.
STEP1: Create a View in SE11 Like Below.
STEP2: Create a Elementary Search help Like Below.
STEP3: Click F1 on vendor Field and go to technical Information.
STEP 4: Double Click on Search Help KRED. Below Screen will appear.and Double click on SRCH.HELP EXIT(KRED_F4IF_SHLP_EXIT).
STEP5: In Function Module KRED_F4IF_SHLP_EXIT. Create a Implicit Enahancement. and Write Below Logic.

IF sy-tcode eq 'MIRO' OR SY-TCODE EQ 'MIR7' OR SY-TCODE EQ 'MIR5' OR SY-TCODE EQ 'FB60' OR SY-TCODE EQ 'FV60'
   OR SY-TCODE EQ 'FBL1N' OR SY-TCODE EQ 'FB65' OR SY-TCODE EQ 'FBL1H' OR SY-TCODE EQ 'FK10N' OR SY-TCODE EQ 'ZFI24' OR SY-TCODE EQ 'ZFI26' OR SY-TCODE EQ 'ZFI32'
   OR SY-TCODE EQ 'FK10N' OR SY-TCODE EQ 'F-44' OR SY-TCODE EQ 'BP' OR SY-TCODE EQ 'BUP1' OR SY-TCODE EQ 'BUP2' OR SY-TCODE EQ 'BUP3'
   OR SY-TCODE EQ 'F-47'  OR SY-TCODE EQ 'F-48' OR SY-TCODE EQ 'F-54' OR SY-TCODE EQ 'F-53' OR SY-TCODE EQ 'FV65' OR SY-TCODE EQ 'J1INCHLN'
   OR SY-TCODE EQ 'J1INREV' OR SY-TCODE EQ 'J1INBANK' OR SY-TCODE EQ 'J1INEMIS' OR SY-TCODE EQ 'FIWTIN_QRETURNS' OR SY-TCODE EQ 'IDCNAP' OR SY-TCODE EQ 'F.44'
   OR SY-TCODE EQ 'S_ALR_87012082' OR SY-TCODE EQ 'S_ALR_87012093' OR SY-TCODE EQ 'S_ALR_87012078' OR SY-TCODE = 'FB1K' OR SY-TCODE = 'FBA6'
   OR SY-TCODE EQ 'FBA7' OR SY-TCODE EQ 'FBA8' OR SY-TCODE EQ 'SA39' OR SY-TCODE EQ 'START_REPORT'.
   READ TABLE shlp_tab WITH KEY SHLPNAME = 'ZZKREDA'.
   IF SY-SUBRC EQ 0.
     DELETE shlp_tab WHERE SHLPNAME = 'ZZKREDA'.
     INSERT shlp_tab INDEX 1.
   ENDIF.
 ENDIF.


Popular posts from this blog

Working with batch Classification Change Function Module

-
Here I want to change the batch classification details through FUNCTION MODULE. Function Module Name : VB_CHANGE_BATCH. Example Code: DATA : YMCHA          TYPE  MCHA ,      CHAR_OF_BATCH  TYPE  TABLE  OF  CLBATCH ,      WA_OF_BATCH    TYPE  CLBATCH ,      CHANGED_BATCH  TYPE  TABLE  OF  MCHA ,      ZIMSEG         TYPE  TABLE  OF  IMSEG ,       RETURN         TYPE  TABLE  OF  BAPIRET2 . SELECT  SINGLE  MATNR ,               WERKS ,               CHARG  FROM  MSEG                INTO  @DATA ( WA_MSEG )                WHERE  MBLNR  =  '2020024858' . "give any other material document                                         "number in MSEG table which contain Batch IF  WA_MSEG  IS  NOT  INITIAL .   YMCHA - MATNR  =  WA_MSEG - MATNR .           "here i am passing material   YMCHA - WERKS  =  WA_MSEG - WERKS .           "plant   YMCHA - CHARG  =  WA_MSEG - CHARG .           "batch    CLEAR  WA_MSEG .   WA_OF_BATCH - ATNAM  =  'FB' .            
Read more

ABAP CODE FOR FIBONACCI SERIES

-
Image
REPORT   ZFIBONACCI . DATA :       w_a  type  i  value  0 ,       w_b  type  i  value  1 ,       w_c  type  i . do  10  times .   w_c  =  w_a + w_b .   w_a  =  w_b .   w_b  =  w_c .    WRITE  w_c .    ENDDO .
Read more

WORKING WITH BOM EXPLOSION FUNCTION MODULE(CS_BOM_EXPL_MAT_V2)

-
Here You will get the BOM(Bill of Material) details using Function Module. Function Module Name :  CS_BOM_EXPL_MAT_V2 Example: CALL  FUNCTION  'CS_BOM_EXPL_MAT_V2'        EXPORTING         AUSKZ                  =  'X'         CAPID                  =  'PP01'         DATUV                  =   SY - DATUM    "DATE         EHNDL                  =  '1'         EMENG                  = IM _ YIELD     "Pass Quantity         MKTLS                  =  'X'         MMORY                  =  '1'         MTNRV                  =  IM_MATERIAL  "Pass Material         STPST                  =  0         SVWVO                  =  'X'         WERKS                  = IM _ PLANT     "Pass Plant         VRSVO                  =  'X'        TABLES         STB                    =  EX_STB         MATCAT                 =  EX_MATCAT        EXCEPTIONS         ALT_NOT_FOUND          =  1         CALL_INVALID          
Read more