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

*****************************************************************************
* YOU MAY DISTRIBUTE THESE PROGRAMS WITHOUT A ROYALTY FEE PROVIDED THAT THIS
* PROGRAM HEADER IS NOT ERASED OR MODIFIED. DOING SO WILL VOID YOUR LICENSE
*****************************************************************************
* This dBase III+ program was created using dONE! applications generator.
* Copyright (C) H. Richard Corona, 1987 * All rights reserved by author.
* Distributed by Charles Williams Inc. * 401 Wythe Street * Alexandria
* Virginia * 22314 * (703) 548-2501 * (703) 671-2170.
*****************************************************************************
* Program name........: LISTING
* Program purpose.....: REPORT DRIVER
*****************************************************************************

@ 01,40 SAY "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
@ 02,40 SAY "ºReports (Listings) Menuº"
@ 03,40 SAY "ÇÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
@ 04,40 SAY "º R ³ Run a report º"
@ 05,40 SAY "º D ³ Reports directory º"
@ 06,40 SAY "º C ³ Create a report º"
@ 07,40 SAY "º M ³ Modify a report º"
@ 08,40 SAY "º E ³ Erase a report º"
@ 09,40 SAY "º Q ³ Quit reports º"
@ 10,40 SAY "ÇÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
@ 11,40 SAY "º Your choice ==> [ ] º"
@ 12,40 SAY "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
WORKING = .T.
DO WHILE WORKING
OPTION = " "
@ 11,60 GET OPTION PICTURE "!"
READ
DO CASE
CASE OPTION = "R"
DO WHILE OPTION = "R"
CLEAR
IF CLIPPER
RUN DIR *.FRM/W
ELSE
DIR *.FRM
ENDIF
@ 24,0 SAY SPACE(80)
@ 23,0 SAY REPLICATE(CHR(223),80)
TORUN = " "
@ 24,0 SAY "Type the name of the report to run or blank to exit ==> " GET TORUN PICTURE "!!!!!!!!"
READ
IF LEN(TRIM(TORUN)) = 0
RETURN
ENDIF
TOCHECK = CHR(34)+TRIM(TORUN)+".FRM"+CHR(34)
IF .NOT. FILE(&TOCHECK)
LOOP
ENDIF
OUTPUT = "S"
@ 24,0 SAY SPACE(80)
@ 24,0 SAY "Direct output to the Screen or Printer (S/P) " GET OUTPUT PICTURE "!"
READ
IF OUTPUT <> "P"
OUTPUT = "S"
ENDIF
IF OUTPUT = "S"
CLEAR
REPORT FORM &TORUN
ELSE
CLEAR
SET INTENSITY OFF
DUMMY = " "
@ 10,11 SAY "Please make sure the printer is ready and press any key " GET DUMMY
READ
SET INTENSITY ON
CLEAR
REPORT FORM &TORUN TO PRINT
ENDIF
WAIT
OPTION = ""
ENDDO
WORKING = .F.
CASE OPTION = "D"
CLEAR
IF CLIPPER
RUN DIR *.FRM/W
ELSE
DIR *.FRM
ENDIF
@ 24,0 SAY SPACE(80)
@ 23,0 SAY REPLICATE(CHR(223),80)
DUMMY = " "
@ 24,0 SAY "Press any key to continue..." GET DUMMY
READ
WORKING = .F.
CASE OPTION = "C"
DO WHILE OPTION = "C"
CLEAR
IF CLIPPER
RUN DIR *.FRM/W
ELSE
DIR *.FRM
ENDIF
@ 24,0 SAY SPACE(80)
@ 23,0 SAY REPLICATE(CHR(223),80)
TORUN = " "
@ 24,0 SAY "Type the name of the report to create or blank to exit => " GET TORUN PICTURE "!!!!!!!!"
READ
IF LEN(TRIM(TORUN))=0
RETURN
ENDIF
TOCHECK = CHR(34)+TRIM(TORUN)+".FRM"+CHR(34)
IF FILE(&TOCHECK)
LOOP
ENDIF
IF CLIPPER
RUN REPORT &TORUN
ENDIF
IF .NOT.CLIPPER
CREATE REPORT &TORUN
ENDIF
OPTION = ""
ENDDO
WORKING = .F.
CASE OPTION = "M"
DO WHILE OPTION = "M"
CLEAR
IF CLIPPER
RUN DIR *.FRM/W
ELSE
DIR *.FRM
ENDIF
@ 24,0 SAY SPACE(80)
@ 23,0 SAY REPLICATE(CHR(223),80)
TORUN = " "
@ 24,0 SAY "Type the name of the report to modify or blank to exit => " GET TORUN PICTURE "!!!!!!!!"
READ
IF LEN(TRIM(TORUN))=0
RETURN
ENDIF
TOCHECK = CHR(34)+TRIM(TORUN)+".FRM"+CHR(34)
IF .NOT. FILE(&TOCHECK)
LOOP
ENDIF
IF CLIPPER
RUN REPORT &TORUN
ENDIF
IF .NOT. CLIPPER
MODIFY REPORT &TORUN
ENDIF
OPTION = ""
ENDDO
WORKING = .F.
CASE OPTION = "E"
DO WHILE OPTION = "E"
CLEAR
IF CLIPPER
RUN DIR *.FRM/W
ELSE
DIR *.FRM
ENDIF
@ 24,0 SAY SPACE(80)
@ 23,0 SAY REPLICATE(CHR(223),80)
TORUN = " "
@ 24,0 SAY "Type the name of the report to erase or blank to exit => " GET TORUN PICTURE "!!!!!!!!"
READ
IF LEN(TRIM(TORUN))=0
RETURN
ENDIF
TOCHECK = CHR(34)+TRIM(TORUN)+".FRM"+CHR(34)
IF .NOT. FILE(&TOCHECK)
LOOP
ENDIF
TODELETE = TRIM(TORUN)+".FRM"
DELETE FILE &TODELETE
OPTION = ""
ENDDO
WORKING = .F.
CASE OPTION = "Q"
WORKING = .F.
ENDCASE
ENDDO