58 lines
2.3 KiB
ABAP
58 lines
2.3 KiB
ABAP
CLASS {{p}}bake_seed DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
INTERFACES if_oo_adt_classrun.
|
|
PRIVATE SECTION.
|
|
TYPES tt_deliv TYPE STANDARD TABLE OF {{p}}deliv.
|
|
METHODS add_delivery
|
|
IMPORTING iv_id TYPE {{p}}deliv-deliv_id
|
|
iv_shop TYPE {{p}}deliv-shop
|
|
iv_date TYPE {{p}}deliv-deliv_date
|
|
iv_loaves TYPE {{p}}deliv-loaves
|
|
iv_price TYPE {{p}}deliv-unit_price
|
|
CHANGING ct_deliv TYPE tt_deliv.
|
|
ENDCLASS.
|
|
|
|
CLASS {{p}}bake_seed IMPLEMENTATION.
|
|
METHOD if_oo_adt_classrun~main.
|
|
DATA lt_deliv TYPE tt_deliv.
|
|
|
|
DELETE FROM {{p}}deliv.
|
|
|
|
add_delivery( EXPORTING iv_id = 1 iv_shop = 'NORD' iv_date = '20260401'
|
|
iv_loaves = 100 iv_price = '2.50'
|
|
CHANGING ct_deliv = lt_deliv ).
|
|
add_delivery( EXPORTING iv_id = 2 iv_shop = 'NORD' iv_date = '20260401'
|
|
iv_loaves = 50 iv_price = '3.00'
|
|
CHANGING ct_deliv = lt_deliv ).
|
|
add_delivery( EXPORTING iv_id = 3 iv_shop = 'SUED' iv_date = '20260401'
|
|
iv_loaves = 200 iv_price = '3.00'
|
|
CHANGING ct_deliv = lt_deliv ).
|
|
add_delivery( EXPORTING iv_id = 4 iv_shop = 'WEST' iv_date = '20260401'
|
|
iv_loaves = 40 iv_price = '5.00'
|
|
CHANGING ct_deliv = lt_deliv ).
|
|
add_delivery( EXPORTING iv_id = 5 iv_shop = 'MITT' iv_date = '20260401'
|
|
iv_loaves = 80 iv_price = '2.50'
|
|
CHANGING ct_deliv = lt_deliv ).
|
|
add_delivery( EXPORTING iv_id = 6 iv_shop = 'OST' iv_date = '20260401'
|
|
iv_loaves = 10 iv_price = '2.50'
|
|
CHANGING ct_deliv = lt_deliv ).
|
|
add_delivery( EXPORTING iv_id = 7 iv_shop = 'NORD' iv_date = '20260331'
|
|
iv_loaves = 999 iv_price = '9.99'
|
|
CHANGING ct_deliv = lt_deliv ).
|
|
|
|
INSERT {{p}}deliv FROM TABLE lt_deliv.
|
|
out->write( sy-dbcnt ).
|
|
ENDMETHOD.
|
|
|
|
METHOD add_delivery.
|
|
DATA ls_deliv TYPE {{p}}deliv.
|
|
|
|
ls_deliv-deliv_id = iv_id.
|
|
ls_deliv-shop = iv_shop.
|
|
ls_deliv-deliv_date = iv_date.
|
|
ls_deliv-loaves = iv_loaves.
|
|
ls_deliv-unit_price = iv_price.
|
|
APPEND ls_deliv TO ct_deliv.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|