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

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

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

clear

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

index on upper(bev) + 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

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

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

* ---------- Print Report.

set color to gr+/
?
report form report4.frm

* ---------- 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