ttrak
Project Time Tracking
Form1,
Label1
Project
Tms Rmn
Frame1
information
Label2
Hours
hours
Label3
workdate
Label4
project
addbtn
Label6
Last Entry
Tms Rmn
lastdate
delbtn
DELETE
Label7
Total Entries
Tms Rmn
totentry
exitbtn
Label5
Total Hours
Tms Rmn
tothours
printbtn
Print
about
	&About...
addbtn_Click3
Form_ClickW
	Form_Load
loadFlag
	PX_LOADEDk
PXInitB
PXSHARED
PXErrorw
Load_Dbase
	searchVal
partlist
	listcount
ptype
PXPutAlpha
compRecZ
	PXSrchKey
compTbl
SEARCHFIRST
PXERR_RECNOTFOUND
PXERR_ENDOFTABLE
PXRecGet
GetField
	returnFld
SEARCHNEXT
PXOpen 
ttrakTbl
ttrakRec
projectK
exitbtn_Click
PXExit
PXNext
savprojR
tindex
PXRecFirst
TblHnd
RecHnd
project_Change
project_Click
	PXCrchKeys
tothours
lastdate
hours
workdate
delbtn_Click;
tempproj5
PXRecDelete
remove
	listindex
aValue/
PutField
lValue
vDate@
Gen_Date
MBOKS
PXRecAppendx
savhoursk
flag1
PXRecUpdate`
	PXSrchFld
caption
	PXSUCCESS	
newproj
recnbrv
PXPutShort
PXClose
PXTblClose
PXRecBufClose
Get_Header
Put_Header#
Create_Header
Put_Record
totentry
printbtn_Click
report1g
select1X
	prtselect
printselect
projectName
VBPATH
DBPATH
about_Click
ttrakabt
exitsub
addflag
dkey1
dkey2>
Form_Load
timetrak
   PXOpen "timetrak", ttrakTbl, ttrakRec
timetrak
 Do While project.listcountF
 project.RemoveItem 0t
 Loope
exitbtn_Click
project_Click
No Header Rec. Create one?
Get Header
delbtn_Click
addbtn_Click
Must enter Project Name"
Warning"
project_Change
Get_Header
Put_Header
Invalid Date
Date Check
Create_Header
if 1 then add to project liste
Put_Record
Invalid Date
Date Check
printbtn_Click
about_Click