HR考勤时数计算

最新推荐文章于 2023-06-30 10:33:29 发布
最新推荐文章于 2023-06-30 10:33:29 发布
阅读量444 收藏
点赞数
分类专栏： ABAP 接口 ABAP接口 文章标签： abap
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_46659407/article/details/109621811
版权
ABAP 同时被 3 个专栏收录
5 篇文章 0 订阅
订阅专栏
接口
2 篇文章 1 订阅
订阅专栏
ABAP接口
1 篇文章 0 订阅
订阅专栏

时数的计算比较复杂，要考虑到排班，休息时间段等因素，所以直接交给标准去算方便很多

模拟前台提交数据：

FUNCTION ZFM_********.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IV_USER) TYPE  ZEHRUSER OPTIONAL
*"     REFERENCE(IV_BEGDA) TYPE  BEGDA OPTIONAL
*"     REFERENCE(IV_ENDDA) TYPE  ENDDA OPTIONAL
*"     REFERENCE(IV_BEGUZ) TYPE  P2001-BEGUZ OPTIONAL
*"     REFERENCE(IV_ENDUZ) TYPE  P2001-ENDUZ OPTIONAL
*"     REFERENCE(IV_AWART) TYPE  AWART OPTIONAL
*"     REFERENCE(IV_INFTY) TYPE  PRELP-INFTY OPTIONAL
*"     REFERENCE(IV_OPERATION) TYPE  PSPAR-ACTIO DEFAULT 'INS'
*"  EXPORTING
*"     REFERENCE(EV_STDAZ) TYPE  ABSTD
*"     REFERENCE(EV_ABWTG) TYPE  ABWTG
*"     REFERENCE(E_MESSAGE) TYPE  ZSHR_MESSAGE
*"----------------------------------------------------------------------
  DATA: LS_RETURN  TYPE  BAPIRETURN1.
  "锁定人员
  CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
    EXPORTING
      NUMBER = IV_USER
    IMPORTING
      RETURN = LS_RETURN.
  IF LS_RETURN-TYPE = 'E'.
    E_MESSAGE-MSGTY = 'E'.
    E_MESSAGE-MSGTX = LS_RETURN-MESSAGE.
    RETURN.
  ENDIF.
  "区分信息类
  CASE IV_INFTY.
    WHEN '2001'."请假 "其他信息类型也可以类似的写法
      PERFORM FRM_QJ_SIM USING IV_USER IV_INFTY IV_AWART IV_BEGDA IV_ENDDA IV_BEGUZ IV_ENDUZ IV_OPERATION
                          CHANGING EV_STDAZ  EV_ABWTG E_MESSAGE.
    WHEN '2002'. "公出
      PERFORM FRM_GC_SIM USING IV_USER IV_INFTY IV_AWART IV_BEGDA IV_ENDDA IV_BEGUZ IV_ENDUZ IV_OPERATION
                          CHANGING EV_STDAZ  EV_ABWTG E_MESSAGE.

    WHEN '2011'."忘打卡&跨天补卡  时间事件的信息类型 没有时数的说法，这里就写一下创建
      PERFORM FRM_WDK_SIM USING IV_USER IV_INFTY IV_AWART IV_BEGDA IV_ENDDA IV_BEGUZ IV_ENDUZ IV_OPERATION
                          CHANGING EV_STDAZ  EV_ABWTG E_MESSAGE.
  ENDCASE.


  "解锁
  CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
    EXPORTING
      NUMBER = IV_USER.

