r6104 - in trunk/gnue-packages/base: person typedef

[kilo]

Author: kilo
Date: 2004-07-29 06:43:36 -0500 (Thu, 29 Jul 2004)
New Revision: 6104

Added:
   trunk/gnue-packages/base/person/person.hu.gcd
   trunk/gnue-packages/base/person/person.hu.gfd
Modified:
   trunk/gnue-packages/base/typedef/core.gcd
Log:
Localized Hungarian PERSON module

Added: trunk/gnue-packages/base/person/person.hu.gcd
===================================================================
--- trunk/gnue-packages/base/person/person.hu.gcd       2004-07-29 09:36:41 UTC 
(rev 6103)
+++ trunk/gnue-packages/base/person/person.hu.gcd       2004-07-29 11:43:36 UTC 
(rev 6104)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+
+<module name="PERSONHU" comment="Localized Hungarian Person class">
+  <class name="PERSON_Person"   comment="">
+    <property name="fullName"       type="string"                              
 comment="Full name per local requirements">
+      <![CDATA[
+      name = ''
+      if self.PERSON_namePrefix:    name += self.PERSON_namePrefix + ' '
+      name += self.PERSON_nameLast
+      if self.PERSON_nameMiddle:    name += ' ' + self.PERSON_nameMiddle
+      if self.PERSON_nameFirst:     name += ' ' + self.PERSON_nameFirst
+      if self.PERSON_nameSuffix:    name += ' ' + self.PERSON_nameSuffix
+
+      return name
+      ]]>
+    </property>
+
+    <property name="politeName"     type="string"                              
 comment="Polite name per local requirements">
+      <![CDATA[
+      name = ''
+      if self.PERSON_namePrefix:    name += self.PERSON_namePrefix + ' '
+      name += self.PERSON_nameLast
+
+      return name
+      ]]>
+    </property>
+  </class>
+</module>

