Function Module (Custom) to get Fiscal Week from Date



FUNCTION zemfi_date_to_fiscal_week.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_DATE) TYPE  DATUM
*"     REFERENCE(I_PERIV) TYPE  PERIV
*"  EXPORTING
*"     REFERENCE(E_WEEK) TYPE  SCAL-WEEK
*"     REFERENCE(E_GJAHR) TYPE  GJAHR
*"----------------------------------------------------------------------


  DATA: l_first_day_of_year LIKE sy-datum,
        l_weeks(5)          TYPE p,
        l_week01            TYPE d,  "First Day of Week/First Day of Period
        l_run_date          TYPE d.  "Run Date in type D format


* Convert Date to Period

  CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
    EXPORTING
      i_date               = i_date
*   I_MONMIT             = 00
      i_periv              = i_periv
   IMPORTING
*   E_BUPER              =
     e_gjahr              = e_gjahr
   EXCEPTIONS
     input_false          = 1
     t009_notfound        = 2
     t009b_notfound       = 3
     OTHERS               = 4
            .

  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

* Get First day of the Fiscal Year

  CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET'
    EXPORTING
      i_gjahr              = e_gjahr
*   I_MONMIT             = 00
      i_periv              = i_periv
      i_poper              = '001'
   IMPORTING
     e_date               = l_first_day_of_year
   EXCEPTIONS
     input_false          = 1
     t009_notfound        = 2
     t009b_notfound       = 3
     OTHERS               = 4
            .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

    l_week01   = l_first_day_of_year.
    l_run_date = i_date.

    l_weeks = ( ( l_run_date - l_week01 ) DIV 7 ) + 1.
    e_week  = l_weeks.


ENDFUNCTION.


Comments

  1. AnonymousMarch 15, 2016 at 8:27 PM

    Thank you for your codes. Saved my project!

    ReplyDelete

Post a Comment

Popular posts from this blog

ABAP Tips - 1 : How to Display a Popup and Get Values from User ?

Image
How to Display a Popup and Get Values from User ? Function Module POPUP_GET_VALUES can be used to display a popup to get inputs from user. The speciality of this function module is we can add as many number of fields as we want. The fields can be of any data type. REPORT ztest9910. DATA : t_fields LIKE sval OCCURS 0 WITH HEADER LINE . START- OF -SELECTION. *--- Prepare Parameters for FM -------------* t_fields-tabname = ’BKPF’ . t_fields-fieldname = ’BUDAT’ . APPEND t_fields. t_fields-tabname = ’BKPF’ . t_fields-fieldname = ’BLART’ . APPEND t_fields. *---- Function Module Call -----------------* CALL FUNCTION ’ POPUP_GET_VALUES’ EXPORTING *  NO_VALUE_CHECK = ’ ’    popup_title = ’Test Popup’ *  START_COLUMN = ’5’ *  START_ROW = ’5’ *  IMPORTING *  RETURNCODE = TABLES    fields = t_fields EXCEPTIONS    error_in_fields = 1    OTHERS = 2 . IF sy-subrc <>  0 . * MESSA
Read more

Help on BAPI_ACC_DOCUMENT_POST and BAPI_ACC_DOCUMENT_POST

Here our requirement is to Post New Invoice Document (with new document type- to get different number range) with all the other information (Vendor / GL / PO amount etc) from an existing parked invoice document. Park Document includes both categories of invoice document (PO invoice and Non-PO invoice). Though requirement is a bit specific this program will help you to get an idea of the parameters need to be fed to the above mentioned BAPIs. BAPI_ACC_DOCUMENT_POST : For Non-PO invoice BAPI_INCOMINGINVOICE_CREATE : For PO Invoice (The same BAPI can be used for Parking only) *&---------------------------------------------------------------------* *& Report name          : ZFIAPCC0001_POST_DOCUMENT *& Program name         : ZFIAPCC0001_POST_DOCUMENT *& Coded by             : Achirangshu De) *& Date                 : February 2009 *& Purpose              : Post new FI document with new Document Type *&                        from a previously Parked document *
Read more

Few Tips for Transport Request Manipulation

Image
DON’T USE THESE UNLESS ABSOLUTELY NEEDED. The purpose of transport request is to organize and move development objects from one server (say development) to other server. But sometime due to conflict in timing of different releases, we may need to move objects from one transport to other transport to release lock / dependency / to avoid transport failure due to missing object. It’s not very easy task always, especially if the Transports are complex and contain multiple components. Things get more difficult if objects are locked in one transport or the transport is partially released (few tasks are released and locked object is inside that task). These off hand tips will help developer to manipulate transport request if complex situation arises. These methods are not very advisable as this may lead to transport inconsistency if not done properly or with proper understanding of the consequences. How to toggle the status of a Transport request? Here is a transport request where o
Read more