Working days

时间：2023-03-10 04:24:38
Working days 
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. C++类中一个构造函数调用另一个构造函数

    class A { int a; int b; int c; public: A(int aa, int bb) : a(aa), b(bb),c(0) { cout << "a ...

  2. ubuntu安装驱动问题

    网友答案:https://blog.csdn.net/jasonzhoujx/article/details/80469139

  3. 打印 laravel 模型查询产品的 SQL

    1.在路由閉包打印sql 打印一段代码生产的 sql 语句,使用路由闭包做个实验 Route::get('/get-sql', function() { DB::enableQueryLog(); $ ...

  4. multiprocessing还是threading？

    今夜看了一篇分析python中多进程与多线程优劣的文章,文章通过几组性能测试强调了多进程的性能优势,同时也深入分析了为何python中多线程性能较差的原因,GIL就是解释器全局锁,该机制限制每个pyt ...

  5. python3.6 内置函数

    python内置函数 # encoding: utf-8 # module builtins # from (built-in) # by generator 1.145 ""&q ...

  6. JavaScript开发中使用频率较高的一些方法

    1.填充字符串 ES7推出了字符串补全长度的功能.如果某个字符串不够指定长度,会在头部或尾部补全. String.prototype.padStart(maxLength, fillString=’ ...

  7. 黄聪：C#使用Application.Restart重启程序出错解决办法

    调用 Application.Restart重启程序出错 解决办法,就是给程序的.exe文件,加上下面的设置

  8. [UE4]Dynamic Entry Box

    Dynamic Entry Box:条目创建容器 一个特殊的容器,能够自动创建条目,在可变数量条目的时候,但是又不值得创建一个ListView或者Tile View. 注意: Dynamic Entr ...

  9. java的String的乱码浅析

    Java又乱码了,怎么办:乱码了说明编码与解码不一致导致.所以使用统一的编码方式即可. 本文并不是一定能解决乱码,本文主要用来了解jvm默认编码,以及string编码与解码一致性问题. jvm的默认编 ...

  10. 权限管理demo-获取Spring上下文工具

    package com.mmall.common; import org.springframework.beans.BeansException; import org.springframewor ...

相关文章