r7 - trunk/finance

[reinhard]

Author: reinhard
Date: 2004-10-25 11:29:07 -0500 (Mon, 25 Oct 2004)
New Revision: 7

Modified:
   trunk/finance/gl.gcd
Log:
Some OnInit's.


Modified: trunk/finance/gl.gcd
===================================================================
--- trunk/finance/gl.gcd        2004-10-25 16:14:06 UTC (rev 6)
+++ trunk/finance/gl.gcd        2004-10-25 16:29:07 UTC (rev 7)
@@ -31,6 +31,10 @@
     <property name="previous" type="gl_year"    />
     <property name="active"   type="boolean"    nullable="False" />
     <property name="last"     type="number(6)"  comment="Last journal serial" 
/>
+    <procedure name="OnInit">
+      self.active = True
+      self.last = 0
+    </procedure>
     <procedure name="OnChange">
       <![CDATA[
         # TODO: self.start and self.end may not be changed if there are already
@@ -42,7 +46,7 @@
     <procedure name="OnValidate">
       <![CDATA[
         # TODO: check: self.start must be the first day of a month
-        # TODO: check: self.last must be the last day of a month
+        # TODO: check: self.end must be the last day of a month
         # TODO: check: self.end > self.start
         # TODO: check: self.previous.end + 1day = self.start
         # TODO: generate accounting periods
@@ -77,6 +81,9 @@
     <property name="name"     type="string(35)"    />
     <property name="active"   type="boolean"       nullable="False" />
     <property name="currency" type="base_currency" nullable="False" />
+    <procedure name="OnInit">
+      self.active = True
+    </procedure>
     <procedure name="OnChange">
       <![CDATA[
         # TODO: number may not be changed if account was already used