Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62518 -r62526
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62518)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62526)
@@ -764,6 +764,8 @@
 			#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(RondAfVhossBatchRequest.BatchId)
 		}
 		
+		Set VhossMapper = ##class(TECH.KeyValue.UniqueList).%New()
+		
 		Set DnaCodeViaBatchIterator = ..DnaCodeRepository.ZoekViaBatchId(RondAfVhossBatchRequest.BatchId)
 			
 		While DnaCodeViaBatchIterator.HasNext() {
@@ -773,27 +775,40 @@
 			If $$$HasLength(DnaCodeTemp.ScanTijdstip) {
 				Do AantallenGescandPerVhoss.Verhoog(DnaCodeTemp.PalletCode)
 				Do AantallenPerVhoss.Verhoog(DnaCodeTemp.PalletCode)
+				//Do VhossMapper.Insert(##class(TECH.KeyValuePair).%New(ProductieItem.VHOSSID, DnaCodeTemp.PalletCode))
 			} Else {
 			  	If ##class(TECH.StringUtils).StartsWith(DnaCodeTemp.DnaCode,"T") {
 			  	} Else {
 				  	Do ##class(Tools.Wlip).%New(127).ObjToXML(ProductieItem)
-				  	Do AantallenPerVhoss.Verhoog(ProductieItem.VHOSSID)
+				  	//zoeken naar reeds bestaand echt palletnummer dat bij deze interne vhossid hoort. Indien gevonden, daarbij verhogen
+				  	
+				  	Do AantallenPerVhoss.Verhoog(..ProbeerEchteVhossIdTeBepalen(RondAfVhossBatchRequest.BatchId,DnaCodeTemp.SequentieNummer,ProductieItem.VHOSSID))
 			  	}
 			}
 			
 		}
+		Do ##class(Tools.Wlip).%New(127).String(VhossMapper.ToString())
 		
 		#dim FrequentieItemIterator As TECH.ListIterator = AantallenPerVhoss.GeefItemIterator()
 		While FrequentieItemIterator.HasNext(){
+			Do ##class(Tools.Wlip).%New(127).String("in while")
 			#dim Aantal As %Double = FrequentieItemIterator.Next()
 			Set VhossKastMetAantallen = ##class(WS.Halux.AAP.RondAfVhossBatch.VhossKastenMetAantallen).%New()
+			Do ##class(Tools.Wlip).%New(127).String(FrequentieItemIterator.Key())
 			If +FrequentieItemIterator.Key() = FrequentieItemIterator.Key() {
-				Set VhossKastMetAantallen.Vhosskast = "Vhoss "_FrequentieItemIterator.Key()
+				//If VhossMapper.FindByKey(ProductieItem.VHOSSID) {
+					//Set VhossKastMetAantallen.Vhosskast = VhossMapper.FindByKey(ProductieItem.VHOSSID).Value
+				//} Else {
+					Set VhossKastMetAantallen.Vhosskast = "Vhoss "_FrequentieItemIterator.Key()
+				//}
+				Do ##class(Tools.Wlip).%New(127).String("a"_VhossKastMetAantallen.Vhosskast)
 			} Else {
 				Set VhossKastMetAantallen.Vhosskast = FrequentieItemIterator.Key()
+				Do ##class(Tools.Wlip).%New(127).String("b"_VhossKastMetAantallen.Vhosskast)
 			}
 			Set VhossKastMetAantallen.AantalLades = Aantal
 			Set VhossKastMetAantallen.AantalLadesGescand = AantallenGescandPerVhoss.GeefFrequentieVanItem(VhossKastMetAantallen.Vhosskast)
+			Do ##class(Tools.Wlip).%New(127).String("aantallen = "_VhossKastMetAantallen.AantalLades_"/"_VhossKastMetAantallen.AantalLadesGescand)
 			If $$$Not(VhossKastMetAantallen.AantalLades = VhossKastMetAantallen.AantalLadesGescand) {
 				Do Response.VhossKastenMetAantallen.Insert(VhossKastMetAantallen)
 			}
@@ -814,6 +829,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProbeerEchteVhossIdTeBepalen">
+<FormalSpec>BatchId:%String,SequentieNummer:%String,InternVhossId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %String = ""
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, SequentieNummer)
+	If DnaCodeIterator.HasNext() {
+		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+		If ##class(TECH.StringUtils).StartsWith(DnaCode.PalletCode,"O1") {
+			Set Resultaat = DnaCode.PalletCode
+		} Else {
+			Set Resultaat = InternVhossId
+		}
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaKlantnummer">
 <FormalSpec>ZoekViaKlantnummerRequest:WS.Halux.AAP.ZoekViaKlantnummerRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekViaKlantnummerResponse</ReturnType>