Index: DOM/Halux/AAP/KlantinstellingenRepository.cls.xml
===================================================================
diff -u -r60836 -r60846
--- DOM/Halux/AAP/KlantinstellingenRepository.cls.xml	(.../KlantinstellingenRepository.cls.xml)	(revision 60836)
+++ DOM/Halux/AAP/KlantinstellingenRepository.cls.xml	(.../KlantinstellingenRepository.cls.xml)	(revision 60846)
@@ -7,6 +7,13 @@
 <Type>%String</Type>
 <Default>DOM.Halux.AAP.Klantinstellingen</Default>
 </Parameter>
+
+<Method name="ZoekViaKlantId">
+<FormalSpec>KlantId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("KlantId = ?",$lb(KlantId))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60836 -r60846
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60836)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60846)
@@ -43,7 +43,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KlantinstellingenRepositoryMock">
+<Property name="KlantinstellingenRepository">
 <Type>vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository</Type>
 <Private>1</Private>
 </Property>
@@ -54,7 +54,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator="",InventarisService:APPS.MAG.Inventaris.impl.InventarisService,DocsV1:BL.PPS.TBX.DocsV1="",ProboxEtiketAfdrukkenHelper:WSimpl.Halux.AAP.DnaCodeService.ProboxEtiketAfdrukkenHelper="",UGLYPickingWrapper:WSimpl.Halux.AAP.DnaCodeService.UGLYPickingWrapper="",KlantinstellingenRepositoryMock:vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository="",VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator="",InventarisService:APPS.MAG.Inventaris.impl.InventarisService,DocsV1:BL.PPS.TBX.DocsV1="",ProboxEtiketAfdrukkenHelper:WSimpl.Halux.AAP.DnaCodeService.ProboxEtiketAfdrukkenHelper="",UGLYPickingWrapper:WSimpl.Halux.AAP.DnaCodeService.UGLYPickingWrapper="",KlantinstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository="",VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -67,7 +67,7 @@
 	Set ..DocsV1 = $$$Inject(DocsV1, ##class(BL.PPS.TBX.DocsV1).%New())
 	Set ..ProboxEtiketAfdrukkenHelper = $$$Inject(ProboxEtiketAfdrukkenHelper, ##class(WSimpl.Halux.AAP.DnaCodeService.ProboxEtiketAfdrukkenHelper).%New())
 	Set ..UGLYPickingWrapper = $$$Inject(UGLYPickingWrapper, ##class(WSimpl.Halux.AAP.DnaCodeService.UGLYPickingWrapper).%New())
-	Set ..KlantinstellingenRepositoryMock = $$$Inject(KlantinstellingenRepositoryMock, ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New())
+	Set ..KlantinstellingenRepository = $$$Inject(KlantinstellingenRepository, ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New())
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.VKP.impl.VerkoopAPI).%New())
 	
 	Quit $$$OK
@@ -689,16 +689,31 @@
 <ReturnType>WS.Halux.AAP.BewerkKlantinstellingenResponse</ReturnType>
 <Implementation><![CDATA[
 	#dim Klantinstellingen As DOM.Halux.AAP.Klantinstellingen
+	#dim KlantinstellingenIterator As TECH.Iterator
 	Set Response = ##class(WS.Halux.AAP.BewerkKlantinstellingenResponse).%New()
 	Try {
-		If BewerkKlantInstellingen.Actie = "Maak" {
-			Set Klantinstellingen = ..KlantinstellingenRepositoryMock.Maak()
-			Set Klantinstellingen.KlantId = BewerkKlantInstellingen.KlantId
-			Set Klantinstellingen.IsExport = BewerkKlantInstellingen.IsExport
-			Do ..KlantinstellingenRepositoryMock.Bewaar(Klantinstellingen)
+		If BewerkKlantInstellingen.Actie = "Upsert" {
+			Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(BewerkKlantInstellingen.KlantId)
+			If KlantinstellingenIterator.HasNext() {
+				Set Klantinstellingen = KlantinstellingenIterator.Next()
+				Set Klantinstellingen.IsExport = BewerkKlantInstellingen.IsExport
+				Do ..KlantinstellingenRepository.Bewaar(Klantinstellingen)
+			} Else {
+				If ..VerkoopAPI.BestaatKlant(BewerkKlantInstellingen.KlantId) {
+					Set Klantinstellingen = ..KlantinstellingenRepository.Maak()
+					Set Klantinstellingen.KlantId = BewerkKlantInstellingen.KlantId
+					Set Klantinstellingen.IsExport = BewerkKlantInstellingen.IsExport
+					Do ..KlantinstellingenRepository.Bewaar(Klantinstellingen)
+				}
+			}
 			Set Response.Header.Status = "200"
+		} ElseIf BewerkKlantInstellingen.Actie = "Delete" {
+			Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(BewerkKlantInstellingen.KlantId)
+			If KlantinstellingenIterator.HasNext() {
+				Do ..KlantinstellingenRepository.VerwijderViaID(KlantinstellingenIterator.Next().GeefID())
+			}
 		}
-		#dim KlantinstellingenIterator As TECH.Iterator = ..KlantinstellingenRepositoryMock.ZoekAlle()
+		Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekAlle()
 		While KlantinstellingenIterator.HasNext() {
 			Do Response.Klantinstellingen.Insert(..KlantinstellingenNaarDto(KlantinstellingenIterator.Next()))
 		}
Index: vhTest/Fake/DOM/Halux/AAP/KlantinstellingenRepository.cls.xml
===================================================================
diff -u -r60836 -r60846
--- vhTest/Fake/DOM/Halux/AAP/KlantinstellingenRepository.cls.xml	(.../KlantinstellingenRepository.cls.xml)	(revision 60836)
+++ vhTest/Fake/DOM/Halux/AAP/KlantinstellingenRepository.cls.xml	(.../KlantinstellingenRepository.cls.xml)	(revision 60846)
@@ -16,8 +16,7 @@
 
 <Method name="Bewaar">
 <FormalSpec>Data:TECH.Persistent</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="Dupliceer">
@@ -42,21 +41,25 @@
 
 <Method name="VerwijderViaID">
 <FormalSpec>ID:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwijderViaObject">
 <FormalSpec>Data:TECH.Persistent</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="ZoekAlle">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekViaKlantId">
+<FormalSpec>KlantId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/Halux/AAP/KlantinstellingenRepository.cls.xml
===================================================================
diff -u -r60836 -r60846
--- vhTest/Mock/DOM/Halux/AAP/KlantinstellingenRepository.cls.xml	(.../KlantinstellingenRepository.cls.xml)	(revision 60836)
+++ vhTest/Mock/DOM/Halux/AAP/KlantinstellingenRepository.cls.xml	(.../KlantinstellingenRepository.cls.xml)	(revision 60846)
@@ -65,6 +65,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekAlle")
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekViaKlantId">
+<FormalSpec>KlantId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaKlantId",KlantId)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml
===================================================================
diff -u -r60836 -r60846
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 60836)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 60846)
@@ -3,30 +3,33 @@
 <Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.BewaarKlantinstellingen">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Nieuwe record aanmaken">
+<Method name="Test: upsert nieuwe klant (bestaat in kkl)">
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Halux.AAP.BewerkKlantinstellingenRequest).%New()
-	Set Request.Actie = "Maak"
-	Set Request.KlantId = "1234"
+	Set Request.Actie = "Upsert"
+	Set Request.KlantId = "K||1234"
 	Set Request.IsExport = $$$False
 	
 	#dim KlantinstellingenRepository = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
 	
 	Set Klantinstellingen1 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
-	Set Klantinstellingen1.KlantId = "1234"
+	Set Klantinstellingen1.KlantId = "K||1000"
 	Set Klantinstellingen1.IsExport = $$$True
 	Set Klantinstellingen2 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
-	Set Klantinstellingen2.KlantId = "1234"
+	Set Klantinstellingen2.KlantId = "K||1001"
 	Set Klantinstellingen2.IsExport = $$$False
 	#dim KlantinstellingenIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Klantinstellingen1, Klantinstellingen2)
+	
 	Set KlantinstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
 	#dim KlantInstellingen = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("ZoekViaKlantId",Request.KlantId).DanReturn(..EmptyIterator())
 	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("Maak").DanReturn(KlantInstellingen)
 	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("Bewaar",KlantInstellingen).DanDoeNiks()
 	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("ZoekAlle",).DanReturn(KlantinstellingenIterator)
 	Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
 	#dim StandaardKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
-	Do VerkoopApiStub.IndienMethodCall("GeefKlant",Klantinstellingen1.KlantId).DanReturn(StandaardKlant)
+	Do VerkoopApiStub.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(StandaardKlant)
+	Do VerkoopApiStub.IndienMethodCall("BestaatKlant",Request.KlantId).DanReturn($$$True)
 	
 	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,,,,,,KlantinstellingenRepositoryMock, VerkoopApiStub)
 	
@@ -37,6 +40,77 @@
 	Do KlantinstellingenRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: upsert nieuwe klant (bestaat niet in kkl)">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.BewerkKlantinstellingenRequest).%New()
+	Set Request.Actie = "Upsert"
+	Set Request.KlantId = "K||1234"
+	Set Request.IsExport = $$$False
+	
+	#dim KlantinstellingenRepository = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+	
+	Set Klantinstellingen1 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Set Klantinstellingen1.KlantId = "K||1000"
+	Set Klantinstellingen1.IsExport = $$$True
+	Set Klantinstellingen2 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Set Klantinstellingen2.KlantId = "K||1001"
+	Set Klantinstellingen2.IsExport = $$$False
+	#dim KlantinstellingenIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Klantinstellingen1, Klantinstellingen2)
+	
+	Set KlantinstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+	#dim KlantInstellingen = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("ZoekViaKlantId",Request.KlantId).DanReturn(..EmptyIterator())
+	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("ZoekAlle",).DanReturn(KlantinstellingenIterator)
+	Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	#dim StandaardKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do VerkoopApiStub.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(StandaardKlant)
+	Do VerkoopApiStub.IndienMethodCall("BestaatKlant",Request.KlantId).DanReturn($$$False)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,,,,,,KlantinstellingenRepositoryMock, VerkoopApiStub)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.BewerkKlantinstellingen(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.Klantinstellingen.Count(),20)
+	Do KlantinstellingenRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: upsert bestaande klant">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.BewerkKlantinstellingenRequest).%New()
+	Set Request.Actie = "Upsert"
+	Set Request.KlantId = "K||1234"
+	Set Request.IsExport = $$$False
+	
+	#dim KlantinstellingenRepository = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+	
+	Set Klantinstellingen1 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Set Klantinstellingen1.KlantId = "K||1000"
+	Set Klantinstellingen1.IsExport = $$$True
+	Set Klantinstellingen2 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Set Klantinstellingen2.KlantId = "K||1001"
+	Set Klantinstellingen2.IsExport = $$$False
+	#dim KlantinstellingenIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Klantinstellingen1, Klantinstellingen2)
+	
+	Set KlantinstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("ZoekViaKlantId",Request.KlantId).DanReturn(KlantinstellingenIterator)
+	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
+	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("ZoekAlle",).DanReturn(KlantinstellingenIterator)
+	Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	#dim StandaardKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do VerkoopApiStub.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(StandaardKlant)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,,,,,,KlantinstellingenRepositoryMock, VerkoopApiStub)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.BewerkKlantinstellingen(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.Klantinstellingen.Count(),2)
+	Do KlantinstellingenRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>