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