SHARE
TWEET

Untitled

a guest Oct 22nd, 2019 140 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DATA(lt_0001F) = VALUE ptt_p0001( ).
  2. DATA(lo_infty_reader) = cl_hrsen_read_infotype_fmri=>get_instance( ).
  3. lo_infty_reader->read(
  4.  EXPORTING
  5.    tclas = 'A'
  6.    subty = space
  7.    pernr = pernr
  8.    infty = '0001'
  9.    objps = space
  10.    begda = "Начло даты
  11.    endda = '31129999'
  12.  IMPORTING
  13.    pnnnn = DATA(perlp_tab)
  14.  EXCEPTIONS
  15.    e_assertion = 1
  16.    OTHERS = 2 ).
  17.  
  18.  IF sy-subrc = 0.
  19.  
  20.  
  21.     CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn_tab
  22.         EXPORTING
  23.           prelp_tab = prelp_tab
  24.         IMPORTING
  25.           pnnnn_tab = lt_0001F
  26.          
  27.     IF line_exists( lt_0001F[ endda = '31129999' ] ).
  28.         DATA(last_event) = REF #( lt_0001F[ begda = '3112999' ] ).
  29.         DATA(begda_prev) = VALUE( lt_0001F[ endda = last_event->begda - 1 persg = last_event->persg ]-begda OPTIONAL ).
  30.         IF begda_prev IS NOT INITIAL.
  31.             "если дата есть, значит persg не изменился
  32.         ENDIF.
  33.     ENDIF.
  34. ENDIF.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top