Add n number of working days to date

 

 

The following ABAP code adds n number of WORKING days to a particular date, any days which are not workings days (i.e. Saturday) will be ignored. For example if your starting date is Friday, adding 3 days would return a result of Wednesday or if starting date was Wednesday resultant day would be Monday as Saturday and Sunday are non working days. If you want to add n number of working days but allow result to be a non working day then click here for alternative ABAP code.

 

Simply add the below FORM into you code and call it using the usual PERFORM command:

                 PERFORM add_working_days USING ld_numdays

                                  CHANGING gd_date.

 

          

 

 

 

**&---------------------------------------------------------------------*

*&      Form  ADD_WORKING_DAYS

*&---------------------------------------------------------------------*

*       Add n number of factory days(working days) to date

*----------------------------------------------------------------------*

*      <-- P_DAYS     Number of days to add

*      <-- P_PAYDATE  Starting date

*----------------------------------------------------------------------*

FORM add_working_days USING p_days

                      CHANGING p_paydate TYPE sy-datum.

  DATA: gd_factorydat LIKE scal-facdate,

        gd_resdate    LIKE sy-datum.

 

* Convert date to factory date

  CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'

       EXPORTING

            date                = p_paydate  "Starting date

            factory_calendar_id = 'GB'

       IMPORTING

            factorydate         = gd_factorydat. "Factory calender date

 

* Add n number of days to factory date, ignors non working days

  gd_factorydat =  gd_factorydat + p_days.

 

* Convert factory date back to actual date

  CALL FUNCTION 'FACTORYDATE_CONVERT_TO_DATE'

       EXPORTING

            factorydate         = gd_factorydat

            factory_calendar_id = 'GB'

       IMPORTING

            date                = gd_resdate. "Actual date

 

  p_paydate = gd_resdate.

ENDFORM.                    " ADD_WORKING_DAYS

 


 

Add n number of working days to date (allow result to be a non working day)

 

 

The following ABAP code adds n number of WORKING days to a particular date, but allows result to be a non working day. For example if starting day is Wednesday and you add three days to it, resultant day would be Saturday(non working day). Where as if you wanted to totally ignore non working days resultant day would be Monday (see ABAP code to totally ignore non working days). 

 

Simply add the below ABAP FORM into you code and call it using the usual PERFORM command:

                 PERFORM add_working_days_resnonwork USING ld_numdays

                                                    CHANGING gd_date.

 

                    

 

 

 

**&---------------------------------------------------------------------*

*&      Form  ADD_WORKING_DAYS_RESNONWORK

*&---------------------------------------------------------------------*

*       Add n number of factory days(working days) to date, but allow 

*       resultant date to be a non working day

*----------------------------------------------------------------------*

*      <-- P_DAYS     Number of days to add

*      <-- P_PAYDATE  Starting date

*----------------------------------------------------------------------*

 

FORM add_working_days_resnonwork USING p_days

                       CHANGING p_paydate TYPE sy-datum.

 

  DATA: ld_count  TYPE i.

 

  ld_count = p_days.

 

  WHILE ld_count GT 0.

    CALL FUNCTION 'DATE_CHECK_WORKINGDAY'

      EXPORTING

        date                       = p_paydate

        factory_calendar_id        = 'GB'

        message_type               = 'I'

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

      p_paydate = p_paydate + 1.

      ld_count = ld_count - 1.

    ELSE.

      p_paydate = p_paydate + 1.

    ENDIF.

  ENDWHILE.

 

ENDFORM.                    " ADD_WORKING_DAYS_RESNONWORK

 


 

Add n number of working days to date (using SAP personal work schedule)

 

 

The following ABAP code adds n number of WORKING days to a particular date using the employees work schedule (tcode pt63) to calculate working day. 

Simply add the below ABAP FORM into you code and call it using the usual PERFORM command:  PERFORM add_working_days_workschedule USING ld_numdays

                                                                                                  CHANGING gd_date.

 

 

 

 

*&---------------------------------------------------------------------*

*&      Form  ADD_WORKING_DAYS_WORKSCHEDULE

*&---------------------------------------------------------------------*

*       Add n number of working days to date, using employees work

*       schedule to calculate working days

*----------------------------------------------------------------------*

*      <-- P_DAYS     Number of days to add

*      <-- P_PAYDATE  Starting date

*----------------------------------------------------------------------*

 

FORM add_working_days_workschedule USING p_days

                       CHANGING p_paydate TYPE sy-datum.

  DATA: ld_count  TYPE i,

        ld_memid(30) TYPE c.

 

* Copied from rptpsh10

  DATA: psp LIKE ptpsp      OCCURS 0 WITH HEADER LINE.

  DATA: BEGIN OF hd OCCURS 0,

        pernr LIKE pernr-pernr,

        name(40),

        inv_menge LIKE pakey-seqnr,      "ALV copies only 20 columns!

        moabw LIKE t001p-moabw,                               "

        mover LIKE t001p-mover,          "ALV copies only 20 columns!

        datum LIKE psp-datum,

        kurzt LIKE t246-kurzt,

        tprog LIKE psp-tprog,

        varia LIKE psp-varia,

         ttext LIKE t550s-ttext,

        vtart LIKE p2003-vtart,

         vtext LIKE t556t-vtext,

        motpr LIKE psp-motpr,

        sobeg(8),

        soend(8),

        stdaz LIKE ptev_rep_h-stdaz,

        ftkla LIKE psp-ftkla,

        tagty LIKE psp-tagty,

         tatxt LIKE t553t-langt,

        zmodn LIKE psp-zmodn,

         ptext LIKE t551s-ztext,

        mofid LIKE t508a-mofid,

         ftext LIKE thoct-ltext,

        menge LIKE ptev_rep_h-itanz,

        alvmarker TYPE rp_xfeld,

        END OF hd.

 

  ld_count = p_days.

 

  CONCATENATE sy-uname sy-uzeit INTO ld_memid.

 

