Index: ECON/PM/Maatwerk/enu/TBXZijwandVerhogingInschuifelementKleur/AutoComplete.cls.xml
===================================================================
diff -u -r43621 -r65745
--- ECON/PM/Maatwerk/enu/TBXZijwandVerhogingInschuifelementKleur/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 43621)
+++ ECON/PM/Maatwerk/enu/TBXZijwandVerhogingInschuifelementKleur/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 65745)
@@ -44,10 +44,12 @@
1
-
-%Library.CacheSerialState
-^ECON.PM.MaatwD5A0.AutoCompleteS
-
+
+%String
+"ZV"
+1
+1
+
Index: ECON/PM/Maatwerk/enu/TBXZijwandVerhogingInschuifelementKleur.cls.xml
===================================================================
diff -u -r39296 -r65745
--- ECON/PM/Maatwerk/enu/TBXZijwandVerhogingInschuifelementKleur.cls.xml (.../TBXZijwandVerhogingInschuifelementKleur.cls.xml) (revision 39296)
+++ ECON/PM/Maatwerk/enu/TBXZijwandVerhogingInschuifelementKleur.cls.xml (.../TBXZijwandVerhogingInschuifelementKleur.cls.xml) (revision 65745)
@@ -4,11 +4,11 @@
TECH.Enumeration
-;FG8;FZ8;AluMG;AluSW;AluBZ
+;FG8;FZ8;AluMG;AluSW;AluBZ;ZV
-;FloatHelder8mm;FloatGezuurd8mm;AluMetallicGrijs;AluZijdeWit;AluTerraZwart
+;FloatHelder8mm;FloatGezuurd8mm;AluMetallicGrijs;AluZijdeWit;AluTerraZwart;ZonderVerhoging
@@ -45,6 +45,13 @@
+
+
+1
+ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur
+
+
Index: ECON/PM/Maatwerk/enu/TBXZijwandVerhogingInschuifelementKleur/Verwerker.cls.xml
===================================================================
diff -u -r39296 -r65745
--- ECON/PM/Maatwerk/enu/TBXZijwandVerhogingInschuifelementKleur/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 39296)
+++ ECON/PM/Maatwerk/enu/TBXZijwandVerhogingInschuifelementKleur/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 65745)
@@ -22,6 +22,8 @@
Do ..VerwerkFloatGezuurd8mm()
} ElseIf TBXZijwandVerhogingInschuifelementKleur = "FG8" {
Do ..VerwerkFloatHelder8mm()
+ } ElseIf TBXZijwandVerhogingInschuifelementKleur = "ZV" {
+ Do ..VerwerkZonderVerhoging()
} Else {
Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TBXZijwandVerhogingInschuifelementKleur,"ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur",$classname())
Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
@@ -58,6 +60,12 @@
1
+
+
+1
+1
+
+