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