Carousel/CAROUSEL.cdr/mactosh/hc/timekeep.sit/Disbursements/background_3711.txt

Text File | 1987-11-07 | 19KB | 824 lines

-- background: 3711 from stack: in
-- bmap block id: 4270
-- flags: 4000
-- background id: 0
-- name: Disbursements Bkgnd
----- HyperTalk script -----
on newCard
  put .15 into field 6 -- charge per page for photocopies
  put 0.00 into field 17 -- total of charges for card

  repeat with x = 7 to 16
    set hilite of bkgnd button x to false -- unselect all radio buttons
  end repeat
  click at 26,121 -- select "Client Account" field
end newCard

on openCard -- sets hilite of selected button to previous state
  put .15 into field 6 -- charge per page for photocopies
  repeat with y = 7 to 16
    if field y is not empty then
      set lockText of field y to false -- field is opened
      set hilite of bkgnd button y to true -- button is hilited
      exit repeat -- only one per card can be selected, so end here
    end if
  end repeat

  hide field "Sort"
  get field "Date"
  convert it to seconds
  put it into field "Sort"
end openCard

on closeCard
  repeat with x = 7 to 16
    set hilite of bkgnd button x to false
  end repeat
end closeCard


-- part 52 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=44 top=36 right=50 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Date


-- part 53 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=25 top=171 right=198 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Client Name
----- HyperTalk script -----
on closeField
  put the long date into field "Date"
  put field "Client Name" into clName
  push card
  set cursor to 4
  set lockMessages to true
  go to stack "Master Client List"
  repeat with x = 2 to the number of cards
    go to card x
    if field "Client Name" contains clName then
      answer "Use this client account number?" with "No" or "Yes"
      if it is "Yes" then
        put field "Client Name" && "-" && field "Matter" into clName
        put field "Client Number" into clNumber
        pop card
        put clName into field "Client Name"
        put clNumber into field "Client Number"
        set lockMessages to false
        click at 276,103
        exit closeField
      else next repeat
    end if
  end repeat
  pop card
  set lockMessages to false
  put "You don't have an account under that name. Please check your typing."
end closeField


-- part 54 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=25 top=109 right=123 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Client Number
----- HyperTalk script -----
on closeField
  put the long date into field "Date"
  put field "Client Number" into clNum
  push card
  set lockScreen to true
  set lockMessages to true
  set cursor to 4
  go to card clNum in stack "Master Client List"
  put line 1 of field "Client Name" && "-" && field "Matter" into clNme
  pop card
  put clNme into field "Client Name"
  set lockScreen to false
  set lockMessages to false
  click at 276,103
end closeField


-- part 55 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=269 top=91 right=145 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Description


-- part 56 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=351 top=156 right=169 bottom=388
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closefield
  set numberFormat to 0.00
  put field 5 * field 6 into field 7
  put 0 into accum
  repeat with x = 7 to 16
    add field x to accum
  end repeat
  put accum into field 17
end closeField


-- part 57 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=409 top=156 right=169 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 58 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=450 top=156 right=169 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 70 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=7 top=25 right=43 bottom=32
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp


-- part 71 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=479 top=24 right=43 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp


-- part 72 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=278 top=38 right=53 bottom=325
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  sort by field "Sort"
end mouseUp



-- part 73 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=433 top=39 right=54 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: New
----- HyperTalk script -----
on mouseUp
  go to last card
  doMenu New Card
end mouseUp



-- part 74 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=334 top=38 right=53 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Date
----- HyperTalk script -----
on mouseUp
  put the long date into field "Date"
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=45 top=319 right=335 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Master Client List
----- HyperTalk script -----
on mouseUp
  go stack "Master Client List"
end mouseUp



-- part 76 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=269 top=153 right=169 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Photocopies
----- HyperTalk script -----
on mouseUp
  repeat with x = 7 to 16
    set hilite of bkgnd button x to false
    put empty into field x
    set lockText of field x to true
  end repeat
  set hilite of me to true
  set lockText of field 5 to false
  put "Photocopies" into field "Description"
end mouseUp



-- part 77 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=269 top=168 right=184 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Long-distance telephone charges
----- HyperTalk script -----
on mouseUp
  repeat with x = 7 to 16
    set hilite of bkgnd button x to false
    put empty into field x
    set lockText of field x to true
  end repeat
  put empty into field 5
  set hilite of me to true
  set lockText of field 5 to true
  set lockText of field 8 to false
  put "Long-distance telephone charges" into field "Description"
end mouseUp



-- part 78 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=269 top=183 right=199 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Delivery Charges
----- HyperTalk script -----
on mouseUp
  repeat with x = 7 to 16
    set hilite of bkgnd button x to false
    put empty into field x
    set lockText of field x to true
  end repeat
  put empty into field 5
  set hilite of me to true
  set lockText of field 5 to true
  set lockText of field 9 to false
  put "Delivery Charges - Courier Service" into field "Description"
