Problem with multiple calls to hr_infotype_operation in a loop

Question

Hi,
Im using infotyp 2003 with the following situation. For a date, e.g. 2011/07/20 and a person_nr I have several time entries, like 08:00-09:00, 10:00-12:00, 15:00-17:00. Now I read the entries with  HR_READ_INFOTYPE and store them back unmodified with hr_infotype_operation in a loop in the same report.
data: i_p2003 type standard table of p2003.
CALL FUNCTION 'HR_READ_INFOTYPE'
         EXPORTING
*          TCLAS                 = 'A'
           pernr                 = person_nr
           infty                 = '2003'
         BEGDA                 = '20110720'
          ENDDA                 = '20110720'
*          BYPASS_BUFFER         = ' '
*          LEGACY_MODE           = ' '
*        IMPORTING
*          SUBRC                 =
         tables
           infty_tab             =  i_p2003
        EXCEPTIONS
          INFTY_NOT_FOUND       = 1
          OTHERS                = 2.
loop at i_p2003 assigning <p>.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
        EXPORTING
          infty         = '2003'
          number       = person_nr
          validityend   = '20110720'
          validitybegin = '20110720'
          record        = <p>
          operation     = 'MOD'
          dialog_mode   = '0'
        IMPORTING
          return        = return_struct
          key           = personaldatakey
        EXCEPTIONS
          OTHERS        = 0.
endloop.
the first call to hr_infotype_operation succeeds but the following operations fail because of collision. This example is stupid, I know, but it shows the core of a problem I have in a more complex report.
I face the problem that several calls to HR_INFOTYPE_OPERATION cause a collision error even if there cannot be a collision because the data are unchanged.
Any hints on this.
Regards,
JOP

Answer 1

Hi, you must execute a 'BAPI_EMPLOYEE_ENQUEUE' before 'HR_INFOTYPE_OPERATION' and a 'HR_EMPLOYEE_DEQUEUE' after.
See next example:
Bloqueo del empleado
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
  EXPORTING
    NUMBER = PERNR.
IF SY-SUBRC IS INITIAL.
Si se pudo bloquear el empleado intenta
insertar el infotipo
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
  EXPORTING
    INFTY         = '2001'
    NUMBER        = P0001-PERNR
    SUBTYPE       = i_p2001-subty
    VALIDITYEND   = acdate
    VALIDITYBEGIN = acdate
    RECORD        = i_p2001
    RECORDNUMBER  = '000'
    OPERATION     = 'INS'
    TCLAS         = 'A'
    DIALOG_MODE   = '0'
    NOCOMMIT      = ' '
  IMPORTING
    RETURN        = I_RETURN
    KEY           = I_KEY.
IF SY-SUBRC IS INITIAL.
  VARGT = 'Y'.
ELSE.
  VARGT = 'N'.
ENDIF.
No se hace COMMIT debido que el estandar lo realiza
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
Desbloqueo del empleado
CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
EXPORTING
NUMBER = PERNR.
Regards,
Diego.