Index: DOM/PM/enu/TBXZijwandVerhogingType.cls.xml =================================================================== diff -u -r38314 -r65325 --- DOM/PM/enu/TBXZijwandVerhogingType.cls.xml (.../TBXZijwandVerhogingType.cls.xml) (revision 38314) +++ DOM/PM/enu/TBXZijwandVerhogingType.cls.xml (.../TBXZijwandVerhogingType.cls.xml) (revision 65325) @@ -4,11 +4,11 @@ TECH.Enumeration -;Laag;Reling;Boxside;Boxcap;Boxcover;InschuifElement +;Laag;Reling;Boxside;Boxcap;Boxcover;InschuifElement;Zonder -;Laag;Reling;Boxside;Boxcap;Boxcover;InschuifElement +;Laag;Reling;Boxside;Boxcap;Boxcover;InschuifElement;Zonder @@ -52,6 +52,13 @@ + + +1 +DOM.PM.enu.TBXZijwandVerhogingType + + Index: DOM/PM/enu/TBXZijwandVerhogingType/Verwerker.cls.xml =================================================================== diff -u -r38314 -r65325 --- DOM/PM/enu/TBXZijwandVerhogingType/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 38314) +++ DOM/PM/enu/TBXZijwandVerhogingType/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 65325) @@ -24,6 +24,8 @@ Do ..VerwerkLaag() } ElseIf TBXZijwandVerhogingType = "Reling" { Do ..VerwerkReling() + } ElseIf TBXZijwandVerhogingType = "Zonder" { + Do ..VerwerkZonder() } Else { Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TBXZijwandVerhogingType,"DOM.PM.enu.TBXZijwandVerhogingType",$classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) @@ -66,6 +68,12 @@ 1 + + +1 +1 + + Index: DOM/PM/enu/TBXZijwandVerhogingType/AutoComplete.cls.xml =================================================================== diff -u -r43532 -r65325 --- DOM/PM/enu/TBXZijwandVerhogingType/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 43532) +++ DOM/PM/enu/TBXZijwandVerhogingType/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 65325) @@ -51,10 +51,12 @@ 1 - -%Library.CacheSerialState -^DOM.PM.enu.TB6AE5.AutoCompleteS - + +%String +"Zonder" +1 +1 +