Topspeed_JPI/TS/EXAMPLES/SALES.DEF

DEFINITION MODULE Sales;
(*
        Copyright (C) 1988,1989 Jensen & Partners International
*)

TYPE
   TotalRec = RECORD    (* hold the daily totals *)
            TotalDollars : LONGREAL;
            TotalCash,
            TotalCharge  : LONGREAL;
            NumTrans     : CARDINAL;
         END;

VAR
  TotalFile  : ARRAY[0..12] OF CHAR;
             (*
                This file name is built from the current date by the
                Sales init code, and has the format MMDDYY.TOT.  This
                is used so that if you exit the program, the sales thus
                far for today are not lost.  If the file exists when
                Template() starts, the old totals are read in.  The file
                is always created with the latest data when the program
                ends.  This is accomplished with the Close() call (if
                this call is made several times, the file is just
                updated each time).
             *)

PROCEDURE Template();
(**
  Display the Sales screen and read the summary file.
**)

PROCEDURE Clear();
(**
  Clear information off the Sales screen
**)

PROCEDURE Work();
(**
  Perform the entry of sales, information requests, etc.
  Template should be called first to open the window and the summary
  file.
**)

PROCEDURE Summary();
(**
  Summarize current sales figures in a window
**)

PROCEDURE Close();
(**
  Remove the Sales screen from the screen and write the totals out
  to the summary file.
**)

END Sales.