Carousel Volume 2 #1/carousel.iso/mactosh/hc/hyperpay.sit/HyperPayroll/card_2574.txt

Text File | 1988-11-14 | 13.4 KB | 577 lines

-- card: 2574 from stack: in
-- bmap block id: 3803
-- flags: 0000
-- background id: 2135
-- name: Card1
----- HyperTalk script -----




-- part 6 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=101 top=203 right=225 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
on mouseUp
  if Hilite of Card Button"Lock Info"=false then
    set hilite of button id 6 to true
    set hilite of button id 7 to false
    set hilite of button id 8 to false
    set hilite of button id 9 to false
    set hilite of button id 11 to false
    set hilite of button id 32 to false
  end if
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=101 top=224 right=246 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Weekly
----- HyperTalk script -----
on mouseUp
  if Hilite of Card Button"Lock Info"=false then
    set hilite of button id 6 to false
    set hilite of button id 7 to true
    set hilite of button id 8 to false
    set hilite of button id 9 to false
    set hilite of button id 11 to false
    set hilite of button id 32 to false
  end if

end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=101 top=245 right=264 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bi-Weekly
----- HyperTalk script -----
on mouseUp
  if Hilite of Card Button"Lock Info"=false then
    set hilite of button id 6 to false
    set hilite of button id 7 to false
    set hilite of button id 8 to true
    set hilite of button id 9 to false
    set hilite of button id 11 to false
    set hilite of button id 32 to false
  end if

end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=101 top=263 right=283 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Semi-Monthly
----- HyperTalk script -----
on mouseUp
  if Hilite of Card Button"Lock Info"=false then
    set hilite of button id 6 to false
    set hilite of button id 7 to false
    set hilite of button id 8 to false
    set hilite of button id 9 to true
    set hilite of button id 11 to false
    set hilite of button id 32 to false
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=101 top=282 right=302 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Monthly
----- HyperTalk script -----
on mouseUp
  if Hilite of Card Button"Lock Info"=false then
    set hilite of button id 6 to false
    set hilite of button id 7 to false
    set hilite of button id 8 to false
    set hilite of button id 9 to false
    set hilite of button id 11 to true
    set hilite of button id 32 to false
  end if

end mouseUp



-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=155 right=170 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Gross Wage Field


-- part 19 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=171 right=185 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FICA Field


-- part 20 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=186 right=200 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fed Tax Field


-- part 21 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=200 right=215 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: State Tax Field


-- part 22 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=246 right=261 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: United Way 2 Field


-- part 23 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=231 right=246 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Union Dues 2 Field


-- part 24 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=277 right=292 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Total Taxes Field


-- part 25 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=304 right=321 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Net Wage Field


-- part 32 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=101 top=301 right=322 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Annually
----- HyperTalk script -----
on mouseUp
  if Hilite of Card Button"Lock Info"=false then
    set hilite of button id 6 to false
    set hilite of button id 7 to false
    set hilite of button id 8 to false
    set hilite of button id 9 to false
    set hilite of button id 11 to false
    set hilite of button id 32 to true
  end if

end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=222 top=231 right=251 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Single
----- HyperTalk script -----
on mouseUp
  if Hilite of Card Button"Lock Info"=false then
    set hilite of button id 34 to false
    set hilite of button id 33 to true
  end if
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=222 top=254 right=274 bottom=295
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Married
----- HyperTalk script -----
on mouseUp
  if Hilite of Card Button"Lock Info"=false then
    set hilite of button id 34 to true
    set hilite of button id 33 to false
  end if

end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=223 top=194 right=216 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lock Info
----- HyperTalk script -----
on mouseUp

  Set cursor to 4
  Set LockScreen to True

  if hilite of Button "Lock Info"=true then
    repeat with x=9 to 14
      set locktext of card field x to true
      set textalign of card field x to center
      set style of card field x to transparent
    end repeat
  end if

  if hilite of Button "Lock Info"=false then
    repeat with x=9 to 14
      set locktext of card field x to False
      set textalign of card field x to Left
      set style of card field x to Rectangle
    end repeat
  end if

  Set Lockscreen to false

end mouseUp



-- part 50 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=131 top=50 right=66 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Last Name Field


-- part 53 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=264 top=50 right=66 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First Name Field


-- part 54 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=191 top=85 right=102 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Wage Field


-- part 55 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=334 top=85 right=102 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Deduction Field


-- part 56 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=191 top=103 right=120 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: United Way Field


-- part 57 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=191 top=122 right=139 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Union Dues Field


-- part 58 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=140 top=149 right=166 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hours Field


-- part 68 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=156 top=120 right=216 bottom=319
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Search Field
----- HyperTalk script -----
on mouseup
  if the selection is empty then
    set locktext of the target to false
    click at the clickLoc
    click at the clickLoc
    put the selection into holder
    push card
    visual effect zoom open
    Hide Card Field"Search Field"
    Put "" into Card Field"Search Field"
    find holder in field"Last Name Field"
    if the result is not empty then
      answer "No Match for Keyword""e&holder"e
      pop card
    else

    end if
  end if
  click at 0,0
  set locktext of the target to true
end mouseup



-- part 70 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=134 top=109 right=320 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help


-- part contents for card part 18
----- text -----
0.00

-- part contents for card part 19
----- text -----
0.00

-- part contents for card part 25
----- text -----
0.00

-- part contents for card part 24
----- text -----
0.00

-- part contents for card part 21
----- text -----
0.00

-- part contents for card part 20
----- text -----
0.00

-- part contents for card part 70
----- text -----

HyperPayroll is a stack which figures out NY State and Federal Withholding Taxes using the exact calculation method, results found using one of the other methods may vary. The tables have been revised to reflect the Oct 1 1987 update.
                  ----------------
The Name, Wage, and Deduction Fields are self-explanatory, the United Way and Union Dues fields are for regular payroll deductions if there are any.. Set payment Period to the amount of time the paycheck covers, and set marital status as is appropriate.
                   ---------------
Clicking on the figure button calculates that employees withholding tax for that period.  The Add button adds a blank card to the stack, and the Remove button removes the currently visible card.
                   ---------------
The icons on the right represent, from top to bottom:
Print Report
Hi-Speed Scan
Sort Alphabetically
Choose from List
Help
Home
                  -----------------
If you wish to paint or author this card,  try a command-shift click in the background of any card.
                   ----------------
The Lock Info button not only guards against inadvertant data changes but allows easier access to the hours box by using a single Tab.
                   ----------------
                   ----------------
A $10 Shareware fee is requested if this is to be used for a business function.  There is no official fee if this is to be used strictly personally, but any donations will be accepted.

My mailing address is:
Steven Fuchs
6 Fargo Ct
Coram NY 11727

Any Comments (good or bad) will be appreciated, and I will update this if there is interest.
Contact me on Compuserve through E-Mail
at .
My ID is:71270,550
                   ----------------
                   ----------------