Added: trunk/gnue-packages/base/person/person.hu.gfd
===================================================================
--- trunk/gnue-packages/base/person/person.hu.gfd       2004-07-29 09:36:41 UTC 
(rev 6103)
+++ trunk/gnue-packages/base/person/person.hu.gfd       2004-07-29 11:43:36 UTC 
(rev 6104)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="iso8859-1"?>
+
+<!--  GNUe-Designer (0.5.4.99)
+      Saved on: 2004-07-29 12:14:12  -->
+
+<form title="Person">
+  <options/>
+  <datasource name="dtsPERSON_Person" connection="appserver"
+              table="PERSON_Person"/>
+  <datasource name="dts_CDICT_Code_prefix" connection="appserver"
+              table="CDICT_Code"/>
+  <datasource name="dts_CDICT_Code_suffix" connection="appserver"
+              table="CDICT_Code"/>
+  <logic>
+    <block name="blkPERSON_Person" datasource="dtsperson_person">
+      <field name="fldGnueId" field="gnue_id" maxLength="32"/>
+      <field name="fldPersonNamefirst" field="PERSON_nameFirst" 
maxLength="35"/>
+      <field name="fldPersonNamelast" field="PERSON_nameLast" maxLength="35"/>
+      <field name="fldPersonNamemiddle" field="PERSON_nameMiddle"
+             maxLength="35"/>
+      <field name="fldPersonNamenick" field="PERSON_nameNick" maxLength="35"/>
+      <field name="fldPersonNameprefix" field="PERSON_namePrefix"
+             fk_description="CDICT_name" fk_key="gnue_id" 
fk_source="dts_CDICT_Code_prefix" maxLength="32"/>
+      <field name="fldPersonNamesuffix" field="PERSON_nameSuffix"
+             fk_description="CDICT_name" fk_key="gnue_id" 
fk_source="dts_CDICT_Code_suffix" maxLength="32"/>
+      <field name="fldPersonWorktitle" field="PERSON_workTitle" 
maxLength="35"/>
+      <field name="fldPersonFullname" field="PERSONHU_fullName" 
maxLength="40"/>
+      <field name="fldPersonPolitename" field="PERSONHU_politeName"
+             maxLength="40"/>
+    </block>
+  </logic>
+  <layout xmlns:Char="GNUe:Layout:Char" Char:height="11" Char:width="61">
+    <page name="Page1">
+      <entry name="entGnueId" Char:height="1" Char:width="32" Char:x="1"
+             Char:y="8" block="blkPERSON_Person" field="fldGnueId" hidden="Y" 
label=""/>
+      <label name="lblPerson Namefirst:" Char:height="1" Char:width="10"
+             Char:x="1" Char:y="2" text="Firstname:"/>
+      <entry name="entPersonNamefirst" Char:height="1" Char:width="25"
+             Char:x="13" Char:y="2" block="blkPERSON_Person" 
field="fldPersonNamefirst"
+             focusorder="2" label=""/>
+      <label name="lblPerson Namelast:" Char:height="1" Char:width="9"
+             Char:x="1" Char:y="4" text="Lastname:"/>
+      <entry name="entPersonNamelast" Char:height="1" Char:width="25"
+             Char:x="13" Char:y="4" block="blkPERSON_Person" 
field="fldPersonNamelast"
+             focusorder="4" label=""/>
+      <label name="lblPerson Namemiddle:" Char:height="1" Char:width="12"
+             Char:x="1" Char:y="3" text="Middle name:"/>
+      <entry name="entPersonNamemiddle" Char:height="1" Char:width="25"
+             Char:x="13" Char:y="3" block="blkPERSON_Person" 
field="fldPersonNamemiddle"
+             focusorder="3" label=""/>
+      <label name="lblPerson Namenick:" Char:height="1" Char:width="9"
+             Char:x="1" Char:y="6" text="Nickname:"/>
+      <entry name="entPersonNamenick" Char:height="1" Char:width="25"
+             Char:x="13" Char:y="6" block="blkPERSON_Person" 
field="fldPersonNamenick"
+             focusorder="6" label=""/>
+      <label name="lblPerson Nameprefix:" Char:height="1" Char:width="7"
+             Char:x="1" Char:y="1" text="Prefix:"/>
+      <entry name="entPersonNameprefix" Char:height="1" Char:width="25"
+             Char:x="13" Char:y="1" block="blkPERSON_Person" 
field="fldPersonNameprefix"
+             focusorder="1" label="" style="dropdown"/>
+      <label name="lblPerson Namesuffix:" Char:height="1" Char:width="7"
+             Char:x="1" Char:y="5" text="Suffix:"/>
+      <entry name="entPersonNamesuffix" Char:height="1" Char:width="25"
+             Char:x="13" Char:y="5" block="blkPERSON_Person" 
field="fldPersonNamesuffix"
+             focusorder="5" label="" style="dropdown"/>
+      <label name="lblPerson Worktitle:" Char:height="1" Char:width="11"
+             Char:x="1" Char:y="7" text="Work title:"/>
+      <entry name="entPersonWorktitle" Char:height="1" Char:width="25"
+             Char:x="13" Char:y="7" block="blkPERSON_Person" 
field="fldPersonWorktitle"
+             focusorder="7" label=""/>
+      <entry name="entFullname" Char:height="1" Char:width="35" Char:x="13"
+             Char:y="9" block="blkPERSON_Person" field="fldPersonFullname" 
label=""/>
+      <entry name="entPoliteName" Char:height="1" Char:width="35" Char:x="13"
+             Char:y="10" block="blkPERSON_Person" field="fldPersonPolitename" 
label=""/>
+    </page>
+  </layout>
+</form>

Modified: trunk/gnue-packages/base/typedef/core.gcd
===================================================================
--- trunk/gnue-packages/base/typedef/core.gcd   2004-07-29 09:36:41 UTC (rev 
6103)
+++ trunk/gnue-packages/base/typedef/core.gcd   2004-07-29 11:43:36 UTC (rev 
6104)
@@ -7,7 +7,7 @@
   <class name="Amount"  comment="">
     <!--base=decimal-->
     <property name="value"      type="number(18,4)"     comment="" />
-    <property name="currency"   type="CORE_Currency"    comment="" />
+    <property name="currencyID" type="string(3)"        comment="" />
   </class>
 
   <!--A character string (letters, figures, or symbols) that for brevity