form FRM_GET_WORKING_DAYS

  TABLES pt_days

  CHANGING  pv_duration.

  DATA:ls_xt001w TYPE t001w,

       lv_sdate TYPE sy-datum,

       lv_edate TYPE sy-datum.

* Get the factory calendar for specific plant

  SELECT SINGLE * FROM t001w INTO ls_xt001w

                     WHERE werks IN s_plant.   " Use your plant

*   Set start date

  CONCATENATE sy-datum+0(6) '01' INTO lv_sdate.

*   End date

  CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'

    EXPORTING

      date      = lv_sdate

      days      = 0

      months    = 1

      signum    = '+'

      years     = 0

    IMPORTING

      calc_date = lv_edate

    EXCEPTIONS

      OTHERS    = 2.

* Get working days in between

  CALL FUNCTION 'DURATION_DETERMINE'

    EXPORTING

      factory_calendar           = ls_xt001w-fabkl

    IMPORTING

      duration                   = pv_duration     " In days

    CHANGING

      start_date                 = lv_sdate

      end_date                   = lv_edate

    EXCEPTIONS

      factory_calendar_not_found = 1

      date_out_of_calendar_range = 2

      date_not_valid             = 3

      unit_conversion_error      = 4

      si_unit_missing            = 5

      parameters_not_valid       = 6

      OTHERS                     = 7.

  WHILE lv_sdate < lv_edate.

    CALL FUNCTION 'DATE_CHECK_WORKINGDAY'

      EXPORTING

        date                             = lv_sdate

        factory_calendar_id              = ls_xt001w-fabkl

        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 eq 0.

      append lv_sdate to pt_days.

    ENDIF.

  CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'

    EXPORTING

      date      = lv_sdate

      days      = 1

      months    = 0

      signum    = '+'

      years     = 0

    IMPORTING

      calc_date = lv_sdate

    EXCEPTIONS

      OTHERS    = 2.

  ENDWHILE.

endform.

We can get working days easily by 'describe table lines ' of pt_days ,this is merely a demo of FM usage,not making an unnecessary move

随机推荐

  1. Jekins学习

    1.Windows  安装入门   https://blog.csdn.net/u011541946/article/details/78003772 PS:坑1,https问题 坑2,offline ...

  2. MVC 模式

    1.MVC 模式简介 MVC 模式代表 Model-View-Controller(模型-视图-控制器) 模式.这种模式用于应用程序的分层开发.Model(模型):模型代表一个存取数据的对象或 JAV ...

  3. idc市场

    机房 idc服务商 ============================== 电信1.古城热线-西部数据中心于2001年正式投入运营,有经济技术开发区和高新技术产业开发区两个核心机房高新路电信广场 ...

  4. 第二章 C#语法基础(2.1C#语言的数据类型二)

    数据类型案例说明 一.数据类型与变量(计算整数10与20的和) namespace ConsoleApp1 { class Program { static void Main(string[] ar ...

  5. Android Studio指定引用jnilibs 特定CPU架构的so库文件

    稍微大一些的项目都会用到第三方库,所以不可避免的会有针对不同手机cpu架构的.so库文件 'x86', 'x86_64', 'mips', 'mips64'  'armeabi' ,'armeabi- ...

  6. TypeScript type 类型别名

    //6,类型别名 /**类型别名不能出现在声明右侧的任何地方. * 接口 vs. 类型别名 * 另一个重要区别是类型别名不能被extends和implements(自己也不能extends和imple ...

  7. CIF 搜索逻辑

    test code #include <cstddef> class CIF { }; template <typename OBJ> class CList { public ...

  8. JOSN转列格式（csv文件）

    推荐网站 https://json-csv.com/ 限制1M大小

  9. input输入完成后监听

    clearTimeout(serachtimer); serachtimer=setTimeout(function(){ xxxxxxx //这里写处理的方法 },1000)

  10. vue里面axios使用post

    let params = new URLSearchParams(); params.append('action', "login"); params.append('user' ...