Function for deleting and modifying Infotype 2011 : HR_TMW_DB_UPDATE_TEVENT

Question

Hello experts,
we have and requirement where we have to insert/delete or modify specific clock in/out posts from infotype 2011. Looking trough this forum I was not able to find how to delete or modify specific events from SAP correctly.
We are able to insert new record via FM : HR_INFOTYPE_OPERATION with ease, but can not use the same function module to either delete or modify the same record.
I was able to find FM: HR_TMW_DB_UPDATE_TEVENT and tried it in combination with HR_TMW_DB_READ_TEVENT, with out any succes.
My question is: in what way must the tables be filled for deletion or modification, for FM HR_TMW_DB_UPDATE_TEVENT to work?
With testing deleting a record, function explicitly demands taht all four tables are set
         del_teven      = t_teven_del
         ins_teven      = t_teven_ind
         del_teven_more = t_teven_more_del
         ins_teven_more = t_teven_more_ins 
, but still the record is not deleted form table TEVEN.
Thank you in advance for any given anwsers,
Matevž

Answer 1

Hello Rajesh,
the code goes:
* get original data:
    CALL FUNCTION 'HR_TMW_DB_READ_TEVENT'
      EXPORTING
        pernr    = iv_pernr
        fromdate = iv_begda
        todate   = iv_endda
      IMPORTING
        result   = result_tmw.
* get next seq. nr.:
CALL FUNCTION 'NUMBER_GET_NEXT'
  EXPORTING
    nr_range_nr                   = lv_ragne
    object                        = lv_object
IMPORTING
   NUMBER                        = lv_number
EXCEPTIONS
   INTERVAL_NOT_FOUND            = 1
   NUMBER_RANGE_NOT_INTERN       = 2
   OBJECT_NOT_FOUND              = 3
   QUANTITY_IS_0                 = 4
   QUANTITY_IS_NOT_1             = 5
   INTERVAL_OVERFLOW             = 6
   BUFFER_OVERFLOW               = 7
   OTHERS                        = 8.
      LOOP AT result_tmw INTO s_result_tmw.
        s_teven = s_result_tmw-teven.
        IF s_teven-ldate = iv_ldate AND s_teven-ltime = iv_ltime AND s_teven-satza = iv_satza.
          "set TEVEN_DEL tables for reading
          APPEND s_teven TO t_teven_del.
          APPEND s_teven_more TO t_teven_more_del.
          "set status for change to TEVEN_INS tables
          s_teven-pdsnr = lv_number.
          s_teven-ldate = iv_ldate.
          s_teven-ltime = iv_ltime.    
          s_teven-satza = iv_satza.
          APPEND s_teven TO t_teven_ins.
          MOVE-CORRESPONDING s_teven TO s_teven_more.
          APPEND s_teven_more TO t_teven_more_ins.
          EXIT.
        ENDIF.
      ENDLOOP.
* execute deletion of current record:
      CALL FUNCTION 'HR_TMW_DB_UPDATE_TEVENT'
        TABLES
          del_teven      = t_teven_del
          ins_teven      = t_teven_ins
          del_teven_more = t_teven_more_del
          ins_teven_more = t_teven_more_ins
        EXCEPTIONS
          insert_failed  = 1
          update_failed  = 2
          OTHERS         = 3.
      COMMIT WORK.
Now I am using the following code, that is working:
* get original data:
    CALL FUNCTION 'HR_TMW_DB_READ_TEVENT'
      EXPORTING
        pernr    = iv_pernr
        fromdate = iv_begda
        todate   = iv_endda
      IMPORTING
        result   = result_tmw.
********************************************************************** modification
* CODE :                            MODIFY CLOCK IN/OUT
    IF iv_operation = 'MOD'.
      LOOP AT result_tmw INTO s_result_tmw.
        s_teven = s_result_tmw-teven.
        IF s_teven-ldate = iv_ldate AND s_teven-ltime = iv_ltime AND s_teven-satza = iv_satza.
          "set TEVEN_DEL tables for reading
          APPEND s_teven TO t_teven_del.
          APPEND s_teven_more TO t_teven_more_del.
          "set status for change to TEVEN_INS tables
          APPEND s_teven TO t_teven_ins.
          MOVE-CORRESPONDING s_teven TO s_teven_more.
          APPEND s_teven_more TO t_teven_more_ins.
          EXIT.
        ENDIF.
      ENDLOOP.
* execute deletion of current record:
      CALL FUNCTION 'HR_TMW_DB_UPDATE_TEVENT'
        TABLES
          del_teven      = t_teven_del
          ins_teven      = t_teven_ins
          del_teven_more = t_teven_more_del
          ins_teven_more = t_teven_more_ins
        EXCEPTIONS
          insert_failed  = 1
          update_failed  = 2
          OTHERS         = 3.
      COMMIT WORK.
* insert new (updated) record of clock registration:
      s_p2011-pernr = iv_pernr.
      s_p2011-infty = '2011'.
      s_p2011-ldate = iv_ldate_new.
      s_p2011-ltime = iv_ltime_new.
      s_p2011-erdat = sy-datum.
      s_p2011-ertim = sy-uzeit.
      s_p2011-satza = iv_satza_new.
      s_p2011-origf = 'E'.
      s_p2011-begda = iv_ldate.
      s_p2011-endda = iv_ldate.
      CALL FUNCTION 'HR_INFOTYPE_OPERATION'
        EXPORTING
          infty            = '2011'
          number           = iv_pernr
*         SUBTYPE          =
*         OBJECTID         =
*         LOCKINDICATOR    =
          validityend      = iv_begda
          validitybegin    = iv_endda
          recordnumber     = f_recordnumber
          record           = s_p2011
          operation        = 'INS'                       
          tclas            = 'A'
          dialog_mode      = '0'
*         NOCOMMIT         =
*         VIEW_IDENTIFIER  =
*         SECONDARY_RECORD =
        IMPORTING
          return           = fm_return
          key              = personaldatakey.
      COMMIT WORK.
ENDIF.
Kind regards,
Matevž