Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : TMKPDB3.ZIP
Filename : WRKCD.PRG

CLEAR
?"ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
?"³ TIME KEEPER * END OF MONTH* ³"
?"³ WORKùCODE SUMMARY REPORT ³"
?"³ ver. 1.1 8/1/85 ³"
?"ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
SET PROCEDURE TO WKPRO
SET DECIMALS TO 1
SET FIXED ON
SET TALK OFF
SET DEVICE TO PRINT
?"PREPARE YOUR PRINTER."
WAIT TO ET
?"PROCESSING..."
SELECT 1
USE EMPLOYEE
SET INDEX TO NAME
SELECT 2
USE TIMESHEE ALIAS TS
SET INDEX TO TIMEDEX
SELECT 3
USE RATES ALIAS RT
SET INDEX TO RTITLE
SELECT 1
SET RELATION TO UPPER(TITLE) INTO RT
GO TOP
DO HEADING
T01 = 0
T02 = 0
T03 = 0
T04 = 0
T05 = 0
T06 = 0
T07 = 0
T08 = 0
T09 = 0
T10 = 0
T11 = 0
T12 = 0
TT = 0
TL = 0
TD = 0
DO WHILE .NOT. EOF()
P01 = 0
P02 = 0
P03 = 0
P04 = 0
P05 = 0
P06 = 0
P07 = 0
P08 = 0
P09 = 0
P10 = 0
P11 = 0
P12 = 0
STORE NAME TO NM
NM = SUBSTR(NM,1,AT(",",NM)-1)
STORE NUMBER TO NUM
STORE TITLE TO TI
SELECT 2
LOCATE FOR EMPNUM = NUM
TT = 0
DO WHILE .NOT. EOF()
ST = SUBSTR(TASK,6,2)
IF VAL(ST) = 0 THEN
ST = "01"
ENDIF
P&ST = P&ST + MNTHRS
T&ST = T&ST + MNTHRS
TT = TT + MNTHRS
CONTINUE
ENDDO
SELECT 3
STORE RATE TO DOLS
DOLS = DOLS * P01
SELECT 2
TD = TD + DOLS
TL = TL + TT
IF TT > 0 THEN
DO LINE
ENDIF
SELECT 1
SKIP 1
ENDDO
R1 = ROUND(100*T01/TL,1)
R2 = ROUND(100*T02/TL,1)
R3 = ROUND(100*T03/TL,1)
R4 = ROUND(100*T04/TL,1)
R5 = ROUND(100*T05/TL,1)
R6 = ROUND(100*T06/TL,1)
R7 = ROUND(100*T07/TL,1)
R8 = ROUND(100*T08/TL,1)
R9 = ROUND(100*T09/TL,1)
R10 = ROUND(100*T10/TL,1)
R11 = ROUND(100*T11/TL,1)
R12 = ROUND(100*T12/TL,1)
DO TOTALS
? TIME()
SET DEVICE TO SCREEN
RETURN