Get Ficial year in sap abap

-
dear abapers we write code get ficial year and month name without using any funcation moudle
 may be this code help you

FUNCTION ZRK_FM.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(P_DATE) TYPE  DATS OPTIONAL
*"  EXPORTING
*"     VALUE(P_YEAR1) TYPE  ARKTX
*"     VALUE(P_YEAR2) TYPE  ARKTX
*"     VALUE(P_YEAR3) TYPE  ARKTX
*"     VALUE(F_YEAR) TYPE  PSTYV
*"----------------------------------------------------------------------
  DATA: d_month TYPE dats,
        d_month1(10) TYPE c,
        d_day(4) TYPE c,
        d_year(15) TYPE c,
        d_year1(15) TYPE c,
        d_year2(15) TYPE c,
        d_year3(15) TYPE c.

  d_month = p_date+4(2). " month name.
  d_day   = p_date+6(2). " day
  d_year  = p_date+0(4).
  IF d_month = '01' or d_month = '02' or d_month = '03'.
    f_year = p_date+0(4) - 1.
  ELSE.
    f_year = d_year.
  ENDIF.


  CASE d_month.
    WHEN '01' .
      d_month = 'JAN'.
    WHEN '02'.
      d_month = 'FEB'.
    WHEN '03' .
      d_month = 'MARCH'.
    WHEN '04'.
      d_month = 'APRIL'.
    WHEN '05' .
      d_month = 'MAY'.
    WHEN '06'.
      d_month = 'JUN'.
    WHEN '07' .
      d_month = 'JULY'.
    WHEN '08'.
      d_month = 'AUG'.
    WHEN '09' .
      d_month = 'SET'.
    WHEN '10'.
      d_month = 'OCT'.
    WHEN '11' .
      d_month = 'NUM'.
    WHEN '12'.
      d_month = 'DEC'.
    WHEN OTHERS.
  ENDCASE.
  IF d_day = '01' or  d_day = '02' or  d_day = '03' or  d_day = '04'
                  or  d_day = '05' or  d_day = '06' or  d_day = '07'
                  or  d_day = '08' or  d_day = '09'.
             d_day   = p_date+7(1). " day
             CONCATENATE d_day 'Th' INTO d_day.

 else.
  CONCATENATE d_day 'Th' INTO d_day.
  endif.

  CONCATENATE  d_day    d_month d_year INTO d_year1 SEPARATED BY space.
  CONCATENATE  d_day ',' d_month ',' d_year  INTO d_year2." separated by space.
  CONCATENATE  d_day '/' d_month '/' d_year INTO d_year3." separated by space.

  p_year1 = d_year1.
  p_year2 = d_year2.
  p_year3 = d_year3.
ENDFUNCTION.

Comments

Post a Comment

Popular posts from this blog

all user exit mv45afzz (implicit user exit )

-
MV45AFZZ this is included here all code put related to sales order creation while creating a sales order  va01 this exit trigger so as per your requirement we can write your code here I going to listed different type exit as per the real requirement you find the code and develop your business scenario INCLUDE MV45AFZZ . Modify Screen VA01/VA02/VA03 How to Activated and Deactivated Screen  Export Memory example While Creating a sales order  How to Call workflow While Creating a sales order  TYPES  :  BEGIN  OF  ty_vbak ,           KVGR1  TYPE  vbak - KVGR1 ,           KVGR2  TYPE  vbak - KVGR2 ,          END  OF  ty_vbak . DATA  :  ls_vbak  TYPE  ty_vbak . IF  sy - tcode  =  'VA02'  and...
Read more

Long Text in input and output field in module pool

-
Image
display long text in input and output field then below code help you how to display long text your input and output fields in sap ************************************************************************ * Program Name      :  ZLONG_TEXT_EDITOR           Object ID:   p002    * * Description       :  Long text with function module                   * * Create Date       :  26.12.2018                                      * * F...
Read more

MB_MIGO_BADI THIS BADI USED TO POSTING DATA IN MIGO

-
Here this badi used to how to work migo data migration and help to creating magi used to save  and validation of data  MB_DOCUMENT_UPDATE method  IF_EX_MB_MIGO_BADI ~ POST_DOCUMENT .    BREAK-POINT .    IF  is_mkpf - budat < is_mkpf - BLDAT .     sy - ucomm  =  'ENT1' .      MESSAGE  'Posting Date Should Not Be Less Than Document Date'   TYPE  'E'  .      SET SCREEN  syst - dynnr .      LEAVE SCREEN .    ENDIF . endmethod .
Read more