ECM BADI Problem

Question

Can anyone supply some custom code that they use in the HRECM00_ACTIVATION-ACTIVATE_PROCESS method to update infotypes? I've been getting the following errors when trying to create an infotype 0000 record in the badi:
The exception 'CX_HRPA_VIOLATED_PRECONDITION' was raised but was not caught at any stage in the call hierarchy.

Answer 1

Hello UWE,
Here is the code in my ACTIVATE_PROCESS method. There is no error checking yet as I was just beginning with an attempt to create a new infotype 0000 Action record and was getting those exceptions. Any help would be appreciated.
method if_ex_hrecm00_activation~activate_process .
  constants:
    c_abkrs_u1         type abkrs   value 'U1',
    c_abkrs_u2         type abkrs   value 'U2',
    c_abkrs_u3         type abkrs   value 'U3',
    c_abkrs_u4         type abkrs   value 'U4',
    c_massn_z4         type massn   value 'Z4',  "Change in Pay
    c_massg_10         type massg   value '10',  "Merit/Equity
    c_endda_1231       type datum   value '99991231',
    c_actio_ins        type actio   value 'INS',  "Create
    c_citem_us(2)      type c       value 'US',
    c_citem_uq(2)      type c       value 'UQ',
    c_infotype_0000(4) type c      value '0000',
    c_is_ok            type boole_d value 'X',
    c_is_not_ok        type boole_d value ' '.
  data: p0000 type standard table of p0000.
  data:
    w_rec_it0000      type p0000,
    w_rec_it0001      type p0001,   "Infotype 0001 (Org. Assignment)
    w_rec_t549a       type t549a,   "Payroll areas
    w_rec_t549q       type t549q,   "Payroll Periods
    w_is_ok           type boole_d,
    w_return          type bapireturn1,
    w_infty_key       type bapipakey,
    w_message_handler type ref to cl_hrpa_message_list.
set is_ok export parameter to true to start with
  is_ok = c_is_ok.
For each IT0759 record with a value of USnn or UQnn (where 'nn' =
last two digits of the current plan year) in field IT0759-CITEM
  if p0759-citem(2) eq c_citem_us or
     p0759-citem(2) eq c_citem_uq.
Look up the employees current Payroll Area from IT0001-ABKRS
    call function 'HR_ECM_GET_IT0001'
      exporting
        pernr           = p0759-pernr
        key_date        = sy-datum
        message_handler = message_handler
      importing
        p0001           = w_rec_it0001
        is_ok           = w_is_ok.
If the payroll area is equal to U1, U2, U3 or U4 then:
    if ( w_rec_it0001-abkrs eq c_abkrs_u1 or
         w_rec_it0001-abkrs eq c_abkrs_u2 or
         w_rec_it0001-abkrs eq c_abkrs_u3 or
         w_rec_it0001-abkrs eq c_abkrs_u4 ).
Use the payroll area to look up the Period Parameter from V_T549A field PERMO
      clear w_rec_t549a.
      select single permo from t549a
        into w_rec_t549a-permo
        where abkrs eq w_rec_it0001-abkrs.
Select the Payroll Period whose start date (BEGDA) is immediately
after the effective date on IT0759-EFFDT
      clear w_rec_t549q.
      select single * from t549q
        into w_rec_t549q
        where permo eq w_rec_t549a-permo
          and pabrj eq p0759-begda(4)
          and begda ge p0759-begda.
      CALL FUNCTION 'HR_READ_INFOTYPE'
        EXPORTING
          pernr           = p0759-pernr
          infty           = c_infotype_0000
          endda           = c_endda_1231
        TABLES
          infty_tab       = p0000
        EXCEPTIONS
          infty_not_found = 1
          OTHERS          = 2.
    sort descending to put the latest record first
      sort p0000 descending.
    read the first record into the IT0000 record structure
      read table p0000 into w_rec_it0000 index 1.
Initial Field - the system will populate
      clear: w_rec_it0000-aedtm,
             w_rec_it0000-uname.
      w_rec_it0000-begda = w_rec_t549q-begda.
      w_rec_it0000-massn = c_massn_z4.
      w_rec_it0000-massg = c_massg_10.
This will lock employee for update
      CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
        EXPORTING
          number = p0759-pernr
        IMPORTING
          return = w_return.
      call function 'HR_INFOTYPE_OPERATION'
        exporting
          infty         = c_infotype_0000
          number        = p0759-pernr
          validityend   = c_endda_1231
          validitybegin = w_rec_t549q-begda
          record        = w_rec_it0000
          operation     = c_actio_ins
        importing
          return        = w_return
          key           = w_infty_key.
This will unlock employee record
      call function 'BAPI_EMPLOYEE_DEQUEUE'
        exporting
          number = p0759-pernr
        importing
          return = w_return.
    endif.
  endif.
endmethod.
Steve