RP_CHECK_PERNR - Проверка табельного номера

[Uukrul]

RP_CHECK_PERNR - Проверка табельного номера, позволяет проверить существует ли табельный номер на данную дату. Причем если сотрудник к указанной дате уже уволен то будет возвращена ошибка типа person_not_active.

Код Виділити Розширити


PARAMETERS: p_begda LIKE bas_check_pernr-begda DEFAULT sy-datum,
            p_pernr LIKE bas_check_pernr-pernr.

DATA: l_name  LIKE  bas_check_pernr-name,
      l_persa LIKE  bas_check_pernr-persa,
      l_bukrs LIKE  bas_check_pernr-bukrs,
      l_kostl LIKE  bas_check_pernr-kostl,
      l_molga LIKE  bas_check_pernr-molga,
      l_personnel_subarea LIKE  ess_emp-perssubarea.

CALL FUNCTION 'RP_CHECK_PERNR'
  EXPORTING
    beg               = p_begda
    pnr               = p_pernr
  IMPORTING
    name              = l_name
    persa             = l_persa
    bukrs             = l_bukrs
    kostl             = l_kostl
    molga             = l_molga
    personnel_subarea = l_personnel_subarea
  EXCEPTIONS
    data_fault        = 1
    person_not_active = 2
    person_unknown    = 3
    exit_fault        = 4
    pernr_missing     = 5
    date_missing      = 6
    OTHERS            = 7.