Index: vhTestFiles/UnitTests/APPS.PM.Maatwerk.impl.Beperking.KlasseCacher.GeefTeBeperkenIKProperties/TestTBX/Test/TBXKenmerken.txt =================================================================== diff -u -r38641 -r38651 --- vhTestFiles/UnitTests/APPS.PM.Maatwerk.impl.Beperking.KlasseCacher.GeefTeBeperkenIKProperties/TestTBX/Test/TBXKenmerken.txt (.../TBXKenmerken.txt) (revision 38641) +++ vhTestFiles/UnitTests/APPS.PM.Maatwerk.impl.Beperking.KlasseCacher.GeefTeBeperkenIKProperties/TestTBX/Test/TBXKenmerken.txt (.../TBXKenmerken.txt) (revision 38651) @@ -17,7 +17,6 @@ Toepassing : DOM.PM.enu.TBXToepassing TussenrugMateriaal : DOM.PM.enu.TBXRugwandMateriaal UitsparingZijkantKleur : DOM.PM.enu.TBXLadeKleur -Uittrekbaarheid : DOM.PM.enu.TBXUittrekbaarheid VerpakkingType : DOM.PM.enu.TBXVerpakking VoorwandMetGreep : %Library.Boolean VoorwandMetMeenemer : %Library.Boolean Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml =================================================================== diff -u -r38641 -r38651 --- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38641) +++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38651) @@ -98,10 +98,6 @@ Set TBXKenmerken.HeeftZijstabilisering = Product.BevatStabilisator() Do ..Controleer(TBXKenmerken.HeeftZijstabilisering,Product.BevatStabilisator(),"Stabilisator", ErrorLijst) - Set TBXKenmerken.Uittrekbaarheid = Product.GeefUittrekbaarheid() - Do ..Controleer(TBXKenmerken.Uittrekbaarheid,Product.GeefUittrekbaarheid(),"Uittrekbaarheid", ErrorLijst) - Do ..IsValid(TBXKenmerken.Uittrekbaarheid,"DOM.PM.enu.TBXUittrekbaarheid", ErrorLijst) - Set TBXKenmerken.VerpakkingType = Product.GeefVerpakking() Do ..Controleer(TBXKenmerken.VerpakkingType,Product.GeefVerpakking(),"Verpakking", ErrorLijst) Do ..IsValid(TBXKenmerken.VerpakkingType,"DOM.PM.enu.TBXVerpakking", ErrorLijst) Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml =================================================================== diff -u -r38637 -r38651 --- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38637) +++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38651) @@ -105,7 +105,6 @@ Set ..IngegevenKenmerken.UitsparingPositie1 = TBXKenmerken.UitsparingPositie1 Set ..IngegevenKenmerken.UitsparingPositie2 = TBXKenmerken.UitsparingPositie2 Set ..IngegevenKenmerken.UitsparingZijkantKleur = TBXKenmerken.UitsparingZijkantKleur - Set ..IngegevenKenmerken.Uittrekbaarheid = TBXKenmerken.Uittrekbaarheid Set ..IngegevenKenmerken.VerpakkingType = TBXKenmerken.Verpakking Set ..IngegevenKenmerken.VoorwandMetMeenemer = TBXKenmerken.VoorwandMetMeenemer Set ..IngegevenKenmerken.VoorwandMetGreep = TBXKenmerken.VoorwandMetGreep Index: zTryout/PBO/Export/HalffabInfo.cls.xml =================================================================== diff -u -r31422 -r38651 --- zTryout/PBO/Export/HalffabInfo.cls.xml (.../HalffabInfo.cls.xml) (revision 31422) +++ zTryout/PBO/Export/HalffabInfo.cls.xml (.../HalffabInfo.cls.xml) (revision 38651) @@ -35,7 +35,6 @@ set Kenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New() set Kenmerken.NietMeeleveren = ##class(TECH.ListUtils).CreateListOfDataTypes("Rug") set Kenmerken.Omschrijving = "" - set Kenmerken.Uittrekbaarheid = "V" set Kenmerken.VerpakkingType = "V1" set Kenmerken.VersieNr = "0" Set Kenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook() Index: vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml =================================================================== diff -u -r38637 -r38651 --- vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml (.../CreateDataTBX.cls.xml) (revision 38637) +++ vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml (.../CreateDataTBX.cls.xml) (revision 38651) @@ -42,7 +42,6 @@ Set TBX.LadeDiepte=500 Set TBX.CorpusBinnenbreedte=863 Set TBX.IsBinnenlade=0 - Set TBX.Uittrekbaarheid="V" Set TBX.ZijkantHoogte="M" Set TBX.LadeHoogte="D" Set TBX.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling() @@ -84,7 +83,6 @@ Set TBX.LadeDiepte=500 Set TBX.CorpusBinnenbreedte=863 Set TBX.IsBinnenlade=1 - Set TBX.Uittrekbaarheid="V" Set TBX.ZijkantHoogte="L" Set TBX.LadeHoogte="C" @@ -147,7 +145,6 @@ Set TBX.LadeDiepte=500 Set TBX.CorpusBinnenbreedte=863 Set TBX.IsBinnenlade = 0 - Set TBX.Uittrekbaarheid="V" Set TBX.ZijkantHoogte="M" Set TBX.LadeHoogte="B" Set TBX.ZijwandType="ER" Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml =================================================================== diff -u -r38650 -r38651 --- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38650) +++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38651) @@ -46,7 +46,6 @@ Set TBXKenmerken.UitsparingDiepte = 103 Set TBXKenmerken.UitsparingPositie1 = 104 Set TBXKenmerken.UitsparingPositie2 = 105 - Set TBXKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TBXUittrekbaarheid).Volledig() Set TBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).Pallet() Set TBXKenmerken.VoorwandMetMeenemer = 0 Set TBXKenmerken.VoorwandMetGreep = 1 @@ -63,7 +62,7 @@ Set TBXKenmerken.ZijwandVerhogingAantal = 2 Set TBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Lichtgrijs() - 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;V;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;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") ]]> Index: vhDeploy/D20161216/TBXUittrekbaarheidHerberekenCanonischeWaarde.cls.xml =================================================================== diff -u --- vhDeploy/D20161216/TBXUittrekbaarheidHerberekenCanonischeWaarde.cls.xml (revision 0) +++ vhDeploy/D20161216/TBXUittrekbaarheidHerberekenCanonischeWaarde.cls.xml (revision 38651) @@ -0,0 +1,24 @@ + + + +TECH.RegisteredObject + + +1 + + + + +1 +1 + + + + + + Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml =================================================================== diff -u -r38628 -r38651 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml (.../HFLadeZijkantv001.cls.xml) (revision 38628) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml (.../HFLadeZijkantv001.cls.xml) (revision 38651) @@ -14,7 +14,6 @@ Set IngegevenKenmerken.LadeKleur = "MG" Set IngegevenKenmerken.Draagkracht = 30 Set IngegevenKenmerken.LadeDiepte = 500 - Set IngegevenKenmerken.Uittrekbaarheid = "V" Set IngegevenKenmerken.ZijkantHoogte = "M" Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFLadeZijkantv001).%New("") @@ -39,7 +38,6 @@ Set IngegevenKenmerken.LadeKleur = "MG" Set IngegevenKenmerken.Draagkracht = 30 Set IngegevenKenmerken.LadeDiepte = 450 - Set IngegevenKenmerken.Uittrekbaarheid = "V" Set IngegevenKenmerken.ZijkantHoogte = "M" Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFLadeZijkantv001).%New("") Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml =================================================================== diff -u -r38641 -r38651 --- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38641) +++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38651) @@ -149,10 +149,6 @@ DOM.PM.enu.TBXLadeKleur - -DOM.PM.enu.TBXUittrekbaarheid - - DOM.PM.enu.TBXVerpakking @@ -314,23 +310,20 @@ Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml =================================================================== diff -u -r38628 -r38651 --- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml (.../HFLadeZijkantv001.cls.xml) (revision 38628) +++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml (.../HFLadeZijkantv001.cls.xml) (revision 38651) @@ -37,7 +37,6 @@ Do SelectieKenmerken.SetAt(IngegevenKenmerken.Draagkracht,"Draagkracht") Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeKleur,"ZijkantKleur") Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantHoogte,"ZijkantHoogte") - Do SelectieKenmerken.SetAt(IngegevenKenmerken.Uittrekbaarheid,"Uittrekbaarheid") ; '@`$LB($LB("BasisType","LA"),$LB("tB","1"),$LB("Design",Self.Val("DC")),$LB("LadeDiepte",Self.Val("LD")),$LB("Kleur",Self.Val("KL")),$LB("GlijderType",Self.Val("GT")),$LB("ZijwandHoogte",Self.Val("ZW")) ; ,$LB("$COMB$","($CASE({Verpakking},""E"":1,""I"":10,:20)+$CASE({LiRe},""LI"":0,:1))")) Index: zTryout/FM/DOM/PM/Maatwerk/Creatie/TAXCreator.cls.xml =================================================================== diff -u -r31421 -r38651 --- zTryout/FM/DOM/PM/Maatwerk/Creatie/TAXCreator.cls.xml (.../TAXCreator.cls.xml) (revision 31421) +++ zTryout/FM/DOM/PM/Maatwerk/Creatie/TAXCreator.cls.xml (.../TAXCreator.cls.xml) (revision 38651) @@ -18,7 +18,6 @@ Set IngegevenKenmerken.Draagkracht = 40 Set IngegevenKenmerken.CorpusBinnenbreedte = 563 Set IngegevenKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento() - Set IngegevenKenmerken.Uittrekbaarheid = "V" Set IngegevenKenmerken.HeeftDiepteVerstelling = 1 Set IngegevenKenmerken.HeeftOpvullijstLinks = 1 Set IngegevenKenmerken.HeeftOpvullijstRechts = 0 @@ -50,7 +49,6 @@ Set IngegevenKenmerken.HeeftOpvullijstLinks = 0 Set IngegevenKenmerken.HeeftOpvullijstRechts = 0 Set IngegevenKenmerken.HeeftZijstabilisering = 0 - Set IngegevenKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig() Set IngegevenKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Schroef() Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1() set IngegevenKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New() Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml =================================================================== diff -u -r38650 -r38651 --- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38650) +++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38651) @@ -79,7 +79,6 @@ _ ";" _ TBXKenmerken.UitsparingDiepte _ ";" _ TBXKenmerken.UitsparingPositie1 _ ";" _ TBXKenmerken.UitsparingPositie2 - _ ";" _ TBXKenmerken.Uittrekbaarheid _ ";" _ TBXKenmerken.VerpakkingType _ ";" _ TBXKenmerken.VoorwandMetMeenemer _ ";" _ TBXKenmerken.VoorwandMetGreep Index: zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml =================================================================== diff -u -r38637 -r38651 --- zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml (.../HalffabSelector.cls.xml) (revision 38637) +++ zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml (.../HalffabSelector.cls.xml) (revision 38651) @@ -451,7 +451,6 @@ Set IK.LadeDiepte=500 Set IK.CorpusBinnenbreedte=863 Set IK.IsBinnenlade=0 - Set IK.Uittrekbaarheid="V" Set IK.ZijkantHoogte="M" Set IK.LadeHoogte="D" Set IK.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()