Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r61024 -r61030
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61024)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61030)
@@ -13,7 +13,7 @@
 	Do SequentieService.IndienMethodCall("HeeftSequentie",DnaCode.BatchId).DanReturn($$$False)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode,1)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,0)
 ]]></Implementation>
 </Method>
@@ -43,12 +43,44 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
-	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode,1)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,1)
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),1)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: niet TBX sequentie met 1 items op 1 Vhoss maar met verkeerd vhossid -&gt; exceptie">
+<Implementation><![CDATA[
+	#dim BatchId = 12345
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "HABCDE0"
+	Set DnaCode.BatchId = BatchId
+	Set DnaCode.SequentieNummer = 42
+	Set DnaCode.ScanTijdstip = 42
+	
+	Set ProductieSequentieItem1 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem1.VHOSSID = 1
+	Set ProductieSequentieItem1.SequentieNummer = 42
+	
+	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
+	Do BatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
+	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).TAORbox())
+	
+	Set ProductieSequentie = ##class(vhUnitTest.APPS.Halux.common.impl.UTProductieSequentie).%New(BatchStub)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
+	
+	Set SequentieService = ##class(vhTest.Mock.APPS.Halux.common.impl.SequentieService).%New()
+	Do SequentieService.IndienMethodCall("HeeftProductieSequentie",DnaCode.BatchId).DanReturn($$$True)
+	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
+
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De lade moet in een andere Vhosskast")	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
+	
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode,42)
+]]></Implementation>
+</Method>
+
 <Method name="Test: checken of aantalgescand wel ingevuld is">
 <Implementation><![CDATA[
 	#dim BatchId = 12345
@@ -77,7 +109,7 @@
 	Do DnaCodeRepository.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",DnaCode.BatchId,DnaCode.SequentieNummer).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode))
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService, DnaCodeRepository)
-	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode,1)
 	Do $$$AssertEquals(Antwoord.AantalReedsGescand,1)
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),1)
 ]]></Implementation>
@@ -112,7 +144,7 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
-	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode,1)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,2)
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
 ]]></Implementation>
@@ -152,7 +184,7 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
-	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode,1)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,1)
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),1)
 ]]></Implementation>
@@ -164,7 +196,7 @@
 	Set DnaCode.DnaCode = "TABCDE0"
 	Set DnaCode.BatchId = 12345
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode,1)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,0)
 ]]></Implementation>
 </Method>
Index: WS/Halux/AAP/DnaCodeAfmeldenRequest.cls.xml
===================================================================
diff -u -r60251 -r61030
--- WS/Halux/AAP/DnaCodeAfmeldenRequest.cls.xml	(.../DnaCodeAfmeldenRequest.cls.xml)	(revision 60251)
+++ WS/Halux/AAP/DnaCodeAfmeldenRequest.cls.xml	(.../DnaCodeAfmeldenRequest.cls.xml)	(revision 61030)
@@ -35,6 +35,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="GuiVhossVolgnummer">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>DnaCodeAfmeldenRequestState</State>
@@ -58,6 +62,12 @@
 <Value name="6">
 <Value>PalletCode</Value>
 </Value>
+<Value name="7">
+<Value>InterneVhossVolgnummer</Value>
+</Value>
+<Value name="8">
+<Value>GuiVhossVolgnummer</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61024 -r61030
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61024)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61030)
@@ -28,19 +28,19 @@
 </Method>
 
 <Method name="BepaalAantalGescandeVhossSequentieItems">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,GuiVhossVolgnummer:%String</FormalSpec>
 <ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <Implementation><![CDATA[
 	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
-		Quit ..BepaalAantalGescandeVhossSequentieItemsTbx(DnaCode)
+		Quit ..BepaalAantalGescandeVhossSequentieItemsTbx(DnaCode, GuiVhossVolgnummer)
 	} Else {
-		Quit ..BepaalAantalGescandeVhossSequentieItemsNietTbx(DnaCode)
+		Quit ..BepaalAantalGescandeVhossSequentieItemsNietTbx(DnaCode, GuiVhossVolgnummer)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalGescandeVhossSequentieItemsTbx">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,GuiVhossVolgnummer:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <Implementation><![CDATA[
@@ -62,6 +62,9 @@
 			Do AantallenGescandPerVhoss.Verhoog(TbxSequentie.GetData(2))
 		}
 		If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
+			If $$$Not(TbxSequentie.GetData(2) = GuiVhossVolgnummer) {
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet in een andere Vhosskast"))
+			}
 			Set VhossidVanDnaCode = TbxSequentie.GetData(2)
 		}
 	}
