5de5e2851c
- Static bundle checks (name length, seed type, reserved words, contract test classes, testclasses_file), local abaplint parser check before SAP, max_tokens, robust JSON parse - Runner: G2 for CDS views with parameters, contract_check detail in report - G0020 and G0013 fixed by review and revalidated (oracle 100, null 0) - Pilot results in docs/faz1-tasarim.md 11e; handover notes merged into CLAUDE.md and docs Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
46 lines
1.4 KiB
ABAP
46 lines
1.4 KiB
ABAP
INTERFACE {{p}}if_stock_age PUBLIC.
|
|
TYPES:
|
|
ty_material TYPE c LENGTH 10,
|
|
ty_batch_id TYPE c LENGTH 10,
|
|
ty_bucket TYPE c LENGTH 2,
|
|
ty_quantity TYPE p LENGTH 13 DECIMALS 3,
|
|
BEGIN OF ty_batch,
|
|
material TYPE ty_material,
|
|
batch TYPE ty_batch_id,
|
|
quantity TYPE ty_quantity,
|
|
gr_date TYPE dats,
|
|
END OF ty_batch,
|
|
tt_batch TYPE STANDARD TABLE OF ty_batch WITH EMPTY KEY,
|
|
BEGIN OF ty_age_row,
|
|
material TYPE ty_material,
|
|
bucket TYPE ty_bucket,
|
|
quantity TYPE ty_quantity,
|
|
batch_count TYPE i,
|
|
END OF ty_age_row,
|
|
tt_age_row TYPE STANDARD TABLE OF ty_age_row WITH EMPTY KEY,
|
|
BEGIN OF ty_total,
|
|
material TYPE ty_material,
|
|
quantity TYPE ty_quantity,
|
|
batch_count TYPE i,
|
|
END OF ty_total,
|
|
tt_total TYPE STANDARD TABLE OF ty_total WITH EMPTY KEY.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_bucket,
|
|
d0_30 TYPE ty_bucket VALUE '01',
|
|
d31_60 TYPE ty_bucket VALUE '02',
|
|
d61_90 TYPE ty_bucket VALUE '03',
|
|
d91_plus TYPE ty_bucket VALUE '04',
|
|
END OF c_bucket.
|
|
|
|
METHODS analyze
|
|
IMPORTING it_batch TYPE tt_batch
|
|
iv_key_date TYPE dats
|
|
RETURNING VALUE(rt_age) TYPE tt_age_row.
|
|
|
|
METHODS total_by_material
|
|
IMPORTING it_batch TYPE tt_batch
|
|
iv_key_date TYPE dats
|
|
RETURNING VALUE(rt_total) TYPE tt_total.
|
|
ENDINTERFACE.
|