Index: APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml
===================================================================
diff -u -r37273 -r37598
--- APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 37273)
+++ APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 37598)
@@ -55,7 +55,7 @@
 
 						#Dim CSBSO44Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(CSBSO41.CSBSO44List)
 						while CSBSO44Iterator.HasNext(){
-							#Dim CSBSO44 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031 = CSBSO44Iterator.Next()
+							#Dim CSBSO44 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS044 = CSBSO44Iterator.Next()
 							Do ..SchrijfRecord(CSBSO44.ToString())
 							Set RecordCount = RecordCount + 1
 						}
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml
===================================================================
diff -u -r37273 -r37598
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 37273)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 37598)
@@ -112,14 +112,14 @@
 
 	#Dim E1EDL37Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20.GetAt(1).E1EDL37)
 	#Dim E1EDL37 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL37
-	While E1EDL37Iterator.HasNext(){
+	While E1EDL37Iterator.HasNext(){ ;loop over palletten
 		set E1EDL37 = E1EDL37Iterator.Next()
 		#Dim E1EDL44Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL37.E1EDL44)
 		#Dim E1EDL44 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL44
-		While E1EDL44Iterator.HasNext(){
+		While E1EDL44Iterator.HasNext(){ // producten per pallet
 			set E1EDL44 = E1EDL44Iterator.Next()
 			#Dim arraysleutel as %String = E1EDL44.KDMAT _ E1EDL44.VBELN _ E1EDL44.POSNR
-			if 'CSBSO31.CSBSO41Array.IsDefined(arraysleutel){
+			if $$$Not(CSBSO31.CSBSO41Array.IsDefined(arraysleutel)) {
 				#Dim CSBSO41 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041).%New()
 				set CSBSO41.ABNr = ..GeefABNr(E1EDL44)
 				set CSBSO41.ABLijnNr = ..GeefABLnNr(E1EDL44)
@@ -132,7 +132,10 @@
 				set CSBSO41.UnitOfMeasure = "ST"
 				set CSBSO41.CountryOfOrigin = "AT"
 				do CSBSO31.CSBSO41Array.SetAt(CSBSO41, arraysleutel)
+			} else {
+				set CSBSO41 = CSBSO31.CSBSO41Array.GetAt(arraysleutel)
 			}
+			
 			set CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityInvoiced = + CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityInvoiced + E1EDL44.VEMNG
 			set CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityShipped = CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityInvoiced 			
 			do ..ToeleveringInfoVerzamelaar.ZetVHProduktInfo(CSBSO31,CSBSO41,E1EDL44.VBELN, E1EDL44.POSNR)			
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml
===================================================================
diff -u -r37475 -r37598
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml	(.../DespatchBerichtOntvanger.cls.xml)	(revision 37475)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml	(.../DespatchBerichtOntvanger.cls.xml)	(revision 37598)
@@ -114,7 +114,6 @@
 
 <Method name="LeesXMLBestand">
 <FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</ReturnType>
 <Implementation><![CDATA[
 	#Dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%ClassName(1)
Index: vhTestFiles/UnitTests/APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder.Converteer/TestMultiPallet/Test/Result.txt
===================================================================
diff -u -r37597 -r37598
--- vhTestFiles/UnitTests/APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder.Converteer/TestMultiPallet/Test/Result.txt	(.../Result.txt)	(revision 37597)
+++ vhTestFiles/UnitTests/APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder.Converteer/TestMultiPallet/Test/Result.txt	(.../Result.txt)	(revision 37598)
@@ -10,11 +10,11 @@
 CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].PiecesPerParcels3 = 0000007
 CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].PiecesPerParcels4 = 0000007
 CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].PiecesPerParcels5 = 0000007
-CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].SpecialMarking1 = 0036719143
-CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].SpecialMarking2 = 0036719150
-CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].SpecialMarking3 = 0036719167
-CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].SpecialMarking4 = 0036719181
-CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].SpecialMarking5 = 0036719204
+CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].SpecialMarking1 = 0036719204
+CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].SpecialMarking2 = 0036719143
+CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].SpecialMarking3 = 0036719150
+CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].SpecialMarking4 = 0036719167
+CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CSBSO44List[1].SpecialMarking5 = 0036719181
 CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CountryOfOrigin = AT
 CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].CustomsClassification = 830242
 CSBSO11List[1].CSBSO21List[1].CSBSO31List[1].CSBSO41Array[0196513023247481].IdentNr = 01965130
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/TestMultiPallet.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/TestMultiPallet.cls.xml	(revision 0)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/TestMultiPallet.cls.xml	(revision 37598)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder.Converteer.TestMultiPallet">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim Filename As %String = ##class(TECH.Files).AppendFile(..GeefBestandLocatie(),"Bestand.xml")
+	set BerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New()
+	
+	Set Converteerder = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder).%New()
+	#dim CSBSO As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = Converteerder.Converteer(BerichtOntvanger.LeesXMLBestand(Filename))
+
+	do ..DataExporteerder.ExporteerObject(CSBSO,"Result.txt")
+	
+	do $$$AssertReferentieBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>