HR ABAP ( Employee services)

Question

Hi,
    In my selection screen i gave date field (DD/MM/YYYY) in that the user will enter the date and i found employee services using  'HR_SEN_CRULE_0100_DURATION' this call function.But now the user need in selection screen period (MM/YY).
Is there any other function module to find the employee services.Can you help me.
Regards,
K.Karthikeyan.

Answer 1

hi,
use it for F4 help button on period. you will get endda and begda from this return.
SELECT *
  FROM t549q
  INTO TABLE it_period
  WHERE permo = c_04.
  CLEAR it_map.
  wa_map-fldname   = c_f4_pabrj.
  wa_map-dyfldname = c_p_period.
  APPEND wa_map TO it_map.
  CLEAR wa_map.
  wa_map-fldname = c_f4_pabrp.
  wa_map-dyfldname = c_p_period.
  APPEND wa_map TO it_map.
  wa_map-fldname = c_f4_begda.
  wa_map-dyfldname = c_p_period.
  APPEND wa_map TO it_map.
  wa_map-fldname = c_f4_endda.
  wa_map-dyfldname = c_p_period.
  APPEND wa_map TO it_map.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      ddic_structure  = c_t549q
      retfield        = c_pabrp
      dynpprog        = sy-cprog
      dynpnr          = sy-dynnr
      value_org       = c_f4_s
    TABLES
      value_tab       = it_period
      field_tab       = it_dfies
      return_tab      = it_rettab
      dynpfld_mapping = it_map
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 2.
  IF sy-subrc = 1.
    MESSAGE i000 WITH 'Parameter error'(018).
    LEAVE TO TRANSACTION c_tcode.
  ELSEIF sy-subrc = 2.
    MESSAGE i000 WITH 'No Values found'(094).
    LEAVE TO TRANSACTION c_tcode.
  ENDIF.
ags.
  IF it_rettab IS NOT INITIAL.
    SORT it_rettab BY fieldname.
    LOOP AT it_rettab INTO wa_rettab.
      CASE wa_rettab-fieldname.
        WHEN c_f4_pabrj.
          gv_yyyy = wa_rettab-fieldval.
          CLEAR wa_rettab.
        WHEN c_f4_pabrp.
          gv_pp = wa_rettab-fieldval.
          CLEAR wa_rettab.
Get the BEGDA and ENDDA for selecting PERSON with GET PERSON event
and when "remove all violation" is selected
        WHEN c_f4_begda.
          PERFORM date_to_internal USING wa_rettab-fieldval
                                   CHANGING gv_begda.
          CLEAR wa_rettab.
        WHEN c_f4_endda.
          PERFORM date_to_internal USING wa_rettab-fieldval
                                   CHANGING gv_endda.
          CLEAR wa_rettab.
      ENDCASE.
    ENDLOOP.
    IF gv_yyyy IS NOT INITIAL AND gv_pp IS NOT INITIAL.
      CONCATENATE gv_yyyy gv_pp INTO p_period.
    ENDIF.
  ENDIF.