FishEye: Tag 34079 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/MaatwerkDefaultsToepasser/TestMaatwerkDefaultsViaProductProgrammaToepasser.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/EC/impl/ConfiguratorService/DefaultsToepasserRepository.cls.xml
===================================================================
diff -u -r31268 -r34079
--- APPS/EC/impl/ConfiguratorService/DefaultsToepasserRepository.cls.xml	(.../DefaultsToepasserRepository.cls.xml)	(revision 31268)
+++ APPS/EC/impl/ConfiguratorService/DefaultsToepasserRepository.cls.xml	(.../DefaultsToepasserRepository.cls.xml)	(revision 34079)
@@ -15,7 +15,7 @@
 	}
 	
 	do DefaultsToepassers.Insert(##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaGebruikerToepasser).%New(Pad))
-	do DefaultsToepassers.Insert(##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaProductProgrammaToepasser).%New())
+	do DefaultsToepassers.Insert(##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaProductProgrammaToepasser).%New(Winkelkar))
 	do DefaultsToepassers.Insert(##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaConfiguratieToepasser).%New())
 	
 	quit DefaultsToepassers
Index: APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml
===================================================================
diff -u -r33985 -r34079
--- APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml	(.../MaatwerkDefaultsViaWinkelkarToepasser.cls.xml)	(revision 33985)
+++ APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml	(.../MaatwerkDefaultsViaWinkelkarToepasser.cls.xml)	(revision 34079)
@@ -21,18 +21,12 @@
 <Private>1</Private>
 </Property>
 
-<Property name="CheckoutTypeBepaler">
-<Type>APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar,WinkelkarService:DOM.EC.Winkelkar.impl.WinkelkarService=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Winkelkar = Winkelkar
 	Set ..WinkelkarService = $$$Implementation(WinkelkarService, ##class(DOM.EC.Winkelkar.impl.WinkelkarService).%New())
-	Set ..CheckoutTypeBepaler = ##class(APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -89,10 +83,6 @@
 		Set KenmerkenDefaults.GekoppeldeIngegevenKenmerken = ##class(TECH.ListUtils).CopyArrayOfObjects(LaatstGewijzigdeKenmerken.GekoppeldeIngegevenKenmerken)
 		Do ..KopieerWaardenVanGekoppeldeIngegevenKenmerken(TAORKenmerken.GekoppeldeIngegevenKenmerken, KenmerkenDefaults.GekoppeldeIngegevenKenmerken)
 	}
-
-	If ..CheckoutTypeBepaler.Bepaal(..Winkelkar.Personality.ID, ..Winkelkar.Klant.ID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() {
-		Set KenmerkenDefaults.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()
-	}
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaProductProgrammaToepasser/LBX/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaProductProgrammaToepasser/LBX/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaProductProgrammaToepasser/LBX/Test.cls.xml	(revision 34079)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaProductProgrammaToepasser.LBX.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestVerwerkLBXKenmerken">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Do ..PasToeDefaults(LBXKenmerken)
+	
+	Do $$$AssertEquals(LBXKenmerken.FrontBevestiging,##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO())
+	Do $$$AssertEquals(LBXKenmerken.VerpakkingType,##class(DOM.PM.enu.LBXVerpakkingType).V1())
+	Do $$$AssertEquals(LBXKenmerken.RugWandMateriaal,##class(DOM.PM.enu.LBXRugWandMateriaal).Hout())
+	Do $$$AssertEquals(LBXKenmerken.GUIKenmerken.IsBinnenbreedte,1)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwerkLBXKenmerkenFrontBevestingReedsOpgegeven">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.FrontBevestiging = $$$DummyString
+	
+	Do ..PasToeDefaults(LBXKenmerken)
+	
+	Do $$$AssertEquals(LBXKenmerken.FrontBevestiging,$$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwerkLBXKenmerkenVerpakkingTypeReedsOpgegeven">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.VerpakkingType = $$$DummyString
+	
+	Do ..PasToeDefaults(LBXKenmerken)
+	
+	Do $$$AssertEquals(LBXKenmerken.VerpakkingType,$$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwerkLBXKenmerkenRugWandMateriaalReedsOpgegeven">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.RugWandMateriaal = $$$DummyString
+	
+	Do ..PasToeDefaults(LBXKenmerken)
+	
+	Do $$$AssertEquals(LBXKenmerken.RugWandMateriaal,$$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwerkLBXKenmerkenGUIKenmerkenIsBinnenBreedteReedsOpgegeven">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	
+	Do ..PasToeDefaults(LBXKenmerken)
+	
+	Do $$$AssertEquals(LBXKenmerken.GUIKenmerken.IsBinnenbreedte,0)
+]]></Implementation>
+</Method>
+
+<Method name="PasToeDefaults">
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do LBXKenmerken.Accept(##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaProductProgrammaToepasser).%New())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaProductProgrammaToepasser/TAOR/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaProductProgrammaToepasser/TAOR/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaProductProgrammaToepasser/TAOR/Test.cls.xml	(revision 34079)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaProductProgrammaToepasser.TAOR.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestVerwerkTAORKenmerken">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	
+	Do ..PasToeDefaults(TAORKenmerken)
+	
+	Do $$$AssertEquals(TAORKenmerken.FrontBevestiging,##class(DOM.PM.enu.TAORFrontBevestiging).Expando())
+	Do $$$AssertEquals(TAORKenmerken.VerpakkingType,##class(DOM.PM.enu.TAORVerpakkingType).V1())
+	Do $$$AssertEquals(TAORKenmerken.GeleiderTechnologie,##class(DOM.PM.enu.TAORGeleiderTechnologie).BLUMOTION())
+	Do $$$AssertEquals(TAORKenmerken.GUIKenmerken.IsBinnenbreedte,1)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwerkTAORKenmerkenFrontBevestingReedsOpgegeven">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	
+	Set TAORKenmerken.FrontBevestiging = $$$DummyString
+	
+	Do ..PasToeDefaults(TAORKenmerken)
+	
+	Do $$$AssertEquals(TAORKenmerken.FrontBevestiging,$$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwerkTAORKenmerkenVerpakkingTypeReedsOpgegeven">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	
+	Set TAORKenmerken.VerpakkingType = $$$DummyString
+	
+	Do ..PasToeDefaults(TAORKenmerken)
+	
+	Do $$$AssertEquals(TAORKenmerken.VerpakkingType,$$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwerkTAORKenmerkenGUIKenmerkenIsBinnenBreedteReedsOpgegeven">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set TAORKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	
+	Do ..PasToeDefaults(TAORKenmerken)
+	
+	Do $$$AssertEquals(TAORKenmerken.GUIKenmerken.IsBinnenbreedte,0)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwerkTAORKenmerkenFlatPackV1">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	
+	Do ..PasToeDefaults(TAORKenmerken, ##class(vhTest.Fake.APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New())
+	
+	Do $$$AssertEquals(TAORKenmerken.FrontBevestiging,##class(DOM.PM.enu.TAORFrontBevestiging).Expando())
+	Do $$$AssertEquals(TAORKenmerken.VerpakkingType,##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
+	Do $$$AssertEquals(TAORKenmerken.GeleiderTechnologie,##class(DOM.PM.enu.TAORGeleiderTechnologie).BLUMOTION())
+	Do $$$AssertEquals(TAORKenmerken.GUIKenmerken.IsBinnenbreedte,1)
+]]></Implementation>
+</Method>
+
+<Method name="PasToeDefaults">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim WinkelkarDummy As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
+	Do TAORKenmerken.Accept(##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaProductProgrammaToepasser).%New(WinkelkarDummy,CheckoutTypeBepaler))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaProductProgrammaToepasser.cls.xml
===================================================================
diff -u -r32935 -r34079
--- APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaProductProgrammaToepasser.cls.xml	(.../MaatwerkDefaultsViaProductProgrammaToepasser.cls.xml)	(revision 32935)
+++ APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaProductProgrammaToepasser.cls.xml	(.../MaatwerkDefaultsViaProductProgrammaToepasser.cls.xml)	(revision 34079)
@@ -7,6 +7,29 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.PM.Maatwerk.impl.MaatwerkDefaultsToepasserTemplate</Super>
 
+<Property name="Winkelkar">
+<Type>APPS.EC.Winkelkar.dto.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CheckoutTypeBepaler">
+<Type>APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar="",CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Winkelkar = Winkelkar	
+	Set ..CheckoutTypeBepaler = $$$Inject(CheckoutTypeBepaler, ##class(APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New())
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefKenmerkenDefaultsLBX">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Private>1</Private>
@@ -35,13 +58,30 @@
 
 	Set Defaults.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).BLUMOTION()
 	Set Defaults.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Expando()
-	Set Defaults.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
+	Set Defaults.VerpakkingType = ..GeefTAORVerpakkingsType()
 	Set Defaults.GUIKenmerken.IsBinnenbreedte = $$$True
 	
 	Quit Defaults
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTAORVerpakkingsType">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:..IsTAXExport() ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()
+	Quit ##class(DOM.PM.enu.TAORVerpakkingType).V1()
+]]></Implementation>
+</Method>
+
+<Method name="IsTAXExport">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(..Winkelkar = "") 0
+	Quit (..CheckoutTypeBepaler.Bepaal(..Winkelkar.Personality.ID, ..Winkelkar.Klant.ID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
+]]></Implementation>
+</Method>
+
 <Method name="MagDefaultsOverschrijven">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
Index: vhTest/Fake/APPS/EC/impl/ConfiguratorService/CheckoutTypeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EC/impl/ConfiguratorService/CheckoutTypeBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EC/impl/ConfiguratorService/CheckoutTypeBepaler.cls.xml	(revision 34079)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler">
+<Super>APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler</Super>
+
+<Method name="Bepaal">
+<FormalSpec>PersonalityID:DOM.common.enu.Personality,KlantID:DOM.VKP.KlantID</FormalSpec>
+<ReturnType>APPS.EC.Unishop.enu.CheckoutType</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>