@@ -93,7 +96,7 @@
 </Method>
 
 <Method name="BepaalAantalGescandeVhossSequentieItemsNietTbx">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,GuiVhossVolgnummer:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <Implementation><![CDATA[
@@ -117,6 +120,9 @@
 				Do AantallenGescandPerVhoss.Verhoog(ProductieSequentieItem.VHOSSID)
 			}
 			If DnaCode.SequentieNummer = ProductieSequentieItem.SequentieNummer {
+				If $$$Not(ProductieSequentieItem.VHOSSID = GuiVhossVolgnummer) {
+					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet in een andere Vhosskast"))
+				}
 				Set VhossidVanDnaCode = ProductieSequentieItem.VHOSSID
 			}
 		}
@@ -141,6 +147,7 @@
 	}
 	Set Resultaat.AantalInToelevering = AantalInVhoss
 	Set Resultaat.AantalReedsGescand = AantallenGescandInVhoss
+	Set Resultaat.VhossidVanDnaCode = VhossidVanDnaCode
 	Quit Resultaat
 ]]></Implementation>
 </Method>
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.DnaCodeService.txt
===================================================================
diff -u -r60836 -r61030
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.DnaCodeService.txt	(.../WS.Halux.AAP.DnaCodeService.txt)	(revision 60836)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.DnaCodeService.txt	(.../WS.Halux.AAP.DnaCodeService.txt)	(revision 61030)
@@ -91,6 +91,7 @@
                     <s:element minOccurs="0" name="Toelevering" type="s:string"/>
                     <s:element name="PalletCode" type="s:string"/>
                     <s:element minOccurs="0" name="Locatie" type="s:string"/>
+                    <s:element minOccurs="0" name="GuiVhossVolgnummer" type="s:string"/>
                 </s:sequence>
             </s:complexType>
             <s:element name="DnaCodeAfmeldenResponse">
@@ -107,6 +108,7 @@
                             <s:element minOccurs="0" name="AantalInToelevering" type="s:long"/>
                             <s:element minOccurs="0" name="AantalReedsGescand" type="s:long"/>
                             <s:element maxOccurs="unbounded" minOccurs="0" name="DnaCodes" nillable="true" type="s0:DnaCode"/>
+                            <s:element minOccurs="0" name="InterneVhossKastId" type="s:string"/>
                         </s:sequence>
                     </s:extension>
                 </s:complexContent>
Index: vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61018 -r61030
--- vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61018)
+++ vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61030)
@@ -16,9 +16,9 @@
 </Method>
 
 <Method name="BepaalAantalGescandeVhossSequentieItems">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,GuiVhossVolgnummer:%String</FormalSpec>
 <ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalAantalGescandeVhossSequentieItems",DnaCode)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalAantalGescandeVhossSequentieItems",DnaCode,GuiVhossVolgnummer)
 ]]></Implementation>
 </Method>
 </Class>
Index: WS/Halux/AAP/DnaCodeAfmeldenResponse.cls.xml
===================================================================
diff -u -r56081 -r61030
--- WS/Halux/AAP/DnaCodeAfmeldenResponse.cls.xml	(.../DnaCodeAfmeldenResponse.cls.xml)	(revision 56081)
+++ WS/Halux/AAP/DnaCodeAfmeldenResponse.cls.xml	(.../DnaCodeAfmeldenResponse.cls.xml)	(revision 61030)
@@ -16,6 +16,10 @@
 <Collection>list</Collection>
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
+
+<Property name="InterneVhossKastId">
+<Type>%String</Type>
+</Property>
 </Class>