Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(revision 61565)
@@ -0,0 +1,242 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler.MagDnaCodeInVhossKast.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: batchcodes komen niet overeen -&gt; mag niet">
+<Implementation><![CDATA[
+	
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "LAAAAA0"
+	Set DnaCode.BatchId = 100000
+	#dim Pallet As %String = "O100000010"
+	
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New()
+	
+	#dim Antwoord = Bepaler.MagDnaCodeInVhossKast(DnaCode,Pallet,111111)
+	
+	Do $$$AssertFalse(Antwoord)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX en geen sequentie beschikbaar -&gt; mag niet">
+<Implementation><![CDATA[
+	#dim GuiInternVhossNummer As %String = ""
+	
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "LAAAAA0"
+	Set DnaCode.BatchId = "100000"
+	#dim Pallet As %String = "O100000010"
+	
+	Set SequentieServiceStub = ##class(vhTest.Mock.APPS.Halux.common.SequentieService).%New()
+	Do SequentieServiceStub.IndienMethodCall("HeeftProductieSequentie", DnaCode.BatchId).DanReturn($$$False)
+	
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New(SequentieServiceStub)
+	
+	#dim Antwoord = Bepaler.MagDnaCodeInVhossKast(DnaCode,Pallet,GuiInternVhossNummer)
+	
+	Do $$$AssertFalse(Antwoord)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// werkwijze: dnacode komt binnen, huidige vhosskast
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//  alle seq.items van de batch van die code opzoeken
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//  loopen over alle seq.items tot we op dnacode.sequentie komen -> intern vhossnummer onthouden, intern subnummer onthouden
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//         --> niets gevonden: "geen vhossdata gevonden voor dnacode, contacteer planning"
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//  als er nog niets is ingescand op de gekende interne vhoss/subnummer: alles ok
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//          --> checken of "huidige vhosskast" al in gebruik is voor andere dnacodes in de batch. Indien zo -> foutmelding
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//  als nog niet alle dnacodes die in dezelfde interne vhoss/subnummer zitten afgescand zijn, moet de dnacode.palletcode gelijk zijn aan de de palletcode horend bij de internevhoss
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// 			--> indien niet: "dnacode kan niet in deze vhoss"
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//  deze komt wrschl niet voor: als alle dnacodes die in dezelfde interne vhoss/subnummer zitten afgescand zijn, moet de dnacode.palletcode anders zijn dan de palletcode horend bij de internevhoss
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//  2 mogelijkheden: intern vhossnummer = guivhossvolgnummer of <> guivhossvolgnummer
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//    - gelijk:
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//    - verschillend:
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//        in principe fout, tenzij alle dnacode van het guivhossvolgnummer al gescand/inbuffer zijn met correcte palletcode
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//  opnieuw loopen over alle seq.items, maar enkel bij die met hetzelfde intern vhossnummer het bijhorend dnacode-object ophalen
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//    bij elk van die dnacode-objecten checken of de bijhorende palletcode overeenkomt met die van de inkomende dnacode(request)
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//      als er eentje bijzit dat NIET dezelfde is: false returnen
+
+]]></Content>
+</UDLText>
+
+<Method name="Test: LBX, 1 productiesequentieitem beschikbaar, geen GuiVhossVolgnummer -&gt; mag wel">
+<Implementation><![CDATA[
+	#dim BatchId As %String = "100000"
+	
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "LAAAAA0"
+	Set DnaCode.BatchId = "100000"
+	#dim Pallet As %String = "O100000010"
+	
+	Set SequentieServiceStub = ##class(vhTest.Mock.APPS.Halux.common.SequentieService).%New()
+	Do SequentieServiceStub.IndienMethodCall("HeeftProductieSequentie", DnaCode.BatchId).DanReturn($$$True)
+	
+	Set Batch = ##class(APPS.Halux.common.impl.BatchImpl).%New()
+	Set ProductieSequentieItem = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(Batch)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem)
+	Do SequentieServiceStub.IndienMethodCall("GeefProductieSequentie", DnaCode.BatchId).DanReturn(ProductieSequentie)
+	
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New(SequentieServiceStub)
+	
+	#dim Antwoord As %Boolean = Bepaler.MagDnaCodeInVhossKast(DnaCode,Pallet,BatchId)
+	
+	Do $$$AssertTrue(Antwoord)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX, 2 productiesequentieitems met correct intern vhossnummer -&gt; mag wel">
+<Implementation><![CDATA[
+	#dim BatchId As %String = "100000"
+	
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "LAAAAA0"
+	Set DnaCode.BatchId = "100000"
+	#dim Pallet As %String = "O100000010"
+	
+	Set SequentieServiceStub = ##class(vhTest.Mock.APPS.Halux.common.SequentieService).%New()
+	Do SequentieServiceStub.IndienMethodCall("HeeftProductieSequentie", DnaCode.BatchId).DanReturn($$$True)
+	
+	Set Batch = ##class(APPS.Halux.common.impl.BatchImpl).%New()
+	Set ProductieSequentieItem1 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem1.VHOSSID = "1"
+	Set ProductieSequentieItem2 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem2.VHOSSID = "1"
+	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(Batch)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem2)
+	Do SequentieServiceStub.IndienMethodCall("GeefProductieSequentie", DnaCode.BatchId).DanReturn(ProductieSequentie)
+	
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New(SequentieServiceStub)
+	
+	#dim Antwoord As %Boolean = Bepaler.MagDnaCodeInVhossKast(DnaCode,Pallet,BatchId)
+	
+	Do $$$AssertTrue(Antwoord)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX, 2 productiesequentieitems waarvan 1 met correct intern vhossnummer -&gt; mag wel">
+<Implementation><![CDATA[
+	#dim BatchId As %String = "100000"
+	
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "LAAAAA0"
+	Set DnaCode.BatchId = "100000"
+	#dim Pallet As %String = "O100000010"
+	
+	Set SequentieServiceStub = ##class(vhTest.Mock.APPS.Halux.common.SequentieService).%New()
+	Do SequentieServiceStub.IndienMethodCall("HeeftProductieSequentie", DnaCode.BatchId).DanReturn($$$True)
+	
+	Set Batch = ##class(APPS.Halux.common.impl.BatchImpl).%New()
+	Set ProductieSequentieItem1 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem1.VHOSSID = "2"
+	Set ProductieSequentieItem2 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem2.VHOSSID = "1"
+	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(Batch)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem2)
+	Do SequentieServiceStub.IndienMethodCall("GeefProductieSequentie", DnaCode.BatchId).DanReturn(ProductieSequentie)
+	
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New(SequentieServiceStub)
+	
+	#dim Antwoord As %Boolean = Bepaler.MagDnaCodeInVhossKast(DnaCode,Pallet,BatchId)
+	
+	Do $$$AssertTrue(Antwoord)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61513 -r61565
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61513)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61565)
@@ -21,20 +21,25 @@
 </Method>
 
 <Method name="MagDnaCodeInVhossKast">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,Pallet:%String,GuiVhossVolgnummer:%String</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,Pallet:%String,BatchId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	Quit:($$$HasLength(BatchId) && $$$Not(DnaCode.BatchId=BatchId)) $$$False
+	
 	#dim Resultaat As %Boolean = $$$False
 	#dim ItemIterator As TECH.Iterator
 	
+	//controleren of inkomende batchid = dnacode.batchid
+	
+	
 	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
 		Quit:$$$Not(..SequentieService.HeeftSequentie(DnaCode.BatchId)) Resultaat
 	
 		Set ItemIterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
 		#dim TbxSequentie As %CacheString
-		While ItemIterator.HasNext() {
+		While ItemIterator.HasNext() && $$$Not(Resultaat) {
 			Set TbxSequentie = ItemIterator.Next()
-			Do ..VerwerkDnaCode(DnaCode, TbxSequentie.GetData(1), TbxSequentie.GetData(2), GuiVhossVolgnummer)
+			Set Resultaat = ..VerwerkDnaCode(DnaCode, TbxSequentie.GetData(1), TbxSequentie.GetData(2))
 		}
 
 	} Else {
@@ -43,29 +48,36 @@
 		#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
 		Set ItemIterator = ProductieSequentie.GeefItemIterator()
 		#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
-		While ItemIterator.HasNext() {
+		While ItemIterator.HasNext() && $$$Not(Resultaat) {
 			Set ProductieSequentieItem = ItemIterator.Next()
-			Do ..VerwerkDnaCode(DnaCode, ProductieSequentieItem.SequentieNummer, ProductieSequentieItem.VHOSSID, GuiVhossVolgnummer)
+			Set Resultaat = ..VerwerkDnaCode(DnaCode, ProductieSequentieItem.SequentieNummer, ProductieSequentieItem.VHOSSID)
 		}
 	}
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductieSequentieNummer:%String,ProductieVHOSSID:%String,GuiVhossVolgnummer</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductieSequentieNummer:%String,ProductieVHOSSID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	Quit $$$True
+	/*Quit:GuiVhossVolgnummer="" $$$True
 	
+	#dim Resultaat As %Boolean = $$$False
 	//checken of er voor deze interne id al gescande dnacodes bestaan met een ander vhosslocatie ingevuld dan diegene die is ingescand
 	
 	
 	If DnaCode.SequentieNummer = ProductieSequentieNummer {
 		If $$$Not(ProductieVHOSSID = GuiVhossVolgnummer) {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet in een andere Vhosskast"))
+			Set Resultaat = $$$False
+			//Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet in een andere Vhosskast"))
+		} Else {
+			Set Resultaat = $$$True
 		}
 	}
-	Quit $$$True
+	Quit Resultaat*/
 ]]></Implementation>
 </Method>