ENDFUNCTION.
FORM FRM_QJ_SIM USING IV_USER IV_INFTY IV_AWART IV_BEGDA IV_ENDDA IV_BEGUZ IV_ENDUZ IV_OPERATION
                  CHANGING  EV_STDAZ  EV_ABWTG E_MESSAGE STRUCTURE ZSHR_MESSAGE.
  DATA:LS_P2001 TYPE P2001.
  DATA:LS_RETURN  TYPE  BAPIRETURN1.
  DATA:LS_KEY      LIKE  BAPIPAKEY.
  DATA:LS_INFO_KEY    LIKE PSKEY.
  DATA:LS_PRELP TYPE PRELP.
  LS_P2001-PERNR = IV_USER."员工号
  LS_P2001-INFTY = IV_INFTY."信息类型
  LS_P2001-SUBTY = IV_AWART."子信息类型
  LS_P2001-BEGDA = IV_BEGDA."开始日期
  LS_P2001-ENDDA = IV_ENDDA."结束日期
  LS_P2001-ABWTG = IV_AWART.
  LS_P2001-BEGUZ = IV_BEGUZ. "开始时间
  LS_P2001-ENDUZ = IV_ENDUZ."结束时间

  CALL FUNCTION 'HR_INFOTYPE_OPERATION'
    EXPORTING
      INFTY         = LS_P2001-INFTY
      NUMBER        = LS_P2001-PERNR
      SUBTYPE       = LS_P2001-SUBTY
      VALIDITYEND   = LS_P2001-BEGDA
      VALIDITYBEGIN = LS_P2001-BEGDA
      RECORD        = LS_P2001
      OPERATION     = IV_OPERATION
      NOCOMMIT      = 'X' "模拟前台输入不提交
    IMPORTING
      RETURN        = LS_RETURN
      KEY           = LS_KEY.

  IF LS_RETURN-TYPE = 'E' OR LS_KEY IS INITIAL.
    E_MESSAGE-MSGTY = 'E'.
    E_MESSAGE-MSGTX = LS_RETURN-MESSAGE.
  ENDIF.

  LS_INFO_KEY-PERNR = LS_KEY-EMPLOYEENO.
  LS_INFO_KEY-INFTY = LS_P2001-INFTY.
  LS_INFO_KEY-SUBTY = LS_KEY-SUBTYPE.
  LS_INFO_KEY-OBJPS = LS_KEY-OBJECTID.
  LS_INFO_KEY-SPRPS = LS_KEY-LOCKINDIC.
  LS_INFO_KEY-ENDDA = LS_KEY-VALIDEND.
  LS_INFO_KEY-BEGDA = LS_KEY-VALIDBEGIN.
  LS_INFO_KEY-SEQNR = LS_KEY-RECORDNR.

  CALL FUNCTION 'HR_PSBUFFER_GETDETAIL'
    EXPORTING
      INFOTYPE_KEY     = LS_INFO_KEY
    IMPORTING
      INFOTYPE_RECORD  = LS_PRELP
    EXCEPTIONS
      RECORD_NOT_FOUND = 1
      KEY_NOT_SUPPLIED = 2
      OTHERS           = 3.

  IF SY-SUBRC = 0.
*&记录DOCNR
    CLEAR LS_P2001.
    CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
      EXPORTING
        PRELP = LS_PRELP
      IMPORTING
        PNNNN = LS_P2001.

    EV_STDAZ = EV_STDAZ + LS_P2001-STDAZ.
    EV_ABWTG = EV_ABWTG + LS_P2001-ABWTG.
  ENDIF.
  IF EV_STDAZ = 0.
    E_MESSAGE-MSGTY = 'E'.
    E_MESSAGE-MSGTX = '请假时数为0，请检查是否为周末或节假日请假!'.
  ENDIF.
  "模拟结束
  ROLLBACK WORK .
