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