end mouseUp



-- part 79 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=269 top=198 right=214 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Court filing fees
----- HyperTalk script -----
on mouseUp
  repeat with x = 7 to 16
    set hilite of bkgnd button x to false
    put empty into field x
    set lockText of field x to true
  end repeat
  put empty into field 5
  set hilite of me to true
  set lockText of field 5 to true
  set lockText of field 10 to false
  put "Court filing fees" into field "Description"
end mouseUp



-- part 80 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=269 top=213 right=229 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Filing Fees, other
----- HyperTalk script -----
on mouseUp
  repeat with x = 7 to 16
    set hilite of bkgnd button x to false
    put empty into field x
    set lockText of field x to true
  end repeat
  put empty into field 5
  set hilite of me to true
  set lockText of field 5 to true
  set lockText of field 11 to false
  put "Filing fees" into field "Description"
end mouseUp



-- part 81 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=269 top=228 right=244 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Computer assisted research
----- HyperTalk script -----
on mouseUp
  repeat with x = 7 to 16
    set hilite of bkgnd button x to false
    put empty into field x
    set lockText of field x to true
  end repeat
  put empty into field 5
  set hilite of me to true
  set lockText of field 5 to true
  set lockText of field 12 to false
  put "Computer assisted research" into field "Description"
end mouseUp



-- part 82 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=269 top=243 right=259 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Travel Expenses
----- HyperTalk script -----
on mouseUp
  repeat with x = 7 to 16
    set hilite of bkgnd button x to false
    put empty into field x
    set lockText of field x to true
  end repeat
  put empty into field 5
  set hilite of me to true
  set lockText of field 5 to true
  set lockText of field 13 to false
  put "Travel Expenses" into field "Description"
end mouseUp



-- part 83 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=269 top=258 right=274 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Miscellaneous
----- HyperTalk script -----
on mouseUp
  repeat with x = 7 to 16
    set hilite of bkgnd button x to false
    put empty into field x
    set lockText of field x to true
  end repeat
  put empty into field 5
  set hilite of me to true
  set lockText of field 5 to true
  set lockText of field 14 to false
  put "Miscellaneous Expenses" into field "Description"
end mouseUp



-- part 84 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=269 top=273 right=289 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: not yet installed
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp



-- part 85 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=269 top=288 right=304 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: not yet installed
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp



-- part 86 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=383 top=38 right=53 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Clear
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to the number of fields
    put empty into field x
  end repeat
  repeat with x = 1 to the number of bkgnd buttons
    set hilite of bkgnd button x to false
  end repeat
end mouseUp



-- part 87 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=450 top=171 right=184 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closefield
  set numberFormat to 0.00
  put 0 into accum
  repeat with x = 7 to 16
    add field x to accum
  end repeat
  put accum into field 17
end closeField


-- part 88 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=450 top=186 right=199 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closefield
  set numberFormat to 0.00
  put 0 into accum
  repeat with x = 7 to 16
    add field x to accum
  end repeat
  put accum into field 17
end closeField


-- part 89 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=450 top=201 right=214 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closefield
  set numberFormat to 0.00
  put 0 into accum
  repeat with x = 7 to 16
    add field x to accum
  end repeat
  put accum into field 17
end closeField


-- part 90 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=450 top=216 right=229 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closefield
  set numberFormat to 0.00
  put 0 into accum
  repeat with x = 7 to 16
    add field x to accum
  end repeat
  put accum into field 17
end closeField


-- part 91 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=450 top=231 right=244 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closefield
  set numberFormat to 0.00
  put 0 into accum
  repeat with x = 7 to 16
    add field x to accum
  end repeat
  put accum into field 17
end closeField


-- part 92 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=450 top=246 right=259 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closefield
  set numberFormat to 0.00
  put 0 into accum
  repeat with x = 7 to 16
    add field x to accum
  end repeat
  put accum into field 17
end closeField


-- part 93 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=450 top=261 right=274 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closefield
  set numberFormat to 0.00
  put 0 into accum
  repeat with x = 7 to 16
    add field x to accum
  end repeat
  put accum into field 17
end closeField


-- part 94 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=450 top=276 right=289 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closefield
  set numberFormat to 0.00
  put 0 into accum
  repeat with x = 7 to 16
    add field x to accum
  end repeat
  put accum into field 17
end closeField


-- part 95 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=450 top=291 right=304 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closefield
  set numberFormat to 0.00
  put 0 into accum
  repeat with x = 7 to 16
    add field x to accum
  end repeat
  put accum into field 17
end closeField


-- part 96 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=450 top=319 right=332 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Total Disb


-- part 97 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=211 top=34 right=46 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sort