blob: a80336db10a6eee3690c06ff449664e7c5176cbd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
-- File: StepBasic_ApprovalDateTime.cdl
-- Created: Wed Mar 26 14:13:59 1997
-- Author: Christian CAILLET
-- <cky@heliox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1997
class ApprovalDateTime from StepBasic inherits TShared
---Purpose : Added from StepBasic Rev2 to Rev4
uses
DateTimeSelect from StepBasic,
Approval from StepBasic
is
Create returns mutable ApprovalDateTime;
Init (me : mutable;
aDateTime : DateTimeSelect;
aDatedApproval : Approval);
SetDateTime (me : mutable; aDateTime : DateTimeSelect);
DateTime (me) returns DateTimeSelect;
SetDatedApproval (me : mutable; aDatedApproval : Approval);
DatedApproval (me) returns Approval;
fields
theDateTime : DateTimeSelect;
theDatedApproval : Approval;
end ApprovalDateTime;
|