Index: ECON/PM/Maatwerk/enu/TBXFrontBevestiging/Verwerker.cls.xml =================================================================== diff -u -r39267 -r39746 --- ECON/PM/Maatwerk/enu/TBXFrontBevestiging/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 39267) +++ ECON/PM/Maatwerk/enu/TBXFrontBevestiging/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 39746) @@ -20,8 +20,6 @@ Do ..VerwerkInserta() } ElseIf TBXFrontBevestiging = "S" { Do ..VerwerkSchroef() - } ElseIf TBXFrontBevestiging = "Z" { - Do ..VerwerkZonder() } Else { Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TBXFrontBevestiging,"ECON.PM.Maatwerk.enu.TBXFrontBevestiging",$classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) @@ -52,12 +50,6 @@ 1 - - -1 -1 - - Index: ECON/PM/Maatwerk/enu/TBXFrontBevestiging/AutoComplete.cls.xml =================================================================== diff -u -r39267 -r39746 --- ECON/PM/Maatwerk/enu/TBXFrontBevestiging/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 39267) +++ ECON/PM/Maatwerk/enu/TBXFrontBevestiging/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 39746) @@ -36,13 +36,6 @@ 1 1 - - -%String -"Z" -1 -1 - Index: DOM/PM/enu/TBXFrontBevestiging.cls.xml =================================================================== diff -u -r39740 -r39746 --- DOM/PM/enu/TBXFrontBevestiging.cls.xml (.../TBXFrontBevestiging.cls.xml) (revision 39740) +++ DOM/PM/enu/TBXFrontBevestiging.cls.xml (.../TBXFrontBevestiging.cls.xml) (revision 39746) @@ -45,6 +45,13 @@ + + +1 +DOM.PM.enu.TBXFrontBevestiging + + Index: ECON/PM/Maatwerk/enu/TBXFrontBevestiging.cls.xml =================================================================== diff -u -r39268 -r39746 --- ECON/PM/Maatwerk/enu/TBXFrontBevestiging.cls.xml (.../TBXFrontBevestiging.cls.xml) (revision 39268) +++ ECON/PM/Maatwerk/enu/TBXFrontBevestiging.cls.xml (.../TBXFrontBevestiging.cls.xml) (revision 39746) @@ -38,13 +38,6 @@ - - -1 -ECON.PM.Maatwerk.enu.TBXFrontBevestiging - - Index: DOM/PM/enu/TBXFrontBevestiging/AutoComplete.cls.xml =================================================================== diff -u -r39740 -r39746 --- DOM/PM/enu/TBXFrontBevestiging/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 39740) +++ DOM/PM/enu/TBXFrontBevestiging/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 39746) @@ -43,6 +43,13 @@ 1 1 + + +%String +"Z" +1 +1 + Index: DOM/PM/enu/TBXFrontBevestiging/Verwerker.cls.xml =================================================================== diff -u -r39740 -r39746 --- DOM/PM/enu/TBXFrontBevestiging/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 39740) +++ DOM/PM/enu/TBXFrontBevestiging/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 39746) @@ -22,6 +22,8 @@ Do ..VerwerkInserta() } ElseIf TBXFrontBevestiging = "S" { Do ..VerwerkSchroef() + } ElseIf TBXFrontBevestiging = "Z" { + Do ..VerwerkZonder() } Else { Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TBXFrontBevestiging,"DOM.PM.enu.TBXFrontBevestiging",$classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) @@ -58,6 +60,12 @@ 1 + + +1 +1 + + Index: vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml =================================================================== diff -u -r39669 -r39746 --- vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 39669) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 39746) @@ -53,7 +53,7 @@ Set TbxKenmerken.InbouwHoogte = "DM" Set TbxKenmerken.IsBinnenlade = "true" - Set TbxKenmerken.FrontBevestiging = ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Zonder() + Set TbxKenmerken.FrontBevestiging = "" Set TbxKenmerken.LadeHoogte = ##class(ECON.PM.Maatwerk.enu.TBXLadeHoogte).D() Set TbxKenmerken.ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M() Set TbxKenmerken.ZijwandVerhogingType = ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Reling()