Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/HahleOy/PasAanTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/HahleOy/PasAanTest.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/HahleOy/PasAanTest.cls.xml	(revision 59340)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.HahleOy.PasAanTest">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test dat NietMeeleverens worden aangepast gewone lade">
+<Implementation><![CDATA[
+	#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetTax()
+	Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+
+	Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.HahleOy).%New()
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False)
+	
+	Do $$$AssertNotEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+			
+	Do Aanpasser.PasAan(Winkelkar)
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False)
+	
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"true")
+]]></Implementation>
+</Method>
+
+<Method name="Test dat NietMeeleverens worden aangepast binnenlade">
+<Implementation><![CDATA[
+	#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetTax()
+	Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Isbinnenlade")
+	Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+	Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling")
+
+	Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.HahleOy).%New()
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False)
+	
+	Do $$$AssertNotEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+
+			
+	Do Aanpasser.PasAan(Winkelkar)
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False)
+	
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+]]></Implementation>
+</Method>
+
+<Method name="Test er wordt niets anders aangepast dan de niet meeleverens">
+<Implementation><![CDATA[
+		#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetTax()
+	
+		Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.HahleOy).%New()
+		
+		Set Winkelkar.PrijzenNietOvernemen=$$$False
+		Set Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel=""
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider")
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset")
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset")	
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling")
+
+		#dim XMLBefore as %String=$$ObjToXML^vhLib(Winkelkar)
+				
+		Do Aanpasser.PasAan(Winkelkar)
+
+		#dim XMLAfter as %String = $$ObjToXML^vhLib(Winkelkar)
+		Do $$$AssertEquals(XMLBefore,XMLAfter)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/HahleOy.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/HahleOy.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/HahleOy.cls.xml	(revision 59340)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.HahleOy">
+<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser</Super>
+
+<Method name="PasAan">
+<FormalSpec>Winkelkar:WS.Vhisie4.WinkelkarExport.dto.Winkelkar</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New().Info("WinkelkarAanpasser voor Hahle Oy","Prijzen wel overnemen, EconConfig uitblanken, Nietmeeleverens opzetten")
+	Set Winkelkar.PrijzenNietOvernemen = $$$False
+	
+	Set ValueList = ##class(TECH.KeyValue.List).%New()
+	
+	; klasse filter hieronder eigenlijk niet juist, maar dat is wat de convert maakt. nog te refactoren dus. kaartje gemaakt
+	Do ValueList.InsertKeyValue("%ClassName(1)","WS.Vhisie4.Winkelkar.dto.MaatwerkLijn")	
+	Set Filter = ##class(TECH.Filter.PropertyBasedFilter).%New(ValueList)
+		
+	set it = ##class(TECH.DynamicIterator).%New(##class(TECH.ListIterator).%New(Winkelkar.Lijnen),,Filter)
+	While it.HasNext(){
+		#Dim Lijn as WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn = it.Next()
+		Set Lijn.EconConfiguratieSleutel = ""		
+		Do ..PasAanMaatwerkLijnKenmerken(Lijn)		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PasAanMaatwerkLijnKenmerken">
+<FormalSpec>MaatwerkLijn:WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider")
+	}
+	if $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset")
+	}
+	if $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling") = "true") && $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Isbinnenlade") = "true")  {
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>