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

CLEAR
USE COMPUSE ALIAS COMP
APPEND BLANK
RPT = .T.
SET TALK OFF
SET SAFETY OFF
DO WHILE RPT
?"ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
?"º TIME KEEPER º"
?"º Computer usage Log for TJKM º"
?"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
?
?" This program is for the updating of the computer time logsheet. Normally, it will only be run by the person in charge of the TIME KEEPER system."
WAIT "If you wish to quit, hit [Q]. Otherwise, [Return] " TO QT
IF UPPER (QT) = "Q" THEN
PACK
RETURN
ENDIF
?
?" The computer will convert your minutes entries into hours."
?" To view the options menu, press [F1]. When you are finished typing,"
?" [Ctrl] and [End] will store your changes."
?
Wait to qt
BROWSE FIELDS PROJECT, MINUTES
CLEAR
?"Converting the minutes entries into hours..."
GO TOP
LOCATE FOR HOURS = 0 .AND. MINUTES > 0
DO WHILE .NOT. EOF()
STORE MINUTES TO MIN
HRS = INT(MIN/60) + ROUND((MIN/60 - INT(MIN/60)) / .25,0) * .25
REPLACE HOURS WITH HRS
CONTINUE
ENDDO
?"DONE."
WAIT " If you wish to rerun this program, press [R]." TO RE
IF UPPER(RE) <> "R" THEN
RPT = .F.
ENDIF
ENDDO
PACK
?" COMPILING DATA INTO EXPENSE FILE."
?" ... RELAX THIS MAY TAKE A FEW MINUTES. (BELL WILL RING.)"
SELECT 2
USE EXPENSES
SELECT 1
GO TOP
DO WHILE .NOT. EOF()
SELECT 2
LOCATE FOR PROJECTNUM = COMP->PROJECT .AND. TYPE = "C"
IF EOF() THEN
APPEND BLANK
REPLACE TYPE WITH "C"
REPLACE PROJECTNUM WITH COMP->PROJECT
REPLACE GLCODE WITH "402"
ENDIF
TEMP = AMOUNT
REPLACE AMOUNT WITH TEMP + COMP->HOURS
SELECT 1
SKIP 1
ENDDO
ZAP
?"DONE"
RETURN