39769afce8
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
96 lines
2.6 KiB
ABAP
96 lines
2.6 KiB
ABAP
CLASS {{p}}vine_seed DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
INTERFACES if_oo_adt_classrun.
|
|
ENDCLASS.
|
|
|
|
CLASS {{p}}vine_seed IMPLEMENTATION.
|
|
METHOD if_oo_adt_classrun~main.
|
|
DATA lt_grape TYPE STANDARD TABLE OF {{p}}grape.
|
|
DATA lt_harvest TYPE STANDARD TABLE OF {{p}}harvest.
|
|
DATA ls_grape TYPE {{p}}grape.
|
|
DATA ls_harvest TYPE {{p}}harvest.
|
|
|
|
DELETE FROM {{p}}harvest.
|
|
DELETE FROM {{p}}grape.
|
|
|
|
CLEAR ls_grape.
|
|
ls_grape-client = sy-mandt.
|
|
ls_grape-variety = 'MERL'.
|
|
ls_grape-name = 'Merlot'.
|
|
APPEND ls_grape TO lt_grape.
|
|
|
|
CLEAR ls_grape.
|
|
ls_grape-client = sy-mandt.
|
|
ls_grape-variety = 'CHRD'.
|
|
ls_grape-name = 'Chardonnay'.
|
|
APPEND ls_grape TO lt_grape.
|
|
|
|
CLEAR ls_grape.
|
|
ls_grape-client = sy-mandt.
|
|
ls_grape-variety = 'RIES'.
|
|
ls_grape-name = 'Riesling'.
|
|
APPEND ls_grape TO lt_grape.
|
|
|
|
CLEAR ls_harvest.
|
|
ls_harvest-client = sy-mandt.
|
|
ls_harvest-harvest_id = 1.
|
|
ls_harvest-variety = 'MERL'.
|
|
ls_harvest-harvest_date = '20260901'.
|
|
ls_harvest-weight_kg = '1200.500'.
|
|
APPEND ls_harvest TO lt_harvest.
|
|
|
|
CLEAR ls_harvest.
|
|
ls_harvest-client = sy-mandt.
|
|
ls_harvest-harvest_id = 2.
|
|
ls_harvest-variety = 'MERL'.
|
|
ls_harvest-harvest_date = '20260910'.
|
|
ls_harvest-weight_kg = '800.000'.
|
|
APPEND ls_harvest TO lt_harvest.
|
|
|
|
CLEAR ls_harvest.
|
|
ls_harvest-client = sy-mandt.
|
|
ls_harvest-harvest_id = 3.
|
|
ls_harvest-variety = 'CHRD'.
|
|
ls_harvest-harvest_date = '20260905'.
|
|
ls_harvest-weight_kg = '2000.000'.
|
|
APPEND ls_harvest TO lt_harvest.
|
|
|
|
CLEAR ls_harvest.
|
|
ls_harvest-client = sy-mandt.
|
|
ls_harvest-harvest_id = 4.
|
|
ls_harvest-variety = 'CHRD'.
|
|
ls_harvest-harvest_date = '20261001'.
|
|
ls_harvest-weight_kg = '300.000'.
|
|
APPEND ls_harvest TO lt_harvest.
|
|
|
|
CLEAR ls_harvest.
|
|
ls_harvest-client = sy-mandt.
|
|
ls_harvest-harvest_id = 5.
|
|
ls_harvest-variety = 'RIES'.
|
|
ls_harvest-harvest_date = '20251215'.
|
|
ls_harvest-weight_kg = '250.000'.
|
|
APPEND ls_harvest TO lt_harvest.
|
|
|
|
CLEAR ls_harvest.
|
|
ls_harvest-client = sy-mandt.
|
|
ls_harvest-harvest_id = 6.
|
|
ls_harvest-variety = 'RIES'.
|
|
ls_harvest-harvest_date = '20260820'.
|
|
ls_harvest-weight_kg = '500.000'.
|
|
APPEND ls_harvest TO lt_harvest.
|
|
|
|
CLEAR ls_harvest.
|
|
ls_harvest-client = sy-mandt.
|
|
ls_harvest-harvest_id = 7.
|
|
ls_harvest-variety = 'SYRA'.
|
|
ls_harvest-harvest_date = '20260915'.
|
|
ls_harvest-weight_kg = '100.000'.
|
|
APPEND ls_harvest TO lt_harvest.
|
|
|
|
INSERT {{p}}grape FROM TABLE lt_grape.
|
|
INSERT {{p}}harvest FROM TABLE lt_harvest.
|
|
|
|
out->write( sy-dbcnt ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|