(******************************************************************************
*                                FOLIO11 .DEF                                 *
*                              ABO Software Dep.                              *
* Purpose : To provide a class used to store and manipulate transaction data  *
*                                                                             *
*   Notes :                                                                   *
*                                                                             *
*         Version Date : 10/6/92                                              *
******************************************************************************)
DEFINITION MODULE FOLIO1;

FROM DATA21 IMPORT DBase;
FROM OBJ11 IMPORT Object;
FROM DATE11 IMPORT Date;
FROM SHARE31 IMPORT ShareDB,Transact,Gain;
FROM FIO IMPORT File;
CONST

TYPE
	FolioErrProc = PROCEDURE(Transact,ARRAY OF CHAR);
VAR
	FolioError :FolioErrProc;
	ShareDetails,GainDetails,ShareTotals,GainTotals:BOOLEAN;
	
CLASS Folio(Object);
	trans,gains,transumms,gainsumms:ShareDB;
	trantotal:Transact;
	gaintotal:Gain;
PROCEDURE fifoprocess(trdb:ShareDB;VAR dt:Date);
PROCEDURE distprocess(trdb:ShareDB;VAR dt:Date);
PROCEDURE open;
PROCEDURE close(VAR dt:Date);
PROCEDURE fifosale(tr:Transact);
PROCEDURE distsale(tr:Transact);
PROCEDURE bonus   (tr:Transact);
PROCEDURE purchase(tr:Transact);
VIRTUAL PROCEDURE clear;
PROCEDURE rd(f:File);
PROCEDURE wr(f:File);
END Folio;

VAR

END FOLIO1.