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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
------------------------------------------------------------------------------
-- Database interface utilities --
-- --
-- Copyright (C) 2017-2018, AdaCore --
------------------------------------------------------------------------------
package body Database is
pragma Style_Checks (Off);
function FK (Self : T_Action_Item'Class; Foreign : T_Sales_Entity'Class) return SQL_Criteria is
begin
return Self.Se_Nb = Foreign.Se_Nb;
end FK;
function FK (Self : T_Action_Item'Class; Foreign : T_Staff'Class) return SQL_Criteria is
begin
return Self.Who_Done = Foreign.Id;
end FK;
function FK (Self : T_Contract'Class; Foreign : T_Sales_Entity'Class) return SQL_Criteria is
begin
return Self.Se_Nb = Foreign.Se_Nb;
end FK;
function FK (Self : T_Mailing_List'Class; Foreign : T_Tn_Status'Class) return SQL_Criteria is
begin
return Self.Default_Status = Foreign.Id;
end FK;
function FK (Self : T_Mailing_List_Recipients'Class; Foreign : T_Staff_Email'Class) return SQL_Criteria is
begin
return Self.Email = Foreign.Id;
end FK;
function FK (Self : T_Mailing_List_Recipients'Class; Foreign : T_Mailing_List'Class) return SQL_Criteria is
begin
return Self.List = Foreign.Id;
end FK;
function FK (Self : T_Mailing_List_Recipients'Class; Foreign : T_Mailing_List_Subscription_Type'Class) return SQL_Criteria is
begin
return Self.Subscription_Type = Foreign.Id;
end FK;
function FK (Self : T_Sales_Entity'Class; Foreign : T_Region'Class) return SQL_Criteria is
begin
return Self.Region = Foreign.Id;
end FK;
function FK (Self : T_Sales_Entity'Class; Foreign : T_Staff'Class) return SQL_Criteria is
begin
return Self.Sales_Rep = Foreign.Id;
end FK;
function FK (Self : T_Staff'Class; Foreign : T_Staff_Email'Class) return SQL_Criteria is
begin
return Self.Preferred_Email = Foreign.Id;
end FK;
function FK (Self : T_Staff'Class; Foreign : T_Region'Class) return SQL_Criteria is
begin
return Self.Region = Foreign.Id;
end FK;
function FK (Self : T_Staff_Email'Class; Foreign : T_Staff'Class) return SQL_Criteria is
begin
return Self.Staff = Foreign.Id;
end FK;
function FK (Self : T_Subscription'Class; Foreign : T_Contract'Class) return SQL_Criteria is
begin
return Self.Subscription_Nb = Foreign.Contract_Nb;
end FK;
function FK (Self : T_Wavefront'Class; Foreign : T_Staff'Class) return SQL_Criteria is
begin
return Self.Delivered_By = Foreign.Id;
end FK;
function FK (Self : T_Wavefront'Class; Foreign : T_Sales_Entity'Class) return SQL_Criteria is
begin
return Self.Se_Nb = Foreign.Se_Nb;
end FK;
function FK (Self : T_Wavefront'Class; Foreign : T_Wavefront_Status'Class) return SQL_Criteria is
begin
return Self.Status = Foreign.Id;
end FK;
function FK (Self : T_Wavefront_Tn'Class; Foreign : T_Tracking_Number'Class) return SQL_Criteria is
begin
return Self.Tn = Foreign.Tn;
end FK;
function FK (Self : T_Wavefront_Tn'Class; Foreign : T_Wavefront'Class) return SQL_Criteria is
begin
return Self.Wave = Foreign.Id;
end FK;
end Database;
|
