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
|
# 14jan10abu
# (c) Software Lab. Alexander Burger
### Role ###
(obj ((+Role) nm "Administration") perm `*Perms)
(obj ((+Role) nm "Accounting") perm (Customer Item Order Report Delete))
(obj ((+Role) nm "Assistance") perm (Order))
(commit)
### User ###
(obj ((+User) nm "admin") pw "admin" nam "Administrator" role `(db 'nm '+Role "Administration"))
(obj ((+User) nm "ben") pw "ben" nam "Ben Affleck" role `(db 'nm '+Role "Accounting"))
(obj ((+User) nm "jodie") pw "jodie" nam "Jodie Foster" role `(db 'nm '+Role "Accounting"))
(obj ((+User) nm "sandy") pw "sandy" nam "Sandra Bullock" role `(db 'nm '+Role "Accounting"))
(obj ((+User) nm "depp") pw "depp" nam "Johnny Depp" role `(db 'nm '+Role "Assistance"))
(obj ((+User) nm "tom") pw "tom" nam "Tom Hanks" role `(db 'nm '+Role "Assistance"))
(commit)
(obj ((+Sal) nm "Department") hi "Dear Sir or Madam,")
(obj ((+Sal) nm "Mr.") hi "Dear Mr. @1," sex T)
(obj ((+Sal) nm "Mrs.") hi "Dear Mrs. @1," sex 0)
(obj ((+Sal) nm "Ms.") hi "Dear Ms. @1," sex 0)
(obj ((+Sal) nm "Mme") hi "Bonjour Mme @1," sex 0)
(obj ((+Sal) nm "Herr") hi "Sehr geehrter Herr @1," sex T)
(obj ((+Sal) nm "Herr Dr.") hi "Sehr geehrter Herr Dr. @1," sex T)
(obj ((+Sal) nm "Frau") hi "Sehr geehrte Frau @1," sex 0)
(obj ((+Sal) nm "Frau Dr.") hi "Sehr geehrte Frau Dr. @1," sex 0)
(obj ((+Sal) nm "Señor") hi "Estimado Señor @1," sex T)
(obj ((+Sal) nm "Señora") hi "Estimada Señora @1," sex 0)
(commit)
### Customer/Supplier ###
(obj ((+CuSu) nr 1)
nm "Active Parts Inc."
nm2 "East Division"
str "Wildcat Lane"
plz "3425"
ort "Freetown"
tel "37 4967 6846-0"
fax "37 4967 68462"
mob "37 176 86303"
em "info@api.tld" )
(obj ((+CuSu) nr 2)
nm "Seven Oaks Ltd."
str "Sunny Side Heights 202"
plz "1795"
ort "Winterburg"
tel "37 6295 5855-0"
fax "37 6295 58557"
em "info@7oaks.tld" )
(obj ((+CuSu) nr 3)
sal `(db 'nm '+Sal "Mr.")
nm "Miller"
nm2 "Thomas Edwin"
str "Running Lane 17"
plz "1208"
ort "Kaufstadt"
tel "37 4773 82534"
mob "37 129 276877"
em "tem@shoppers.tld" )
(commit)
### Item ###
(obj ((+Item) nr 1) nm "Main Part" sup `(db 'nr '+CuSu 1) inv 100 pr 29900)
(obj ((+Item) nr 2) nm "Spare Part" sup `(db 'nr '+CuSu 2) inv 100 pr 1250)
(obj ((+Item) nr 3) nm "Auxiliary Construction" sup `(db 'nr '+CuSu 1) inv 100 pr 15700)
(obj ((+Item) nr 4) nm "Enhancement Additive" sup `(db 'nr '+CuSu 2) inv 100 pr 999)
(obj ((+Item) nr 5) nm "Metal Fittings" sup `(db 'nr '+CuSu 1) inv 100 pr 7980)
(obj ((+Item) nr 6) nm "Gadget Appliance" sup `(db 'nr '+CuSu 2) inv 100 pr 12500)
(commit)
### Order ###
(let Ord (new (db: +Ord) '(+Ord) 'nr 1 'dat (date 2007 2 14) 'cus (db 'nr '+CuSu 3))
(put> Ord 'pos
(list
(new (db: +Pos) '(+Pos) 'itm (db 'nr '+Item 1) 'pr 29900 'cnt 1)
(new (db: +Pos) '(+Pos) 'itm (db 'nr '+Item 2) 'pr 1250 'cnt 8)
(new (db: +Pos) '(+Pos) 'itm (db 'nr '+Item 4) 'pr 999 'cnt 20) ) ) )
(commit)
# vi:et:ts=3:sw=3
|
