Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml =================================================================== diff -u -r38870 -r38957 --- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38870) +++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38957) @@ -98,9 +98,9 @@ Set TBXKenmerken.HeeftZijstabilisering = Product.BevatStabilisator() Do ..Controleer(TBXKenmerken.HeeftZijstabilisering,Product.BevatStabilisator(),"Stabilisator", ErrorLijst) - Set TBXKenmerken.VerpakkingType = Product.GeefVerpakking() - Do ..Controleer(TBXKenmerken.VerpakkingType,Product.GeefVerpakking(),"Verpakking", ErrorLijst) - Do ..IsValid(TBXKenmerken.VerpakkingType,"DOM.PM.enu.TBXVerpakking", ErrorLijst) + Set TBXKenmerken.VerpakkingType = ..ConverteerVerpakking(Product.GeefVerpakking()) + Do ..Controleer(TBXKenmerken.VerpakkingType,..ConverteerVerpakking(Product.GeefVerpakking()),"Verpakking", ErrorLijst) + Do ..IsValid(TBXKenmerken.VerpakkingType,"DOM.PM.enu.TBXVerpakkingType", ErrorLijst) Set TBXKenmerken.VoorwandMetGreep = Product.BevatGreep() Do ..Controleer(TBXKenmerken.VoorwandMetGreep,Product.BevatGreep(),"VoorwandMetGreep", ErrorLijst) @@ -242,10 +242,36 @@ Set TBXKenmerken.GUIKenmerken.IsBinnenbreedte = $$$If($$$HasLength(Product.GeefWandDikte()),$$$True,$$$False) Do ..Controleer(TBXKenmerken.GUIKenmerken.IsBinnenbreedte,$$$If($$$HasLength(Product.GeefWandDikte()),$$$True,$$$False),"IsBinnenbreedte", ErrorLijst) + If (Product.GeefBlumotion() = ##class(DOM.PM.enu.TBXBlumotion).TipOn()) { + Set TBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TipOn() + } + If (Product.GeefBlumotion() = ##class(DOM.PM.enu.TBXBlumotion).Geintegreerd()) { + Set TBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion() + } + Quit TBXKenmerken ]]> + +Verpakking:DOM.PM.enu.TBXVerpakking +DOM.PM.enu.TBXVerpakkingType + + + Waarde:%String,Gevonden:%String,Boodschap:%String,BoodschapLijst:%ListOfDataTypes -DOM.PM.enu.TBXVerpakking +DOM.PM.enu.TBXVerpakkingType @@ -285,7 +285,7 @@ Set ..HangmapBoringAantal = 0 Set ..DwarsverdelingAantal = ##class(DOM.PM.enu.TBXDwarsverdeling).Zonder() Set ..RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() - Set ..VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen() ; Stuk + Set ..VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).V1() ; Stuk Set ..PlaatMateriaal="HS" ]]> Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml =================================================================== diff -u -r38916 -r38957 --- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38916) +++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38957) @@ -27,7 +27,30 @@ Set TbxKenmerken.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).BZ() Set TbxKenmerken.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).M() Set TbxKenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M() - set TbxKenmerken.LegacyKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade() + Set TbxKenmerken.LegacyKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade() + Set TbxKenmerken.Blumotion = $$$True + Set TbxKenmerken.Antislipmat = 0 + Set TbxKenmerken.FrontHouderKleur = "BZ" + Set TbxKenmerken.FrontOndersteuningAantal = 0 + Set TbxKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Geen() + Set TbxKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion() + Set TbxKenmerken.HangmapBoringAantal = 0 + Set TbxKenmerken.HeeftOpvullijstLinks = $$$False + Set TbxKenmerken.HeeftOpvullijstRechts = $$$False + Set TbxKenmerken.InterneBreedte = 600 + Set TbxKenmerken.LadeVariant = "TBX_Antaro" + Set TbxKenmerken.RugHouderKleur = "BZ" + Set TbxKenmerken.RugKleur = "BZ" + Set TbxKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() + Set TbxKenmerken.TipOn = $$$False + Set TbxKenmerken.VoorwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXVoorwandVerhogingMateriaal).Geen() + Set TbxKenmerken.VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen() + Set TbxKenmerken.ZijkantDesign = ##class(DOM.PM.enu.TBXZijkantDesign).A() + Set TbxKenmerken.ZijwandVerhogingAantal = 0 + Set TbxKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Geen() + Set TbxKenmerken.GUIKenmerken.CorpusBreedte = 600 + Set TbxKenmerken.GUIKenmerken.CorpusWandDikte = 0 + Set TbxKenmerken.GUIKenmerken.IsBinnenbreedte = $$$True Quit TbxKenmerken ]]> Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor/Converteer/Test.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor/Converteer/Test.cls.xml (revision 0) +++ vhUnitTest/APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor/Converteer/Test.cls.xml (revision 38957) @@ -0,0 +1,23 @@ + + + +vhUnitTest.TestCase + + + + + + + + Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml =================================================================== diff -u -r38917 -r38957 --- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38917) +++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38957) @@ -5,7 +5,7 @@