REPORT ztest_11.
NODES : pernr.
INFOTYPES:0000,0001,0002,0007,0041,2010.
TYPES:BEGIN OF ty_s_data,
        zhrorg1(40) TYPE c,   "一级部门
        zhrorg2(40) TYPE c,   "二级部门
        zhrorg3(40) TYPE c,   "三级部门
        zhrorg4(40) TYPE c,   "四级部门
        zhrorg5(40) TYPE c,   "五级部门

      END OF ty_s_data.
*****费用归属  结构
TYPES:BEGIN OF ty_t542t,
        ansvh TYPE t542t-ansvh,
        atx   TYPE t542t-atx,
        spras TYPE t542t-spras,
      END OF ty_t542t.
TYPES :BEGIN OF  it_01,
         pernr               TYPE pa0001-pernr,
         ename               TYPE pa0001-ename,
         deptno(20)          TYPE c,    "部门编号
         salaryno(10)        TYPE c,     "工资编号
         persongradeno(50)   TYPE  c, " 费用归属
         isforeign(10)       TYPE c,   "是否外方
         taxtoken(10)        TYPE c,     "计税标志
         salarygradename(20) TYPE c,   " 公司名称
         year(4)             TYPE c,  " 年份
       END OF    it_01.

DATA:gt_data      TYPE TABLE OF ty_s_data,
     gs_data      TYPE ty_s_data,
     gw_data      LIKE LINE OF gt_data,
     gs_layo      TYPE lvc_s_layo,
     gt_fcat      TYPE lvc_t_fcat,
     gt_zhrt_zzdz TYPE TABLE OF zhrt_zzdz WITH HEADER LINE,
     gt_zhrt_yghb TYPE TABLE OF zhrt_yghb WITH HEADER LINE.
DATA :gt_itab TYPE TABLE OF it_01,
      gs_itab TYPE it_01.
*****费用归属
DATA:gt_t542t TYPE TABLE OF ty_t542t,
     gs_t542t TYPE ty_t542t.
DATA g_str TYPE zshr_struc1.

START-OF-SELECTION.

*****费用归属
  SELECT ansvh atx spras INTO TABLE gt_t542t FROM t542t
  WHERE spras = sy-langu.
  SORT gt_t542t BY  spras   ansvh .

  GET pernr .

  CLEAR: gs_itab.

  rp_provide_from_last p0001 space pn-begda pn-endda.

  gs_itab-persongradeno = p0001-ansvh .
**** 费用归属
  READ TABLE gt_t542t INTO gs_t542t WITH KEY spras = '1'  ansvh = p0001-ansvh.
  IF sy-subrc = 0.
    gs_itab-persongradeno = gs_t542t-atx.
  ENDIF.
******************************************获取组织
  CALL FUNCTION 'ZHR_FUN_GET_STRUC'
    EXPORTING
      i_orgeh = p0001-orgeh
      i_begda = sy-datum
      i_endda = sy-datum
    IMPORTING
      o_struc = g_str.
  gw_data-zhrorg1 = g_str-stext2.
  gw_data-zhrorg2 = g_str-stext3.
  gw_data-zhrorg3 = g_str-stext4.
  gw_data-zhrorg4 = g_str-stext5.
  gw_data-zhrorg5 = g_str-stext6.

  SELECT  *  FROM zhrt_zzdz INTO TABLE  gt_zhrt_zzdz        "获取用友组织编号
  WHERE orgeh = g_str-stext3.

  SELECT * FROM zhrt_yghb INTO TABLE gt_zhrt_yghb
  WHERE pernr = pernr-pernr.


  READ TABLE gt_zhrt_zzdz WITH KEY orgeh = g_str-stext3.
  IF  sy-subrc = 0 .
    gs_itab-deptno = gt_zhrt_zzdz-zu8bm.
  ENDIF.

  READ TABLE gt_zhrt_yghb WITH  KEY pernr = pernr-pernr.
  IF  sy-subrc = 0 .
    gs_itab-pernr  = gt_zhrt_yghb-zygbh.
    gs_itab-ename  = gt_zhrt_yghb-ename.
  ENDIF.
  gs_itab-isforeign = '0'.
  gs_itab-taxtoken = '0'.
  gs_itab-salarygradename = '青岛酷特智能股份有限公司'.
  gs_itab-year = '2019'.

  APPEND gs_itab TO  gt_itab.

END-OF-SELECTION.


  DATA: lv_post_string TYPE string,
        lv_len         TYPE i,
        lv_result      TYPE string.

  DATA: lr_http_client TYPE REF TO if_http_client .

  DATA: lv_xml TYPE string.
  DATA: lv_one TYPE string.

*  CALL TRANSFORMATION id SOURCE b = ls_line RESULT XML lv_xml.

*DATA(xml) = cl_proxy_xml_transform=>abap_to_xml_xstring( EXPORTING abap_data = ls_line ddic_type = 'ZSXML03' ).

  lv_post_string = /ui2/cl_json=>serialize( data = gt_itab[] compress = abap_true pretty_name = abap_true ).


  lv_xml = '