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

*--------------------------------------------------------------
*
* System Name: Beer Cans Inventory System
*
* Program Name: REPORT1.PRG
*
* Programmer: Eric L. Poole
* Date: 15 February 1988
*
* Purpose: Lists cans by Brand and Size.
*
*--------------------------------------------------------------

* ---------- Initialize.

set talk off
set color to w+/

clear

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

index on 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

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

set color to gr+/
?
report form report1

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

set print off
set color to r+/
?
? "Report Finished ...."
?

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