* Z version of 'personal work schedule' report, created to export data

* to memory rather than display it on screen

  SUBMIT zrptpsh10_list_to_memory    WITH pnppernr EQ pernr-pernr

                     WITH pnpbegda EQ p2001-begda

                     WITH pnpendda EQ p2001-endda

                     WITH pnpbegps EQ p2001-begda

                     WITH pnpendps EQ p2001-endda

                     WITH pnptimed EQ ' '

                     WITH rdclust  EQ 'X'

                     WITH p_memid  EQ ld_memid

                     AND  RETURN.

 

* import datd from memoory

  IMPORT hd FROM MEMORY ID ld_memid.

 

* Check if days are working days

  WHILE ld_count GT 0.

    READ TABLE hd WITH KEY datum = p_paydate.

    IF hd-tprog NE 'FREE'.  "FREE equals non working day

      p_paydate = p_paydate + 1.

      ld_count = ld_count - 1.

    ELSE.

      p_paydate = p_paydate + 1.

    ENDIF.

  ENDWHILE.

ENDFORM.                    " ADD_WORKING_DAYS_WORKSCHEDULE

 


 

Add n number of working days to date

 

 

The following ABAP code adds/Subtracts n number of months from a particular date. This is a very simple processusing the 'MONTH_PLUS_DETERMINE' function module. If this function module does not exist please see the  more cumbersome solution using SAP FM 'CALCULATE_DATE'.

 

Simply add the below FORM into you ABAP code and call it using the usual PERFORM command:

                 DATA: ld_date TYPE sy-datum.

                               PERFORM calculate_date      using '-4'

                                                                            changing ld_date.

 

                    

 

 

 

*&---------------------------------------------------------------------*

*&      Form  CALCULATE_DATE

*&---------------------------------------------------------------------*

*       Add/Subtract n number of months from a date

*----------------------------------------------------------------------*

*  -->  p_months  Number of months to add/subtract

*  <--  p_date    Start date and result date

*----------------------------------------------------------------------*

 

FORM calculate_date USING p_months

                    CHANGING p_date.

 

  DATA: ld_datestor TYPE sy-datum.

 

  ld_datestor = p_date.

 

  CALL FUNCTION 'MONTH_PLUS_DETERMINE'

    EXPORTING

      MONTHS        = p_months

      OLDDATE       = p_date

    IMPORTING

      NEWDATE       = p_date.

ENDFORM.                    " CALCULATE_DATE

 

 


 

Convert month value of a date to text

 

 

The following ABAP code gets the month value of a particular date (YYYYMMDD) and converts it to its text value. I know its a very crude way of doing it but it does the job and having the ABAP code below provides a quick and easy way to copy and paste it into your SAP program.

 

 

 

*

 

DATA: gd_datetext TYPE string.

 

  CASE sy-datum+4(2).

    WHEN '01'.

      gd_datetext = 'January'.

    WHEN '02'.

      gd_datetext = 'February'.

    WHEN '03'.

      gd_datetext = 'March'.

    WHEN '04'.

      gd_datetext = 'April'.

    WHEN '05'.

      gd_datetext = 'May'.

    WHEN '06'.

      gd_datetext = 'June'.

    WHEN '07'.

      gd_datetext = 'July'.

    WHEN '08'.

      gd_datetext = 'August'.

    WHEN '09'.

      gd_datetext = 'September'.

    WHEN '10'.

      gd_datetext = 'October'.

    WHEN '11'.

      gd_datetext = 'November'.

    WHEN '12'.

      gd_datetext = 'December'.

  ENDCASE.

 

  concatenate sy-datum(2) gd_datetext sy-datum+2(2) into gd_datetext

                                                   separated by space.

 

 


 

Date formatting

 

 

The following ABAP code demonstrates a number of ways to format a SAP date value:

 

 

* Using the WRITE statement

***************************

  data: gd_date(10).  "field to store output date

 

* Converts SAP date from 20020901 to 01.09.2002

  write sy-datum to gd_date dd/mm/yyyy.

* Converts SAP date from 20020901 to 01.09.02

  write sy-datum to gd_date dd/mm/yy.

 

 

* Using data manipulation techniques

************************************

  data: gd_date(8).  "field to store output date

 

* Converts SAP date from 20010901 to 01092001

  gd_date(2)   = sy-datum+6(2).

  gd_date+2(2) = sy-datum+4(2).

  gd_date+4(4) = sy-datum(4).

 

 

* Using Function modules

************************

  data: gd_date(8).  "field to store output date

 

* Converts date from 20010901 to 01SEP2001

  gd_date   = sy-datum.

  CALL FUNCTION 'CONVERSION_EXIT_IDATE_OUTPUT'

    EXPORTING

      input         = gd_date

    IMPORTING

      OUTPUT        = gd_date.

 

posted on 2009-02-17 08:10  沧海-重庆  阅读(2486)  评论(1编辑  收藏  举报