gatewaycodepatterns/ALVReport_To_Query at master · krisho007/gatewaycodepatterns · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
  METHOD quotarecords_get_entityset.

    FIELD-SYMBOLS <lt_pay_data> TYPE ANY TABLE.
    DATA: ls_report_output TYPE ty_vacation_report_line,
          ls_output        TYPE zcl_zvacation_report_mpc=>ts_quotarecord,
          lt_entityset     TYPE zcl_zvacation_report_mpc=>tt_quotarecord.

    cl_salv_bs_runtime_info=>set( EXPORTING display  = abap_false
                                            metadata = abap_false
                                            data     = abap_true ).

    SUBMIT zhr_vacation_report AND RETURN.
    TRY.
        cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = lr_pay_data ).
        ASSIGN lr_pay_data->* TO <lt_pay_data>.
      CATCH cx_salv_bs_sc_runtime_info.

    ENDTRY.

    cl_salv_bs_runtime_info=>clear_all( ).

    FIELD-SYMBOLS:
      <lt_itab>       TYPE table.
    ASSIGN lr_pay_data->* TO <lt_itab>.

    CHECK <lt_itab> IS NOT INITIAL.

    LOOP AT <lt_itab> INTO ls_report_output.
      ls_output-personnelnumber = ls_report_output-pernr.
      ls_output-quota = ls_report_output-ktart.
      ls_output-quotaname = ls_report_output-kttext.
      ls_output-name = ls_report_output-cname.
      ls_output-entitlement = ls_report_output-entitle.
      ls_output-used = ls_report_output-deduct.
      ls_output-compensated = ls_report_output-reduced2.
      ls_output-remaining = ls_report_output-rest.
      ls_output-unit = ls_report_output-untext.
      APPEND ls_output TO et_entityset.
    ENDLOOP.

  ENDMETHOD.