40 lines
947 B
ObjectPascal
40 lines
947 B
ObjectPascal
unit uHeOObj_Custom;
|
|
{$RTTI EXPLICIT METHODS([vcPublic, vcPublished]) FIELDS([vcPrivate, vcProtected, vcPublic, vcPublished]) PROPERTIES([vcPublic, vcPublished])}
|
|
|
|
|
|
interface
|
|
{$I 'GlobalDefs.inc'}
|
|
|
|
uses
|
|
System.Generics.Collections,
|
|
MVCFramework.Serializer.Commons,
|
|
MVCFramework.ActiveRecord,
|
|
MVCFramework.Nullables,
|
|
{$IFDEF SWAGGER}
|
|
MVCFramework.Swagger.Commons,
|
|
{$ENDIF}
|
|
helTabsBIDs,
|
|
uHeoObj_Base;
|
|
|
|
const
|
|
tblPlanNasazLisu = '[dbo].[_hdc_TabPlanNasazeniLisu]';
|
|
tblPlanNasazLisuR = '[dbo].[_hdc_TabPlanNasazeniLisuR]';
|
|
tblPlanNasazLisuVstr = '[dbo].[_hdc_TabPlanNasazeniLisuVstr]';
|
|
tblPlanNasazLisuZm = '[dbo].[_hdc_TabPlanNasazeniLisuZmetky]';
|
|
|
|
|
|
type
|
|
[MVCNameCase(ncLowerCase)]
|
|
TKDYPlanLisu = class(THeliosObjekty)
|
|
private
|
|
FIndexZmeny: NullableInt32;
|
|
public
|
|
[MVCColumn('Cislo', true)] // is PrimaryKey
|
|
property IndexZmeny: NullableInt32 read FIndexZmeny write FIndexZmeny;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
end. |