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

 
Output of file : REPORT2.PRG contained in archive : CANS_101.ZIP

*--------------------------------------------------------------
*
* System Name: Beer Cans Inventory System
*
* Program Name: REPORT2.PRG
*
* Programmer: Eric L. Poole
* Date: 15 February 1988
*
* Purpose: Lists Cans by Brewery, Brand, and Size
* to Screen or Printer.
*
*--------------------------------------------------------------

* ---------- Initialize.
set color to w+/

clear

* ---------- Create Temporary Index.

index on upper(brewery) + upper(brand) + str(size,5,1) to temp.ndx
set index to temp.ndx

* ---------- Prompt for Output Choice.

Accept "Send report to Screen or Printer (S/p)?" to choice

set color to gr+/

* ---------- Check for Printer Output.

if upper(choice) = "P"
set print on
endif

?
report form report2

* ---------- Finished Printing.

set print off

set color to r+/
?
? "Report Completed ...."
?

set color to w+/
wait "Press any key to return to Reports Menu."

* ---------- Turn Index off.

set index to
erase temp.ndx

* ---------- Return to Reports Menu.

return