Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Beslagteknikk/PasAanTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Beslagteknikk/PasAanTest.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Beslagteknikk/PasAanTest.cls.xml	(revision 57711)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Beslagteknikk.PasAanTest">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="aTest 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.Beslagteknikk).%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,$$$True)
+	
+	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 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.Beslagteknikk).%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,$$$True)
+	
+	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"),"false")
+	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.Beslagteknikk).%New()
+	
+	Set Winkelkar.PrijzenNietOvernemen=$$$True
+	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: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml
===================================================================
diff -u -r56104 -r57711
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml	(.../GeefAanpasserTest.cls.xml)	(revision 56104)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml	(.../GeefAanpasserTest.cls.xml)	(revision 57711)
@@ -28,6 +28,10 @@
 <Default>23968</Default>
 </Parameter>
 
+<Parameter name="BeslagteknikkKlantNummer">
+<Default>25319</Default>
+</Parameter>
+
 <Property name="BackupDaroExcludedFromDelivery">
 <Type>%Boolean</Type>
 <Private>1</Private>
@@ -74,6 +78,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Beslagteknikk">
+<Implementation><![CDATA[
+	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
+	
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#BeslagteknikkKlantNummer)
+	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Beslagteknikk).%ClassName(1) )
+]]></Implementation>
+</Method>
+
 <Method name="Test Galimberti">
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml
===================================================================
diff -u -r56302 -r57711
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 56302)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 57711)
@@ -25,6 +25,7 @@
 <ReturnType>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser</ReturnType>
 <Implementation><![CDATA[
 	If (Personality = ##class(DOM.common.enu.Personality).VanHoecke()){
+		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr) = ##class(DOM.VKP.enu.Klant).Beslagteknikk()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Beslagteknikk).%New()
 		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr) = ##class(DOM.VKP.enu.Klant).BeslagDesign()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.BeslagDesign).%New()
 		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr) = ##class(DOM.VKP.enu.Klant).Galimberti()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Galimberti).%New()
 		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr) = ##class(DOM.VKP.enu.Klant).Pavanello()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Pavanello).%New()
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Beslagteknikk.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Beslagteknikk.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Beslagteknikk.cls.xml	(revision 57711)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Beslagteknikk">
+<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 Beslag Design","Prijzen niet overnemen, EconConfig uitblanken, Nietmeeleverens opzetten")
+	Set Winkelkar.PrijzenNietOvernemen = $$$True
+	
+	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_koppeling") = "true") && $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Isbinnenlade") = "true")  {
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>