r6097 - trunk/gnue-packages/finance/tax

[kilo]

Author: kilo
Date: 2004-07-28 16:26:32 -0500 (Wed, 28 Jul 2004)
New Revision: 6097

Modified:
   trunk/gnue-packages/finance/tax/tax.gcd
Log:
Change due to Currency module name change

Modified: trunk/gnue-packages/finance/tax/tax.gcd
===================================================================
--- trunk/gnue-packages/finance/tax/tax.gcd     2004-07-28 11:52:36 UTC (rev 
6096)
+++ trunk/gnue-packages/finance/tax/tax.gcd     2004-07-28 21:26:32 UTC (rev 
6097)
@@ -3,7 +3,7 @@
 <module name="TAX">
   <class name="Vat" comment="Value Added Tax">
     <property name="rate"           type="number(6,3)"      nullable="False"   
 comment="Multiplicator in %"/>
-    <property name="name"           type="string(40)"                          
 comment=""/>
+    <property name="name"           type="string(35)"                          
 comment=""/>
     <property name="validFrom"      type="date"             nullable="False"   
 comment=""/>
     <property name="validUntil"     type="date"                                
 comment=""/>
     <property name="reciprocate"    type="number(6,3)"                         
 comment="To compute net value from gross value">
@@ -12,31 +12,31 @@
       ]]>
     </property>
 
-    <procedure name="getVATFromNet" type="MONEY_Money">
-      <parameter name="inNet"       type="MONEY_Money" />
+    <procedure name="getVATFromNet" type="CUR_Money">
+      <parameter name="inNet"       type="CUR_Money" />
       <![CDATA[
-      return inNet.MONEY_asNumber * self.rate / 100
+      return inNet.CUR_asNumber * self.rate / 100
       ]]>
     </procedure>
 
-    <procedure name="getGrossFromNet"   type="MONEY_Money">
-      <parameter name="inNet"           type="MONEY_Money" />
+    <procedure name="getGrossFromNet"   type="CUR_Money">
+      <parameter name="inNet"           type="CUR_Money" />
       <![CDATA[
-      return inNet.MONEY_asNumber * (100 + self.rate) / 100
+      return inNet.CUR_asNumber * (100 + self.rate) / 100
       ]]>
     </procedure>
 
-    <procedure name="getVATFromGross"   type="MONEY_Money">
-      <parameter name="inGross"         type="MONEY_Money" />
+    <procedure name="getVATFromGross"   type="CUR_Money">
+      <parameter name="inGross"         type="CUR_Money" />
       <![CDATA[
-      return inGross.MONEY_asNumber * self.reciprocate / 100
+      return inGross.CUR_asNumber * self.reciprocate / 100
       ]]>
     </procedure>
 
-    <procedure name="getNetFromGross"   type="MONEY_Money">
-      <parameter name="inGross"         type="MONEY_Money" />
+    <procedure name="getNetFromGross"   type="CUR_Money">
+      <parameter name="inGross"         type="CUR_Money" />
       <![CDATA[
-      return inGross.MONEY_asNumber * (100 - self.reciprocate) / 100
+      return inGross.CUR_asNumber * (100 - self.reciprocate) / 100
       ]]>
     </procedure>
   </class>