ENDFORM.
FORM FRM_GC_SIM USING IV_USER IV_INFTY IV_AWART IV_BEGDA IV_ENDDA IV_BEGUZ IV_ENDUZ IV_OPERATION
                  CHANGING  EV_STDAZ  EV_ABWTG E_MESSAGE STRUCTURE ZSHR_MESSAGE.
  DATA:LS_P2002 TYPE P2002.
  DATA:LS_RETURN  TYPE  BAPIRETURN1.
  DATA:LS_KEY      LIKE  BAPIPAKEY.
  DATA:LS_INFO_KEY    LIKE PSKEY.
  DATA:LS_PRELP TYPE PRELP.

  LS_P2002-PERNR = IV_USER."员工号
  LS_P2002-INFTY = IV_INFTY."信息类型
  LS_P2002-SUBTY = IV_AWART."子信息类型
  LS_P2002-BEGDA = IV_BEGDA."开始日期
  LS_P2002-ENDDA = IV_ENDDA."结束日期
  LS_P2002-ABWTG = IV_AWART.
  LS_P2002-BEGUZ = IV_BEGUZ. "开始时间
  LS_P2002-ENDUZ = IV_ENDUZ."结束时间

  CALL FUNCTION 'HR_INFOTYPE_OPERATION'
    EXPORTING
      INFTY         = LS_P2002-INFTY
      NUMBER        = LS_P2002-PERNR
      SUBTYPE       = LS_P2002-SUBTY
      VALIDITYEND   = LS_P2002-BEGDA
      VALIDITYBEGIN = LS_P2002-BEGDA
      RECORD        = LS_P2002
      OPERATION     = IV_OPERATION
      NOCOMMIT      = 'X' "模拟前台输入不提交
    IMPORTING
      RETURN        = LS_RETURN
      KEY           = LS_KEY.

  IF LS_RETURN-TYPE = 'E' OR LS_KEY IS INITIAL.
    E_MESSAGE-MSGTY = 'E'.
    E_MESSAGE-MSGTX = LS_RETURN-MESSAGE.
  ENDIF.

  LS_INFO_KEY-PERNR = LS_KEY-EMPLOYEENO.
  LS_INFO_KEY-INFTY = LS_P2002-INFTY.
  LS_INFO_KEY-SUBTY = LS_KEY-SUBTYPE.
  LS_INFO_KEY-OBJPS = LS_KEY-OBJECTID.
  LS_INFO_KEY-SPRPS = LS_KEY-LOCKINDIC.
  LS_INFO_KEY-ENDDA = LS_KEY-VALIDEND.
  LS_INFO_KEY-BEGDA = LS_KEY-VALIDBEGIN.
  LS_INFO_KEY-SEQNR = LS_KEY-RECORDNR.

  CALL FUNCTION 'HR_PSBUFFER_GETDETAIL'
    EXPORTING
      INFOTYPE_KEY     = LS_INFO_KEY
    IMPORTING
      INFOTYPE_RECORD  = LS_PRELP
    EXCEPTIONS
      RECORD_NOT_FOUND = 1
      KEY_NOT_SUPPLIED = 2
      OTHERS           = 3.
  IF SY-SUBRC = 0.
*&记录DOCNR
    CLEAR LS_P2002.
    CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
      EXPORTING
        PRELP = LS_PRELP
      IMPORTING
        PNNNN = LS_P2002.

    EV_STDAZ = EV_STDAZ + LS_P2002-STDAZ.
    EV_ABWTG = EV_ABWTG + LS_P2002-ABWTG.

  ENDIF.

  IF EV_STDAZ = 0.
    E_MESSAGE-MSGTY = 'E'.
    E_MESSAGE-MSGTX = '公出时数为0，请检查是否为周末或节假日请假!'.
  ENDIF.
  "模拟结束
  ROLLBACK WORK .
ENDFORM.
FORM FRM_WDK_SIM USING IV_USER IV_INFTY IV_AWART IV_BEGDA IV_ENDDA IV_BEGUZ IV_ENDUZ IV_OPERATION
                CHANGING  EV_STDAZ  EV_ABWTG E_MESSAGE STRUCTURE ZSHR_MESSAGE.
  DATA:LS_P2011 TYPE P2011.
  DATA:LS_RETURN  TYPE  BAPIRETURN1.
  DATA:LS_KEY      LIKE  BAPIPAKEY.
  DATA:LS_INFO_KEY    LIKE PSKEY.
  DATA:LS_PRELP TYPE PRELP.

  LS_P2011-PERNR = IV_USER."员工号
  LS_P2011-INFTY = IV_INFTY."信息类型
  LS_P2011-SUBTY = IV_AWART."子信息类型
  LS_P2011-BEGDA = IV_BEGDA."开始日期
