init.l (3061B)
1 # 21jan13abu 2 # (c) Software Lab. Alexander Burger 3 4 ### Role ### 5 (obj ((+Role) nm "Administration") perm `*Perms) 6 (obj ((+Role) nm "Accounting") perm (Customer Item Order Report Delete)) 7 (obj ((+Role) nm "Assistance") perm (Order)) 8 (commit) 9 10 ### User ### 11 (obj ((+User) nm "admin") pw `(passwd "admin") nam "Administrator" role `(db 'nm '+Role "Administration")) 12 (obj ((+User) nm "ben") pw `(passwd "ben") nam "Ben Affleck" role `(db 'nm '+Role "Accounting")) 13 (obj ((+User) nm "jodie") pw `(passwd "jodie") nam "Jodie Foster" role `(db 'nm '+Role "Accounting")) 14 (obj ((+User) nm "sandy") pw `(passwd "sandy") nam "Sandra Bullock" role `(db 'nm '+Role "Accounting")) 15 (obj ((+User) nm "depp") pw `(passwd "depp") nam "Johnny Depp" role `(db 'nm '+Role "Assistance")) 16 (obj ((+User) nm "tom") pw `(passwd "tom") nam "Tom Hanks" role `(db 'nm '+Role "Assistance")) 17 (commit) 18 19 (obj ((+Sal) nm "Department") hi "Dear Sir or Madam,") 20 (obj ((+Sal) nm "Mr.") hi "Dear Mr. @1," sex T) 21 (obj ((+Sal) nm "Mrs.") hi "Dear Mrs. @1," sex 0) 22 (obj ((+Sal) nm "Ms.") hi "Dear Ms. @1," sex 0) 23 (obj ((+Sal) nm "Mme") hi "Bonjour Mme @1," sex 0) 24 (obj ((+Sal) nm "Herr") hi "Sehr geehrter Herr @1," sex T) 25 (obj ((+Sal) nm "Herr Dr.") hi "Sehr geehrter Herr Dr. @1," sex T) 26 (obj ((+Sal) nm "Frau") hi "Sehr geehrte Frau @1," sex 0) 27 (obj ((+Sal) nm "Frau Dr.") hi "Sehr geehrte Frau Dr. @1," sex 0) 28 (obj ((+Sal) nm "Señor") hi "Estimado Señor @1," sex T) 29 (obj ((+Sal) nm "Señora") hi "Estimada Señora @1," sex 0) 30 (commit) 31 32 ### Customer/Supplier ### 33 (obj ((+CuSu) nr 1) 34 nm "Active Parts Inc." 35 nm2 "East Division" 36 str "Wildcat Lane" 37 plz "3425" 38 ort "Freetown" 39 tel "37 4967 6846-0" 40 fax "37 4967 68462" 41 mob "37 176 86303" 42 em "info@api.tld" ) 43 (obj ((+CuSu) nr 2) 44 nm "Seven Oaks Ltd." 45 str "Sunny Side Heights 202" 46 plz "1795" 47 ort "Winterburg" 48 tel "37 6295 5855-0" 49 fax "37 6295 58557" 50 em "info@7oaks.tld" ) 51 (obj ((+CuSu) nr 3) 52 sal `(db 'nm '+Sal "Mr.") 53 nm "Miller" 54 nm2 "Thomas Edwin" 55 str "Running Lane 17" 56 plz "1208" 57 ort "Kaufstadt" 58 tel "37 4773 82534" 59 mob "37 129 276877" 60 em "tem@shoppers.tld" ) 61 (commit) 62 63 ### Item ### 64 (obj ((+Item) nr 1) nm "Main Part" sup `(db 'nr '+CuSu 1) inv 100 pr 29900) 65 (obj ((+Item) nr 2) nm "Spare Part" sup `(db 'nr '+CuSu 2) inv 100 pr 1250) 66 (obj ((+Item) nr 3) nm "Auxiliary Construction" sup `(db 'nr '+CuSu 1) inv 100 pr 15700) 67 (obj ((+Item) nr 4) nm "Enhancement Additive" sup `(db 'nr '+CuSu 2) inv 100 pr 999) 68 (obj ((+Item) nr 5) nm "Metal Fittings" sup `(db 'nr '+CuSu 1) inv 100 pr 7980) 69 (obj ((+Item) nr 6) nm "Gadget Appliance" sup `(db 'nr '+CuSu 2) inv 100 pr 12500) 70 (commit) 71 72 ### Order ### 73 (let Ord (new (db: +Ord) '(+Ord) 'nr 1 'dat (date 2007 2 14) 'cus (db 'nr '+CuSu 3)) 74 (put> Ord 'pos 75 (list 76 (new (db: +Pos) '(+Pos) 'itm (db 'nr '+Item 1) 'pr 29900 'cnt 1) 77 (new (db: +Pos) '(+Pos) 'itm (db 'nr '+Item 2) 'pr 1250 'cnt 8) 78 (new (db: +Pos) '(+Pos) 'itm (db 'nr '+Item 4) 'pr 999 'cnt 20) ) ) ) 79 (commit) 80 81 # vi:et:ts=3:sw=3