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:
DefinitionType
 structural_frame_item ENTITY


[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2023-03-25T00:11:39-04:00