Mit dem Funktionsbaustein (FUBA) HR_QUOTAS_DEFAULT_AT_ENTRY können Sie Vorschlagswete der Abwesenheitkontingente ziehen.

* Zeitraum Ende = Ende laufendes Jahr
  ejahr(4)   = pnpbegda(4).

  ejahr+4(4) = '1231'.

  folgemonat = pnpendda + 1.

  CALL FUNCTION 'HR_QUOTAS_DEFAULT_AT_ENTRY'
    EXPORTING
      def_pernr                  = pernr-pernr
*   IMPORTING
*     DEF_ANZHL                  =
*     DEF_DESTA                  =
*     DEF_DEEND                  =
*     DEF_BEGDA_ORIG             =
*     DEF_ENDDA_ORIG             =
    TABLES
      def_p0000                  = p0000
      def_p0001                  = p0001
      def_p0002                  = p0002
      def_p0004                  = p0004
      def_p0007                  = p0007
      def_p0008                  = p0008
      def_p0016                  = p0016
      def_p0019                  = p0019
      def_p0041                  = p0041
      def_p2001                  = p2001
      def_p2006                  = p2006
*     DEF_PSP                    =
      def_value_tab              = def_value_tab
*     DEF_VALUE_TAB_DETAIL       =
*     DEF_ABWKTART_SEL           =
    CHANGING
      def_begda                  = folgemonat
      def_endda                  = ejahr
    EXCEPTIONS
      quomo_not_defined          = 1
      customizing_error          = 2
      endda_lt_begda             = 3
      no_rule_applied            = 4
      no_active_period           = 5
      OTHERS                     = 6
            .
  IF sy-subrc <> 0.
    PERFORM meldungsausgabe.
  ELSE.

Mit dem Funktionsbaustein (FUBA) HR_GET_QUOTA_DATA können Sie Kontingentdaten für eine Personalnummer herausfinden.

* Zeitraum Ende = Ende laufendes Jahr
  ejahr(4)   = pnpbegda(4).
  ejahr+4(4) = '1231'.

  CALL FUNCTION 'HR_GET_QUOTA_DATA'
    EXPORTING
      pernr             = pernr-pernr
      qtype             = '1'
      mod               = 'B'
      dedu_datum        = stichdatum
      enti_datum        = pnpbegda
      begda             = '20020101'
      endda             = ejahr
      dedubeg           = '20020101'
      deduend           = '99991231'
    IMPORTING
      retcd             = retcd
    TABLES
      abwko             = abwko
    EXCEPTIONS
      infty_not_found   = 1
      missing_authority = 2
      wrong_parameter   = 4
      OTHERS            = 5.

  LOOP AT abwko INTO abwko_1.
    APPEND abwko_1.
  ENDLOOP.

* Feriensaldo (Tage) per Stichtag
  LOOP AT abwko_1.
    IF abwko_1-ktart = '10' OR abwko_1-ktart = '11'.
      ADD abwko_1-rest TO fs_kum.
    ENDIF.
  ENDLOOP.

  it-fesal = fs_kum.