Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r38651 -r38663
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38651)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38663)
@@ -207,6 +207,10 @@
%Integer
+
+DOM.PM.enu.TBXGeleiderTechnologie
+
+
%Integer
OpvullijstKleur
+
+GeleiderTechnologie
+
Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml
===================================================================
diff -u -r38651 -r38663
--- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38651)
+++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38663)
@@ -52,8 +52,6 @@
_ ";" _ TBXKenmerken.LadeVariant
_ ";" _ TBXKenmerken.IsBinnenlade
_ ";" _ TBXKenmerken.Antislipmat
- _ ";" _ TBXKenmerken.Blumotion
- _ ";" _ TBXKenmerken.TipOn
_ ";" _ TBXKenmerken.BodemKleur
_ ";" _ TBXKenmerken.Draagkracht
_ ";" _ TBXKenmerken.DwarsverdelingAantal
@@ -94,6 +92,7 @@
_ ";" _ TBXKenmerken.ZijwandVerhogingKleur
_ ";" _ TBXKenmerken.ZijwandVerhogingAantal
_ ";" _ TBXKenmerken.OpvullijstKleur
+ _ ";" _ TBXKenmerken.GeleiderTechnologie
]]>
Index: vhDeploy/D20161220TBXGeleiderTechnologieInvullen.cls.xml
===================================================================
diff -u
--- vhDeploy/D20161220TBXGeleiderTechnologieInvullen.cls.xml (revision 0)
+++ vhDeploy/D20161220TBXGeleiderTechnologieInvullen.cls.xml (revision 38663)
@@ -0,0 +1,18 @@
+
+
+
+vhDeploy.Deploy
+
+
+1
+
+
+
+
+
+
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/IVOICE02Verwerker.cls.xml
===================================================================
diff -u -r38653 -r38663
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/IVOICE02Verwerker.cls.xml (.../IVOICE02Verwerker.cls.xml) (revision 38653)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/IVOICE02Verwerker.cls.xml (.../IVOICE02Verwerker.cls.xml) (revision 38663)
@@ -6,7 +6,7 @@
Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.
1
-APPS.AKP.AankoopControle.BLUM.IVOICE02Verwerker,Tools.Mock.MockClassBase
+APPS.AKP.AankoopControle.BLUM.INVOIC02Verwerker,Tools.Mock.MockClassBase
right
Index: vhTestFiles/UnitTests/APPS.PM.Maatwerk.impl.Beperking.KlasseCacher.GeefTeBeperkenIKProperties/TestTBX/Test/TBXKenmerken.txt
===================================================================
diff -u -r38651 -r38663
--- vhTestFiles/UnitTests/APPS.PM.Maatwerk.impl.Beperking.KlasseCacher.GeefTeBeperkenIKProperties/TestTBX/Test/TBXKenmerken.txt (.../TBXKenmerken.txt) (revision 38651)
+++ vhTestFiles/UnitTests/APPS.PM.Maatwerk.impl.Beperking.KlasseCacher.GeefTeBeperkenIKProperties/TestTBX/Test/TBXKenmerken.txt (.../TBXKenmerken.txt) (revision 38663)
@@ -3,6 +3,7 @@
DwarsverdelingAantal : DOM.PM.enu.TBXDwarsverdeling
FrontBevestiging : DOM.PM.enu.TBXFrontBevestiging
FrontOndersteuningType : DOM.PM.enu.TBXFrontOndersteuningType
+GeleiderTechnologie : DOM.PM.enu.TBXGeleiderTechnologie
HeeftOpvullijstLinks : %Library.Boolean
HeeftOpvullijstRechts : %Library.Boolean
HeeftZijstabilisering : %Library.Boolean
Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml
===================================================================
diff -u -r38651 -r38663
--- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38651)
+++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38663)
@@ -19,8 +19,6 @@
Set TBXKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
Set TBXKenmerken.IsBinnenlade = 1
Set TBXKenmerken.Antislipmat = ##class(DOM.PM.enu.TBXAntislipmat).Zwart()
- Set TBXKenmerken.Blumotion = 1
- Set TBXKenmerken.TipOn = 0
Set TBXKenmerken.BodemKleur = "LG"
Set TBXKenmerken.Draagkracht = 30
Set TBXKenmerken.DwarsverdelingAantal = ##class(DOM.PM.enu.TBXDwarsverdeling).Drie()
@@ -61,8 +59,9 @@
Set TBXKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).DiamantGezuurd()
Set TBXKenmerken.ZijwandVerhogingAantal = 2
Set TBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Lichtgrijs()
+ Set TBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion()
- Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(TBXKenmerken),";;\Bodem;Rug\;\Zijkant->Links;Zijkant->Rechts\;200;250;TBX_Plus;1;Z;1;0;LG;30;3;S;SW;1;FrontSteun;0;SP2;1;0;HS;DG;RHK;N;Hout;M;Staal;SZK;1;102;106;103;104;105;P;0;1;Reling;Metaal;FZ;F;K;IN;G;Boxside;Leder;DFZ;2;LG","De canonische waarde voor KAD")
+ Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(TBXKenmerken),";;\Bodem;Rug\;\Zijkant->Links;Zijkant->Rechts\;200;250;TBX_Plus;1;Z;LG;30;3;S;SW;1;FrontSteun;0;SP2;1;0;HS;DG;RHK;N;Hout;M;Staal;SZK;1;102;106;103;104;105;P;0;1;Reling;Metaal;FZ;F;K;IN;G;Boxside;Leder;DFZ;2;LG;B","De canonische waarde voor KAD")
]]>
Index: vhDeploy/D20161221TBXGeleiderTechnologieHerberekenCanonischeWaarde.cls.xml
===================================================================
diff -u
--- vhDeploy/D20161221TBXGeleiderTechnologieHerberekenCanonischeWaarde.cls.xml (revision 0)
+++ vhDeploy/D20161221TBXGeleiderTechnologieHerberekenCanonischeWaarde.cls.xml (revision 38663)
@@ -0,0 +1,24 @@
+
+
+
+TECH.RegisteredObject
+
+
+1
+
+
+
+
+1
+1
+
+
+
+
+
+
Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml
===================================================================
diff -u -r38651 -r38663
--- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38651)
+++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38663)
@@ -81,7 +81,6 @@
Set ..IngegevenKenmerken.Antislipmat = TBXKenmerken.Antislipmat
Set ..IngegevenKenmerken.LadeVariant = TBXKenmerken.LadeVariant
Set ..IngegevenKenmerken.BodemKleur = TBXKenmerken.BodemKleur
- Set ..IngegevenKenmerken.Blumotion = TBXKenmerken.Blumotion
Set ..IngegevenKenmerken.DwarsverdelingAantal = TBXKenmerken.Dwarsverdeling
Set ..IngegevenKenmerken.FrontBevestiging = TBXKenmerken.FrontBevestiging
Set ..IngegevenKenmerken.FrontHouderKleur = TBXKenmerken.FrontHouderKleur
@@ -120,8 +119,13 @@
Set ..IngegevenKenmerken.ZijwandVerhogingAantal = TBXKenmerken.ZijwandVerhogingAantal
Set ..IngegevenKenmerken.LadeKleur = TBXKenmerken.ZijkantKleur
- // TODO naam-mismatch
- Set ..IngegevenKenmerken.TipOn = TBXKenmerken.HeeftTipon
+ If (TBXKenmerken.HeeftTipon && TBXKenmerken.Blumotion) {
+ Set ..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion()
+ } ElseIf TBXKenmerken.HeeftTipon {
+ Set ..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Tipon()
+ } ElseIf TBXKenmerken.HeeftBlumotion {
+ Set ..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion()
+ }
Quit $$$OK
]]>