gnue/gnue-config/base/acct/classes base_acct.gcd

[Neil Tiffin]

CVSROOT:        /home/cvs
Module name:    gnue
Changes by:     Neil Tiffin <address@hidden>    01/08/25 13:44:27

Modified files:
        gnue-config/base/acct/classes: base_acct.gcd 

Log message:
        Add cleaner definition of transactions and comments.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/base/acct/classes/base_acct.gcd.diff?cvsroot=OldCVS&tr1=1.1&tr2=1.2&r1=text&r2=text

Patches:
Index: gnue/gnue-config/base/acct/classes/base_acct.gcd
diff -u gnue/gnue-config/base/acct/classes/base_acct.gcd:1.1 
gnue/gnue-config/base/acct/classes/base_acct.gcd:1.2
--- gnue/gnue-config/base/acct/classes/base_acct.gcd:1.1        Sat Aug 25 
12:46:34 2001
+++ gnue/gnue-config/base/acct/classes/base_acct.gcd    Sat Aug 25 13:44:27 2001
@@ -22,21 +22,41 @@
 #
 # This file originally written by Neil Tiffin (address@hidden).
 #
-# $Revision: 1.1 $ $Date: 2001/08/25 19:46:34 $ $Author: ntiffin $
+# $Revision: 1.2 $ $Date: 2001/08/25 20:44:27 $ $Author: ntiffin $
 #
 
+include "../../../base/currency/classes/currency.gcd"
+
 module base_acct
 {
   # -------------------------------------------------------------------------
-  # master list of accounting transactions allowed to be generated from
+  # transaction definition for transactions that can be generated from
   # the various subsystems.
+  # -------------------------------------------------------------------------
+  class trans_def
+  {
+    char    name<25>     not null;  # long name
+    char    abbrv<8>     not null;  # abbreviation used in place of code
+                                    # for lookup by the subsystems.
+    int16   code         not null;  # code using in transaction file to save
+                                    # space
+    char    account<15>  not null;  # General Ledger account number
+    char    debit_credit not null;  # C = credit, D = debit
+    boolean active = "T" not null;  # is this transaction code usable
+  };
+  
+  # -------------------------------------------------------------------------
+  # standard transaction data file for all subsystems.
   # -------------------------------------------------------------------------
-  class transactions
+  type trans
   {
-    char  name<25>;    # Customer Invoice
-    int16 code;        # 01
-    char  account<15>; # 01001
-    char debit_credit;     # C
-    
+    int             code;         # the transaction code from base_acct::trans
+    date            date;         # the transaction date
+    char            account<10>;  # the general ledger account number
+    boolean         exported;     # has this transaction been exported from 
sub-system
+    currency::money amount;       # value of this transaction
+    char            debit_credit; # is this a debit or credit transaction
+    char            extra1<15>;   # defined by the subsystem
+    char            extra2<15>;   # defined by the subsystem
   };
 };