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

 
Output of file : CAMENU.PRG contained in archive : STRALEY.ZIP

********************
* Name CAMENU.prg
* Date August 15, 1986
* Notice Copyright 1986, Stephen J. Straley
* Note This menu is for the CALL TRACKING application and
* was generated by the GENMEN application
*
********************

CLEAR
DO Camen1

********************

PROCEDURE Camen1

DO WHILE .T.
CLEAR
CLOSE DATABASES
RESTORE FROM Screen.sys
STORE SPACE(4000) TO ascreen, bscreen, cscreen, dscreen, escreen, fscreen
DO Setup
STORE 0 TO option
in_control = 1
@ 4, 2, 16, 73 BOX SUBSTR(scrframe,1,8)
@ 3, 28 SAY "M a i n M e n u"
@ 7, 10 PROMPT " Support Contracts "
@ 6, 42 PROMPT " Register In-coming Calls "
@ 8, 42 PROMPT " Log-Out Calls "
@ 10, 42 PROMPT " Print Lists "
@ 12, 42 PROMPT " Generate Reports "
@ 14, 42 PROMPT " Utility Sub-Menu "
@ 17, 31 SAY "ESC to RETURN"
MENU TO option
CALL _scrsave WITH ascreen
DO CASE
CASE option = 1
DO Camen11
CASE option = 2
SELECT 2
USE &scrdata.Log_call INDEX &scrdata.Log_ca_1.dat
SELECT 1
USE &scrdata.Contract INDEX &scrdata.Contra_1.dat
DO Call_enter
CASE option = 3
*************************
* Do sub-procedure here *
*************************
CASE option = 4
*************************
* Do sub-procedure here *
*************************
CASE option = 5
DO Camen15
CASE option = 6
DO Camen16
CASE option = 0
@ 19, 15 SAY "All Files Closed, Returning to Operating System"
QUIT
ENDCASE


ENDDO

********************

PROCEDURE Camen11

DO WHILE .T.
IF LEN(TRIM(bscreen)) <> 0
CALL _scrrest WITH bscreen
ENDIF
STORE 0 TO option1
@ 8, 11, 15, 27 BOX scrframe
@ 9, 8 SAY ""
@ 9, 15 PROMPT " 1> Enter "
@ 10, 15 PROMPT " 2> Edit "
@ 11, 15 PROMPT " 3> Scan "
@ 12, 15 PROMPT " 4> Delete "
@ 14, 13 SAY "ESC to RETURN"
MENU TO option1
CALL _scrsave WITH bscreen
IF option1 > 0
USE &scrdata.Contract INDEX &scrdata.Contra_1.dat, &scrdata.Contra_2.dat, &scrdata.Contra_3.dat
ENDIF
DO CASE
CASE option1 = 1
DO Support_ent
CASE option1 = 2
prom_acros = "< >ext - < >revious - < >dit - < >hoose Again - < >uit"
DO Support_edt
CASE option1 = 3
prom_acros = "< >ext - < >revious - < >can - < >hoose Again - < >uit"
DO Support_edt
CASE option1 = 4
prom_acros = "< >ext - < >revious - < >elete - < >hoose Again - < >uit"
DO Support_del
CASE option1 = 0
EXIT
ENDCASE


ENDDO

********************

PROCEDURE Camen15

DO WHILE .T.
IF LEN(TRIM(bscreen)) <> 0
CALL _scrrest WITH bscreen
ENDIF
STORE 0 TO option2
@ 6, 9, 14, 36 BOX scrframe
@ 6, 15 SAY "Report Sub-Menu"
@ 8, 13 PROMPT " Call Activity Log "
@ 9, 13 PROMPT " Weekly Breakdown "
@ 10, 13 PROMPT " Daily Call Totals "
@ 11, 13 PROMPT " Non-responded Calls "
@ 13, 16 SAY "ESC to RETURN"
MENU TO option2
CALL _scrsave WITH bscreen
DO CASE
CASE option2 = 1
*************************
* Do sub-procedure here *
*************************
CASE option2 = 2
*************************
* Do sub-procedure here *
*************************
CASE option2 = 3
*************************
* Do sub-procedure here *
*************************
CASE option2 = 4
*************************
* Do sub-procedure here *
*************************
CASE option2 = 0
EXIT
ENDCASE


ENDDO

********************

PROCEDURE Camen16

DO WHILE .T.
IF LEN(TRIM(bscreen)) <> 0
CALL _scrrest WITH bscreen
ENDIF
STORE 0 TO option3
@ 5, 5, 21, 40 BOX scrframe
@ 5, 14 SAY "Utility Sub-Menu"
@ 7, 9 PROMPT " 1> Backup/Restore Data "
@ 8, 9 PROMPT " 2> Re-Index Data Files "
@ 9, 9 PROMPT " 3> Remove Data "
@ 10, 9 PROMPT " 4> Reset System Date "
@ 11, 9 PROMPT " 5> Reset Screen Parameters "
@ 12, 9 PROMPT " 6> Scan Entered Calls "
@ 13, 9 PROMPT " 7> Reclaim Marked Data "
@ 14, 9 PROMPT " 8> Dump Data "
@ 15, 9 PROMPT " 9> Run a Program "
@ 16, 9 PROMPT " A> Enter/Edit Staff "
@ 17, 9 PROMPT " B> Merge Outside Data "
@ 18, 9 PROMPT " C> New Password "
@ 19, 9 PROMPT " D> Initialize Data Files "
@ 21, 16 SAY "ESC to RETURN"
MENU TO option3
CALL _scrsave WITH bscreen
DO CASE
CASE option3 = 1
*************************
* Do sub-procedure here *
*************************
CASE option3 = 2
DO Resort
CASE option3 = 3
DO Removeit
CASE option3 = 4
DO Olddate
CASE option3 = 5
DO Scrinit
CASE option3 = 6
*************************
* Do sub-procedure here *
*************************
CASE option3 = 7
DO Unmark
CASE option3 = 8
*************************
* Do sub-procedure here *
*************************
CASE option3 = 9
*************************
* Do sub-procedure here *
*************************
CASE option3 = 10
*************************
* Do sub-procedure here *
*************************
CASE option3 = 11
*************************
* Do sub-procedure here *
*************************
CASE option3 = 12
*************************
* Do sub-procedure here *
*************************
CASE option3 = 13
DO Reinitx
CASE option3 = 0
EXIT
ENDCASE

ENDDO

* End of CAMENU.prg