*  LS_P2011-ENDDA = IV_ENDDA."结束日期
  LS_P2011-BEGUZ = IV_BEGUZ. "开始时间
*  LS_P2011-ENDUZ = IV_ENDUZ."结束时间

    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
      EXPORTING
        INFTY         = '2011'
        NUMBER        = LS_P2011-PERNR
        SUBTYPE       = LS_P2011-SUBTY
        VALIDITYEND   = LS_P2011-BEGDA
        VALIDITYBEGIN = LS_P2011-BEGUZ
        RECORD        = LS_P2011
        OPERATION     = 'INS'
        NOCOMMIT      = 'X'
      IMPORTING
        RETURN        = LS_RETURN
        KEY           = LS_KEY.

  IF LS_RETURN-TYPE = 'E' OR LS_KEY IS INITIAL.
    E_MESSAGE-MSGTY = 'E'.
    E_MESSAGE-MSGTX = LS_RETURN-MESSAGE.
  ENDIF.
    "模拟结束
  ROLLBACK WORK .
ENDFORM.
FLT_ABAP
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
java swing实现考勤工时计算工具
10-26
Java Swing 实现的考勤工时计算工具是一个基于桌面应用的程序，专为处理和计算员工的出勤时间而设计。这个工具的核心功能是接收Excel报表中的考勤数据，然后利用SQLite数据库进行存储和处理，以得出精确的工作小时...
SAP HR模块配置假期日历和缺勤类型
苦行僧的妖孽日常
12-28 3781
SAP的HR模块。业务顾问在实施时一般会配置未来10年的假期日历，到期后再进行配置。同时，增加请假类型（缺勤信息类型）。记录这一过程。
SAP HR时间核算详解
Welcome to Garywang's IT BLOG.
05-25 7894
<br />最近在支持一个HR模块, 顺手转几篇网文<br /> <br />转自: http://flashlighten.blog.163.com/blog/static/1485453072011419103811624/<br /> <br />工时核算:<br />  工时核算,由report-RPTIME00(PT60)来实现.工时核算每天晚上由系统以后台任务的方式运行.可以为员工个人或一组员工运行核算.并可以对之前或将来的时间段进行工时核算.其中进行将来的工时核算与员工的假期额度计算有关.<b
PA30 PA40增强 CMOD
ki_laikun的博客
03-30 1万+
可以做输入检查和校验的增强，回车或者保存都会触发 EXIT_SAPFP50M_002 INFOTYPES : 0185, 0530, 0532. DATA: lw_0185 TYPE p0185, lw_0105 TYPE p0105. * lw_9509 TYPE p9509. DATA: lw_p0008 TYPE p0008, lw_p0007 TYPE p0007, lt_p0007 TYPE TABLE OF pa000..
人力业务：计算请假时长案例分享
momingfan的博客
07-04 351
人力业务：计算请假时长案例分享
知道请假时间段、工作日和工作时长，计算请假天数
weixin_30511039的博客
03-27 1101
function getDuration(starTime, endTime) {//计算时长 　　let num1 = 0,num2 = 0; 　　num1 = parseInt(starTime.split(":")[0]) +parseInt(starTime.split(":")[1]) / 60; 　　num2 = parseInt(endTime.split(":")[0])...
考勤计算模板.xlsx
01-03
对打卡考勤数据进行整理，计算考勤时长并对时长进行修正(包括去除休息时间）
考勤表自动计算.xlsx
最新发布
07-29
考勤表，考勤计算，Excel模版 考勤表，考勤计算，Excel模版 考勤表，考勤计算，Excel模版
考勤与工资计算软件.rar
03-23
考勤与工资计算软件是企业日常管理中不可或缺的一部分，它主要负责记录员工的出勤情况，并根据出勤数据、加班、假期等因素计算员工的工资。此类软件通常包含多个功能模块，如考勤管理、工资计算、报表生成等，极大地...
考勤表-公式计算
07-24
考勤表，Excel模版，考勤表-公式计算
SAP HR 锁定 解锁人员
ptpassword的博客
06-30 227
CALLFUNCTION'HR_EMPLOYEE_ENQUEUE'
SAP HR信息类型增强/及信息类型维护事务码（时间限制等）SM30
SAP Consultant - Improve myself everyday 每天进步一点
11-16 9605
信息类型是SAP HR模块数据单元，用于对人员数据的记录和维护，是HR的基础。信息类型按照其创建方式的不同可以分为：人事信息类型、组织信息类型。信息类型数据的维护主要在事物码PA30、PA40、po10、P013 中进行。 1 信息类型的创建 信息类型的创建涉及到的两个事务码：PM01，PPCI。分别对应人事主数据与组织、职位主数据的增强。 1.1 人事信息类型在生成时，系统会自动生成200
HR 更新信息类型的函数
ki_laikun的博客
04-27 2512
FUNCTIONzhrf_0531_create. *"---------------------------------------------------------------------- *"*"本地接口： *"IMPORTING *"VALUE(IS_INPUT)TYPEP0531 *"VALUE(IV_ACTIO)TYPEPSPAR-ACTIO *"EXPORTING *"VALUE(ES_MESSAGE)TYPEBAPIRETURN1...
Sqlserver如何把查询的数据insert进入新表
cuihengju8933的博客
10-26 1827
首先建立新表： 然后用SQL实现把查询的数据insert进入新表： Insert into test.dbo.tmp_tj001(server_principal_name,object_name,maxdate) s...
SAP HR开发 基础知识笔记
csucoder_zone的博客
03-23 2129
HR信息类型文本表：T582S 组织信息类型文本表：T777T
使用ES6新特性async await进行异步处理
热门推荐
三哥玩前端
07-12 7万+
我们往往在项目中会遇到这样的业务需求，就是首先先进行一个ajax请求，然后再进行下一个ajax请求，而下一个请求需要使用上一个请求得到的数据，请求好了还好说，如果多了，就要一层一层的嵌套，就好像有点callback的写法了，那是相当恶心的，下面我就来讲一下如何使用ES6的新特性async await进行异步处理，使上述情况就好像写同步代码一样，首先我们先举个例子： 先写上json文件: cod...
SAP:HR考勤函数：HR_FORMS_TIM_GET_B2_RESULTS与HR_TIME_RESULTS_GET
weixin_43734184的博客
06-28 1587
二者区别： 按范围： HR_FORMS_TIM_GET_B2_RESULTS： 按期间： HR_TIME_RESULTS_GET 对于ZES这张簇表只能从HR_FORMS_TIM_GET_B2_RESULTS中获取，并且有记录每天考勤情况 例子： DATA: ls_tim_b2 TYPE hrf_tim_b2. DATA: gs_saldo LIKE LINE OF ls_tim_b2-ft_saldo. CALL FUNCTION 'HR_FORMS_TIM_GET_B2_RESULTS'
HR--上载信息类型的长文本的样例代码
SAP BLOG--Jack Wu
08-29 3654
此代码用于维护2002信息类型数据和长文本TYPES BEGIN OF text_version.TYPES nummer TYPE x.TYPES END OF text_version.DATA: PERSONALDATAKEY LIKE BAPIPAKEY.DATA: RETURN LIKE BAPIRETURN1.DATA: P2002 LIKE P2002.DATA: PSKEY
SAP 计算时间-MTIME
ielxzhang的专栏
05-10 213
计算时间字段的值,例如Structure EMG_FILEINFO 中的字段 MTIME,字段描述:Last modification: seconds since 1970. SAP include [b]LEMIG_LISTF01[/b] form [b]GET_DAT_TIME[/b] [code="java"]form get_dat_time using p_mtim...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值