home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
friday2.zip
/
ONTIME.APP
< prev
next >
Wrap
Text File
|
1986-12-15
|
5KB
|
202 lines
$COMMAND
ONTIME
SET MESSAGE OFF
OPEN FRIDAY
SET ERROR MESSAGE OFF
SET COLOR BACKGRND CYAN
SET COLOR FOREGRND BLUE
SET BELL OFF
SET VAR PICK1 INT
LABEL STARTAPP
NEWPAGE
CHOOSE PICK1 FROM Main IN ONTIME.APX
IF PICK1 EQ 0 THEN
GOTO ENDAPP
ENDIF
IF PICK1 EQ 1 THEN
SET VAR PICK2 INT
SET VAR LEVEL2 INT
SET VAR LEVEL2 TO 0
WHILE LEVEL2 EQ 0 THEN
NEWPAGE
CHOOSE PICK2 FROM contacts IN ONTIME.APX
IF PICK2 EQ 0 THEN
BREAK
ENDIF
IF PICK2 EQ 1 THEN
ENTER contacts
ENDIF
IF PICK2 EQ 2 THEN
SET VARIABLE WHVAL1 TO TEXT
FILLIN WHVAL1 USING "Enter Last Name of Contact to Edit --> "
EDIT USING contacts +
SORTED BY lastname=A frstname=A +
WHERE lastname EQ .WHVAL1
CLEAR WHVAL1
ENDIF
IF PICK2 EQ 3 THEN
RUN fonea IN ONTIME.APX
CHOOSE PRNTOPT FROM PRT$$$ IN ONTIME.APX
IF PRNTOPT EQ "Both" THEN
OUTPUT PRINTER WITH SCREEN
ELSE
IF PRNTOPT NE "PRINTER" THEN
OUTPUT SCREEN
ELSE
OUTPUT PRINTER
ENDIF
ENDIF
PRINT fonelist +
SORTED BY lastname=A frstname=A +
WHERE lastname EXISTS
OUTPUT SCREEN
IF PRNTOPT NE "PRINTER" THEN
WRITE "Press any key to continue "
PAUSE
ENDIF
CLEAR PRNTOPT
RUN foneb IN ONTIME.APX
ENDIF
ENDWHILE
CLEAR LEVEL2
CLEAR PICK2
GOTO STARTAPP
ENDIF
IF PICK1 EQ 2 THEN
SET VAR PICK2 INT
SET VAR LEVEL2 INT
SET VAR LEVEL2 TO 0
WHILE LEVEL2 EQ 0 THEN
NEWPAGE
CHOOSE PICK2 FROM schedule IN ONTIME.APX
IF PICK2 EQ 0 THEN
BREAK
ENDIF
IF PICK2 EQ 1 THEN
ENTER calendar
ENDIF
IF PICK2 EQ 2 THEN
SET VARIABLE WHVAL1 TO INTEGER
FILLIN WHVAL1 USING "Enter Client Id Number to Edit ---> "
EDIT USING calendar +
WHERE contid EQ .WHVAL1
CLEAR WHVAL1
ENDIF
IF PICK2 EQ 3 THEN
CHOOSE PRNTOPT FROM PRT$$$ IN ONTIME.APX
IF PRNTOPT EQ "Both" THEN
OUTPUT PRINTER WITH SCREEN
ELSE
IF PRNTOPT NE "PRINTER" THEN
OUTPUT SCREEN
ELSE
OUTPUT PRINTER
ENDIF
ENDIF
SET VARIABLE WHVAL1 TO INTEGER
FILLIN WHVAL1 USING "Enter Client Id Number ---> "
SET VARIABLE WHVAL2 TO DATE
FILLIN WHVAL2 USING "Enter Start Date ---> "
SET VARIABLE WHVAL3 TO DATE
FILLIN WHVAL3 USING "Enter Ending Date ---> "
PRINT SCHEDULE +
SORTED BY TODODATE=A TODOTIME=A +
WHERE CONTID EQ .WHVAL1 +
AND TODODATE GE .WHVAL2 +
AND TODODATE LE .WHVAL3
CLEAR WHVAL1
CLEAR WHVAL2
CLEAR WHVAL3
OUTPUT SCREEN
IF PRNTOPT NE "PRINTER" THEN
WRITE "Press any key to continue "
PAUSE
ENDIF
CLEAR PRNTOPT
ENDIF
IF PICK2 EQ 4 THEN
CHOOSE PRNTOPT FROM PRT$$$ IN ONTIME.APX
IF PRNTOPT EQ "Both" THEN
OUTPUT PRINTER WITH SCREEN
ELSE
IF PRNTOPT NE "PRINTER" THEN
OUTPUT SCREEN
ELSE
OUTPUT PRINTER
ENDIF
ENDIF
SET VARIABLE WHVAL1 TO TEXT
FILLIN WHVAL1 USING "Enter Task Code ---> "
PRINT SCHEDULE +
SORTED BY TASKFLAG=A TODODATE=A TODOTIME=A +
WHERE TASKFLAG EQ .WHVAL1
CLEAR WHVAL1
OUTPUT SCREEN
IF PRNTOPT NE "PRINTER" THEN
WRITE "Press any key to continue "
PAUSE
ENDIF
CLEAR PRNTOPT
ENDIF
IF PICK2 EQ 5 THEN
RUN rcalcur IN ONTIME.APX
ENDIF
IF PICK2 EQ 6 THEN
RUN rcal IN ONTIME.APX
ENDIF
ENDWHILE
CLEAR LEVEL2
CLEAR PICK2
GOTO STARTAPP
ENDIF
IF PICK1 EQ 3 THEN
GOTO ENDAPP
ENDIF
GOTO STARTAPP
LABEL ENDAPP
CLEAR PICK1
RETURN
$MENU
PRT$$$
ROW Select Print Routing
Printer
Screen
Both
$MENU
Main
COLUMN CONTACTS & SCHEDULES ORGANIZER
Maintain Contacts
Maintain Schedules & Diary
Exit
$MENU
contacts
COLUMN CONTACTS & CLIENTS
Enter New Contacts
Update Contacts
Print Phone List
$MENU
schedule
COLUMN SCHEDULES & DIARY
Enter Schedule / Diary Information
Update Schedule / Diary
Print Schedule - Chronologically
Print Schedule - By Task or Project
Display Calendar for Current Month
Display Calendar for Desired Month & Year
$COMMAND
fonea
set null " "
$COMMAND
foneb
set null -0-
output screen
$COMMAND
rcalcur
run rcalcur.asc
$COMMAND
rcal
run rcal.asc