SAP TECHCODE

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' ...

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 ...

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   ...

Step1:         Added Append Structure in STKO with name (ZSTKO). Step2:       Created Project in CMOD Transaction With Enhancement name-PCSD0003 Step3: Double Click on screen exit number 1100. go to Layout and add fields like below. . Step4: add logic in STEP5: For CS03 Display Mode.Go to Flow Logic in Screen Number. STEP6 : Double Click on STATUS_1100 and write the given Logic in the Include:ZXCSAO01               Given Below Screen Shot.

Step-1 : Go to SE38 and give Programme name - LMIGODO2. Step-2 : Create Implicit Enhancement Step-3 : Write Logic given Below Step-4 : if you want to do Quantity Tab Qty in unit of entry field also become non-Editable mode.               Do the Fallowing Steps. Step-5 : Go to se38 give include Name : LMIGOKL1 Step-6 : Create a Implicit Enhancement Write Logic given Below Step-7 : Test it.

REPORT   ZPALINDROME . DATA :       num  TYPE  i  value  121 ,       rev  TYPE  i  value  0 ,       numcopy  TYPE  i  value  0 ,       digit  TYPE  i .       numcopy  =  num . WHILE  numcopy >  0 .   digit  =  numcopy  mod  10 .   numcopy  =  numcopy /  10 .   rev  =  rev *  10  + digit .    ENDWHILE .    if  num  =  rev .      WRITE  'num is palindrome' .      else .      WRITE  ' num is not a palindrome' .      ENDIF .

REPORT   ZPATTERN3 . DATA :        I  TYPE  i ,       j  TYPE  i ,       k  TYPE  i ,       l  TYPE  i .        i  =  1 . do  5  times .    do  i  times .      WRITE  at  j ( 1 )  sy - index .     j  =  j +  1 .      ENDDO .      WRITE  / .      i  =  i  +  1 .     j  =  1 .      ENDDO .      i  =  4 .     j  =  5 .     l  =  5 .      do  4  times .        do  i ...

REPORT   ZPATTERN2 . DATA :       POS  TYPE  I  VALUE  4 ,       J  TYPE  I  VALUE  4 .        do  4  times . do  j  TIMES .    WRITE  at  pos ( 1 )  sy - index .   pos  =  pos  -  1 .    ENDDO .   pos  =  4 .   j  =  j  -  1 .    WRITE  / .    enddo .

REPORT   ZPATTERN1 . DATA :       POS  TYPE  I  VALUE  4 ,       J  TYPE  I  VALUE  1 ,        i  TYPE  i .        do  4  times . do  j  TIMES .    WRITE  at  pos ( 1 )  sy - index .   pos  =  pos  -  1 .    ENDDO .   pos  =  4 .   j  =  j +  1 .    WRITE  / .    enddo .

REPORT   ZMTABLE . DATA :       W_A  TYpe  i  value  2 ,       w_b  TYPE  i ,       w_c  TYPE  i . do  10  times .   w_b  =  w_b +  1 .   w_c  =  w_a * w_b .    WRITE  : / w_A ,  '*' ,  w_b ,  '=' ,  w_c .    ENDDO .

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 .

REPORT   ZNUMBERPATTERN . do  10  times . do  sy - index  times .    write  sy - index .    ENDDO .    WRITE  / .    enddo .

REPORT   ZPREVIOUS . DATA  :  date  TYPE  sy - datum . date  =  sy - datum .  "Today date+6 ( 2 )  =  '01' .  "First day of this month date  =  date  -  1 .  "Previous day before first day of this month = last day of last month WRITE :  date .