I have done this numerous times without a problem, but the latest package I create does not show it's classes (actually it's a single class) after the package has been added, and selected, using TAureliusDataset.LoadFieldDefinitions
. Any ideas?
unit Entity.Codes;
interface
uses
Aurelius.Mapping.Attributes;
type
[Entity]
[AutoMapping]
[Table('CODES')]
[Id('CodeType,CodeValue', TIdGenerator.None)]
TCodetable = class
private
[Column('CODE_TYPE', [TColumnProp.Required], 3)]
FCodeType: string;
[Column('CODE_VALUE', [TColumnProp.Required], 10)]
FCodeValue: string;
[Column('CODE_DESC', [], 100)]
FCodeDesc: string;
[Column('SYSCODE', [], 1)]
FSysCode: string;
[Column('CREATEDBY', [], 8)]
FCreatedBy: string;
[Column('Ordering')]
FOrdering: Integer;
public
property CodeType: string read FCodeType write FCodeType;
property CodeValue: string read FCodeValue write FCodeValue;
property CodeDesc: string read FCodeDesc write FCodeDesc;
property SysCode: string read FSysCode write FSysCode;
property CreatedBy: string read FCreatedBy write FCreatedBy;
property Ordering: Integer read FOrdering write FOrdering;
end;
implementation
initialization
RegisterEntity(TCodetable);
end.