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 + +