Stage 2 summary at 50 accepted trajectories

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 18:02:52 +02:00
parent 332fb4601d
commit 5bcd1bf9cd
1230 changed files with 77563 additions and 33 deletions

View File

@@ -0,0 +1,14 @@
@EndUserText.label : 'Grooming orders'
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
@AbapCatalog.tableCategory : #TRANSPARENT
@AbapCatalog.deliveryClass : #A
@AbapCatalog.dataMaintenance : #RESTRICTED
define table {{p}}groom {
key client : abap.clnt not null;
key groom_id : abap.int4 not null;
pet : abap.char(10);
coat : abap.char(8);
weight_kg : abap.dec(5,1);
service : abap.char(6);
visit_date : abap.dats;
}

View File

@@ -0,0 +1,59 @@
REPORT {{p}}groom_bill_old.
DATA: gv_pet TYPE {{p}}groom-pet.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_pet FOR gv_pet.
TYPES: BEGIN OF ty_out,
groom_id TYPE {{p}}groom-groom_id,
pet TYPE {{p}}groom-pet,
service TYPE {{p}}groom-service,
charge TYPE p LENGTH 9 DECIMALS 2,
END OF ty_out.
DATA: gt_out TYPE STANDARD TABLE OF ty_out,
gs_out TYPE ty_out,
gt_groom TYPE STANDARD TABLE OF {{p}}groom,
gs_groom TYPE {{p}}groom.
START-OF-SELECTION.
SELECT * FROM {{p}}groom INTO TABLE gt_groom
WHERE visit_date = p_date AND pet IN s_pet.
LOOP AT gt_groom INTO gs_groom.
CLEAR gs_out.
gs_out-groom_id = gs_groom-groom_id.
gs_out-pet = gs_groom-pet.
gs_out-service = gs_groom-service.
IF gs_groom-service = 'BASIC'.
gs_out-charge = 30.
ELSEIF gs_groom-service = 'FULL'.
gs_out-charge = 50.
ELSE.
gs_out-charge = 0.
ENDIF.
IF gs_groom-coat = 'LONG'.
gs_out-charge = gs_out-charge + 10.
ELSEIF gs_groom-coat = 'CURLY'.
gs_out-charge = gs_out-charge + 15.
ENDIF.
IF gs_groom-weight_kg > 25.
gs_out-charge = gs_out-charge + 20.
ENDIF.
IF gs_groom-service = 'FULL' AND gs_groom-coat = 'LONG'.
gs_out-charge = gs_out-charge - 5.
ENDIF.
APPEND gs_out TO gt_out.
ENDLOOP.
SORT gt_out BY groom_id.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = DATA(lo_alv)
CHANGING t_table = gt_out ).
lo_alv->display( ).
CATCH cx_salv_msg.
ENDTRY.

View File

@@ -0,0 +1,19 @@
CLASS {{p}}groom_seed DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES if_oo_adt_classrun.
ENDCLASS.
CLASS {{p}}groom_seed IMPLEMENTATION.
METHOD if_oo_adt_classrun~main.
DELETE FROM {{p}}groom.
INSERT {{p}}groom FROM TABLE @( VALUE #(
( groom_id = 1 pet = 'DOG' coat = 'SHORT' weight_kg = '12.0' service = 'BASIC' visit_date = '20260401' )
( groom_id = 2 pet = 'DOG' coat = 'LONG' weight_kg = '30.0' service = 'FULL' visit_date = '20260401' )
( groom_id = 3 pet = 'CAT' coat = 'SHORT' weight_kg = '4.5' service = 'BASIC' visit_date = '20260401' )
( groom_id = 4 pet = 'CAT' coat = 'CURLY' weight_kg = '6.0' service = 'FULL' visit_date = '20260401' )
( groom_id = 5 pet = 'DOG' coat = 'CURLY' weight_kg = '28.0' service = 'BASIC' visit_date = '20260401' )
( groom_id = 6 pet = 'CAT' coat = 'LONG' weight_kg = '5.0' service = 'BASIC' visit_date = '20260331' )
( groom_id = 7 pet = 'DOG' coat = 'SHORT' weight_kg = '40.0' service = 'FULL' visit_date = '20260401' ) ) ).
out->write( sy-dbcnt ).
ENDMETHOD.
ENDCLASS.