Extracting factory calendar data to a DSO in #SAP #BW

[MGrob]

Introduction

In order to work with factory calendar information it is sometimes helpful if the information would be stored in a datastore object for each day factory calendar and company code if it is a working day or not. The information is extracted after the "factory calendar" have been replicated via "Transfer global settings"

Howto extract the factory calendar information

To achieve this two function modules are needed FISCPER_FROM_CALMONTH_CALC and DATE_CONVERT_TO_FACTORYDATE.

The target DSO contains those key fields / data fields. The data fields aside from the working days keyfigure are optional but might be useful aggregated views are of intrest.



The dataflow in this example forsees to load the required company code / factory calendar assignments from the enhanced masterdata object 0COMP_CODE. This can also be altered to suit e.g. 0PLANT and those factory calendar informations.



The attached expert routine determines for each company code and factory calendar ID if the individual calendarday is a working day or not. The information is stored in the DSO.

Result

Each day is either 0 (no working day) or 1 (working day).

Attached are both the FM and the required expert routine.

 

*$*$ begin of routine - insert your code only below this line        *-*

* --------- execution code ---------------------------



* load data fom 0CALDAY to internal table

    SELECT DATE0 SID FROM /BI0/SDATE INTO TABLE lt_calday

          WHERE DATE0 >= l_start_date AND

                 DATE0 <= l_end_date .



    LOOP AT SOURCE_PACKAGE assigning <SOURCE_FIELDS>.



* calculate cayday from SID table of 0CALDAY and assign

* corresponding fields



      LOOP AT lt_calday INTO ls_calday.

        IF ls_calday-sid >= l_start_date.



          RESULT_FIELDS-calday  = ls_calday-date0..

          RESULT_FIELDS-comp_code   = <SOURCE_FIELDS>-comp_code.

          RESULT_FIELDS-country  = <SOURCE_FIELDS>-country .

          RESULT_FIELDS-/BIC/ZWFCID  = <SOURCE_FIELDS>-/BIC/ZWFCID.

          RESULT_FIELDS-calyear  = RESULT_FIELDS-calday(4).

          RESULT_FIELDS-calmonth  = RESULT_FIELDS-calday(6).



* calculate FISCPER and FISCYEAR on CALDAY and CALMONTH

          IF <SOURCE_FIELDS>-fiscvarnt <> ''.

            CALL FUNCTION 'FISCPER_FROM_CALMONTH_CALC'

              EXPORTING

                iv_calmonth       = RESULT_FIELDS-calmonth

                iv_periv          = <SOURCE_FIELDS>-fiscvarnt

              IMPORTING

*          EV_FISCPER3       = RESULT_FIELDS-FISCPER

               ev_fiscyear       = l_fiscyear

               ev_fiscper        = l_fiscper

               EV_FISCPER3       = l_fiscper3.

            CALL FUNCTION 'DATE_GET_WEEK'

            EXPORTING

                DATE = ls_calday-date0

            IMPORTING

              WEEK = l_calweek.

* EXCEPTIONS

* DATE_INVALID = 1

* OTHERS = 2











          ENDIF.



          RESULT_FIELDS-fiscvarnt = <SOURCE_FIELDS>-fiscvarnt.

          RESULT_FIELDS-fiscyear = l_fiscyear.

          RESULT_FIELDS-fiscper = l_fiscper.

          RESULT_FIELDS-fiscper3 = l_fiscper3.

          RESULT_FIELDS-calweek = l_calweek.



* calculate working day from calday and factory calendar



          l_date = RESULT_FIELDS-calday.

          l_factory_calendar = RESULT_FIELDS-/BIC/ZWFCID.





          CALL FUNCTION 'Z_DATE_CHECK_WORKINGDAY'

            EXPORTING

              DATE                       = l_date

              FACTORY_CALENDAR_ID        = l_factory_calendar

              MESSAGE_TYPE               = 'S'

            IMPORTING

              I_WORKING_DAY              = l_working_day

            EXCEPTIONS

              DATE_AFTER_RANGE           = 1

              DATE_BEFORE_RANGE          = 2

              DATE_INVALID               = 3

              DATE_NO_WORKINGDAY         = 4

              FACTORY_CALENDAR_NOT_FOUND = 5

              MESSAGE_TYPE_INVALID       = 6

              OTHERS                     = 7.

          IF SY-SUBRC <> 0.

            MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

          ENDIF.



          RESULT_FIELDS-/BIC/ZWORDAY = l_working_day.



        ENDIF.



        APPEND RESULT_FIELDS to RESULT_PACKAGE.



      ENDLOOP.

    ENDLOOP.



*$*$ end of routine - insert your code only before this line         *-*

 

FUNCTION Z_DATE_CHECK_WORKINGDAY.

*"----------------------------------------------------------------------

*"*"Local Interface:

*"  IMPORTING

*"     VALUE(DATE) LIKE  SY-DATUM

*"     VALUE(FACTORY_CALENDAR_ID) LIKE  SCAL-FCALID

*"     VALUE(MESSAGE_TYPE) LIKE  SY-MSGTY

*"  EXPORTING

*"     VALUE(I_WORKING_DAY) TYPE  INT4

*"  EXCEPTIONS

*"      DATE_AFTER_RANGE

*"      DATE_BEFORE_RANGE

*"      DATE_INVALID

*"      DATE_NO_WORKINGDAY

*"      FACTORY_CALENDAR_NOT_FOUND

*"      MESSAGE_TYPE_INVALID

*"----------------------------------------------------------------------



  DATA: D10_STR(10)     TYPE C,

        WORKINGDAY_FLAG LIKE SCAL-INDICATOR.



  IF MESSAGE_TYPE CN 'IWEAS'.

    RAISE MESSAGE_TYPE_INVALID.

  ENDIF.



  IF FACTORY_CALENDAR_ID <> SPACE.

    WRITE DATE TO D10_STR DD/MM/YYYY.

    CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'

         EXPORTING

              DATE                 = DATE

              FACTORY_CALENDAR_ID  = FACTORY_CALENDAR_ID

         IMPORTING

              WORKINGDAY_INDICATOR = WORKINGDAY_FLAG

         EXCEPTIONS

              DATE_INVALID               = 1

              DATE_BEFORE_RANGE          = 2

              DATE_AFTER_RANGE           = 3

              FACTORY_CALENDAR_NOT_FOUND = 4.

    CASE SY-SUBRC.

      WHEN 1.                          " invalid date

        MESSAGE E205 WITH D10_STR

                RAISING DATE_INVALID.

      WHEN 2.                          " date before factory calendar

        MESSAGE I207 WITH D10_STR FACTORY_CALENDAR_ID

                RAISING DATE_BEFORE_RANGE.

      WHEN 3.                          " date past factory calendar

        MESSAGE I208 WITH D10_STR FACTORY_CALENDAR_ID

                RAISING DATE_AFTER_RANGE.

      WHEN 4.                          " Uknonw factory calendar

        MESSAGE I209 WITH FACTORY_CALENDAR_ID

                RAISING FACTORY_CALENDAR_NOT_FOUND.

    ENDCASE.





    IF SY-SUBRC = 0 AND

       WORKINGDAY_FLAG <> SPACE.       " no working day



*      MESSAGE ID 'T0' TYPE MESSAGE_TYPE NUMBER 206 WITH D10_STR

*              RAISING DATE_NO_WORKINGDAY.



* -----  Extention:



        I_WORKING_DAY = 0.   "  no working day

     ELSE.

        I_WORKING_DAY = 1.   "  is a working day



    ENDIF.

  ENDIF.



ENDFUNCTION.