src/IGESAppli/IGESAppli_PartNumber.cdl

   1 --
   2 -- File      :  PartNumber.cdl
   3 -- Created   :  Mon 11 Jan 1993
   4 -- Author    : CKY / Contract Toubro-Larsen ( Anand NATRAJAN )
   5 --
   6 ---Copyright : MATRA-DATAVISION  1993
   7 --
   8
   9 class PartNumber from IGESAppli  inherits IGESEntity
  10
  11         ---Purpose: defines PartNumber, Type <406> Form <9>
  12         --          in package IGESAppli
  13         --          Attaches a set of text strings that define the common
  14         --          part numbers to an entity being used to represent a
  15         --          physical component
  16
  17 uses
  18
  19         HAsciiString from TCollection
  20
  21 is
  22
  23         Create returns mutable PartNumber;
  24
  25         -- Specific Methods pertaining to the class
  26
  27         Init (me        : mutable;
  28               nbPropVal : Integer;
  29               aGenName  : HAsciiString;
  30               aMilName  : HAsciiString;
  31               aVendName : HAsciiString;
  32               anIntName : HAsciiString);
  33         ---Purpose : This method is used to set the fields of the class
  34         --           PartNumber
  35         --       - nbPropVal : number of property values, always = 4
  36         --       - aGenName  : Generic part number or name
  37         --       - aMilName  : Military Standard (MIL-STD) part number
  38         --       - aVendName : Vendor part number or name
  39         --       - anIntName : Internal part number
  40
  41         NbPropertyValues (me) returns Integer;
  42         ---Purpose : returns number of property values, always = 4
  43
  44         GenericNumber (me) returns HAsciiString from TCollection;
  45         ---Purpose : returns Generic part number or name
  46
  47         MilitaryNumber (me) returns HAsciiString from TCollection;
  48         ---Purpose : returns Military Standard (MIL-STD) part number
  49
  50         VendorNumber (me) returns HAsciiString from TCollection;
  51         ---Purpose : returns Vendor part number or name
  52
  53         InternalNumber (me) returns HAsciiString from TCollection;
  54         ---Purpose : returns Internal part number
  55
  56 fields
  57
  58 --
  59 -- Class    : IGESAppli_PartNumber
  60 --
  61 -- Purpose  : Declaration of variables specific to the definition
  62 --            of the Class PartNumber.
  63 --
  64 -- Reminder : A PartNumber instance is defined by :
  65 --            - number of property values, always = 4
  66 --            - Generic part number or name
  67 --            - Military Standard (MIL-STD) part number
  68 --            - Vendor part number or name
  69 --            - Internal part number
  70
  71         theNbPropertyValues : Integer;
  72         theGenericNumber    : HAsciiString;
  73         theMilitaryNumber   : HAsciiString;
  74         theVendorNumber     : HAsciiString;
  75         theInternalNumber   : HAsciiString;
  76
  77 end PartNumber;