home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
prg_hlp.zip
/
MENU1.PRG
< prev
next >
Wrap
Text File
|
1987-04-05
|
26KB
|
886 lines
************************************************************************
*
* MENU1.PRG
* THINGS TO DO PROGRAM
*
************************************************************************
A = "MENU1"
do while .T.
help_code = "01"
mrec = 0
select 1
use todo
goto top
@ 0,0 clear
do banner with "THINGS TO DO"
set color to I
do center with 1, "F1 - FOLLOW-UP MENU"
set color to
answer = space(3)
counter = 0
row = 4
new_screen = 1
message = space(65)
if reccount() = 0
do while .T.
@ row+1,0 say "Enter: "
@ row+1,10 get message
read
if len(trim(message)) # 0
append blank
replace subject with message
replace date with date()
@ row+1,0 clear
@ ROW+1,10 say message
row = row+1
message = space(65)
else
return
endif
if row > 22
@ 4,0 clear
row = 4
endif
enddo
else
ok = .T.
goto top
do while .T.
@ row+1,0 say ltrim(str(recno()))
@ row+1,5 say date
@ row+1,15 say subject
row = row+1
skip
if eof()
do file_mng
return
endif
if row>20
MSG1 = "1. CONTINUE"
MSG2 = "2. EDIT "
MSG3 = "0. MENU "
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 3
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "CEM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
do case
CASE upper(choice) = "0"
return
CASE upper(choice) = "1"
mrec = recno()
CASE upper(choice) = "2"
do file_mng
if ok
return
endif
endcase
new_screen = new_screen + 1
goto mrec
@ 4,0 clear
row = 4
endif
enddo
endif
enddo
**********************************************************************
procedure file_mng
mrec = recno()
topack = .F.
MSG1 = "CONTINUE"
MSG2 = "EDIT "
MSG3 = "PRINT "
MSG4 = "DELETE "
MSG5 = "QUIT "
MSG6 = "MENU "
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 6
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "CEPDQM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
ANSWER = CHOICE
do case
case upper(answer) = "3"
do print
ok = .F.
return
case upper(answer) = "0"
ok = .T.
return
case upper(answer) = "5"
@ 0,0 clear
quit
case upper(answer) = "2"
do while .T.
counter = 0
do clearit with 22,1,24,78
@ 22,1 say " "
input "Enter record number..." to counter
if counter = 0
ok = .F.
return
endif
goto counter
row = 4
do case
case new_screen = 2
counter = counter - 17
case new_screen = 3
counter = counter - 34
case new_screen = 4
counter = counter - 51
endcase
@ row+counter,15 get subject
read
answer = space(3)
enddo
case upper(answer) = "1" .or. len(trim(ltrim(answer))) = 0
if eof()
answer = space(3)
endif
case answer = "4"
counter = 0
do while .T.
do clearit with 22,1,24,78
@ 22,1 say " "
input "Enter record number..." to counter
if counter > 0
topack = .T.
delete record counter
row = 4
do case
case new_screen = 2
counter = counter - 17
case new_screen = 3
counter = counter - 34
case new_screen = 4
counter = counter - 51
endcase
@ row+counter,0 say space(80)
counter = 0
else
@ 22,1 clear
exit
endif
enddo
MSG1 = "CONTINUE"
MSG2 = "EDIT "
MSG3 = "PRINT "
MSG4 = "DELETE "
MSG5 = "QUIT "
MSG6 = "MENU "
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 6
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "CEPDQM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
ANSWER = CHOICE
do case
case upper(answer) = "3"
do print
if topack
pack
endif
ok = .F.
return
case upper(answer) = "0"
if topack
pack
endif
ok = .T.
return
case upper(answer) = "5"
@ 0,0 clear
if topack
pack
endif
quit
case upper(answer) = "1"
* exit
case upper(answer) = "2"
do while .T.
counter = 0
do clearit with 22,1,24,78
@ 22,1 say " "
input "Enter record number..." to counter
if counter = 0
ok = .F.
return
endif
goto counter
row = 4
do case
case new_screen = 2
counter = counter - 17
case new_screen = 3
counter = counter - 34
case new_screen = 4
counter = counter - 51
endcase
@ row+counter,15 get subject
read
answer = space(3)
enddo
case answer = "4"
counter = 0
do while .T.
do clearit with 22,1,24,78
@ 22,1 say " "
input "Enter record number..." to counter
if counter > 0
topack = .T.
delete record counter
row = 4
do case
case new_screen = 2
counter = counter - 17
case new_screen = 3
counter = counter - 34
case new_screen = 4
counter = counter - 51
endcase
@ row+counter,0 say space(80)
counter = 0
else
@ 22,1 clear
exit
endif
enddo
endcase
endcase
if topack
pack
endif
MSG1 = "MAIN MENU "
MSG2 = "ENTER NEW MESSAGES"
MSG3 = "XXXX"
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 2
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "ME"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
if upper(choice) = "1"
ok = .F.
return
endif
if topack
@ 4,0 clear
row = 4
endif
do while .T.
@ row+1,0 say "Enter: "
@ row+1,10 get message
read
if counter = 789
do print
ok = .F.
return
endif
if len(trim(message)) # 0
append blank
replace subject with message
replace date with date()
@ row+1,0 clear
@ ROW+1,10 say message
row = row+1
message = space(65)
else
ok = .F.
return
endif
if row > 22
@ 4,0 clear
row = 4
endif
enddo
ok = .F.
return
**********************************************************************
************************************************************************
*
* FOLLOW
*
************************************************************************
PROCEDURE FOLLOW
do while .T.
do while .T.
store date() to mdate1, mdate2
store date() + 30 to mdate3
@ 0,0 clear
do banner with "FOLLOW - UPS"
heading1 = "1. ENTER DATA "
heading2 = "2. SEARCH BY START DATE "
heading3 = "3. SEARCH BY ACTION DATE "
heading4 = "4. SEARCH BY COMPLETION DATE"
heading5 = "5. SEARCH ALL DATA "
heading6 = "0. RETURN TO MAIN MENU "
heading7 = "XXXX"
heading8 = "XXXX"
heading9 = "XXXX"
num_items = 6
X = 7
Y = 25
W = 28
@ 22,1 say bar
@ 23,2 say "Use UP and DOWN arrows to highlight choice...Press ENTER to select"
do lightbar with num_items,X,Y,W,heading1,heading2,heading3,heading4,heading5,heading6,heading7,heading8,heading9
choice = str(selection,1)
do case
case choice = "1"
set index to done1, done2, done3
goto top
do while .T.
@ 4,0 clear
append blank
@ 5,5 say "Enter initiating date:"
@ 5,40 get mdate1
@ 7,5 say "Enter action date:"
@ 7,40 get mdate2
@ 9,5 say "Enter follow-up date:"
@ 9,40 get mdate3
@ 11,5 say "Subject:"
@ 11,15 get subject
@ 13,5 say "Action:"
@ 13,15 get action1
@ 14,15 get action2
@ 15,15 get action3
@ 17,5 say "Contacts:"
@ 17,15 get contact1
@ 18,15 get contact2
@ 19,15 get contact3
@ 20,15 get contact4
read
replace date1 with mdate1
replace date2 with mdate2
replace date3 with mdate3
MSG1 = "1. ENTER ANOTHER "
MSG2 = "2. FOLLOW-UP MENU"
MSG3 = "0. MAIN MENU "
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 3
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "EFM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
do case
case choice = "2"
exit
case choice = "0"
return
endcase
enddo
case choice = "2"
set index to done1
goto top
@ 4,0 clear
@ 7,15 say "Enter Start Date:"
@ 7,40 get mdate1
@ 9,15 say "Enter End Date:"
@ 9,40 get mdate2
read
if mdate2 = ctod(" / / ")
goto bottom
mdate2 = date1
goto top
endif
do while mdate1 > date1 .and. .not. eof()
skip
enddo
do while date1 <= mdate2 .and. .not. eof()
@ 4,0 clear
@ 5,5 say "Initiating date:"
@ 5,40 say date1
@ 7,5 say "Action date:"
@ 7,40 say date2
@ 9,5 say "Follow-up date:"
@ 9,40 say date3
@ 11,5 say "Subject:"
set color to I
@ 11,15 say trim(subject)
set color to
if len(alltrim(action1)) + len(alltrim(action2)) + len(alltrim(action3)) > 0
@ 13,5 say "Action:"
@ 13,15 say action1
@ 14,15 say action2
@ 15,15 say action3
endif
if len(alltrim(contact1)) + len(alltrim(contact2)) + len(alltrim(contact3)) + len(alltrim(contact4)) > 0
@ 17,5 say "Contacts:"
@ 17,15 say contact1
@ 18,15 say contact2
@ 19,15 say contact3
@ 20,15 say contact4
endif
@ 22,40 say "Delete? (Y/N) " get purge picture "!"
read
if purge = "Y"
delete
endif
MSG1 = "1. EDIT "
MSG2 = "2. PRINT"
MSG3 = "0. MENU "
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 3
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "EPM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
answer = choice
if answer = "0"
return
endif
if upper(answer) = "2"
set device to print
@ 4,0
@ 5,5 say "Initiating date:"
@ 5,40 say date1
@ 7,5 say "Action date:"
@ 7,40 say date2
@ 9,5 say "Follow-up date:"
@ 9,40 say date3
@ 11,5 say "Subject:"
@ 11,15 say subject
@ 13,5 say "Action:"
@ 13,15 say action1
@ 14,15 say action2
@ 15,15 say action3
@ 17,5 say "Contacts:"
@ 17,15 say contact1
@ 18,15 say contact2
@ 19,15 say contact3
@ 20,15 say contact4
eject
set device to screen
endif
if upper(answer) = "1"
@ 4,0 clear
@ 5,5 say "Initiating date:"
@ 5,40 get date1
@ 7,5 say "Action date:"
@ 7,40 get date2
@ 9,5 say "Follow-up date:"
@ 9,40 get date3
@ 11,5 say "Subject:"
@ 11,15 get subject
@ 13,5 say "Action:"
@ 13,15 get action1
@ 14,15 get action2
@ 15,15 get action3
@ 17,5 say "Contacts:"
@ 17,15 get contact1
@ 18,15 get contact2
@ 19,15 get contact3
@ 20,15 get contact4
read
endif
skip
enddo
case choice = "3"
set index to done2
goto top
@ 4,0 clear
@ 7,15 say "Enter Start Date:"
@ 7,40 get mdate1
@ 9,15 say "Enter End Date:"
@ 9,40 get mdate2
read
if mdate2 = ctod(" / / ")
goto bottom
mdate2 = date2
goto top
endif
do while mdate1 > date2 .and. .not. eof()
skip
enddo
do while date2 <= mdate2 .and. .not. eof()
@ 4,0 clear
@ 5,5 say "Initiating date:"
@ 5,40 say date1
@ 7,5 say "Action date:"
@ 7,40 say date2
@ 9,5 say "Follow-up date:"
@ 9,40 say date3
@ 11,5 say "Subject:"
set color to I
@ 11,15 say trim(subject)
set color to
if len(alltrim(action1)) + len(alltrim(action2)) + len(alltrim(action3)) > 0
@ 13,5 say "Action:"
@ 13,15 say action1
@ 14,15 say action2
@ 15,15 say action3
endif
if len(alltrim(contact1)) + len(alltrim(contact2)) + len(alltrim(contact3)) + len(alltrim(contact4)) > 0
@ 17,5 say "Contacts:"
@ 17,15 say contact1
@ 18,15 say contact2
@ 19,15 say contact3
@ 20,15 say contact4
endif
@ 22,40 say "Delete? (Y/N) " get purge picture "!"
read
if purge = "Y"
delete
endif
MSG1 = "1. EDIT "
MSG2 = "2. PRINT"
MSG3 = "0. MENU "
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 3
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "EPM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
answer = choice
if answer = "0"
return
endif
if upper(answer) = "2"
set device to print
@ 4,0
@ 5,5 say "Initiating date:"
@ 5,40 say date1
@ 7,5 say "Action date:"
@ 7,40 say date2
@ 9,5 say "Follow-up date:"
@ 9,40 say date3
@ 11,5 say "Subject:"
@ 11,15 say subject
@ 13,5 say "Action:"
@ 13,15 say action1
@ 14,15 say action2
@ 15,15 say action3
@ 17,5 say "Contacts:"
@ 17,15 say contact1
@ 18,15 say contact2
@ 19,15 say contact3
@ 20,15 say contact4
eject
set device to screen
endif
if upper(answer) = "1"
@ 4,0 clear
@ 5,5 say "Initiating date:"
@ 5,40 get date1
@ 7,5 say "Action date:"
@ 7,40 get date2
@ 9,5 say "Follow-up date:"
@ 9,40 get date3
@ 11,5 say "Subject:"
@ 11,15 get subject
@ 13,5 say "Action:"
@ 13,15 get action1
@ 14,15 get action2
@ 15,15 get action3
@ 17,5 say "Contacts:"
@ 17,15 get contact1
@ 18,15 get contact2
@ 19,15 get contact3
@ 20,15 get contact4
read
endif
skip
enddo
case choice = "4"
set index to done3
goto top
@ 4,0 clear
@ 7,15 say "Enter Start Date:"
@ 7,40 get mdate1
@ 9,15 say "Enter End Date:"
@ 9,40 get mdate2
read
if mdate2 = ctod(" / / ")
goto bottom
mdate2 = date3
goto top
endif
do while mdate1 > date3 .and. .not. eof()
skip
enddo
do while date3 <= mdate2 .and. .not. eof()
@ 4,0 clear
@ 5,5 say "Initiating date:"
@ 5,40 say date1
@ 7,5 say "Action date:"
@ 7,40 say date2
@ 9,5 say "Follow-up date:"
@ 9,40 say date3
@ 11,5 say "Subject:"
set color to I
@ 11,15 say trim(subject)
set color to
if len(alltrim(action1)) + len(alltrim(action2)) + len(alltrim(action3)) > 0
@ 13,5 say "Action:"
@ 13,15 say action1
@ 14,15 say action2
@ 15,15 say action3
endif
if len(alltrim(contact1)) + len(alltrim(contact2)) + len(alltrim(contact3)) + len(alltrim(contact4)) > 0
@ 17,5 say "Contacts:"
@ 17,15 say contact1
@ 18,15 say contact2
@ 19,15 say contact3
@ 20,15 say contact4
endif
@ 22,40 say "Delete? (Y/N) " get purge picture "!"
read
if purge = "Y"
delete
endif
MSG1 = "1. EDIT "
MSG2 = "2. PRINT"
MSG3 = "0. MENU "
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 3
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "EPM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
answer = choice
if answer = "0"
return
endif
if upper(answer) = "2"
set device to print
@ 4,0
@ 5,5 say "Initiating date:"
@ 5,40 say date1
@ 7,5 say "Action date:"
@ 7,40 say date2
@ 9,5 say "Follow-up date:"
@ 9,40 say date3
@ 11,5 say "Subject:"
@ 11,15 say subject
@ 13,5 say "Action:"
@ 13,15 say action1
@ 14,15 say action2
@ 15,15 say action3
@ 17,5 say "Contacts:"
@ 17,15 say contact1
@ 18,15 say contact2
@ 19,15 say contact3
@ 20,15 say contact4
eject
set device to screen
endif
if upper(answer) = "1"
@ 4,0 clear
@ 5,5 say "Initiating date:"
@ 5,40 get date1
@ 7,5 say "Action date:"
@ 7,40 get date2
@ 9,5 say "Follow-up date:"
@ 9,40 get date3
@ 11,5 say "Subject:"
@ 11,15 get subject
@ 13,5 say "Action:"
@ 13,15 get action1
@ 14,15 get action2
@ 15,15 get action3
@ 17,5 say "Contacts:"
@ 17,15 get contact1
@ 18,15 get contact2
@ 19,15 get contact3
@ 20,15 get contact4
read
endif
skip
enddo
case choice = "0"
return
case choice = "5"
set index to
goto top
do while .not. eof()
@ 4,0 clear
@ 5,5 say "Initiating date:"
@ 5,40 say date1
@ 7,5 say "Action date:"
@ 7,40 say date2
@ 9,5 say "Follow-up date:"
@ 9,40 say date3
@ 11,5 say "Subject:"
set color to I
@ 11,15 say trim(subject)
set color to
if len(alltrim(action1)) + len(alltrim(action2)) + len(alltrim(action3)) > 0
@ 13,5 say "Action:"
@ 13,15 say action1
@ 14,15 say action2
@ 15,15 say action3
endif
if len(alltrim(contact1)) + len(alltrim(contact2)) + len(alltrim(contact3)) + len(alltrim(contact4)) > 0
@ 17,5 say "Contacts:"
@ 17,15 say contact1
@ 18,15 say contact2
@ 19,15 say contact3
@ 20,15 say contact4
endif
@ 22,40 say "Delete? (Y/N) " get purge picture "!"
read
if purge = "Y"
delete
endif
MSG1 = "1. EDIT "
MSG2 = "2. PRINT"
MSG3 = "0. MENU "
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 3
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "EPM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
answer = choice
if answer = "0"
return
endif
if upper(answer) = "2"
set device to print
@ 4,0
@ 5,5 say "Initiating date:"
@ 5,40 say date1
@ 7,5 say "Action date:"
@ 7,40 say date2
@ 9,5 say "Follow-up date:"
@ 9,40 say date3
@ 11,5 say "Subject:"
@ 11,15 say subject
@ 13,5 say "Action:"
@ 13,15 say action1
@ 14,15 say action2
@ 15,15 say action3
@ 17,5 say "Contacts:"
@ 17,15 say contact1
@ 18,15 say contact2
@ 19,15 say contact3
@ 20,15 say contact4
eject
set device to screen
endif
if upper(answer) = "1"
@ 4,0 clear
@ 5,5 say "Initiating date:"
@ 5,40 get date1
@ 7,5 say "Action date:"
@ 7,40 get date2
@ 9,5 say "Follow-up date:"
@ 9,40 get date3
@ 11,5 say "Subject:"
@ 11,15 get subject
@ 13,5 say "Action:"
@ 13,15 get action1
@ 14,15 get action2
@ 15,15 get action3
@ 17,5 say "Contacts:"
@ 17,15 get contact1
@ 18,15 get contact2
@ 19,15 get contact3
@ 20,15 get contact4
read
endif
skip
enddo
endcase
enddo
enddo
********************************** END MEN1.PRG *************************