Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml
===================================================================
diff -u -r62867 -r62950
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 62867)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 62950)
@@ -241,7 +241,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: EnkelDezeDnaCode ingevuld (en oude en nieuwe pallet ook) -&gt; voorlopig een foutmelding">
+<Method name="Test: EnkelDezeDnaCode ingevuld (en oude en nieuwe pallet ook) -&gt; VoerBijladenUit oproepen">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "TBX12345"
 	Set ..Request.NieuweCode = "TBX54321"
@@ -250,7 +250,7 @@
 	
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",..Request.EnkelDezeDnaCode).DanReturn(..DnaCodeIterator1)
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVoorHernoemPallet",$$$ElkeWaarde).ExactAantalKeer(0)
-	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(1).DanDoeNiks()
 	
 	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode1.PalletCode).DanReturn($$$True)
 	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode2.PalletCode).DanReturn($$$True)
@@ -260,23 +260,53 @@
 	Do LocatieStub.IndienMethodCall("GeefCode").DanReturn(DummyLocatieCode)
 
 	Do ..InventarisServiceMock.VerwachtMethodCall("HernoemPallet",..DnaCode1.PalletCode,..DnaCode2.PalletCode).ExactAantalKeer(0).DanDoeNiks()
-	Do ..InventarisServiceMock.VerwachtMethodCall("VoerBijladenUit",..DnaCode1.PalletCode,..DnaCode2.PalletCode,##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(),..DnaCode1.ProductNummer,1).ExactAantalKeer(0).DanDoeNiks()
-	Do ..InventarisServiceMock.VerwachtMethodCall("GeefLocatieVoorDrager",..Request.OudeCode).ExactAantalKeer(0).DanReturn(LocatieStub)
-	Do ..InventarisServiceMock.VerwachtMethodCall("VerplaatsPallet",..Request.OudeCode,##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit()).ExactAantalKeer(0).DanReturn(LocatieStub)
-	Do ..InventarisServiceMock.VerwachtMethodCall("VerplaatsPallet",..Request.OudeCode,LocatieStub.GeefCode()).ExactAantalKeer(0).DanReturn(LocatieStub)
+	Do ..InventarisServiceMock.VerwachtMethodCall("VoerBijladenUit",..DnaCode1.PalletCode,..DnaCode2.PalletCode,##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(),..DnaCode1.ProductNummer,1).ExactAantalKeer(1).DanDoeNiks()
 	
 	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub, ..InventarisServiceMock)
 	
 	#dim Antwoord As WS.Halux.AAP.HernoemPalletResponse = DnaCodeService.HernoemPallet(..Request)
 	
-	Do $$$AssertEquals(Antwoord.Header.Status,"1005:InvalidUserInput")
-	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Deze actie is niet mogelijk")
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Pallet is succesvol gewijzigd")
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
 	Do ..DnaCodeRepositoryMock.Verifieer()
 	Do ..InventarisServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test: EnkelDezeDnaCode ingevuld (en oude en nieuwe pallet ook) maar voor Vhossen -&gt; VoerBijladenUit oproepen">
+<Implementation><![CDATA[
+	Set ..Request.OudeCode = "O110000042"
+	Set ..Request.NieuweCode = "O110000043"
+	Set ..Request.EnkelDezeDnaCode = "LABCDF2"
+	Set ..Request.OokEWMSverwerken = $$$True
+	
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",..Request.EnkelDezeDnaCode).DanReturn(..DnaCodeIterator1)
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVoorHernoemPallet",$$$ElkeWaarde).ExactAantalKeer(0).DanReturn(..DnaCodeIterator1)
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(1).DanDoeNiks()
+	
+	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.OudeCode).DanReturn($$$True)
+	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.NieuweCode).DanReturn($$$True)
+
+	#dim DummyLocatieCode As %String = "01020304"
+	Set LocatieStub = ##class(vhTest.Mock.DOM.MAG.impl.MagazijnLocatie).%New()
+	Do LocatieStub.IndienMethodCall("GeefCode").DanReturn(DummyLocatieCode)
+
+	Do ..InventarisServiceMock.VerwachtMethodCall("HernoemPallet",..DnaCode1.PalletCode,..DnaCode2.PalletCode).ExactAantalKeer(0).DanDoeNiks()
+	Do ..InventarisServiceMock.VerwachtMethodCall("VoerBijladenUit","O1000042","O1000043",##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(),..DnaCode1.ProductNummer,1).ExactAantalKeer(1).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub, ..InventarisServiceMock)
+	
+	#dim Antwoord As WS.Halux.AAP.HernoemPalletResponse = DnaCodeService.HernoemPallet(..Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Pallet is succesvol gewijzigd")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
+	Do ..DnaCodeRepositoryMock.Verifieer()
+	Do ..InventarisServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: mix van pallet- en DnaCode -&gt; hernoemen">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "TBX12345"
@@ -332,6 +362,36 @@
 	Do ..InventarisServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Oude code is een FrameId, dan moet de andere kant van de Vhosskast ook bijgewerkt worden">
+<Implementation><![CDATA[
+	Set ..Request.OudeCode = "O110000106"
+	Set ..Request.NieuweCode = "O110000107"
+	Set ..DnaCode1.PalletCode = "O110000106"
+	Set ..DnaCode2.PalletCode = "O110000106"
+	Set ..Request.OokEWMSverwerken = $$$True
+	Set ..Request.EnkelDezeDnaCode = ""
+	
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVoorHernoemPallet",..Request.OudeCode).DanReturn(..DnaCodeIterator1)
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVoorHernoemPallet","O120000106").DanReturn(..DnaCodeIterator2)
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(2).DanDoeNiks()
+	
+	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.OudeCode).DanReturn($$$True)
+	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.NieuweCode).DanReturn($$$True)
+
+	Do ..InventarisServiceMock.VerwachtMethodCall("HernoemPallet","O1000106","O1000107").DanDoeNiks()
+
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub, ..InventarisServiceMock)
+	
+	#dim Antwoord As WS.Halux.AAP.HernoemPalletResponse = DnaCodeService.HernoemPallet(..Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Pallet is succesvol gewijzigd")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
+	Do ..DnaCodeRepositoryMock.Verifieer()
+	Do ..InventarisServiceMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>