Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Galimberti.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Galimberti.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Galimberti.cls.xml	(revision 55068)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Galimberti">
+<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 Galiberti","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")
+	}
+	
+	; frontbevestiging?
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Galimberti/PasAanTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Galimberti/PasAanTest.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Galimberti/PasAanTest.cls.xml	(revision 55068)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Galimberti.PasAanTest">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test dat NieMeeleverens worden aangepast">
+<Implementation><![CDATA[
+		#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).BeslagDesignWinkelkarMetTax()
+	
+		Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.BeslagDesign).%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 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")
+]]></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).BeslagDesignWinkelkarMetTax()
+	
+		Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.BeslagDesign).%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")		
+
+		#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>