HR开发常用的function和class

  

一、      根据Personnel Area 、Personnel Subarea确定t001p中的内容

tables : t001p .

t001p = cl_hr_t001p=>read( werks = 'AR01'  btrtl = '0001' ) .
loop at t001p .
  write : / t001p-werks , t001p-btext .
endloop.

二、      SAP提供的类cl_hr_t001p中方法read的实现方式

METHOD read.

  IF NOT ( a_is_buffered = true  AND
           a_t001p-werks = werks AND
           a_t001p-btrtl = btrtl ).
    CLEAR a_t001p.
    a_t001p-werks = werks.
    a_t001p-btrtl = btrtl.
    SELECT SINGLE * FROM t001p INTO a_t001p
      WHERE werks = werks AND btrtl = btrtl.
    a_subrc = sy-subrc.
    a_is_buffered = true.
  ENDIF.

  IF a_subrc IS INITIAL.
    t001p = a_t001p.
  ELSE.
    CLEAR t001p.
  ENDIF.

ENDMETHOD.

注意：

（1）       在这个方法中a_is_b