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()