FUNCTION get_item_cost_code
(* SCHEMA STRUCTURAL_FRAME_SCHEMA; *)
(* New for LPM/6 *)
FUNCTION get_item_cost_code
(item : structural_frame_item) : BAG OF label;
LOCAL
i : INTEGER;
cost_codes : BAG OF label := [];
item_assignment : BAG OF item_cost_code_assigned :=
(USEDIN (item,
'STRUCTURAL_FRAME_SCHEMA.' +
'ITEM_COST_CODE_ASSIGNED.' +
'COSTED_ITEM'));
END_LOCAL;
IF SIZEOF (item_assignment) > 0 THEN
REPEAT i := 1 to HIINDEX (item_assignment);
cost_codes := cost_codes + item_assignment[i].code\item_cost_code.cost_code;
END_REPEAT;
END_IF;
RETURN (cost_codes);
END_FUNCTION; (* new for LPM/6 *)
Referenced By
Defintion get_item_cost_code is references by the following definitions:
[Top Level Definitions] [Exit]Generated by STEP Tools® EXPRESS to HTML Converter
2023-03-25T00:11:39-04:00