Shareware Overload/ShartewareOverload.cdr/database/friday2.zip/ONTIME.APP

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