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

use dqfiles
locate all for file_na=fl_na
rec=recno()
go rec
yb=0
do while yb<4
clear
@5,10 say ''
text
[1] Add New Report Form
[2] Modify Report Form
[3] Delete Report Form
[4] Return to Main Menu
endtext
wait ' Enter Your Selection ' to xb
yb=val(xb)
do case
case yb=4
enddo
case yb=1
do case
case for_f1<>' ' .and. for_f2<>' ' .and. for_f3<>' '
?
? 'Maximum Number of Report Forms Exist...'
? 'To Enter a New Form, you must Modify an Existing Form or'
? 'Delete an Old one to Make Room...'
?
wait 'Press Any Key to Modify Report Form '
yb=4
otherwise
des=space(20)
@15,10 say 'Enter Description of This Form '
@15,col() get des
READ
if len(fl_na)=8
fil_name=substr(fl_na,1,7)
else
fil_name=trim(fl_na)
endif
do case
case for_f1=' '
fil_name=fil_name+'1'
go rec
replace next 1 for_f1 with fil_name,df1 with des
case for_f2=' '
fil_name=fil_name+'2'
go rec
replace next 1 for_f2 with fil_name,df2 with des
case for_f3=' '
fil_name=fil_name+'3'
go rec
replace next 1 for_f3 with fil_name,df3 with des
endcase
go rec
use &fl_na
modify report &fil_name
endcase
yb=4
case yb=2
des=space(20)
@12,10 say '[1] '+for_f1+' '+df1
@13,10 say '[2] '+for_f2+' '+df2
@14,10 say '[3] '+for_f3+' '+df3
@15,10 say '[4] Return to Previous Menu'
wait 'Enter Your Selection ' to xc
yc=val(xc)
do case
case yc=4
yb=4
case yc=1 .and. for_f1<>' '
fil_name=for_f1
use &fl_na
modify report &fil_name
yb=4
case yc=2 .and. for_f2<>' '
fil_name=for_f2
use &fl_na
modify report &fil_name
yb=4
case yc=3 .and. for_f3<>' '
fil_name=for_f3
use &fl_na
modify report &fil_name
yb=4
endcase
case yb=3
des=space(20)
@12,10 say '[1] '+for_f1+' '+df1
@13,10 say '[2] '+for_f2+' '+df2
@14,10 say '[3] '+for_f3+' '+df3
@15,10 say '[4] Return to Previous Menu'
wait 'Enter Your Selection ' to xc
yc=val(xc)
do case
case yc=4
yb=4
case yc=1
fil_name=for_f1+'.frm'
case yc=2
fil_name=for_f2+'.frm'
case yc=3
fil_name=for_f3+'.frm'
endcase
if fil_name<>' '
wait 'Are you Sure??? ' to ok
if upper(ok)='Y'
erase &fil_name
endif
tem1='for_f'+xc
tem2='df'+xc
replace &tem1 with ' ',&tem2 with ' '
yb=4
endif
endcase
enddo