erhan/abap-llm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ADT fallback: Accept headers for FUNC; G0189 accepted; regen2 results

Browse Source 
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
Kral
2026-10-03 16:31:03 +02:00
parent 428b3565b2
commit 7510131a7d
335 changed files with 12047 additions and 5545 deletions
Download Patch File Download Diff File Expand all files Collapse all files

147
tasks_gen/eval/G0160/faulty/m0_print_sum.prog.abap Normal file
View File

@@ -0,0 +1,147 @@
REPORT {{p}}print_sum.
DATA gv_customer TYPE {{p}}prtjob-customer.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_cust FOR gv_customer.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_job,
customer TYPE {{p}}prtjob-customer,
sheets TYPE {{p}}prtjob-sheets,
amount TYPE {{p}}prtjob-amount,
END OF ty_job,
tt_job TYPE STANDARD TABLE OF ty_job,
BEGIN OF ty_line,
customer TYPE {{p}}prtjob-customer,
jobs TYPE i,
sheets TYPE {{p}}prtjob-sheets,
revenue TYPE {{p}}prtjob-amount,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line,
tt_customer TYPE RANGE OF {{p}}prtjob-customer.
METHODS read_jobs
IMPORTING iv_from TYPE d
it_customer TYPE tt_customer
CHANGING ct_jobs TYPE tt_job.
METHODS aggregate
IMPORTING it_jobs TYPE tt_job
CHANGING ct_lines TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD read_jobs.
SELECT customer sheets amount
INTO CORRESPONDING FIELDS OF TABLE ct_jobs
FROM {{p}}prtjob
WHERE job_date < iv_from
AND customer IN it_customer.
ENDMETHOD.
METHOD aggregate.
FIELD-SYMBOLS <ls_job> TYPE ty_job.
FIELD-SYMBOLS <ls_line> TYPE ty_line.
LOOP AT it_jobs ASSIGNING <ls_job>.
READ TABLE ct_lines ASSIGNING <ls_line>
WITH KEY customer = <ls_job>-customer.
IF sy-subrc <> 0.
APPEND INITIAL LINE TO ct_lines ASSIGNING <ls_line>.
<ls_line>-customer = <ls_job>-customer.
ENDIF.
<ls_line>-jobs = <ls_line>-jobs + 1.
<ls_line>-sheets = <ls_line>-sheets + <ls_job>-sheets.
<ls_line>-revenue = <ls_line>-revenue + <ls_job>-amount.
ENDLOOP.
SORT ct_lines BY revenue DESCENDING customer ASCENDING.
ENDMETHOD.
METHOD display.
DATA lo_alv TYPE REF TO cl_salv_table.
DATA lx_error TYPE REF TO cx_salv_msg.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = lo_alv
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO lx_error.
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA go_report TYPE REF TO lcl_report.
DATA lt_jobs TYPE lcl_report=>tt_job.
DATA lt_lines TYPE lcl_report=>tt_line.
DATA lt_customer TYPE lcl_report=>tt_customer.
CREATE OBJECT go_report.
lt_customer = s_cust[].
go_report->read_jobs(
EXPORTING iv_from = p_from it_customer = lt_customer
CHANGING ct_jobs = lt_jobs ).
go_report->aggregate(
EXPORTING it_jobs = lt_jobs
CHANGING ct_lines = lt_lines ).
go_report->display( CHANGING ct_lines = lt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS aggregate_jobs FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD aggregate_jobs.
DATA lt_jobs TYPE lcl_report=>tt_job.
DATA ls_job TYPE lcl_report=>ty_job.
DATA lt_lines TYPE lcl_report=>tt_line.
DATA ls_line TYPE lcl_report=>ty_line.
DATA lo_report TYPE REF TO lcl_report.
DATA lv_count TYPE i.
DATA lv_amount TYPE {{p}}prtjob-amount.
DATA lv_customer TYPE {{p}}prtjob-customer.
CLEAR ls_job.
ls_job-customer = 'A'.
ls_job-sheets = 10.
ls_job-amount = 10.
APPEND ls_job TO lt_jobs.
CLEAR ls_job.
ls_job-customer = 'A'.
ls_job-sheets = 5.
ls_job-amount = 5.
APPEND ls_job TO lt_jobs.
CLEAR ls_job.
ls_job-customer = 'B'.
ls_job-sheets = 20.
ls_job-amount = 40.
APPEND ls_job TO lt_jobs.
CREATE OBJECT lo_report.
lo_report->aggregate(
EXPORTING it_jobs = lt_jobs
CHANGING ct_lines = lt_lines ).
DESCRIBE TABLE lt_lines LINES lv_count.
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
READ TABLE lt_lines INTO ls_line INDEX 1.
lv_customer = 'B'.
cl_abap_unit_assert=>assert_equals( exp = lv_customer act = ls_line-customer ).
lv_amount = 40.
cl_abap_unit_assert=>assert_equals( exp = lv_amount act = ls_line-revenue ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_line-jobs ).
lv_amount = 15.
cl_abap_unit_assert=>assert_equals( exp = lv_amount act = ls_line-revenue ).
ENDMETHOD.
ENDCLASS.

147
tasks_gen/eval/G0160/faulty/m1_print_sum.prog.abap Normal file
View File

@@ -0,0 +1,147 @@
REPORT {{p}}print_sum.
DATA gv_customer TYPE {{p}}prtjob-customer.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_cust FOR gv_customer.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_job,
customer TYPE {{p}}prtjob-customer,
sheets TYPE {{p}}prtjob-sheets,
amount TYPE {{p}}prtjob-amount,
END OF ty_job,
tt_job TYPE STANDARD TABLE OF ty_job,
BEGIN OF ty_line,
customer TYPE {{p}}prtjob-customer,
jobs TYPE i,
sheets TYPE {{p}}prtjob-sheets,
revenue TYPE {{p}}prtjob-amount,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line,
tt_customer TYPE RANGE OF {{p}}prtjob-customer.
METHODS read_jobs
IMPORTING iv_from TYPE d
it_customer TYPE tt_customer
CHANGING ct_jobs TYPE tt_job.
METHODS aggregate
IMPORTING it_jobs TYPE tt_job
CHANGING ct_lines TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD read_jobs.
SELECT customer sheets amount
INTO CORRESPONDING FIELDS OF TABLE ct_jobs
FROM {{p}}prtjob
WHERE job_date >= iv_from
OR customer IN it_customer.
ENDMETHOD.
METHOD aggregate.
FIELD-SYMBOLS <ls_job> TYPE ty_job.
FIELD-SYMBOLS <ls_line> TYPE ty_line.
LOOP AT it_jobs ASSIGNING <ls_job>.
READ TABLE ct_lines ASSIGNING <ls_line>
WITH KEY customer = <ls_job>-customer.
IF sy-subrc <> 0.
APPEND INITIAL LINE TO ct_lines ASSIGNING <ls_line>.
<ls_line>-customer = <ls_job>-customer.
ENDIF.
<ls_line>-jobs = <ls_line>-jobs + 1.
<ls_line>-sheets = <ls_line>-sheets + <ls_job>-sheets.
<ls_line>-revenue = <ls_line>-revenue + <ls_job>-amount.
ENDLOOP.
SORT ct_lines BY revenue DESCENDING customer ASCENDING.
ENDMETHOD.
METHOD display.
DATA lo_alv TYPE REF TO cl_salv_table.
DATA lx_error TYPE REF TO cx_salv_msg.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = lo_alv
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO lx_error.
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA go_report TYPE REF TO lcl_report.
DATA lt_jobs TYPE lcl_report=>tt_job.
DATA lt_lines TYPE lcl_report=>tt_line.
DATA lt_customer TYPE lcl_report=>tt_customer.
CREATE OBJECT go_report.
lt_customer = s_cust[].
go_report->read_jobs(
EXPORTING iv_from = p_from it_customer = lt_customer
CHANGING ct_jobs = lt_jobs ).
go_report->aggregate(
EXPORTING it_jobs = lt_jobs
CHANGING ct_lines = lt_lines ).
go_report->display( CHANGING ct_lines = lt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS aggregate_jobs FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD aggregate_jobs.
DATA lt_jobs TYPE lcl_report=>tt_job.
DATA ls_job TYPE lcl_report=>ty_job.
DATA lt_lines TYPE lcl_report=>tt_line.
DATA ls_line TYPE lcl_report=>ty_line.
DATA lo_report TYPE REF TO lcl_report.
DATA lv_count TYPE i.
DATA lv_amount TYPE {{p}}prtjob-amount.
DATA lv_customer TYPE {{p}}prtjob-customer.
CLEAR ls_job.
ls_job-customer = 'A'.
ls_job-sheets = 10.
ls_job-amount = 10.
APPEND ls_job TO lt_jobs.
CLEAR ls_job.
ls_job-customer = 'A'.
ls_job-sheets = 5.
ls_job-amount = 5.
APPEND ls_job TO lt_jobs.
CLEAR ls_job.
ls_job-customer = 'B'.
ls_job-sheets = 20.
ls_job-amount = 40.
APPEND ls_job TO lt_jobs.
CREATE OBJECT lo_report.
lo_report->aggregate(
EXPORTING it_jobs = lt_jobs
CHANGING ct_lines = lt_lines ).
DESCRIBE TABLE lt_lines LINES lv_count.
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
READ TABLE lt_lines INTO ls_line INDEX 1.
lv_customer = 'B'.
cl_abap_unit_assert=>assert_equals( exp = lv_customer act = ls_line-customer ).
lv_amount = 40.
cl_abap_unit_assert=>assert_equals( exp = lv_amount act = ls_line-revenue ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_line-jobs ).
lv_amount = 15.
cl_abap_unit_assert=>assert_equals( exp = lv_amount act = ls_line-revenue ).
ENDMETHOD.
ENDCLASS.

147
tasks_gen/eval/G0160/faulty/m2_print_sum.prog.abap Normal file
View File

@@ -0,0 +1,147 @@
REPORT {{p}}print_sum.
DATA gv_customer TYPE {{p}}prtjob-customer.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_cust FOR gv_customer.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_job,
customer TYPE {{p}}prtjob-customer,
sheets TYPE {{p}}prtjob-sheets,
amount TYPE {{p}}prtjob-amount,
END OF ty_job,
tt_job TYPE STANDARD TABLE OF ty_job,
BEGIN OF ty_line,
customer TYPE {{p}}prtjob-customer,
jobs TYPE i,
sheets TYPE {{p}}prtjob-sheets,
revenue TYPE {{p}}prtjob-amount,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line,
tt_customer TYPE RANGE OF {{p}}prtjob-customer.
METHODS read_jobs
IMPORTING iv_from TYPE d
it_customer TYPE tt_customer
CHANGING ct_jobs TYPE tt_job.
METHODS aggregate
IMPORTING it_jobs TYPE tt_job
CHANGING ct_lines TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD read_jobs.
SELECT customer sheets amount
INTO CORRESPONDING FIELDS OF TABLE ct_jobs
FROM {{p}}prtjob
WHERE job_date >= iv_from
AND customer IN it_customer.
ENDMETHOD.
METHOD aggregate.
FIELD-SYMBOLS <ls_job> TYPE ty_job.
FIELD-SYMBOLS <ls_line> TYPE ty_line.
LOOP AT it_jobs ASSIGNING <ls_job>.
READ TABLE ct_lines ASSIGNING <ls_line>
WITH KEY customer = <ls_job>-customer.
IF sy-subrc <> 0.
APPEND INITIAL LINE TO ct_lines ASSIGNING <ls_line>.
<ls_line>-customer = <ls_job>-customer.
ENDIF.
<ls_line>-jobs = <ls_line>-jobs - 1.
<ls_line>-sheets = <ls_line>-sheets + <ls_job>-sheets.
<ls_line>-revenue = <ls_line>-revenue + <ls_job>-amount.
ENDLOOP.
SORT ct_lines BY revenue DESCENDING customer ASCENDING.
ENDMETHOD.
METHOD display.
DATA lo_alv TYPE REF TO cl_salv_table.
DATA lx_error TYPE REF TO cx_salv_msg.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = lo_alv
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO lx_error.
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA go_report TYPE REF TO lcl_report.
DATA lt_jobs TYPE lcl_report=>tt_job.
DATA lt_lines TYPE lcl_report=>tt_line.
DATA lt_customer TYPE lcl_report=>tt_customer.
CREATE OBJECT go_report.
lt_customer = s_cust[].
go_report->read_jobs(
EXPORTING iv_from = p_from it_customer = lt_customer
CHANGING ct_jobs = lt_jobs ).
go_report->aggregate(
EXPORTING it_jobs = lt_jobs
CHANGING ct_lines = lt_lines ).
go_report->display( CHANGING ct_lines = lt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS aggregate_jobs FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD aggregate_jobs.
DATA lt_jobs TYPE lcl_report=>tt_job.
DATA ls_job TYPE lcl_report=>ty_job.
DATA lt_lines TYPE lcl_report=>tt_line.
DATA ls_line TYPE lcl_report=>ty_line.
DATA lo_report TYPE REF TO lcl_report.
DATA lv_count TYPE i.
DATA lv_amount TYPE {{p}}prtjob-amount.
DATA lv_customer TYPE {{p}}prtjob-customer.
CLEAR ls_job.
ls_job-customer = 'A'.
ls_job-sheets = 10.
ls_job-amount = 10.
APPEND ls_job TO lt_jobs.
CLEAR ls_job.
ls_job-customer = 'A'.
ls_job-sheets = 5.
ls_job-amount = 5.
APPEND ls_job TO lt_jobs.
CLEAR ls_job.
ls_job-customer = 'B'.
ls_job-sheets = 20.
ls_job-amount = 40.
APPEND ls_job TO lt_jobs.
CREATE OBJECT lo_report.
lo_report->aggregate(
EXPORTING it_jobs = lt_jobs
CHANGING ct_lines = lt_lines ).
DESCRIBE TABLE lt_lines LINES lv_count.
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
READ TABLE lt_lines INTO ls_line INDEX 1.
lv_customer = 'B'.
cl_abap_unit_assert=>assert_equals( exp = lv_customer act = ls_line-customer ).
lv_amount = 40.
cl_abap_unit_assert=>assert_equals( exp = lv_amount act = ls_line-revenue ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_line-jobs ).
lv_amount = 15.
cl_abap_unit_assert=>assert_equals( exp = lv_amount act = ls_line-revenue ).
ENDMETHOD.
ENDCLASS.

147
tasks_gen/eval/G0160/faulty/m3_print_sum.prog.abap Normal file
View File

@@ -0,0 +1,147 @@
REPORT {{p}}print_sum.
DATA gv_customer TYPE {{p}}prtjob-customer.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_cust FOR gv_customer.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_job,
customer TYPE {{p}}prtjob-customer,
sheets TYPE {{p}}prtjob-sheets,
amount TYPE {{p}}prtjob-amount,
END OF ty_job,
tt_job TYPE STANDARD TABLE OF ty_job,
BEGIN OF ty_line,
customer TYPE {{p}}prtjob-customer,
jobs TYPE i,
sheets TYPE {{p}}prtjob-sheets,
revenue TYPE {{p}}prtjob-amount,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line,
tt_customer TYPE RANGE OF {{p}}prtjob-customer.
METHODS read_jobs
IMPORTING iv_from TYPE d
it_customer TYPE tt_customer
CHANGING ct_jobs TYPE tt_job.
METHODS aggregate
IMPORTING it_jobs TYPE tt_job
CHANGING ct_lines TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD read_jobs.
SELECT customer sheets amount
INTO CORRESPONDING FIELDS OF TABLE ct_jobs
FROM {{p}}prtjob
WHERE job_date >= iv_from
AND customer IN it_customer.
ENDMETHOD.
METHOD aggregate.
FIELD-SYMBOLS <ls_job> TYPE ty_job.
FIELD-SYMBOLS <ls_line> TYPE ty_line.
LOOP AT it_jobs ASSIGNING <ls_job>.
READ TABLE ct_lines ASSIGNING <ls_line>
WITH KEY customer = <ls_job>-customer.
IF sy-subrc <> 0.
APPEND INITIAL LINE TO ct_lines ASSIGNING <ls_line>.
<ls_line>-customer = <ls_job>-customer.
ENDIF.
<ls_line>-jobs = <ls_line>-jobs + 1.
<ls_line>-sheets = <ls_line>-sheets - <ls_job>-sheets.
<ls_line>-revenue = <ls_line>-revenue + <ls_job>-amount.
ENDLOOP.
SORT ct_lines BY revenue DESCENDING customer ASCENDING.
ENDMETHOD.
METHOD display.
DATA lo_alv TYPE REF TO cl_salv_table.
DATA lx_error TYPE REF TO cx_salv_msg.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = lo_alv
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO lx_error.
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA go_report TYPE REF TO lcl_report.
DATA lt_jobs TYPE lcl_report=>tt_job.
DATA lt_lines TYPE lcl_report=>tt_line.
DATA lt_customer TYPE lcl_report=>tt_customer.
CREATE OBJECT go_report.
lt_customer = s_cust[].
go_report->read_jobs(
EXPORTING iv_from = p_from it_customer = lt_customer
CHANGING ct_jobs = lt_jobs ).
go_report->aggregate(
EXPORTING it_jobs = lt_jobs
CHANGING ct_lines = lt_lines ).
go_report->display( CHANGING ct_lines = lt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS aggregate_jobs FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD aggregate_jobs.
DATA lt_jobs TYPE lcl_report=>tt_job.
DATA ls_job TYPE lcl_report=>ty_job.
DATA lt_lines TYPE lcl_report=>tt_line.
DATA ls_line TYPE lcl_report=>ty_line.
DATA lo_report TYPE REF TO lcl_report.
DATA lv_count TYPE i.
DATA lv_amount TYPE {{p}}prtjob-amount.
DATA lv_customer TYPE {{p}}prtjob-customer.
CLEAR ls_job.
ls_job-customer = 'A'.
ls_job-sheets = 10.
ls_job-amount = 10.
APPEND ls_job TO lt_jobs.
CLEAR ls_job.
ls_job-customer = 'A'.
ls_job-sheets = 5.
ls_job-amount = 5.
APPEND ls_job TO lt_jobs.
CLEAR ls_job.
ls_job-customer = 'B'.
ls_job-sheets = 20.
ls_job-amount = 40.
APPEND ls_job TO lt_jobs.
CREATE OBJECT lo_report.
lo_report->aggregate(
EXPORTING it_jobs = lt_jobs
CHANGING ct_lines = lt_lines ).
DESCRIBE TABLE lt_lines LINES lv_count.
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
READ TABLE lt_lines INTO ls_line INDEX 1.
lv_customer = 'B'.
cl_abap_unit_assert=>assert_equals( exp = lv_customer act = ls_line-customer ).
lv_amount = 40.
cl_abap_unit_assert=>assert_equals( exp = lv_amount act = ls_line-revenue ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_line-jobs ).
lv_amount = 15.
cl_abap_unit_assert=>assert_equals( exp = lv_amount act = ls_line-revenue ).
ENDMETHOD.
ENDCLASS.

147
tasks_gen/eval/G0160/faulty/m4_print_sum.prog.abap Normal file
View File

@@ -0,0 +1,147 @@
REPORT {{p}}print_sum.
DATA gv_customer TYPE {{p}}prtjob-customer.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_cust FOR gv_customer.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_job,
customer TYPE {{p}}prtjob-customer,
sheets TYPE {{p}}prtjob-sheets,
amount TYPE {{p}}prtjob-amount,
END OF ty_job,
tt_job TYPE STANDARD TABLE OF ty_job,
BEGIN OF ty_line,
customer TYPE {{p}}prtjob-customer,
jobs TYPE i,
sheets TYPE {{p}}prtjob-sheets,
revenue TYPE {{p}}prtjob-amount,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line,
tt_customer TYPE RANGE OF {{p}}prtjob-customer.
METHODS read_jobs
IMPORTING iv_from TYPE d
it_customer TYPE tt_customer
CHANGING ct_jobs TYPE tt_job.
METHODS aggregate
IMPORTING it_jobs TYPE tt_job
CHANGING ct_lines TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD read_jobs.
SELECT customer sheets amount
INTO CORRESPONDING FIELDS OF TABLE ct_jobs
FROM {{p}}prtjob
WHERE job_date >= iv_from
AND customer IN it_customer.
ENDMETHOD.
METHOD aggregate.
FIELD-SYMBOLS <ls_job> TYPE ty_job.
FIELD-SYMBOLS <ls_line> TYPE ty_line.
LOOP AT it_jobs ASSIGNING <ls_job>.
READ TABLE ct_lines ASSIGNING <ls_line>
WITH KEY customer = <ls_job>-customer.
IF sy-subrc <> 0.
APPEND INITIAL LINE TO ct_lines ASSIGNING <ls_line>.
<ls_line>-customer = <ls_job>-customer.
ENDIF.
<ls_line>-jobs = <ls_line>-jobs + 1.
<ls_line>-sheets = <ls_line>-sheets + <ls_job>-sheets.
<ls_line>-revenue = <ls_line>-revenue - <ls_job>-amount.
ENDLOOP.
SORT ct_lines BY revenue DESCENDING customer ASCENDING.
ENDMETHOD.
METHOD display.
DATA lo_alv TYPE REF TO cl_salv_table.
DATA lx_error TYPE REF TO cx_salv_msg.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = lo_alv
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO lx_error.
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA go_report TYPE REF TO lcl_report.
DATA lt_jobs TYPE lcl_report=>tt_job.
DATA lt_lines TYPE lcl_report=>tt_line.
DATA lt_customer TYPE lcl_report=>tt_customer.
CREATE OBJECT go_report.
lt_customer = s_cust[].
go_report->read_jobs(
EXPORTING iv_from = p_from it_customer = lt_customer
CHANGING ct_jobs = lt_jobs ).
go_report->aggregate(
EXPORTING it_jobs = lt_jobs
CHANGING ct_lines = lt_lines ).
go_report->display( CHANGING ct_lines = lt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS aggregate_jobs FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD aggregate_jobs.
DATA lt_jobs TYPE lcl_report=>tt_job.
DATA ls_job TYPE lcl_report=>ty_job.
DATA lt_lines TYPE lcl_report=>tt_line.
DATA ls_line TYPE lcl_report=>ty_line.
DATA lo_report TYPE REF TO lcl_report.
DATA lv_count TYPE i.
DATA lv_amount TYPE {{p}}prtjob-amount.
DATA lv_customer TYPE {{p}}prtjob-customer.
CLEAR ls_job.
ls_job-customer = 'A'.
ls_job-sheets = 10.
ls_job-amount = 10.
APPEND ls_job TO lt_jobs.
CLEAR ls_job.
ls_job-customer = 'A'.
ls_job-sheets = 5.
ls_job-amount = 5.
APPEND ls_job TO lt_jobs.
CLEAR ls_job.
ls_job-customer = 'B'.
ls_job-sheets = 20.
ls_job-amount = 40.
APPEND ls_job TO lt_jobs.
CREATE OBJECT lo_report.
lo_report->aggregate(
EXPORTING it_jobs = lt_jobs
CHANGING ct_lines = lt_lines ).
DESCRIBE TABLE lt_lines LINES lv_count.
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
READ TABLE lt_lines INTO ls_line INDEX 1.
lv_customer = 'B'.
cl_abap_unit_assert=>assert_equals( exp = lv_customer act = ls_line-customer ).
lv_amount = 40.
cl_abap_unit_assert=>assert_equals( exp = lv_amount act = ls_line-revenue ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_line-jobs ).
lv_amount = 15.
cl_abap_unit_assert=>assert_equals( exp = lv_amount act = ls_line-revenue ).
ENDMETHOD.
ENDCLASS.