Storage

intersystems-community · Nov 30, 2016 · ec9f22c · ec9f22c
1 parent b1218f7
commit ec9f22c
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 7 deletions.
diff --git a/Form/Test/Address.cls.xml b/Form/Test/Address.cls.xml
@@ -25,5 +25,24 @@ The city name.</Description>
 <Parameter name="MAXLEN" value="80"/>
 <Parameter name="POPSPEC" value="City()"/>
 </Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>AddressState</State>
+<StreamLocation>^Form.Test.AddressS</StreamLocation>
+<Data name="AddressState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>House</Value>
+</Value>
+<Value name="2">
+<Value>Street</Value>
+</Value>
+<Value name="3">
+<Value>City</Value>
+</Value>
+</Data>
+</Storage>
 </Class>
 </Export>
diff --git a/Form/Test/Person.cls.xml b/Form/Test/Person.cls.xml
@@ -38,13 +38,6 @@ Required for all long properties used by "order by" </Description>
 <Parameter name="MAXLEN" value="2000"/>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Property gender As %String(DISPLAYLIST = ",М,Ж", DISPLAYNAME = "Пол", VALUELIST = ",1,2");
-
-]]></Content>
-</UDLText>
-
 <Property name="dob">
 <Description>
 Person's gender